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1.0 引言 


本 书 导 在 向 迹 者 教授 实时 有效 日 完美 的 数值 计算 方法 ,很 定 该 者 要 党 成 “: 毕 竺 生 的 从 
务 ,我 们 将 教 你 学 会 如 何 来 进行 此 项 任务 。 偶 尔 , 我 们 委 带 你 进入 美丽 的 小 径 , 扎 更 多 的 时 
候 , 我 们 将 引导 你 沿 着 通 往日 的 好 的 大 道 前 进 ， 

通 览 全 书 , 读 者 将 会 发 现 我 们 会 无 所 顾忌 地 告诉 你 :应 该 怎样 做 和 不 应 该 怎样 做 。 这 种 
规定 性 的 语调 来 源 于 我 们 洗 醒 的 决策 .希望 你 不 要 为 此 而 恼火 .我 们 并 不 旦 说 我 们 的 建议 绝 
对 正确 ! 幅 皮 , 我 们 芭 对 一 种 师 疝 : 即 在 关于 数值 计算 的 教科 书 文献 中 ,只 诗 论 己 经 发 明 的 各 
种 可 能 方法 ,而 不 提 及 基于 相对 依 值 的 实际 评价 。 因 此 ,我 们 尽 可 能 将 我 们 的 实际 评 断 提供 
给 读者 。 当 该 者 有 了 一 定 经 验 乒 ,将 会 对 我 们 建议 的 串 信和 度 形成 自己 的 看 法 。 

我 们 假定 违背 能 够 阅读 (C 语言 计算 机 程序 .在 这 本 《CC 诸 言 数值 算法 程序 人 全 (Sccond 
Edition)j 中 ,所 有 算法 都 用 (语言 实现 、 如 果 污 者 更 乐意 用 FORTRAN 诸 言 . 你 将 找到 本 
书 的 FORTRAN 版 本 一 一 (Numerical Recipes In FORTRANISecond gdqition)y、 本 书 其它 
语言 的 早期 版 本 .例如 BASJC 和 Pascal ,同样 是 完全 有 效 的 ,只 是 不 包含 新 版 增加 的 内 容 。 

在 印刷 形式 上 , 列 入 文中 的 程序 都 用 如 下 格式 ， 

上 呈 include < 一 mtth h>> 

革 define 及 AD〔3. 141592657180.0) 

Yoid ftnoon (ipt nvinr nph，long *jdy, float +frac) 
程序 总 以 一 个 导 引 说 归并 始 , 总 括 程序 的 目的 并 解 曼 调 的 矢 数 序列 。 杰 程序 用 来 计算 日 相 。 给 定 个 整数 和 所 
期 饪 的 月 机 的 代码 nphCnPh 一 5 为 新 中 ,aph 一 : 为 上 约 卢 ,nph:=2 为 满月 ,nph 一 3 为 下 路 月 ) .程序 这 辣 愉 1905 年 | 
及 起 第 n 个 月 要 发 后 的 凯 撤 历 日 数 这 ,并 加 上 梅林 有 不治 村 几时 的 村 分 数 frae( 玄 肿 天 的 小 数 各 分 赤 茎 1。 
veid nrerror(char error_text[]); 


ipt ; 
了 1oat am ，,aB，C， 蕊 ,2 其 世 区 


ce=h+phAd4.0; 这 是 我 们 对 单行 注解 的 方法 
te=cy1236 .85; 
亡 2mt 吃 亡 ; 
ae<359.22343+29.105356*ci 不 必 理 志 这 信 算 法 、 仙 它 却 很 有 效 ! 
aa306 .0253+385 .61691Buwc+0.0107304t2; 
本 jdm2&15020r28Lan+7Izmph; 
XISmD.75933+1.53058B568ecC+(t1.178e-4) (1 .558-7 了 7 七) 七 2 
iz fnph ws D 1| nph ww 2) 
XKtIT 石 + 二 【〔D.1734-3 .936~39t)#5inCRAD4ae)-D.sDSBwBsizrRADeam) : 
glge iE (oph = 1 || npPh mm 六 ) 
玉龙 T 和 才 于 【日 .1721 一 入. DG 一 入 让) 才 轴 十 m【 民 上 也 志和 汪 ) 一 丫 .在 28 吕 首开 攻 【 有 大 站 aa 由) ; 
必 13N DISITOT(IaPh i8 unkmnowm in zlmoonn); 此 处 指示 错误 条 梓 的 方法 


jetint] fxzctra >= 0. ? zl1oof(ztIa) ceil{XtrTA-1-O)》3 
可 jd +a 工 ? 
沁 生 工具 伺 虽 页 七 了 站 一 1 了 


了 

如 果 土 面 通 煞 定义 的 语法 对 读者 来 说 比较 陌生 的 话 ,表明 你 可 能 习惯 于 使 用 K &R 请 
法 , 书 不 是 较 新 的 ANST( 诸 法 。 在 本 书 中 ,我 们 采用 ANSJ (: 语法 作为 我 们 的 标准 。 次 者 可 
以 翻 到 司 而 第 1. 2 节 , 在 那里 我 们 对 ANSIC: 数 的 范例 进行 了 更 加 详细 的 讨论 。 

注意 ,我 们 表示 错误 和 例外 情 襄 的 惯例 是 用 一 条 象 nrerrort”some error mmessage" 的 
语句 . 函数 arerror(C) 是 列 于 书 末 附 录 了 的 实用 程序 nrutilc 中 。 附录 日 还 个 含 了 其 它 实用 
程序 ,我 们 将 在 后 面 介 绍 。 函 数 nrerror() 在 用 户 的 stderr 设备 (通常 是 用 户 的 屏 间 下端 ? 上 
印 出 错误 信息, 然后 调用 函数 exit 人 终止 运行 。 在 我 们 所 检查 过 的 任何 C 库 中 都 有 沙 数 exit 
人 ,但 假若 库 中 没有 ,可 以 修改 mrerror() ,以 合 程 序 除 暂停 运行 外 ,还 可 做 其 它 : - 些 事 情 . 例 
如 ,可 使 程序 暂停 而 从 键盘 输入 数据 ,然后 人 为 地 中 断 运 行 。 在 一 些 应 用 中 ,读者 可 能 想 修改 
nrerror() ,以 做 一 些 更 复杂 的 错误 处 理 , 如 用 错误 标志 或 代码 设置 向 其 它 地 方 传输 控制 . 

我 们 将 在 第 1. 1 节 和 1,2 节 中 , 吏 多 地 讨论 C 诸 言 的 其 议和 风格 。 


1.0.1 计算 环境 和 程序 有 效 性 


我 们 的 目的 是 , 尽 林 能 使 本 书 中 的 穆 序 通用 性 强 一 些 ,以 便 能 在 和 不 同型 号 的 计算 机 、 不 
喇 的 井 作 系统 .不 同 的 上 编译 系统 上 运用 。C 实际 上 就 是 为 了 可 移 值 性 而 设计 的 。 但 是 :我 
们 发 现 , 只 有 在 多 种 不 同 的 编译 器 上 ,实际 检查 了 所 有 的 程序 后 ,才能 了 解 库 结 构 和 内 容 方 
面 的 差异 。 甚 至 会 发 现 , 所 容许 的 语法 有 区 别 。 我 们 已 在 袁 1.0.1.1 所 列 的 机 型 .操作 系统 
和 编译 器 的 各 类 组 合 下 ,检验 了 本 书 的 所 有 称 序 。 更 . - 般 地 说 ,各 程序 可 以 不 加 修改 地 在 任 
和 何 符 台 标准 ANSTC 的 编译 器 上 运行 。 标 准 ANSI C 在 险 宾 逊 (Harhison? 和 斯 蒂 尔 
《Sreele)… 上 所 闭 的 书 中 统 述 得 相当 出 色 。 经 过 较 少 的 改动 后 , 茂 们 的 程序 也 可 在 较 老 的 K 六 
R 标准 后 的 编译 器 上 运行 。 一 个 不 起 眼 的 ,但 必须 注意 的 不 藉 容 的 例子 是 ,ANSIC 中 ,内 存 
分 瑟 岗 数 maliec() 秆 free()? 要 求 通过 标题 文件 stdlib.h 说 明 ; 而 一 些 较 老 的 编译 器 要 求 它 
们 通过 标题 文件 malloc.h 说 明 ; 还 有 : 些 编译 器 将 它们 看 做 内 部 文件 而 不 要 求 任何 标题 文 
件 说 明 ， 
囊 1.0411 经 过 检验 的 机 器 和 编 评 器 

三 件 操作 系 流 版 本 编译 器 版 本 

屯 M PC compatible 486/33 NMS.DOS 5.0AWindows 21 Microsoft CC+ 十 7.0 

IBM PC compatible 486/33 MIS-DOS 5.mn Borlahd CAC 十 十 2.0 

IHIM 拉 S76000 总 [其 3.2 IBM xjec 1.02 

DECxration 5000785 CLTRIR 4. 2A CodeCenter (SabermC 3.1.1 





DECsystcm 5400 TILTR 4. 上 GNU C Compbiler 2. 1 
Sum SPARCstation 之 SunGOS 4, 1 CGNB 0 Compiier 1.40 


了 ECstaticn 50007200 LITRIX 4.2 DEC RISC C2.E” 
Sun SPARCstation 2 SunGQS 4, 1 Suncc 1,1” 


* 编译 版 本 不 能 完全 实 耻 ANS[C5 只 对 长 全民 有 效 . 








为 保 让 程序 有 效 性 ,我 们 直接 将 机 器 可 读 的 程序 作为 书稿 中 的 程序 源码 ,以 减少 印刷 错 
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误 繁 殖 的 机 会 有 效 的 演示 程序 可 以 4C 诺言 数 秆 算法 实例 ?- 书 得 到 ,未 中 的 程序 亦 足 术 器 
可 读 的 .如 果 读 者 计划 使 用 本 书 中 较 多 的 程序 ,或 计划 在 一 种 以 上 不同 的 计算 本土 使 用 节 中 
的 程序 ,你 将 发 现 , 有 这 些 况 示 碍 序 的 拷贝 是 非常 有 贞 的 ， 

当然 ,说 我 们 的 程序 毫 匹 错误 将 是 非常 量 知 的 ,我 们 确实 并 没有 这 样 说 。 昌 然 许多 该 者 
将 他 们 的 经 验 写 信 告诉 了 我 们 ,使 我 们 从 中 得 益 , 但 是 我 们 还 是 非常 着 愤 的 。 访 吉 若 发现 了 
错误 ,请 证 实 它 并 告诉 我 们 。 


1.0.2 和 本 书 第 一 版 的 兼容 性 


如 果 读 者 已 习惯 于 本 节 第 一 版 的 数值 算法 程 子 ,那么 请 记 住 :第 一 版 的 见于 妨 户 秋子 都 
列 人 本 书 第 二 版 内 , 半 基 有 由 同 的 名 字 和 和 功能, 带 常 是 对 程序 代码 本 身 知 了 一 些 改 进 , 丰 有 ， 
我 们 希望 读 尾 能 很 快 热 悉 新 版 本 中 增加 的 I00 多 个 实 序 。 

我 们 已 经 放弃 了 第 一 版 中 一 小 部 分 程序 ,而 用 我 们 认为 本 版 中 更 好 的 各 序 炎 茜 代 ,在 赤 
〈 表 1.0. 2. 1) 中 ,我 们 列 出 了 放弃 的 程序 以 及 它们 的 替代 程序 . 


表 1.0.2.1 本 版 中 省 格 的 第 一 版 中 的 程序 









注 于 

mglin or 加 gi6s 所 好 狼 上 法 | 
本 cosfnl or cosft2 壹 界 条 件 的 放 坛 | 
ce]，al2 zj，rd，rj，rc 更 好 的 算法 
des，desks rand 昼 在 用 Psdes 过 去 速度 大 塌 
mdiar1，mdian2 select ，sejip 更 一 般 
qeksr- sor: 名 字 改 变 
rkqc rkqs 更 好 的 方法 
sTnODHt 用 convlv,. 其 系数 来 自 savgel 
Sparse ]inbeg 更 一 - 般 








本 书 第 一 版 的 使 用 者 还 应 该 认识 到 ,两 版 都 有 的 一 些 程 序 , 其 调用 接口 也 有 变化 ,内 此 
并 不 是 直接 的 “插入 式 兼 容 "。 下 面 较 全 面 地 列 出 了 此 类 程序 :chsone .chstwo .covsrt .dfp- 
min jaguer ljfit .memccf mrqcof .mrqmin .pzextr rand、realft Tzextr .shoot shooff ,还 有 一 
些 其它 共 亲 的 程序 (这 和 采用 本 书 第 一 版 的 哪 一 次 印刷 有 关 )。 如 果 读 者 在 第 一 版 程序 的 基 
础 上 已 经 编写 了 一些 较为 复杂 的 软件 ,我 们 并 不 盲目 地 建议 你 用 本 书 对 应 的 程序 代替 它们 。 
但 是 我 们 特别 建议 新 的 程序 编写 者 采用 本 书 饼 新 程序 。 


. 工 0.3 参考 书 


在 本 书 的 大 多 数 章 节 后 列 出 了 参考 文献 ,以 便 读 老 进步 研究 .在 正文 中 疆 用 的 参考 文 
献 用 括号 中 的 数字 ,如 [3] 表 示 。 

因为 "计算 机 的 算法 ?通常 在 正式 发 表 之 前 已 经 流传 了 一 段 时 间 , 因 此 要 列 出 "原始 文 
献 ” 的 任务 比较 艰巨 .我们 试图 不 这 样 做 ,我 们 也 木 想 为 了 文献 目录 的 完 束 性 而 做 任何 伪装 。 
但 有 些 主题 存在 相当 多 的 第 二 类 文献 (教材 . 弃 论 中 的 讨论 ,那么 ,我 们 有 意识 地 将 这 类 主 


可 


3， 


题 的 参考 文献 限 十 少数 的 ,非常 有 开 的 第 一 类 文献 ,特别 荐 参考 价值 较 大 的 文献 ， 刁 本 和 
题 没有 适当 的 第 .类 参考 文献 存在 时 ,我 们 给 出 少数 几 个 原始 来 源 , 它 们 可 作为 进 一 支 阅读 
的 起 点 ,而 不 作为 该 领域 完整 的 文献 日 录 。 

参考 文献 所 列 的 顺序 并 不 表示 任何 必然 的 意义 。 它 只 反映 了 按 引用 上 顺序 列 纪 参考 之 寺 
和 大 致 按 优先 级 的 先后 列 出 进一步 研究 的 参考 建议 ,具体 来 说 ,就 是 最 有 用 的 列 在 最 就 面 . 

在 本 章 的 下 面 一 节 中 ,我 们 将 复习 程序 设计 (控制 结构 等 ) 的 基本 层 念 ,过 论 . 套 我 们 在 
本 书 中 采用 的 针对 CC 的 协议 ,并 介绍 些 数值 分 本 的 基本 概念 ( 售 入 误差 等 ) .然后 ,进入 术 
书 的 实 压 内 容 ， 


参考 文献 和 进一步 读物 : 
Harbisop，S.P. and Steele，G: 1 Jr 1991 人 54 Rerence anal。3rd ed，TEngicwwond Citfs、 习 |: 
Prentice-Halt)、[1_ 

Kemighan ，B，，and Ritehie ，D，19785，TAe [Prograpanpns Tangxager (Englewood Cliits，NJ,Preriice 
Hall). [2] [Reference for 民 本 R"ttadi:jional2 人 .Tatcr eduicxs ot this book so:xjJorm to the ANSEC 
standard. ] 

Meeus .1982，A4stroniDmiicatl 开 ortdtee Jor Ceicuetaetory 2ntl et，rerised and cniiarged 〔【R:ch-nooad、 3， 
克 ilimann-Bell)，[3- 


1.1 程序 组 织 和 控制 结构 


我 们 有 时 喜欢 指出 ,计算 机 程序 5 感 许 和 作曲 之 间 的 极其 相似 之 处 .所 有 这 -者 者 号 
二 维 纸 面 或 计算 机 屏幕 上 以 视 沉 媒质 一 一 符 导出 现 . 供 在 这 三 考 中 .可 视 的 二 维 静 态 形 此 
送 (或 假设 传送 ?着 些 极 不 相同 的 东西 , 即 随 村 间 展 开 的 过 得 不 如. 诗 供 障 读 , 音 乐 为 演 备 ， 
程序 作为 计算 机 指令 序列 顺序 地 执行 ， 

在 这 三 者 中 ,就 传播 的 视觉 形式 而 言 , 其 目标 是 人 。 目 的 是 最 高 效率 地 传送 , 进 市 例 人 地 
大 程 虚 地 理解 过 和 将 如 何 随时 间 展 开 . 就 诗 而 童 , 其 传送 目标 是 读者 ;对 音乐 来 说 ,其 日 友基 
演奏 者 ! 而 程序 的 目标 是 程序 用 户 。 

污 者 可 能 会 反 驭 说 ,程序 的 传送 月 标 ,不 是 人 而 是 计算 机 ,程序 用 户 只 是 作为 不 相 于 的 
中 介 物 一 一 一 个 给 机 器 供 料 的 侍者 .这 也 许 反 映 了 下 面 情形 :市 政 当局 的 行政 官员 将 软 梯 
盘 塞 人 他 的 个 人 计算 机 中 ,然后 咀 它 -个 二 进 制 可 执行 的 黑箱 程序 。 在 这 种 情况 下 ,计算 本 
并 不 管 这 个 程序 是 否 是 “优秀 编程 策 栈 "的 程序 。 

然而 ,我 们 却 要 假设 你 一 本 书 的 读者 是 处 于 完全 不 同 的 情形 下 .你 需要 或 想 要 知道 ， 
一 个 程序 做 的 是 什么 ,而且 旨 知道 它 是 如 何 做 的 .这 样 你 就 能 够 根据 自己 的 特定 用 途 调 整 机 
修改 它 。 你 需要 其 他 人 能 了 解 你 所 做 的 - - 切 , 进 而 提出 赞赏 和 批评 在 这 些 傅 况 下 ， -个 程序 
传送 的 日 标 完全 是 人 而 非 机 器 ， 

要 达 公 笃 序 具有 优秀 编程 策略 ,其 关键 是 认识 音乐 、 洗 作 为 人 蚁 的 符 亏 结 
构 , 孝 是 自然 地 组 成 层次 的 ,并 且 有 许多 不 同 的 找 套 层 .语音 (音素 ) 形 成 小 的 专 意义 的 单元 
(词素 ) 它 又 组 下 单 订单 启 组 全 为 络 语 ,进而 连 成 句子; 句 RN 更 高 而 有 有 
意义 的 层次 。 音 符 组 成 音乐 短语 , 进 组 合成 主旋律 .配合 旋律 和 于 声 等 ,再 形成 乐 童 、 协 浴 
曲 ,交响 乐 等 等 。 

站 寺 * 








积 序 的 结 稳 同样 是 有 导演 的 … 人 恰当 地 说 ,优秀 编程 策略 能 使 不 问 技 术 产 二 不 同 的 六 
笠 水 平 .程序 中 最 低层 是 ASCII 码 字 符 柴 :然后 是 常量、 标识 符 . 操 作 数 .运算 符 : 接 疹 基 象 s 
-j 士 苛 = 一 bcz3.0 这 样 的 程序 语句 .这 里 .对 编程 抽 最 好 的 忠告 是 程序 此 简单 肯 耻 ,或 者 沉 
不 要 过 上 花哨 -如 果 想 将 1- (0,1.2) 时 ,其 对 应 的 k=: (1,2,0) 的 值 顺 序 排 询 出 来 ,你 可 能 会 
困 写 出 如 下 的 单行 语句 而 沾 沾 魏 喜 : 


k 一 (2 一 ))x*【1 十 3x j)721 


但 是 , 当 以 后 重新 想 读 慌 它 时 就 会 丘 悔 了 .更 好 的 并 用 也 可 能 旦 揭 快 的 程序 应 为 


kk 一 一 上 
上 (k 一 一 3 k 一 习 ; 


某 些 编程 鼠 家 们 甚至 玩 成 如 于 的 季 : 


switeb 如 
Case rz kk 一 上 break; 
case jx 下 一 2 breaki; 
case 32: KK 一 Di break; 
defaulr: 
fprintf (stderr ，*Vmnexpected value for ]”) 
exir 《1)17 


因为 此 程序 很 明了 ,而 县 能够 有 效 地 预防 非 期 望 的 j 值 所 引起 的 错误 .在 这 些 程序 中 ,我 们 
一 般 倾 向 于 中 问 的 那个 程序 。 

在 这 个 简单 的 示例 中 ,我 们 实际 上 经 万 了 上 几 个 层次 .语句 频繁 地 以 “组 ?或 “ 块 ?的 形式 出 
现 , 仅 当 它们 作为 -个 整体 时 才能 表示 -- 定 的 意义 .例如 ; 
swapb 一 a 门 ; 


a[ 订 =-brj] 
b[ 记 一 swapy 


任何 程序 其 者 会 立刻 领悟 到 , 它 基 在 交换 两 个 变量 ,而 


ans 一 5Um 一 0 Di 
了 一 1 
很 象 是 在 某 些 大 代 过 程 前 ,对 变量 进行 万 始 赋值 .程序 中 的 这 一 层 通 常 是 很 明显 的 ,优秀 的 
编程 策 夏 是 ,在 这 一 屋 放 人 注释 , 即 加 ”初始 赋 什 ?或 “交换 变量 ”的 说 明 。 

下 一 居 就 是 “控制 结构 ,这 主要 包括 嫂 上 例 中 的 switch 结构 .fer 循环 等 等 .这 一 时 非 
常 重要 ,并且 和 本 飞 所 列 程序 的 层次 有 关 . 我 们 将 讨论 于 下 。 

再 更 高 的 一 层 就 评 熙 数 和 异 块 ,以 及 要 完成 计算 任务 的 “全 局 ”结构 .和 音乐 类 比 , 我 们 
坟 在 是 处 在 乐章 和 完整 的 作品 这 一 层 .在 这 - - 层 ， 模 块 化 " 利 “ 封 装 " 成 为 重要 的 网 程 概 含 ， 
一 般 可 做 如 下 理解 :各 程序 单元 应 该 通过 明确 的 定义 和 严密 限定 的 接口 相互 连 在 -起 ,好 的 
模块 化 策略 县 天 型 算 杂 软件 工程 成 功 的 先决 条 件 ,特别 对 多 个 编程 者 共同 协作 完成 的 程序 
更 是 如 此 .对 于 某 位 科学 家 或 者 本 书 的 读者 ,即使 所 遇 到 的 不 是 那么 庞大 的 编程 ,这 种 模块 
化 策略 也 是 有 益 的 (尽管 不 基 特 别 必要 )。 





一 些 计算 机 请 言 , 象 Medhtlz-2 和 马 + 十 ,能 够 实现 C 中 武志 的 高 级 清 言 结 峭 错 二 : 宫 
如 ,在 Modula 2 中 , 攻 数 .类 型 定 久 和 数据 结构 都 能 " 封 洪 ? 成 " 模 决 ", 通 过 公 尾 拔 口 庆 行 明 
信 , 而 它们 的 内 部 工作 和 在 序 的 共 祭 部 份 分 离 升 并 隐 只 起 江 .在 C 十 十 语言 中 , 罩 昌 的 得 
念 是 “类 (class)”, 也 就 是 出 户 定义 的 数据 类 可 的 推广 , 它 提 供 数据 的 隐 疙 . 数 拓 日 地 如 办 
化 .内 存 管 理 、 划 态 皂 印 和 有 算 符 的 重 载 ( 例 刘 , 用 户 帮 运算 符 , 如 十 和 X 进 行 定义 让 伸 .已 
便 能 进行 其 种 特定 的 运算 )- .如 果 * 类 ”能 正 峭 地 用 来 定义 在 不 同 的 程序 单 苑 之 问 苇 甫 的 得 
据 结构 , 则 它 可 穗 程 序 单 元 的 公用 接口 更 己 晰 .更 确定 ,减少 编 得 由 错 的 机 会 .党 志 纺 其 全 各 
运行 时 的 销 误 查找 ， 

除了 模块 化 ,还 有 “面向 对 象 的 程序 设计 ?概念 ,尽管 此 概念 依 御 于 模块 化 .这 时 : 些 彤 
程 语言 , 象 习 十 一 或 Turbo Pascal 5.5 7” ,允许 模块 的 公有 接口 接受 北 型 成 活动 的 重 乍 义 ,这 
些 重 定义 在 本 异世 这 一 级 都 能 被 上 斌 十 (因此 和 项 陈 为 多 态 性 ) .例如 ， :个 几 来 对 实数 拒 阵 -长 洋 
的 程序 能 够 在 运行 时 ,自动 地 用 来 对 复数 秘 防 首 , 采 几 的 是, 夏 数 数据 类 型 重 载 和 在 谋 的 
算 六 运算 定义 的 方法 .还 有 隔 个 概念 也 会 丰 到 , 即 * 继 承 性 “除了 自己 本 身 的 站 构 功 能 外 .还 
能 * 继 请 "其 它 类 型 结 梅 而 辣 定 义 数据 类 型 的 能 几 ) 积 "对 象 扩展 "( 硅 运行 时 . 二 通过 源 公 就 
直接 对 寞 块 增加 功能 的 能 力 ) 。 

在 本 书 中 ,我 人 没有 对 程序 模块 化 ,也 没有 对 象 化 代码 ,这 有 两 个 原因 :第 ,所 选 酒 的 
5 语言 不 能 忆 止 艇 到 这 - -点 :第 一 ,我 们 预想 尝 者 能 花 一 些 时 间 ,用 自 志 选择 的 结构 ,将 汉中 
的 算法 模块 化 或 对 象 化 ,目前 ,还 没有 标准 的 或 可 接受 的 面向 科学 对 得 计算 的 些 " 炎 ”. 然 
而 , 当 我 们 必然 地 将 本 书 的 算法 内 容 和 某 些 选取 的 三 类 定义 有 关 的 特定 集 台 磋 系 生来 上 皇 . 我 
们 可 能 正在 蚀 建 这 种 面 癌 科学 对 每 计算 的 -- 些 “类 ”， 

另 一 方面, 我们 不 是 不 灶 成 模 寺 化 和 面 铝 对 象 的 程 疾 设计, 俱 由 于 的 限制 ,我们 只 能 
做 得 尽 可 能 使 我 们 的 程序 面向 对 象 化 。 这 也 是 我 们 采用 ANSI C 的 困 :: 原 型 作为 缺 省 的 CC 
语言 的 苦 因 (第 1, 2 六 ), 述 有 ,我 们 在 程序 的 各 个 实施 部 分 , 特 … .注意 结构 化 的 程序 设计 . 妇 
干 面 我 们 所 讨论 的 。 


111 控制 结构 


执行 穆 谭 随时 间 而 展 并 ,得 却 不 放 严 格 地 按照 程序 们 写 的 顺序 直线 展开 的 .影响 着 语句 
执行 顺序 或 影响 着 语句 是 否 执行 的 程序 语句 叫 控制 语句 -控制 语句 汪 身 从 不 表示 任何 意义 ， 
它们 级 在 所 控制 的 语句 组 或 语句 块 中 才 表 达 一 定 的 帝 义 .如 果 假 定 这 些 语 句 块 是 含有 馈 茸 
的 一 段 文章 ,那么 最 好 认为 控制 语句 是 这 段 文 草 的 行 首 空格 和 名 子 问 的 标点 :而 不 是 句子 中 
的 词汇 ， 

我 们 现在 可 以 说 明 结构 化 程序 设计 的 日 的 是 什么 了 ,这 就 是 控制 程序 使 程序 在 妃 来 清 
呆 明 了 .可 见 , 这 个 目的 与 计算 机 如 何 读 程 序 无 丝毫 关系 .和 和 前面 所 进 的 一 样 ,计算 本 并 不 埋 
会 程序 员 是 否 用 了 闺 构 化 程序 设计 ,而 阅读 程序 的 人 竖 非常 关心 程序 结构 化 。- 妃 发 现 调 试 
结构 良好 的 程序 比 结 构 模 类 的 程序 容易 得 老 的 时 候 , 你 自 匡 也 会 关心 程序 结构 水 ， 

读者 可 以 用 两 种 互补 的 方法 来 实现 结 榴 化 程序 设计 的 目的 ,第 -, 熟 悉 少 妆 渤 本 的 、 在 
编程 中 经 常 妆 用 到 的 控制 结 迟 。 这 些 控制 结构 在 大 多 数 编程 语言 中 都 有 方便 的 点 示 形 式 , 除 
了 学 习 这 些 标准 控制 结 属 ( 见 轿 1.1.1) 以 外 , 读 并 应该 在 忌 可 能 的 范围 失学 会 考虑 自己 的 编 
树 任 务 。 在 与 程 育 时 ,应 该 学 会 习 司 十 用 -- 致 的 .惯用 方式 来 表示 这 些 标 准 控制 结构 ， 

ea 让。 


“这 不 是 际 碍 了 创造 性 吗 ?我 们 的 学 生 有 时 会 这 样 问 。 是 的 , 正 象 春 咬 曲 的 书 式 限 三 了 
葛 扎 等 的 创造 件 ,或 十 思 行 诗 的 葛 律 阁 式 阻 得 了 东 土 比 亚 的 创造 性 -- 样 . 关键 羡 , 当 创造 性 
意味 兰 是 交流 过, 在 格式 上 受到 适当 的 限制 可 以 页 有 利于 进行 交流 。 





WHILE 兢 环 
tb) 





DO WHILE 请 环 RREAK 鱼 末 
(@) (由 


5a) for 选 代 区 bwhile 选 代 ifc)do while 奈 拒 :tdybreak 选 代 ie) 尘 结 :(f)switch 结构 
团 ].1.1 结构 化 程序 设计 后 的 标准 控制 结构 





SWITCH 结构 ， 
人 ff) 


图 1.1.1 结 榈 北 称 序 设计 中 的 怀 准 控制 结构 (组 ) 


第 . 尽 可 张 避 多 使 映 不 号 :眼看 出 控制 庚 或 以 制 对 象 的 控制 语 色 ,这 意味 普 , 在 实际 
席 几 中 .读者 必 玫 只 可 能 七 免 使 月 语句 乐 导 和 &nto 河 旬 ,gwto 语句 并 没有 太 大 危险 (虽然 它 
史实 干扰 ““ 们 癌 旋 程 序 ; ,而 汪 名 标 寻 二 是 病根 玉 实 上 ,年 休 时候 当 你 在 该 程序 时 ,全 上 
一 个 语 钉 标 尝 ,你 部 人 条件 反 射 地 密 得 妨 慌 起 可 .为 信 么 ?这 是 国 为 ,下 面 的 问题 参 习 同性 地 
接 星 而 至 ; 指向 这 一 标号 的 控 柚 玉 自 哪 -分 支 ? 它 可 泓 来 各 程序 中 的 任何 地 方 ! 在 什么 情况 
下 会 导致 这 -分 支 转向 标 避 ?可 能 全 是 证 何 情况 ， 这 栏 寺 痪 定 的 机 变 为 天 确定 ,证 车 程序 的 
理解 可 能 会 陷 人 沼泽 中 。 

我 们 编排 了 些 例 了 ,使 这 些 攻 虑 更 为 上 基体， 


1.12 标准 结构 目录 
“For" 选 代 《语言 中 ,简单 的 选 代 是 印 for 入 牙 实现 的 ,例如 : 





fer 名 一 2 1 一 11031 -十 入 
bLi-=a-j 上 |; 
a[j 一 1 一 小 


注意 ,我 们 总 是 将 受挫 制 结构 作出 的 代码 块 按 蚀 些 开 排列 ,而 结构 本 身 不 呈 锯 齿 状 .注意 .我 
们 还 有 一 个 习惯 是 ,将 起 始 的 人 括 切 与 for 语 生效 在 同行. 而 不 是 下 一 行 .这 样 可 性 络 
整 行 。 


“df" 结 构 CC 中 的 这 个 鱼 构 与 Pascal .Algol .FORTRAN 和 其 它 省 雪 中 的 站 党 相公。 
其 典型 增 式 如 : 


站 


else 过 【7 


上 
人 


elsei 


由 了 于 如 当 程 序 块 中 有 一 条 以 上 语句 时 .复合 浅 名 才 需 要 太 括 号 ,C 中 的 主 结 构 不 还 FOR- 
TRAN 或 Pascasl 中 的 相 起 结 梅 明 饼 .。 在 构造 车 套 的 让 和子 句 电 一 定 要 小 心 , 例 如 ; 


让 Cb3) 
ita>3D 二 1; 
alseb 一 一 1; Yx# 有 问题 > 了 


出 于 有 下 一 行 缩 进 的 诸 锌 米 判别 ,程序 员 对 这 段 得 序 的 意图 是 ;" 若 b 大 于 3 且 a 大 于 3， 
则 b 加 3, 震 b 不 大 于 3,b 减 1." 但 足 按 照 C 语言 圳 则 ,这 段 程序 的 实际 意义 是 :* 若 b 大 于 3， 
由 判 断 a 值 . 芯 a 大 十 3, 剂 b 增加 1 ,其 s 小 于 或 等 于 3, 则 b 减 1," 关 键 是 else 子 司 与 最 近 打 
征 的 让 子 句 本 关连 ,万 伦 把 宪 放 在 页 面 阅 什么 地 方 * 站 用 括 导 来 在 售 . 可 以 很 容易 二 解决 这 
种 意义 混淆 的 所 是 .在 一 些 请 况 下 ,这 举 做 夺 技 术 上 也 许 足 多 余 的 ,但 却 明 依 了 编 每 表 的 意 


si 


图 并 甩 改 进 了 程序 .因此 上 面 的 程序 片段 应 写 为 : 


if (b>3)1 

ii(a>3) b 士 一 1 
else 1! 

本 


F 面 是 -- 个 主要 含有 诗 控 制 语 向 的 工作 程序 ， 


finetuqe <<math.h>> 
并 define IGREG 15 十 31L * (410 十 121.* 15827 ) 1582 华 区 片 1$ 日 采用 格 里 历 ( 明 历 ) 


long julday tint mmy，int 过，ine iyyy) 
在 此 程序 中 ,julday 返回 周年 yyy， 月 mm 日 id 确定 的 历 书 日 期 所 对 应 的 正午 并 始 的 凯撒 历 日 数 ,所 有 灾区 邦 是 
整 怨 , 正 的 年 份 代表 公元 后 (A.D. )14 负 的 年 份 代表 公元 前 {B.C. )。 记 往 公 元 前 1 年 之 后 是 公元 1 年 。 
人 
void nrerror(char errortext[ ]): 
long jn0l1# 
int ja 7 一 Iyyy?jmi 


让 (jy 一 一 0) nterrorf"julday:，there is nao year zero ); 
让 (jy 挟 0) 十 十 ] yi 
i 计 (mm 全 2) 1 

j 积 一 mm 十 1 这 是 IF 结 榴 块 的 范例 
1 elsc ! 

了 区 
各 一 rm 十 13， 

jul 一 leng) (floc:(365- 25* jy)? 十 ftloor(30. 6001 * jm) 一 由 十 1720995]# 
让 (ia 十 31L *《mm 十 12L xiyyy) > 一 IJGREG 1; _ 油 试 是 天 转变 为 烙 里 劝 

ja 一 《inty(0.01* jy)5 

ju 十 三 2-ja 十 Kint)》 (9.25 * ja)3 


return july 


(天 文学 家 把 24 小 时 算 作 一 个 周期 ,起 始 和 结束 都 在 正午 ,这 种 束 周 期 数 就 是 凯撒 历 日 
数 .凯撒 历 日 的 零 是 在 很 久 很 久 以 前 。 一 个 方便 的 参考 点 是 2440000 凯 投 历 日 起 始 于 1968 年 5 
月 23 日 正午 .如 果 知 道 历 书 中 某 天 正午 起 始 的 凯撒 历 日 数 ,那么 将 其 加 1 再 对 7 求 模 , 就 可 知 
道 该 天 是 星期 几 。 结 果 是 零 对 应 星期 天 ,1 对 应 星期 一 ,6 对 应 星期 六 。》 


“While” 物 代 除 FORTRAN 外 ,许多 优秀 的 诸 言 都 提供 了 象 如 下 习 范例 的 箱 坏 结 

构 ; 
可 hile fn<l0007 

D + 一 2 3; 

j 十 =11 
在 每 次 友 代 之 前 检测 控制 项 \ 这 一 例 中 是 n 扫 1000》 ,是 这 一 结构 的 典型 特点 。 若 控制 质 不 为 
真 ,所 包含 的 语句 将 不 执行 -特殊 情况 时 , 即 当 n 大 于 或 等 于 1000 时 , 过 到 这 段 程序 ,甚至 一 
次 都 不 执行 。 


“Do-while " 迁 代 ”是 与 while 迭代 成 对 的 ,在 每 一 循环 的 来 必 测 试 控制 条 件 的 控制 结 


0n* 


构 . 在 C 中 ,其 结构 如 下 : 


do 

D # 一 2; 

] 十 一 i; 
?While (hn<1000) 3 


在 这 种 情况 下 ,所 包含 的 语句 至 少 要 执行 一 次 ,与 n 的 起 始 值 无 关 


“Break? 选 代 。 在 这 种 情况 下 ,程序 作 厅 定 次 数 的 循环 ,直到 循环 中 基 一 处 :可 禾 个 只 
在 一 个 地 方 ) 的 条 件 测试 为 上 . 在 那 …… 处 ,希望 退出 循环 并 处 理 随 后 的 事情 , 存 Pascal 和 标 
准 FORTRAN 中 ,这 个 结构 需要 用 到 语句 标号 ,因此 对 程序 的 清晰 有 所 损害 .在 中 , 簿 单 
的 hreak 语 司 就 可 实现 这 种 结构 . 它 吕 用 来 中 断 最 里 层 的 for while db、 或 switcb 关 档 的 
证 行 ,进而 执行 下 -一 顺序 指令 .一 个 典型 的 break 语句 的 应 用 是 ; 


for (5 
[测试 前 的 语 勾 ] 
于 《7》 breaki 
f 测试 后 的 语 旬 ] 


[下 一 顺序 指令 - 


下 别 是 一 个 运用 儿 个 不 同 的 适 代 结构 的 程序 .有 人 曾 请 我 们 其 中 一 人 为 捕 狂 食 咽 动物 
而 找 -… 个 正好 是 星期 五 ,同时 又 是 13 号 和 满月 的 日 期 。 下 鹿 程 序 止 是 完成 那个 任务 的 程序 。 
作为 嬉 产品 也 附带 给 出 了 所 有 其 它 是 星期 五 .同时 又 是 13 呈 的 日 期 。 


和 Include 所 sdio.h 盖 

Tincelud -Tat， hb > 

共 definkg ZON 一 5.0 时 区 一 5 是 东部 是 标准 时 间 
陈 defing ITYBEG 1900 要 搜索 的 日 期 范围 

了 definet 1IYEND 2000 


int main(Cvokd ” x# brograIn badlok 关 7 
{ 
void jinoon {inpt D，irt nph.long * 记 ,float *frac)1 
long juludayf(int ninmiv int id，int fryy)i 
int ie、icon ，idwk ，im，iyyy，ni 
float tmzon 一 ZIN724.0,frac 
long jd ，jdaay; 


hrintfty snEFEull moons on Friday the 13th ftom 上 5d to 5%%5dn" IIYEBEG ,IVYEND); 
for (iyyy 王 ITYBEG jyyy 近 一 IYENDI iyyy 十 十 )41 每 年 的 循环 
for [im=1; jim< 一 12fim 十 一 )!f 每 月 的 箱 式 
jday 一 jioldayf(im,]3,iyyy); 13 号 是 星期 无 码 ? 
idqwk= (iat) (tjday 十 11 吧 7 
让 Cidqwk 3) 1 
mntig12.37 (YYyy 一 1900 十 (im 一 和 SP2.0)) 了 和 值 是 对 内 1900 年 以 夹 有 安 灿 汽 


jcon=:ni 漠 月 的 第 -- 次 估计 . 批 它 反 鲍 则 月 相 程序 并 立 和 调 整 亡 . 
[or (31 直列 确定 所 期 望 的 13 日 是 满月 . 变 基 icon 标志 调理 睫 划 
filmoeonkny2:8d frec)i 得 到 清 月 的 月 去 
frac 一 240* (fras 十 timzon) 转变 到 恰当 时 区 的 小 时 多 
iffeac 有 将 藉 止 年 时 开始 的 凯 撤 历 日 转 为 由 午 栅 矿 始 的 民间 日 
-jd 


[rac 十 一 234.0; 


:Etfrac > ]2.C1 1 


十 一 id; 
fcac =- 12.m3 

,Bles 
frac 一 一 了 2 

j[gdqd 一 一 jav》 1 我 引 肖 到 日 标 玫 期 了 叹 


Printffn 5 折 2d97137 次 4 simsiyyvy 
Printf(Cy 赂 S 所 5. 1 皮 ssn" ”Full moon ,frac ， 
”brs after ftidnight EST] ”1 


breaki preak 结构 评分 , 匹 人 时 情 沪 
ilse 1 向 有 到达 晶 标 晶 明 

ic 一 (iday 汪 > 一 网 了 |) 

i 计 (ic 一 一 【一 iron break， 另 -个 break 没有 苞 配 的 情况 

icor IC 

Pn 一 一 i; 


| 
rerurn ni; 


如 果 好 奇 , 肝 么 区 是 13 日 (东部 标准 时 间 ) 又 晨星 期 五 .同时 又 是 满月 的 日 期 基 :1993 平 ? 
月 13 日 ,1905 年 10 刀 13 日 ,1919 年 6 月 13 日 ,1922 年 1 月 13 日 ,1970 年 11 月 13 了 ,1987 年 ? 习 ]3 
日 ,2000 年 10 月 13 日 ,2019 年 9 月 13 日 和 2049 年 8 月 13 日 。 


其 它 “ 标 准 " 结 构 ”我 们 建议 避免 使 用 这 些 结构 . 每 一 种 程序 语音 都 有 一 些 ` 遂 人 过 
物 ”, 使 得 设计 者 不 禁 沉醉 其 中 .这 些 语言 在 当时 看 起 米 似 乎 是 : 些 好 的 想法 ,不幸 的 基 径 不 
住 时 间 的 检验 ! 它 们 使 用 户 的 程序 难以 译 成 其 它 语 言 ,并 有 可 渎 性差 ( 因 读 者 不 熟悉 这 汗 不 
常用 的 结构 )。 然 而 几乎 总 是 可 以 用 其 它 方 法 来 昔 换 这 些 结 

在 过 中 ,最 有 疑问 的 控制 结构 是 swirch. . . case.. .default 结构 5 见 图 1. 1. 1 .这 种 竺 构 
由 于 涉 确定 性 会 造成 麻烦 ,而 旦 不 同 的 编译 器 ,在 其 控制 表达 式 中 要 求 不 同 的 数据 类 型 ,一 
季 支 持 char 和 int 类 型 ,实际 上 , 它 总 此 能 用 更 易 理 解 和 编 详 的 让 . ,else 结构 来 让 代 , 妆 - 
SIC 允许 控制 表达 式 可 以 为 长 型 类 数据 ,而 许多 老 的 编 详 器 是 不 行 的 . 道 常 continuz 潜 构 
总 能 用 寻 结 构 蔡 代 , 而 不 失 程 序 的 清晰 性 。 


1.13 关于 “高 级 论题 ” 


轩 小 号 字体 节 罕 的 内 容 , 如 本 小 节 , 标 明 是 " 嵩 级 论题 ”. 它 或 者 尾 该 章 十 要 论题 之 外 的 内 容 ; 或 者 是 要 
求 有 更 高 的 教学 基础 ;或 者 有 的 是 具有 更 深远 总 文 的 论题 ! 或 者 有 的 是 没有 经 过 很 好 检验 的 算法 .如 果 首 
次 阅读 本 书 时 , 跳 过 这 些 高 级 论 册 , 读 者 不 会 委 失 任何 重要 的 内 容 ， 

读者 可 能 已 注意 到 ,程序 badluk 在 进行 年 月 循环 时 ,避免 了 使 用 将 凯撒 历 日 转换 为 再 书 日 的 任何 算 
法 。 这 种 转换 程序 在 结构 土 不 是 很 有 趣 的 ,但 偶而 是 有 用 的 ,所 以 列 出 氏 下 : 


坟 include <math.h 盖 
并 define IGCREG 2299161 


voijd caldat (jong iulian， int * mimi int * 这 ，inf xiyyy) 


12， 


全 徊 给 出 mulday 计数 的 区 数 .这 里 .an 证 疯 闻 肋 盯 教 的 第 六 -程序 痊 出 mmsd 和 证 yy 是 分 泣 表 于 让 二 -加 
拭 无 目 从 此 天 的 工 午 算 起 . 


Jong ja,jalpFe jb,j dvje; 

ji Uulian > 一 IJGREG) 1 自 接 属于 由 . 忆 : 生 此 降 志 
jalpha 一 fieng)ffCeat》 (ulian-18672167》-6 2 
和 一 julian ! 1 ialpha-(leng) 0. 23# iphao ); 

)} else 殖 刚 不 能 下 
ja 一 jujian : 

由 = 有 二 1524; 

jc 一 [long)f6680. 人 十 人 lo3f 0 2 人 2 53305253 

吕 =(long)385 > 一 1.25#ir)n， 

je 一 (long)(fibh-jid)730.6001)， 

# 训 := jb- 吉 -lormng7 《30.8301 > 

#x mm 一 jc 1; 

这 (xmm > 12) mm -一 12: 

< jyyy 一 ]C.171F， 

计 【[# mm -> 2) --f+iyYy)》: 

计 【<)yYY < 工 := 0) --(+yYyY1t 
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1.2 用 C 语言 作 科学 计算 的 一 些 协 议 


C 语言 最 初 是 为 系统 编程 工作 而 不 是 为 科学 计算 所 设计 的 .相对 于 其 它 高 级 负 哥 语言 . 
C 在 许多 方面 使 程序 员 “ 很 贴近 机 器 ”. 它 的 运算 符 丰 富 ,能 对 机 器 语言 指令 集 的 才 数 功能 让 
接 寻 址 . 它 有 许多 不 同 的 数据 类 型 (长 型 (long) 和 短 型 (shoert), 有 符号 型 (signed ,和 无 符号 
理 Cunsigned) 整 数 、 浮 点 型 (floatingy 和 双 精 度 型 (deuble)? 实 数 、 指 针 类 型 等 ) ,以 及 以 箱 洁 
格式 进行 有 效 的 转换 。. 它 定义 了 基于 指针 的 算术 运算 ,指针 可 以 很 巧妙 地 与 数组 地 址 相 联 
系 , 并 与 许多 计算 机 的 变 址 寄存 器 结构 高 度 兼容 。 

可 移植 性 一 直 是 5 语言 的 另 一 大 优点 .C 语音 是 UNIX 操作 系统 的 基础 语言 .这 种 语 
言 和 操作 系统 确 确 实 实 已 在 上 百 种 不 同 的 计算 机 上 得 到 了 应 用 。 语 言 的 通用 性 .可 移 村 性 和 
灵活 性 已 经 吸引 了 越 来 越 多 的 科学 家 和 工程 师 。 它 通常 用 于 实验 硬件 的 实时 以 制 .但 是 作为 


a 3。 


控制 目的 的 操作 系统 ,标准 的 UNIX 惊 还 不 够 理想 。 

C 在 高 水 平 的 科学 计算 中 的 应 用 ,例如 数 信 分 析 , 建 模 、 浮 点 数值 计算 工作 等 ,一 般 发 展 
较 慢 。 一 方面 是 因为 事实 上 对 1960 年 以 前 出 生 的 所 有 科学 家 和 工程 师 , 以 及 以 后 出 生 的 大 
多 数 科学 家 和 工程 师 米 说 ,FORTRAN 已 占有 如 癌 他 们 母语 一 样 的 牢固 地 位 . 另 一 方面 二 
因为 .计算 机 科学 家 银 晚 (我 们 固执 地 认为 ? 才 认 识 到 计算 机 语言 的 不 足 之 处 .例如 ,没有 好 
的 方法 可 计算 数值 的 整数 守 , 其 至 小 的 束 数 寡 以 及 “从 浮 点 型 (floatr) 到 双 精 度 型 cdtouole + 的 
隐 式 转换 ”问题 等 .推荐 的 ANSIC 标准 已 克服 了 许多 (虽然 不 是 全 部 ) 缺 陷 , 无 疑 地 ,为 外 一 
些 不 足 也 将 随 着 时 站 的 推移 而 消失 。 

另外 ,阻碍 众多 对 学 家 转向 C 的 原因 是 , 田 于 编写 程序 时 间 的 根 制 ,而 且 明 显 地 缺少 高 
质量 的 科学 或 数 伸 计 算 库 .我 们 推出 本 版 kC 语言 数值 算法 程序 大 全 洲 是 为 填补 这 一 江 缺 ， 
当然 ,我 们 并 没有 说 它 已 完全 解决 了 此 问题 .但 是 我 们 确实 希望 能 激 起 进一步 的 努 方 ,通过 
实例 推出 ' - 套 合 理 而 实用 的 针对 C 语言 科学 计算 的 协议 。 

非常 需要 有 一 僚 用 于 C 的 编程 协议 .但 不 是 为 了 要 克服 语言 本 身 的 限制 (我 们 多 次 从 
Pascal 中 得 到 经 验 ), 而 是 为 了 从 众 盘 的 机 会 中 选择 最 好 和 最 合乎 规 坐 的 技 关 方法 .然后 将 
这 些 技术 完全 一 致 地 应 用 于 各 个 程序 .在 本 节 的 后 面部 分 ,我 们 将 提出 一 些 癌 题 , 并 说 电 本 
书 所 有 程序 中 所 采用 的 协议 。 


1.2.1 函数 原型 和 标题 文件 


ANSIC 允许 用 “函数 原型 "来 定义 末 数 "函数 原型 "标明 了 每 个 函数 参数 的 类 型 .如果 
个 原型 的 函数 说 明 或 定义 是 可 视 的 话 ,编译 器 就 能 检验 “个 给 定 函 数 是 否 用 正确 的 变 芝 
类 型 进行 函数 调用 。 本 书 中 所 有 程序 都 是 采用 ANSTC 的 原型 形式 .为 了 便于 读者 使 用 传 
统 的 K & RC 编译 性 ,本 书 的 C 语言 磁 枚 中 包括 了 两 套 完整 的 程序 ,一 套用 于 ANSI, 
和 赛 用 于 开 收 R。 

为 了 理解 原型 ,最 简单 的 方法 就 是 用 范例 米 说 明 。 个 传统 的 避 函数 定义 如 下 : 
int 帘 《xsyy2) 


int Xy4 
float zh 


在 ANSIC 中 它 成 为 
intg (int x，inr yy foat z) 
而 一 个 没有 参数 的 天 数 可 使 参数 类 翅 空 缺 。 

函 教 说 明 ( 和 函数 定义 相 比 较 ? 是 用 来 将 此 函数 “引入 ?到 调用 它 的 程序 中 .调用 程序 需 
要 知道 函 玫 的 变量 个 数 和 类 型 以 及 返回 值 的 类 型 。 在 明 数 说 明 中 ,允许 省 略 参数 名 . 丘 此 ,上 上 
面 旺 数 的 说 明 可 委 成 : 
int 多 (int，inpty float) 

如 果 一 个 C 程序 由 许多 源 文件 构成 , 编 详 回 在 没有 其 它 辅 助 的 情况 下 ,不 能 检验 每 个 
函数 调用 的 一 致 性 。 在 这 种 情况 下 ,最 好 的 方法 如 下 ， 


”每 个 外 部 困 数 ,在 标题 (. hb) 文件 中 ,应 有 一 个 简单 的 原型 说 明 。 
.14 。 


引 面 4 


， 帝 妇 朵 芍 先 交 的 源 文 件 岂 诬 该 包括 在 标题 文件 让 ,以 使 编 详 器 能 够 检验 吝 铸 由 的 类 
型 和 由 义 是 否 一 致 。 

”调用 冰 数 的 竺 “个 源 文件 都 应 该 包含 适当 的 怀 题 文件 (.h)。 

”一 个 调用 冰 数 的 程序 也 可 以 将 天 数 的 皮 型 说 明 包 括 进 去 . 当 扩 展 一 个 下 并、 这样 做 
谢 常 很 有 用 .因为 它 把 一 个 函数 的 变 晶 类 卉 给 步 避 视 的 提示 (编译 器 可 通过 去 有 让 生 题 这 件 
检验 )。 最 后 , 当 涯 序 凋 试 后 , 程 享 员 可 以 冉 色 阿 去 删 撞 多 祭 的 闪 部 说 明 。 

在 本 书 的 程序 中 ,nr.h 尽 包 含 所 右 记 型 的 标题 文件 , 它 列 在 附录 4 中 .读者 宇 沪 将 坎 生 
千 ipclude nr.h 放 在 包含 本 节 程 序 的 每 -- 个 宏文 件 掏 项 部 .因为 通 溃 在 单个 的 源 六 件 下 :所 
括 不 北 一 个 数 宣 算法 程序 ,所 以 我 们 在 本 书 所 列 的 单个 程序 党 面 . 没 有 印 上 这 个 宇 insuds 
说 骨 请 名 ,但 是 , 诈 者 在 自己 的 穆 序 中 : 定 昌 包括 进去 。 

为 卫 特 份 , 并 且 与 上 而 所 更 的 (说 明 中 最 五 项 树 …… 致 ,我们 在 本 飞 程序 中 ,过 康 调 髓 
穆 序 的 甬 数 原型 进行 了 内 部 说 内 ( 这 也 使 得 程序 更 易 读 )。 唯 一 例外 的 是 ,在 少数 郑 常 使 用 的 
应 用 程序 (下 而 授 述 ) 中 ,用 另外 的 蒜 是 文件 nrutil.h 进行 说 明 . 这 样 ,只 要 需要 .语句 in 
flukde nrutilh 就 可 明确 地 印 册 出来， 

关 十 标题 文件 nr,h, 还 有 很 重要 的 一 点 是 ,如 层 我 们 在 磁盘 中 装配 的 那样 , 它 1 时 和 亿 合 
ANSTC 和 传统 的 K 长 R 类 胡说 时 .因此 ,要 调用 ANSI 形式 ,必须 定义 尽 上 入- 实 指 令 : 
STDC ,ANSI 或 NRANSI( 最 后 一 个 名 字 是 给 读者 一 种 引用 . 它 不 会 和 前 西 个 各 学 的 其 
疡 可 能 应 用 四 冲 突 ),. 如 果 读 者 有 ANSI 闹 泽 器 ,就 - 定 昌 用 这 此 宏 定义 来 调用 ANSI 瑚 式 
的 标题 祥 件 .典型 的 方法 就 是 ,在 沪 译 俩 令 行 处 如 “个 开关 ,如 “-DANST"。 

关于 文件 nr 的 纲 节 ,请 阅读 附 永 A， 


1.2.2 向 量 和 一 维 数 组 


在 上 语 寺 中 ,指针 和 数组 具有 密切 而 邱 妙 的 关系 。 如 表达 从 a[ 让 所 代表 的 值 可 定 文 为 
* 《Ge) 十 扣 六 凤 *“ 指 钙 a 增加 j 反 计 得 地 址 的 上 庆 容 ”这 种 定义 的 -个 青楼 结 果 是 , 知 果 a 指 
向 一 个 台 法 数据 位 置 , 那 么 组 元 率 s_0] 总 是 被 定义 。C 中 的 数组 自然 地 是 * 零 起 始 "" 零 
偏 移 ,由 请 多 foat DL4]; 所 说 筋 的 数组 , 它 的 胡 歼 死 素 为 bL0j.b[l .bp-23 和 已 33. 而 没有 
btd 

项 页, 我 们 需要 二 -种 标志 交 指 册 一 个 数组 下 祭 的 有 效 范围 。 这 个 问题 会 在 本 书 中 友 
复出 现 ) 人 在 上 例 趾 ,b 上 标的 范围 应 表示 为 b 0.. 3j( 从 Pascal 中 借用 来 的 - -种 表示 方 旗 )。 
一 般 地 , 南 float ai 4]; 这 刚 的 数组 范围 是 al 0,. 邮 --1], 若 将 float 换 成 其 它 数据 类 型 也 是 
扎实 的 ， 

问题 是 , 许 雪 算法 很 自然 地 喜欢 从 1 ~- 对, 而 木 是 从 0 一 对 一 1。 的 铺 , 读 者 总 是 能 对 它们 
进行 转换 ,但 却 为 数组 下 标 范围 的 转换 而 背 上 精神 包 鹤 , 至 少 也 会 引起 分 心 .因此 ,最 好 中 
用 -一 笋 的 方法 ,我 们 利用 CC 语 吉 的 功能 来 解决 这 个 问题 ,上 虞 
:loat b[4]、v* hb; 
bb -一 b 一 1 
指针 bb 现存 指向 了 的 前 “个 字 兽 -个 直接 的 结果 是 数组 元 素 bb[l;,bb[27.bhl 3 和 
bb14. 都 存在 了 , 换 岩 之 ,bb 的 范 赎 荐 Pth51, .4 我们 将 把 bb 看 作为 单位 仿 移 所 荆 ? 有 关 这 

| 


技术 的 详细 讨论 见 附录 8 。 

在 算法 中 ,有 时 用 零 俩 移 向 若 方 便 , 而 有 时 用 单位 偏 移 向 量 揭 方 使 ,这 吧 沁 于 十 嘱 种 方 
法 解决 手头 的 问题 更 台 平 规律 .例如 :多 项 式 2 十 az 十 as 十 … 十 az 的 系数 明显 籽 要 用 
零 偏 移 向 量 al0...n 7, 而 N 点 数据 后 量 妆 * 一 1.. .六 : 却 应 该 用 单位 偏 移 x 1 N] .省 酝 囊 
的 程序 用 数组 作 变 元 时 ,在 它 的 标题 注释 处 总 是 给 出 所 需 下 标 范围 .例如 : 


void sotneroutine float bb[]，int nn) 


这 个 程序 基 再 负 明 bb -1. - nn :来 做 某 些 事情 。 


现在 ,假定 用 户 要 用 函数 someroutine() 在 长 度 为 ? 的 向 量 上 实现 其 功能 ,如果 习 呈 的 
向 莉 名 为 aa, 它 已 经 是 单位 偏 移 基 ( 有 效 范 园 是 aa[1..7]) ,那么 就 可 直接 调 困 somerontjne 
(aa47?) .上 数 someroutinef) 可 能 因 某 些 迎 辑 上 的 或 至 少 是 美学 小 的 理由 ,要 求 使 用 单位 仿 
移 向 量 。 

但 假如 现在 长 着 力 ? 的 向 量 , 名 为 a, 偏 偏 用 的 是 C 固有 的 零 偏 移 数组 (范围 是 sa 0... 
6]) ,也许 这 是 该 者 不 赞同 我 们 的 美学 偏见 所 造成 的 -- 种 情况 .为 了 能 使 用 我 们 的 函数 ,难道 
污 者 必须 将 a 的 内 容 一 个 一 个 地 拷贝 到 另 -个 单位 偏 移 的 向 量 中 吗 ?不 必 ! 难 道 还 不 得 不 定 
义 一 个 新 的 指针 aaa 并 使 它 与 a-1 相 等 吗 ?也 不 必 ! 读 者 只 需 简 单 引 用 someroutine(a--1 

7) 就 可 以 了 .那么 ,现在 从 我 们 函数 中 看 到 的 al1], 实 际 上 是 读者 程序 中 看 到 的 at01。 拉 二 
之 ,有 了 这 些 说 明 ,读者 就 可 以 使 协议 举 一 友 三 了 ， 

原谅 我 们 对 这 些 要 点 作 过 多 说 明 . 我 们 是 想 把 读者 从 零 偏 移 中 解脱 出 来 ,C 只 是 鼓 硕 使 
用 零 偏 移 ( 在 我 们 看 来 ), 但 并 不 一 定 要 求 使 用 零 贪 移 . 最 后 提出 的 -个 要 点 是 ,实用 文件 
nrutlc( 在 附录 B 中 全 部 询 出 ) , 它 包含 了 对 任意 长 度 的 任意 候 移 向 量 的 内 存 分 配 示 数 .这 
些 函 数 的 概要 如 下 : 


Jloat * vector {long nhl， iong nhy; 


对 一 个 范围 为 Lol. - ah] 的 译 点 型 人 float) 向 景 分配 地 址 ， 


int #jvector (lopg nl,， long nh) 


对 一 个 范围 力 [nl .nth 的 整 列 (int) 向 量 分 配 地 址 ， 


unsigned char * cvector (long nl ，long hhy》 


对 一 个 范围 为 [nl. . nh] 的 无 符号 字符 型 (Char) 向 量 分 配 地 址 


unsigned long * lvector (ljong nl， tong hh》 
对 一 个 范围 为 [nl. ,nh] 的 无 符号 长 再 (long) 向 量 分 配 地 址 ， 


doubte * dveeror (long ml，[ong nhy》 
对 - ' 个 范围 为 fm. . ph] 的 双 精 度 型 rdouble) 向 量 分 配 地 址 。 


上 述 实用 珊 数 典型 运用 是 ,首先 说 明 floar * b:, 然 后 令 b 一 vector(] ,7);，, 从 而 俩 范围 
b[L1,. 9] 存在 ,并 且 司 b 能 在 任何 调用 单位 偏 移 向 量 的 函数 中 通过 。 
文件 narutil. c 中 .还 包含 了 相应 的 内 存 释 放 程 序 ， 


wotdl :ree-yector (float * v，long nl, long nbh) 
void iTee-ivector (int *v，iong nl，long nb》 
void jree-cevector 《unsigned char x v，long nl，long nh) 


void free-lvector (unsigned long *vY，long nl, long ph) 


as。 16。 


vaji Jres-dvector Cdoabljt *v， longn.、 long nh) 


其 黄昏 运用 旦 free-vcctor (b,1,7);， 。 

我 们 的 库 函数 广泛 地 使 用 “以 上 实用 程序 .来 分 配 和 殖 放 启 基 工作 空间 .共生 岂非 沪 计 
者 在 证 人 姐 序 和 其 它 过 程 中 运用 它 们 :注意 ,如 昌 想 在 JBM-PG 兼容 机 上 分 配 长 度 大 十 64E 咏 
向 量 , 就 应 在 答 序 nrutil.c 中 激 有 出 现 malloc 的 地 方 , 都 用 读者 的 编 详 器 的 特 歼 丹 志 分配 区 
数 来 榨 代 .这 科 医 换 癌 衬 适 用 于 下 面 将 寺 讨 论 的 宅 阵 分 配 。 


1. 2.3 矩阵 和 两 维 数组 


零 偏 移 和 单位 偏 移 人 在 这 里 仍 是 一 个 要 解 岂 的 问题 .但 让 我 信 先 把 它 往 后 训 - 放 .以 使 先 
解 次 一 个 更 基础 的 问题 , 即 变 尺寸 数组 (FORTRAN 术语 ;或 一 致 性 数组 (Paxeaj 术语 这 
些 数组 是 将 白 身 连同 它们 二 维 长 度 的 实时 信息 -- 起 传 给 某 … 玫 数 .系统 程序 员 很 少 处 理 “ 
维 数组 ,并 日 几乎 从 不 使 用 大 小 是 变化 的 、 仅 在 送行 时 才 和 后 道 大 小 的 的 一 维 数 弓 .然而 这 些 
数组 却 是 科学 计算 中 经 常 要 遇 到 的 。 很 准 想 象 仅 用 固定 尺寸 的 抢 阵 能 实施 矩阵 式 间 的 得 序 ! 

从 技术 上 说 ,C 编译 器 没有 理由 不 允许 采用 如 下 公法 
void somerourine (6 rmvn) 
loat a[m][n]: 2 非法 尝 明 *: 
也 没有 理 出 每 次 进入 someroutine( ? 电 , 不 允许 发 出 代码 对 于 和 (或 任何 的 表达 式 ) 屿 货 ， 
以 实现 数组 大 小 的 变化 .很 可 惜 ,实际 上 请 言 的 定义 却 禁 让 采用 上 述 程 译 段 .而且 在 (C 
中 ,要 实现 数组 大 小 可 变 , 还 需 一 些 额外 的 技巧 .下 面 我 们 将 看 到 一 种 努力 的 结果 ， 

在 CC 语法 中 关于 两 维 数组 的 引用 ,有 一 句 微妙 的 比较 含糊 的 话 , 计 我 们 来 解释 一- 下 ,并 
使 它 变 得 对 我 们 有 利 。 考 虑 对 ( 例 妇 ) 浮 点 型 数值 aLi 上 [ji 的 数组 引用 ,这 里 的 1 和 j 定 为 整 型 
数 ,对 这 个 引用 ,C 编译 器 将 产生 完全 不 同 的 机 器 码 , 这 取 诀 于 标识 符 a 是 如 徊 说 旦 的 . 匣 说 
明 a 为 固定 大 小 的 数组 ,例如 float a[5][9-;，* 则 机 器 码 是 :“ 对 地 址 as 加 上 9 乘 i, 然 后 皇 朱 jj， 
返回 它 所 定位 的 地 址 中 的 数值 -注意 ,需要 知 这 常数 9, 它 用 来 作 一 个 整 型 乘法 运算 ( 见 图 上 |， 
5 

别 一 种 情况 , 若 说明 a 为 fioat * *ai* 则 a[ 让 - 记 的 机 器 码 是 : “对 = 的 地 址 如 :, 取 上 比 地 
址 中 所 得 值 为 新 的 地 址 ,再 对 其 加 j, 然 后 返回 这 个 新 地 址 中 的 值 >。 注 意 .al 1[ ] 指 基本 只 十 
亮 企 没有 参 与 运算 ,而且 无 乘法 运算 ,只 是 用 所 赠 加 的 迁 回 代 蔡 了 它 。 因 此 ,不 从 -- 般 性 .我 
们 具有 了 较 前 者 更 快 .更 多 功用 的 方案 .我 们 所 花费 的 代价 是 ,需要 存储 一 个 指针 数组 (指向 
a[]-] 的 行 ), 并 且 增 加 了 -点 不 便 一 -- 当 说 明 -- 个 数组 时 ,要 记 住 初始 化 那些 指针 ， 

我 们 的 最 终 目的 是 , 避 开 C 的 辕 定 大 小 的 二 维 数组 。 因 为 这 种 数据 结构 不 适合 代表 科 
学 计算 中 的 矩阵 .我 们 采用 ”指向 指针 数组 的 指针 ?这 个 约定 。 指 针 数 组 的 元 素 指 计 矩 阵 每 一 
行 的 第 一 个 元 素 . 图 1. 2. 1 将 放 公 的 和 采用 的 方案 作 了 对 比 。 

下 面 的 程序 段 显 示 了 如 何 将 “个 国定 大 小 为 13 关 8 的 数组 a, 转 换 成 一 个 "指向 指针 数 
组 的 指针 "an 
feat a[「13]f9-，# w aas 
机 # 二) Iallocftunsigned) 13* sjzeof (iloat + ))+ 


ior 1 一 mi Hai 一 [1 县 指 癌 ai 站 的 指针 














{a)} 


二 we 一 人 *m[ 01 





ff0] 











[2] 0] 


点 息 线 指出 了 地 区 起 始 祭 置 ,而 实 线 连 接 了 连续 让 贮 单 大 。 
《a) 指 问 轩 定 的 珂 堆 数组 的 指针 fb) 者 向 行 指 久 数组 的 指针 ,这 古本 书 采 才 的 方案 


疼 1.3.1 矩阵 下 的 两 和 存储 方案 


( 刘 


长 记 符 aa 现在 是 - 介 具 有 下 慰 范 围 为 aa [0..121-0..8] 的 移 阵 。 我 们 可 以 自由 地 运用 
或 修改 它 的 元 素 . 更 重要 的 昆 ,可 以 以 它 的 名 字 ta 作为 个 变量 传递 给 任 一 个 函数 。 消 相 闷 
的 哑 元 变量 为 float  * * aa 说 时 的 函数 能 够 以 aa[ij[ 记 的 形式 对 其 元 素 村 址 ,而 无 需 知 其 
物理 尺寸 。 

读者 可 能 并 不 希望 象 上 面 程序 段 那 样 散乱 地 堆放 上 自己 的 程序 代码 。 谭 昌 还 有 “- 信 重 要 
问题 就 着, 如 何 处 理 * 单 位 仿 移 ”的 下 标 , 咱 使 (例如 ?上 而 的 拖 阵 aa 可 在 范围 altl, ,13 外 1 
9] 寻 址 。 这 本 个 问题 都 可 由 arutil,c( 附 录 B) 中 的 附加 实用 称 序 解决 ,它们 可 分 配 和 天 放任 
党 范围 的 矩阵 。 其 摘要 如 下 : 


loat x + Imatrix (long nrl，jong nrh，long ncl，:ong neh) 


外 卫 “个 范 沁 为 [arl. .nrb nc ,no 的 笠 点 型 第 阵 ， 


doubie * * marrlx (long nrl，lon8g nrh，long ncl，long bchy? 


分 配 一 个 范围 为 Larl, ,nth Lncl、，nch :的 公 硅 度 算 阵 ， 


inl *# + imrtatrjx (lung nrl，LonRg nthh，locg pcly， long neby) 


分 配 一 个 范围 为 [arl, .nrh][ncl ,nch ] 的 尾 型 引 阵 ， 


soid free-matrixfzloat + # mm，loxg hzt，]pPg nr long ncl，long nchy) 


释 交 - 个 由 matmx 分 配 的 重 孟 ， 


void jee-dmnzsrrix (doubte * *mm， longrTr，long nrh，long ncl，lLoong nebh > 


TS 


炎 放 一 个 出 dmatrix 分 如 的 巧 孟 。 


void 和 rec-ipiatrix fint * seolong nr long nr 上 lone ncsiy iong nech 
畔 放 -全 南 imatrix 芬 和 的 审 孜 ， 


一 个 典型 运用 是 : 


fleat mw #als 
a 一 Imatrix (] ,13.Lva)l 


a[3][5] 一 .… 
,十 a[2 9 73.0..， 


soOmeroutine Cd。 


free-rmatrix :ti 13，1.301 


&C 语 语 数 值 算 法 程 济 大 全 ;中 的 所 有 上 揭 隆 部 征 按 人 的 ,我 全 也 圭 实 淮 荐 
nrutil ec 中 这 含有 另外 - 些 外 理 镍 阵 的 实 性 程序 :第 个 是 表 数 sabmatris 2 床下 
要 的 话 , 它 可 用 来 对 永 于 :个 已 存在 的 作 阵 (或 它 的 了 决 ), 建 立 “个 有 新 伍 移 基 时 新 指 生 
其 典型 应 用 中 ， 
float wx * submatrix ffloat x xay long olcr， lcng oldrh， 


long oldel，long olach，long newrl,， long newcl)》 


对 已 存 在 的 范 己 为 aroidrl. ,oldrhjicdcl oldeh| 的 矩 际 . 建 一 个 新 欣 针 :其 范围 是 为 Lnew me-Toti 汪 一 
oldrl) [newe-, newcl 1 (oldech--oldct 的 基 寂 阵 。 


这 里 oldrl 和 oldrh 分 别 为 原 征 阵 的 低位 行 穆 高 们 行 圩 标 ,olqel 和 olqeh 基 柯 诺 内 旨 下 杯 ， 
newrl 和 newc] 分 别 是 新 矩阵 的 低位 行 和 低位 列 下 标 ( 我 们 不 需要 商 位 行 和 高 位 询 的 让 科 ， 
它们 可 由己 给 出 的 数据 推算 得 到 )， 
两 个 应 用 约 例 千 是 :第 : 例 : 选 取 己 知 和 矩阵 的 某 些 内 部 范围 ,例如 选取 [4,， 3 
为 一 个 2 关 2 新 矩阵 b[ 站 ,21..23， 


feat 关头 a， 关 关 bi 
= 一 DiatrIx〔]1,13，1 31: 


b 一 submatrix (ad ,45,2,3， 1) 


第 “ 例 , 把 一 个 已 存在 的 年 阵 a_1.. :31[1,.9_ 映射 为 :个 新 算 阵 bl0. ,12 .81. 


float 8， K3， 症 二 3; 


a 一 Tarrix (1,13,1,9)， 
hb 一 submatrix (a.1,13,1:9.0,0)8 


附带 地 ,还 可 将 submatrix() 出 于 非 ioat 类 型 知 阵 ,只 鉴 简单 地 强制 它 的 第 一 个 萎 数 类 塌 为 
float * * + 而 将 其 缚 果 强制 为 期 望 的 类 击 ,例如 :im: > >: 
上 数 


Vopid frce-submatrix [tloat * xb，long rrl， lpng nyh，lonr 和 ncl，long nch> 


。1|35 。 


元 ,因为 针 些 空间 仍 在 原来 此 阵 分 配 的 在 依 空间 中 。 

最 后 ,如果 有 一 信用 na[nzrow][ncol] 说 时 的 标准 C 册 征 , 敬 想 她 它 转变 成 :个 用 指 三 行 
指针 数组 的 指针 所 说 明 的 第 阵 ,局 可 以 采用 姑 下 的 函 狂 ， 
Jloat * # convert. matrix (iloat yay long nrl，lonkg nrn， .ong ncl， long pehy》 


分 瑟 -个 浮 点 数 年 孟 marj, .nrh][nacl ash , 它 指 向 出 标 闪 居 说 沪 箱 所 阵 和 arow] nceg, 虑 prew hhr 1 
1,neol 一 neh 一 ncl] 一 1。 书 调 月 时 ,第 一 个 变 泡 的 地 址 央 基 总 ain 






( 当 需 要 利用 (的 初 冶 化 请 法 对 一 个 邱 阵 感 值 时 , 则 可 以 利用 这 个 函 数 。 然 后 , 借 呆 以 湄 这 
个 矩阵 传 给 本 书 中 的 程序 ). 下 而 的 表 数 


void float free_- converf_imarrix ifloar x “和 折 ，long nrlwlong Dr loag ncly jong nchy) 


释 族 良 conyert matrtxt 分 也 的 一 个 二 阵 . 
释放 被 分 配 的 矩阵 ,而 不 影 吓 原始 矩阵 a。 
本 书 中 ,分 配 三 维 数组 采用 指针 -指向 -指针 -指向 -指针 的 结构 ,具体 范例 可 以 在 第 12.5 
节 中 的 程序 rtft3 和 第 17. 4 节 中 的 程序 sfroid 十 找到 ,必要 的 分 筷 和 释放 上 困 数 是 


ioat * * # f3tensor (long nrl,long Drh。，-ortg Decl1、long nchy lorg ndl iong ndh 》 


分 配 .一 个 下 乓 范围 为 [arl. ,nrh]insl. .nshj ndl nsh] 的 汉 点 型 = 绯 数 让 。 


void free-f3tensor 【floaf < + *ty long nrl、long nrh、long ncl,jong ncnay， long ndl，long adh) 


狂放 一 个 由 妇 tensorf 1 分 配 的 浮 点 型 二 维 数 遍 。 
1.2.4 复数 运算 
C 没有 复数 数据 类 型 ,也 没有 预定 义 复 笋 的 算术 这 算 .但 可 以 很 容易 地 用 文件 com- 
plex,e 中 的 通 数 (全 部 印刷 在 本 书 附 了 未 C 中 ?来 填补 这 个 汤 洞 ,其 概要 如 下 : 
typedef struer FCODMPLEX Hoat rc，1 7 fcomplex， 


fceompjlex Cadq 《fcemplexz a，fcurnplex b) 


返 忆 两 全 复 监 的 复数 各 


feotnPlex Csub 《fcormplex a，fcomplex b) 
返 国 两 全 复 履约 复数 差 、 


fceomplex Cmuitfcoymplex ay，fcomplex:b) 


返回 两 个 复数 的 复数 积 - 


fcomblex Cdiv fcompjex ay，fcomplex by) 


返回 两 个 复 儿 的 复数 商 。 


fcomplex Csqrt《〔teormmplex z) 


返回 -个 复数 的 复数 平方 根 。 





fcomplex Conjg 《fcompPlex 2》 
返 错 -个 复数 的 复 共 辑 倘 。 


fleat Cahs 【fceomplex z) 


返回 “ 公 复 救 的 绝对 值 ( 模 )。 


fcotmnpiex Cnphnhlcx 《float re float im y 


20。 


站 轩 一 个 中 定 实 癌 和 潍 癌 的 区 数 ， 


IEoItbjex 民 LCFu Joat x，Ieorrtblex 3 ) 
拨 辐 -个 实数 利 一 个 复 烙 的 各 多 积 、 

在 泽 点 运算 中 实 秽 几 个 这 些 复 数 操作 ,不 是 完全 无 足 轻 喇 的 , 见 第 5.4 节 ， 

本 书 中 约 有 46 个 程序 对 这 此 复数 型 算术 踢 数 作 了 很 好 的 点 用 ,但 最 终 的 代 凤 并 不 和 象 丰 四 
的 示 样 易于 阅读 ,因为 锅 悄 的 运算 管 十 -- * 7 被 师 数 调 崩 所 慑 代 。C 谱 方 的 扩充 (十 一 区 旋 
运算 符 重 定义 ,这 将 使 看 序 具 有 更 高 的 可 读 性 :但 在 本 书 中 :我 们 遵守 标准 全 的 现 让。 

我 们 应 该 提出 ,以 上 琐 数 是 很 定 上 共有 以 数 借 传 送 , 捞 回 和 分 配 象 FCOMPITPXS 这 样 沉 
攀 ( 或 定义 为 结构 的 fcomp[cx 类 型) 的 功能 .所 有 近期 能 袜 编译 器 都 具备 这 样 的 各 能 ,但 最 
初 的 K&R C 定 义 中 并 不 具备 此 , 若 读 者 的 线 译 器 中 没有 此 功能 .必须 重新 网 守 combtex.r 
中 的 轴 数 ,使 它 作 能 传送 和 返回 指向 fcorapjex 其 型 变量 的 指针 而 不 是 变量 本 告 .| 二 栏 比 ,将 
修改 使 用 这 些 明 数 的 程序 ， 

一 些 其 它 程 序 ( 如 情 开 叶 空 换 fourl 和 fourn) 用 * 手 算 ? 对 复数 进行 算术 运算 ,好 将 实 部 
和 虚 部 分 别 作为 浮 点 琢 变 量 . 这 比 用 complex.s 中 的 函数 能 产生 更 高 效率 的 如 府 -但 代 公 可 
读 性 更 差 , 对 5C 中 的 复数 运算 问题 尚 无 理想 的 解决 态 法 、 


1.2.S$ 浮 点 到 双 精 度 的 隐 式 转换 


在 传统 C 上 中 , 夺 件 何 操作 之 前 ,包括 算术 运算 和 向 函 数 传 送 蛮 量 , 浮 点 卉 (loat 杰 量 部 
将 自动 转 为 双 精 度 型 .因此 ,所 有 的 算术 运算 才 是 在 双 精 度 下 进行 的 .如 果 -个 社 点 变量 接 
党 了 这 样 的 算术 运算 结 典 ,高 精度 立即 亚 失 。 一 个 必然 的 结果 是 ,所 有 实数 型 标准 5 的 涯 遇 
数 都 是 双 精 度 型 的 ,并 作 妈 精度 计算 。 

制定 这 些 转 换 规 则 的 正当 理 出 是 ,一 点 额外 的 精度 就 不 会 产生 任何 错误 " 吉 * 用 这 种 兴 
法 , 果 数 库 中 每 个 函数 仅 需 一 种 版 本 形式 ”.。 然 而 ,在 科学 计算 上 ,人 们 不 需要 很 多 经 验 就 能 
认识 记 , 这 种 隐 式 转换 规则 事实 上 完全 是 芒 器 的 ! 在 效果 上 , 它 使 我 们 不 可 能 写 岂 高 效 这 的 
数值 计算 程序 ,对 丢失 36 昕 或 50 冯 的 速度 是 否 值 得 忧虑 持 不 同 的 观点 ,这 正 是 计算 机 科学 家 
与 “正规 的 ”科学 家 和 工程 师 之 问 一 种 文化 上 的 障碍 。 在 许多 实 对 或 工艺 科学 的 应 用 中 ,这 
的 损失 将 导致 巨 天 的 灾难 。-` 个 应 用 科学 家 总 是 在 用 昨日 的 计算 机 试图 去 解决 明 大 的 问题 ， 
而 计算 机 科学 家 ,我 们 认为 ,总 是 用 另外 的 方法 。 

念 人 欣 时 的 是 ,所 椎 荐 的 ANSIC 标准 不 允许 算术 运算 的 隐 式 转换 ,但 对 函数 变量 二 … 
定 需 次 这 种 转换 ,除非 本 数 是 完全 原型 丽 数 , 即 它 是 由 本 节 前 面 所 述 的 ANSI 说 时 组 成 。 这 
正 是 我 们 为 什么 要 推荐 ANSI 原型 结构 的 理由 ,同时 这 也 是 读 首 需 使 用 ANSI 攻 容 的 轿 译 
器 的 理由 。 

一 些 老 的 忆 编译 器 提供 了 一 种 可 选择 的 编 详 模式 ,其 中 抑制 了 浮 点 型 (float ) 到 双 精 庶 
型 (doubjle? 的 隐 式 转换 . 知 夺 者 可 能 ,请 用 这 种 编 详 模式 .在 本 书 中 , 当 我 们 号 floar 时 , 章 指 
浮 点 型 ! 当 我 们 写 double 时 ,总 指 双 精 度 型 ,这 是 出 于 算法 上 的 原因 要 求 更 高 的 精度 .我 们 
所 有 的 程序 都 能 默许 传统 的 隐 式 转换 现 则 ,但 如 果 没 有 它们 ,效率 将 更 高 .当然 .如 果实 钙 应 
用 需 训 双 精 度 , 则 可 以 很 容易 地 将 说 明 从 float 变 为 double( 梧 性 方法 是 ,加 上 :条 预 处 埋 诺 
何 社 define fjonf double) 。 

页 人 相 二 


1.2.81 一 些 技 萎 


我 们 嘉和 钦 祭 穆 岩 代 紧 洪 , 襄 人 本 党 要 购 守 同和 染 莫 它 并 .有 隐 丰 入 能 咀 显 节 使 每 直 所 渤 
我 们 通常 不 在 赋 伐 运算 符 " 一 ?” 珊 劳 设 守 格 .中 由 二 记 史 的 折旧 些 编 详 敬 糙 4 在 年 在 
的 ) 运 算 符 "= “认为 等 估 于 减法 典 休 运 算 符 "一 : ”六 旋 郊 "一 < 等 本 于 滋 法 赋值 起 辣 行 
2 这 就 是 为 什么 在 程序 小 .我 们 写 列 旭 y= 一 00; 戈 y 一 (一 TD 
或 了 = 《#a3 等 这 种 形式 ， 

我 们 对 不 可 氧 少 的 图 括 台 桂 同 梓 的 竺 度 .除非 已 记 人 在 操 牢 符 的 运算 .了 和 三 关 好 
则 ,否则 不 可 能 有 效 地 编 安 (或 阿 读 六 程 京 :请 油 谈 到 1.2. 6. 1: 
表 1.z,.6.1 CC 操作 符 的 运算 顺序 及 相关 规则 
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我 们 具 不 使 甲 寄 存 器 作 依 分 类 符 -及 好 的 经 过 优化 的 编译 器 ,对 诀 定 将 仁 么 放 在 调 存 器 
中 是 非常 在 行 , 而 玉 有 时 最 好 的 渤 择 很 不 多 现 。 

对 于 几 个 文 伟 中 相 后 苏 部 各 的 定 六 设 则 利 守 租 说 韭 .六 癌 的 编 详 齿 采 用 不 着 苞 览 别 方 
法 -我 们 采用 最 普通 的 方案 :这 也 是 ANSiE 怀 准 . 计 铺 类 extern 时 显 地 包括 在 所 有 的 高 线 引 | 
用 说 明 小 : 氏 此 ,每 个 外 部 变革 朋 单 个 定义 说 时 和 省 略 看 储 炎 .我 们 在 比 评论 这 些 灌 明 扎 目 
的 是 ,如 果 读 者 的 痊 谋 器 用 出 趟 同 的 方案 , 则 以 革 工 改变 程序 代 三 ,不 司 的 综 详 左 案 产 戎 
葵 书 .1 | 的 4.8 中 讨论 ， 

我 们 已 处 侧面 提 到 了 计算 数值 的 将 属 虹 , 尤 其 是 平 点 和 立方 豚 计 算 回 题 中 江 促 捞 作 
的 遗漏 ,也 活 是 这 种 语言 对 科学 计算 程序 总 的 最 伤感 情 的 训 害 。 所 有 好 的 FORTRAN 浇 洋 
谷 都 能 由 别 象 人 AA 十 B “4 这 样 的 表达 具 . 并 庆生 一行 代 公 :在 这 “人 鲍 中 , 仪 需 “ 实 各 法 不 
现 次 乘法 :所 识 基 的 常 整数 次 宪 可 达到 12. 忠 件 很 典型 的 岂 . 

但 在 马 中 ,仅仅 平方 问题 就 很 礁 ! 有 时 " 密 " 操 作为 ， 
卫 dcfinc SSQRCa ICay Ts 


坦 是 ,这 对 SQRICsin(x)) ,将 导致 两 次 讶 用 并 丈 冰 ': 为 避免 这 种 情况 ,我 们 写 为， 


Static flaat sqrarg' 
人 人 ffinc SQRGa] CsqrnTE 一 49，srlrzrg < sdraR] 


全 局 变量 sqrarg 现在 材 盖 了 (并 需要 保持 ) 模 块 的 整个 范围 .这 就 有 -- 定 的 危险 性 . 另外 ,还 
需要 - .个 与 整 型 数 平方 表达 式 完全 不 同 的 宏 .更 严重 的 是 ,如 果 在 单个 表 和 法 趟 疏 有 两 个 
SQR 运算 ,这 种 宏 将 会 失败 .因为 在 C 中 ,表达 式 的 求 们 顺 认 是 按 编 译 器 的 方向 .出 么 ， 个 
SQR 估计 值 qzarg 就 可 能 米 自 于 同 -表达 式 中 其 它 的 估计 值 ,从 市 产生 毫 无 意义 的 站 果 、 
当 需 要 一 个 保证 正 箭 的 SQR 宏 . 划 可 使 用 皇 友 的 种 新 ,此 程序 在 条 件 表 达 趟 下 ,所 分 和 用 了 
子 表 达 式 沾 己 被 保证 的 充分 估 值 


StaTiC pay srlrarg: 
攻 deiine SQRIa) 51sdrer8 一 人 一 一 人 rargxsgrarg) 


夺 文 件 nrutilb 中 ,还 包 恬 了 其 它 一 些 简单 的 宏 运算 5( 见 附录 Bi。 书 中 许多 穆 序 都 使 用 这 紫 
宏 运 算 . 其 概要 加 | 下 : 





SQR1a) 译 点 数 平 三 

DSQR(ay 妈 精 虚数 平方 
FMAXta.b) 求 两 个 淫 点 数 的 最 大 但 
FMINravb) 炎 丙 个 洱 点 效 的 最 小 但 
DMAXI(a.U) 求 此 个 双 畏 应 数 的 最 大 值 
DMIN(Ca by 求 两 侍 双 情 许 数 的 鼠 小 值 
IMAX(a ,by) 求 两 信 整 日 数 的 最 大 侦 
1MINra,b) 发 画 个 整 型 数 的 最 小 俩 
LMAX(a:h) 或 丙 个 长 敬 卉 数 钓 最 大 值 
LYMIJNIa,b) 求 两 个 长 整 型 数 的 最 信人 情 


SICNria,b) 对 sa 取 bb 的 和 妇 


也 许 在 某 一 天 ,用 局 作 科学 编程 会 成 为 一 府 玫 瑰 花 坛 , 但 需 在 还 需 贸 心 刺 


参考 文献 和 进一步 读物 ， 
Harbison ， 三 .了 ，and Steeie， 吕 ,L. 、 站 ，1991， 0 玉 grpriecP Monaod iird ed (Enogiewood Cs .和 4， 


Prcenftice-Hall)， 


1.3 误差 、 准 确 性 和 稳定 性 


虽然 ,我 们 假定 在 正规 的 数值 分 析 方 面 ,读者 没有 前 期 的 训练 ,但 对 少数 关 当 的 了 企 糙 
须 应 有 -- 般 吐 的 了 解 。 我 们 将 在 下 面 雪 这 些 内 容 作 简 可 的 定义 。 

计算 机 不 是 以 乱 限 精度 米 存 鱼 数 值 的 ,而 是 以 一 定数 晤 的 位 (一 进 制 伍 ) 或 字 节 :5f 
组 ) 的 “种 近似 方式 来 存 鱼 数值 的 .几乎 所 有 的 计算 机 ,都 允许 程序 员 在 几 种 不 同 的 年 戒 字 
节 的 表示 或 数据 类 型 中 进行 选择 .数据 类 型 可 以 根据 所 用 的 位 数 ( 字 长 ) 来 分 类 ;也 可 以 更 基 
本 的 方面 ,存储 的 数据 是 以 定点 5int 或 lor8) 还 是 以 泽 点 (float 或 doubie) 格 式 来 进行 分 类 。 

用 闲 型 表示 的 数 是 精确 的 .只 要 满足 条 件 (i? 结 果 不 超 出 丈 型 数 (通常 指 带 符号 整 型 数 ， 
所 能 代表 的 范围 ,和 《ii) 除 法 看 作 仅 能 产生 整数 结果 ,舍弃 余数 , 则 整 型 数据 之 间 的 算术 这 
算 也 邱 精 确 的 . 

在 泽 点 表示 中 ,一 个 数 的 内 部 表示 需要 -个 符号 位 SK 代 表 加 号 或 减 号 1 ,一 个 精确 的 更 
指数 e 和 一 个 精确 的 正 整 谋 数 M。 这 些 组 各 在 一 起 代表 的 数 必 

SSX 邮 X 开 下 (3.1) 

其 中 如 十 表达 式 的 基数 (通常 互 =-2, 但 有 时 号 = 16), 忆 是 指数 的 偏 移 (对 任何 给 定 的 机 器 各 
表达 式 , 它 是 一 个 固定 的 整 常数 ) .图 1. 3. 1 显示 了 -一 个 示例 。 


阅 、 
录 四 人 
从 难 事 
娩 ,从 入 心 


一 一 一 一 一 一 
=0 10000000 10000000000000000000000 (9 


3=0 10000010 11000000000000000000000 (fb 
=0 0iIlll1111 10000000000000000000000 {c) 
110501101011113111001040 (0 


I0-?>20 01101001 
=-0 10000010 00000000000000000000080 (do 


3+10- "=0 10000010 11000000000000000000000 0f) 


fa) 数 172{ 注 意 吾 数 的 基 )1(b) 数 3t0c) 数 174;(0d) 数 10 “的 机 胺 准确 展示 ;fte) 同 举 的 数 10-?, 但 作 
了 移 位 使 得 它 与 3 有 相同 的 指 散 位 , 数 19-? 作 了 穆 位 以 后 ,所 有 的 有 效 位 都 扳 失 了 , 恋 成 > 零 . 移 
全 使 骨 两 个 数 有 起 问 的 插 数 项 后 ,这 上 遇 个 数 才 能 相 加 #() 黄 数 之 和 3T 10- ,在 机 器 准确 度 花园 内 
等 于 3。 即 合 10 本身 可 以 准确 地 表示 ,但 记 也 不 能 准确 地 加 到 一 个 大 得 多 的 数 上 去 。 


国 -.3.1 浮 点 数 的 雌 理 32 位 人 信 字 节 }) 表 下 


几 种 浮 点 位 模式 部 能 代表 相同 的 数 , 例 如 ,如 昌 有 = 2 .前 导 ( 商 阶 ) 位 是 潍 的 尾数 可 以 亚 
”2 。 


移 . 即 避 以 首 上 2 交 晤 :只 上 指数 下 总 去 一 个 补偿 量 牢 繁 了 人 可 能 向 充 移 位 "的 室 模 式 称 为 
标准 化 殴 式 .大 区 数 何 算 磺 总 是 产生 标准 化 结 人 ,这 话 可 以 系 浪 费 尾 数 的 任何 位 而 册 此 于 而 
鲍 户 精度 的 声 示 ,站 于 下 确 的 款 海 出 尾数 1 当 志 一 2 和 将 高 从 位 总 是 为 1, 大 多 数 计 和 界 十 发 本 不 
在 铺 这 家 而 给 一 位 航 外 的 精度 。 

汲 点 形式 表示 的 数 之 问 的 算术 运算 基 不 精确 的 ,多 使 运算 多数 能 被 精确 地 宏 导 ( 旭 能 而 
式 01.3. 上 形式 改天 的 精确 值 ), 例 划 ,两 个 译 占 这 相册 索要 将 较 小 (在 数值 [3 数 星 沁 数 伍 先 
加 右 移 ( 除 以 2)》 ,同上 且 相 应 地 增 大 它 的 指数 ,直到 两 个 操作 数 在 相同 的 指数 项 。 通 簿 入 上 上 的 移 
位 , 逻 小 的 数 将 于 掉 了 低 阶 (最 小 有 将) 位 :如 吕 个 运算 数 在 数值 上 相差 人 大. 那 冬 较 小 的 
烙 将 被 入 取代 ,因为 它 疝 布 移 而 有 效 售 都 般 注 没 掉 。 

若 一 个 最 小 的 详 点 数 ( 在 得 值 上 ), 当 它 名 上 洋 点 数 1.0 后 ,产生 :个 不 同 干 1.0 的 行 点 


10“.!5 在 20 章 笋 一 节 浊 还 周详 细 讨 论 术 器 的 精 误 折 题 ,并且 用 各 序 米 确定 它 介 ). 丰 略 地 说 ， 
忆 器 糖度 e. 足 浮 点 数 表 示 的 古寺 精度 ,对 应 二 尾数 的 最 小 精 庆 位 的 具 化 ,要 认识 芭 浮 点 数 
之 全 的 大 多 数 算术 运算 几 将 导 臻 额外 前 全 少 为 忆 的 相对 误 莽 .这 种 误 益 称 为 舍 人 误差 . 

sw 不 基 -个 衫 器 所 能 表示 的 和 小 绎 点 数 , 明 门 这 一 点 很 重要 。 最 小 削 点 数 寂 当 于 站 数 
瑚 有 多 少 忆 ，, 而 s。 取决 于 尾数 有 多 少 位 : 

作 入 误 益 随 立 计 算 基 的 增加 而 积累 起 来 .如 果 在 获 地 运算 结果 的 过 程 中 .风行 厂 和 次 
问 样 的 算术 运算 ,只 要 省 入 误 闪 是 随机 地 上 下 出 更 ,可 能 会 很 站 运 仅 产生 入 s 阶 总 的 全 
入 误 益 (其 中 华 方 恨 产 生 于 是 机 游 动 ) ,也 这 个 估计 值 可 能 由 于 下 夯 两 个 原因 而 大 娘 侧 窗 ， 

们 ) 经 常会 龙 生 这 覃 情况 ,所 用 的 计算 规划 或 计算 机 的 特点 造成 舍 人 误 辩 优先 人 由 个 方 
向 上 租 黑 . 这 区 总 舍 人 误差 将 是 Ne. 数量 级 。 

2) 一些 特 妹 的 水 幸 求 件 发 后 ,使 在 一 次 运算 中 天 大 增加 了 舍 人 误差 。 一般 来 说 .这 种 博 
训 可 人 址 溯 到 蝴 人 非常 示 近 的 数 相 碱 ,下 得 结果 的 有 效 位 只是 丙 个 操作 数 不 同 的 烛 此 ( 摄 汪 几 
位 ? 低 阶 位 :读音 可 能 计 为 这 样 * 厂 全 "的 减法 木 可 能 发 生 , 但 事实 并 不 总 是 这 学 , -: 些 数学 到 
达 式 大 大 增加 了 这 逢 情 吕 发 牛 的 可 能 性, 例如 ,在 熟悉 的 求 二 次 方程 根 的 公式 中 : 
十 vc 

2a 
当 xesdca 时 ,加 法 灾 得 很 微 姓 并 匡 易 于 发 生 舍 和 人 误差:( 在 第 5. 5 节 中 ,我 们 将 学 会 如 何 避 
免 在 这 种 特殊 情况 下 的 问题 .) 

舍 人 误 莽 是 计算 机 硬件 的 将 忻 .还 有 另 - -种 不 同 的 误差 ,反映 的 是 所 用 程序 或 算法 的 特 
往 , 与 程序 运行 所 依赖 的 巷 件 无 关 . 许 多 数值 算法 都 是 计算 * 迪 续 量 ?的 “离散 " 近 侯 值 , 例 和 如， 
数值 求 积 分 就 是 适 过 计算 在 “组 离散 点 集 上 的 函数 值 ,而 不 是 计算 “每 一 "点 前 信 米 进行 的 。 
或 者 ,… 个 丽 数 可 由 它 的 无 限 级 数 的 有 限 项 之 种 米 近 似 汗 算 ,而 不 是 元 限 项 。 在 这 些 情 况 中 
有 一 个 河 调 鉴 的 参数 ,例如 点 数 或 项 数 , 仅 兴 参数 赵 十 无穷 时 才能 得 刘 * 真 值 ”. 和 何 实际 运 
算 都 是 参数 选择 为 有 限 的 未 叉 足 鹏 大 角 息 ， 

真 值 己 实 际 这 算 听 得 值 之 莽 丈 为 截断 误差 .甚至 不， 个 假设 "完美 的 "有 无 忠 精 庶 赤 示 
的 并 月 元 舍 入 误差 拆 计 算 机 上 ,截断 误差 依然 存在 .作为 一 般 的 规律 ,程序 员 除 了 法 择 去 会 
增 大 舍 入 误 盖 的 算法 以 外 ,他 对 仇 入 误差 益 是 天 可 次 何 ( 见 关 面 的 “稳定 灶 呈 十 这: 然 河 . 截 
源 误 莽 妇 完全 在 程序 员 的 控制 之 中 .事实 上 ,可 过 路向 压 张 地 说 ,灵活 地 俩 截断 训 符 威 弄 最 


20 。 


二 人 本 


小 ,实际 上 就 是 数值 分析 领域 的 全 部 内 容 ! 

大 多 数 时 候 , 截 断 误 交 和 舍 入 误 益 彼此 下 人 双 强 到 地 柯 开 作用 .计算 误 蚌 赴 以 配 象 为 ,在 
一 个 无 限 精 度 的 计算 机 上 运行 所 产后 的 截断 诬 关 性 如 上 "与 执行 的 运算 次 数 相关 的 使 入 深 

人 避 有 时, 一 个 在 其 它 方面 很 吸引 人 的 方法 可 能 着 不 稳定 的 .这 意味 着 ,在 并 始 阶段 " 混 
入 "计算 的 舍 人 误 莽 被 运 续 地 扩大 是 到 沥 没 站 值 。… 个 小 稳定 的 算法 在 一 个 惧 设 完美 的 直 算 
机 上 是 有 用 的 。 但 在 这 个 不 完美 的 此 窜 王 ,我们 鉴 求 算法 尾 委 稳定 的 :一 或 者 极其 廊 慎 地 使 
用 不 稳定 的 算法 ， 

这 里 是 “个 简单 的 , 某 些 人 为 的 不 稳定 算法 例子 :假设 要 计算 所 尊 “黄金 分 割 ? 的 所 在 整 
数 蜡 , 黄 金 分 割 数 为 ， 


9 二 2 1 sz 0. 61803398 11. 4 3 
结果 表明 (可 以 征 容 易 地 验证 ? 短 or 满 足 简单 的 递 推 关系 
名 2 Er 人 人 多 ? 刘 必 法 :| 》 


这 样 , 知 道 了 前 和 突 师 个 值 关 和 凡 一 0 61803308 ,我 们 可 以 连续 地 用 式 (1. 3.4) ,在 每 : 生 仅 
作 一 次 减法 ,而 不 是 用 9 作 … 次 较 侵 的 弱 法 ， 

不 幸 的 是 , 递 推 式 (1. 3. 4 还 有 另外 一 个 解 , 即 值 为 一 坪 ( Y 一 1)。 由 于 递 推 式 是 敌 性 
的 ,并且 这 个 不 期 刻 的 解 在 数值 上 比 1 大 ,因此 任何 由 舍 入 误差 引起 的 小 误差 邦 将 呈 指 数 增 
如 .在 典型 的 32 位 室 长 计算 机 上 , 式 (1. 3. 4) 在 大 约 一 16 时 就 会 给 出 完全 错误 的 结果 ,这 时 
朝 凶 仅 降 到 10…- 所 以 递 推 式 (1. 3. 4) 是 不 稳定 的 ,不 能 用 于 所 楷 定 的 目的 。 

在 本 书 的 较 片 部 分 ,我 们 将 遇 到 许多 外 形 上 更 为 复 姑 的 稳定 性 问题 。 


第 二 章 ”线性 代数 方程 组 求解 


2.0 引言 


线性 代数 点 程 组 苹 谍 式 妇 下 : 


一 
ca 
2 人 
sr 二 于 
其 中 R 个 未 知 数 rsj 1， :与 叶 个 方 科 相 联系 ,系数 避 力 已 知 牙 汪 ea 
一 1 二 庙 需 六 当 一 ,41 也 是 已 皂 基 ， 


2.0.1 非 奇 异 与 奇异 方程 组 


外 业 祥 一 对 ,方程 的 个 数 与 未 知 数 个 数 相 问 .这样 就 在 可 能 求 得 忆 的 唯一 解 集 ， 分 本 可 
币 , 如 果 这 AM 个 方程 中 的 一 个 式 几 个 方 穆 是 其 它 方 得 的 线性 组 侣 ,这 种 情况 被 生 为 行 退化 ， 
或 彰 如 果 所 有 的 方程 中 某 些 灾 基 是 其 它 灾 量 前 许 一 线性 组 全 , 称 之 为 列 退 化 5 对方 阵 来 远 ， 
行进 化 意味 着 列 副 化 .反之 亦 然 ), 这 两 种 情 注 都 得 不 到 唯一 的 解 .进化 的 方 竹 组 笠 为 奇异 
的 :我们 将 在 第 2.6 节 中 考虑 奇异 禾 阵 的 细节 问题 。 

争 少 有 了 个 坠 如 的 同 素 公 导致 数值 上 的 错 计 ， 

* 尽管 有 些 方 程 共 非 彼此 精确 的 线 任 组 人 台 . 但 它 信 可 能 很 芒 近 线性 法 怀 ， 
的 其 个 阶 发 ,机 器 的 舍 人 误差 使 它 门 虑 为 线性 依赖 的 了 .这 时 计算 过 程 将 类 败 . 并 僵 提 ， 
解 己 失 攻 : 

“求解 过 竹中 ,会 人 误区 的 积 回 也 会 侦 结 内 与 真实 解 之 后 相 盖 丰 迎 , 这 个 习题 在 季候 
大 时 特别 容易 发 生 , 但 计算 程 庆 在 算法 上 并 无 错误 .然而 将 结 昌 直接 代 回 了 光 的 万 种 就 会 发 
现 . 巾 它 计 算出 来 的 > 的 解 集 却 是 错误 的 ,由 于 求解 站 程 中 会 不 断 发 生 相 近 批 消 ,方程 组 越 
接近 可 异 的 ,这 种 情况 越 易 发 贞 , 下 实 :上 所 计算 的 项 可 视 为 有 效 数 字 不 幸 被 全 部 合 基 的 特 
隶 情 况 ， 





复杂 的 线 片 六 乍 求解 程序 包 中 ,用 了 许多 复 休 的 方法 来 检测 和 (或 得) 收 让 这 呆 种 会 引 
起 错误 的 情况 , 妆 求 艇 大 的 线性 方程 组 时 , 束 会 党 得 需要 这 样 的 复杂 处 一 . 国 上 上 
典型 的 线性 问题 . 寿 避 很 难 给 总 任何 固守 的 准 划 :这 里 给 出 … 个 粗 略 的 建议 : 必 2 
50 之 间 的 线性 产程 组 ,如 斥 方 程 组 不 是 接 馆 奇 异 的 ,可 以 按 惯例 用 单 精度 求解 1 52 位 和 
表示 )》, 而 不 必 代 助 于 更 姑 杂 的 方法 ., 记 末 用 双 精 度 60 或 64 ) 和 可 以 扩大 钊 人 于 站 


一 


乓 区 汪 


点 上 ,限制 因素 见 乎 总 足 届 器 时 间 ,而 不 是 精度 。 

其 全 对 于 和 上 千 隐 束 大 的 线性 方程 与 , 当 委 数 是 入 本 的 ( 见 大 部 分 为 本 56 也 下 由 慌 
和 解 , 可 以 采用 利用 了 精 疏 性 的 特点 的 方法 求解 .我 们 将 在 第 2.? 节 书 进步 讨论 ， 

另 “方面 芷 谱 剖 题 上 .我 们 经 党 遇 到 的 线性 问题 .时 计 其 出 在 的 属性 足 接 近亲 异 研 
这 种 情况 下 ,即便 对 于 N=:10 的 情况 { 然而 极 少 存在 直入 = 二 的 情况 ). 可 能 部 需要 洗 B 二 
绢 复 茶 的 方法 .奇异 值 分 解 ( 弟 2. 区 技术 .有 时 能 把 坷 办 的 问题 变 成 菲 达 界 将 问题 ,六 汗 商 
外 的 时 条 处 理 束 没有 必要 了 ， 
2.0.2 上 托 阵 

方程 组 他 .0.1 可 守成 下 面 的 托 阵 形 趟 


点 "X = 站 


式 中 器 扣 代 表征 阵 相 匀 ,4A 为 系数 矩阵 ,b 为 守成 询问 基 形 式 的 在 端 项 ， 


,人 as 如 
:Cl 3 os 六 
入 一 hb 一 [全 
ae -1 
iaw wa pu， 


习惯 上 , 抱 素 的 第 一 个 让 杯 表示 行 ,第 -个 修 标 表示 你 ,大 多 数 实 际 度 册 中 ,全 它 史 
道 抽 阵 在 计算 宙 存 尽 器 中 基 如 何 存放 的 ,可 以 简单 才 . 用 一 维 地 址 引用 甜 阵 死 素 . 仿 浊 名: 
sa[3]L4_。 在 第 1.2 节 中 我 们 已 经 看 到 这 个 (语言 符号 的 背后 ,事实 上 隐 几 了 -个 但 当 精巧 
而 又 通用 的 物理 存储 方案 “可 向 行 指针 数组 的 指针 ”这 方面 的 肉 容 可 以 复 呈 和 有 关 的 章 
节 。 有 时 候 了 解 … 下 内 情 是 有 帮助 的 ,例如 要 想 通 过 ai 来 凯 历 整 行 ai 站 ij 一 1 2 
2.1.3 计算 线性 代数 的 任务 

我 们 来 考虑 -下 ,下 面 这 上 毕 作 务 作 为 进入 杰 卓 要 讨论 肉 容 的 开始 ， 

， 征 阵 方程 Ax=b 的 发 解 。 其 中 x 为 本 知 向 量 , 和 为 系数 方 阵 ,中 间 的 圆 点 音 味 痊 扎 
阵 祖 溢 ,b 为 已 知 右 端 问 基 (第 2. 1 节 - 第 2. 10 节 )， 

:不 业 … 个 的 矩阵 方程 A'x 一 bb 的 求解 问题 , 蕊 中 x 为 未 知 向 量 的 集合 ,一 1 
每 一 个 %, 对 应 一 个 不 同 的 已 其 右 端 项 向 量 必 .这 项 任务 中 ,关键 的 简化 是 种 阵 4 为 常 旺 年 
阵 , 而 右 端 项 b 为 蛮 化 的 (第 2.1 节 -第 2. 10 节 )。 

:和 抵 阵 A 的 计算 .和 -为 方 阵 和 的 道 , 则 和 一 A- 人 一 1 表示 单位 矩阵 ( 除 对 角 
线 上 的 元 素 是 1 外 ,其 余 匹 素 均 为 灾 )。 对 一 个 YXxN 证 阵 A 来 说 ,这 项 汪 务 与 前 一 项 代 务 在 
只 个 不 同 芭 0 一 1.2. 和) 为 单位 向 晤 fb 除 第 了 个 元 豆 为 1 外 均 为 坟 元 素 ) 的 情况 下 某 等 价 
的 .相应 的 xx 为 A 的 送 定 阵 的 列 (第 2.1 节 和 第 2. 3 节 )。 

* 方 阵 盘 的 行列 趟 的 计算 (第 2. 3 节 ) 

如 果 M<N ,或 者 M= 闪 时 ,方程 组 是 退化 的 , 则 有 效 方程 的 个 数 少 于 末 知 数 个 数 .在 
这 种 情况 下 ,或 者 无 解 , 或 者 让 不 止 一 个 的 解 向 量 x. 对 后 者 . 解 空间 包括 一 个 桂 妹 解 x。 序 
它 加 在 (不 失 ` 般 性 ) 关 一 邓 个 向 量 ( 称 之 为 矩阵 和 的 崇 空 间 )? 的 任意 线性 组 侣 上 -寻找 A 的 
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解 空 器 这 点 渤 劳 包 朱 

， 证 阵 熏 的 奇异 和 分 解 
这 个 专题 在 第 2.8 节 涉 名 ， 

相反 的 请 况 是 方程 个 数 多 上 林 知 数 数 日 , 基 -4 交 .这 种 情况 发 生 时 .通常 计 妆 种 引 :2， 
0, 1) 没 有 解 铝 明 x. 这 个 方程 芷 被 称 作 超 限定 的 . 尖 朱 这 神情 况 会 经 常 中 现 , 设 全 汽 解 起 太 
案 是 , 耶 找 -- 个 能 同时 近似 满足 所 有 方 得 的 * 折 赤 " 解 .如 毕 近 航程 度 被 限定 柑 好 小 一 来 送 区 
上 ,也 就 是 说 ,方程 (2. 0. 1) 左 端 和 右 端 之 其 上 平 方 和 最 小 ,十 是 此 赵 限 定 的 线 心 旺 厂 上 呈 开 关 

-个 (通常 是 ) 吕 艇 的 线性 门 题 , 秆 方 
， 线 性 最 小 二 乘 丫 题 
时 证 后 , 待 尽 解 的 方 称 组 盯 写 成 N> 方程 竺 
(和 和 0D) 中 

起 中 汪 " 表示 和 拓 阵 AA 的 转 幢 ,方程 纹 (2.0 和) 称 为 线性 最 小 二 滋 司 题 的 正规 方程 给 . 作 呈 站 
分 解 与 线性 最 小 一 乘 吴 题 之 加 有 着 鱼 密 的 联系 .所 背地 将 在 第 2.6 节 中 讨论 : 顺 侦 并 醒 “上 政 ， 
直接 求 正 规 方 狮 组 (2.0.4》 的 解 并 非 总 是 求解 最 小 一 乘 辣 题 的 最 好 方法 : 


本 章 中 的 其 它 : 些 论 帧 包 拉 

， 解 的 选 代 改进 (第 2.5 节 ) 

， 冶 种 特 彝 消 趟 的 矩阵 ;对 称 正 定 簿 阵 ( 第 2.9 节 》, 三 对 彰 中 阵 ( 第 2 上 生生 和 关节 本 拭 
阵 { 第 2.4 节 ), 托 普 霄 数 矩 阵 (Toeblitz 氏 第 2.8 节 ). 藻 德 蒙 缸 阵 (第 2.8 节 ) , 禾 项 年 作 : 第 2 了 
节 ) 

， 斯 特 拉 森 (Strassen) 的 “ 世 坪 符 阵 米 道 ”( 第 ?.11 广 )。 


2.4.4 标准 子 程序 包 


我 们 云 能 指 龟 在 这 一 瘟 或 泣 -本 书 由 :告诉 读者 有 关上 面 及 述 任务 的 全 部 主 密 :FF 多情 
项, 只 能 让 册 高 级 移 叶 箱 屡 序 包 而 别 无 泛 择 .好 的 程序 包 是 通用 的 ,尽管 他 三 其 非 部 是 | 
和 3 的 ,TINPACK 是 出 ArgGnne 国家 字 验 宁 开 发 的 .并 引起 了 特别 的 关注 .因为 安 证 会 于 
发 行 的 ,有 文档 资料 旦 免费 使 出 . 狐 总 JITNPACK 绕 在 记 可 得 到 了 商品 化 的 通用 综 件 色 { 不 
必 都 用 C 语 育 写 ) ,在 JMS1L 和 NAG 图 书馆 中 避 以 找到 一 些 。 

应 当 记 住 .高 级 的 程序 包 部 是 为 闭 常 大 三光 线性 系统 求解 呵 设 计 的 : 轩 而 ,大 于 眠 作 运 
算 次 数 和 需要 的 存储 空间 .设计 者 们 花费 很 大 精 方 .过 昭 输 入 系数 矩阵 的 儿 种 岂 .能 的 简 汪 形 
式 : 对 称 的 ,二 前 的 , 带 状 的 ,正定 的 等 等 ,为 各 种 任务 提供 了 不 加 版 的 俩 程 . 如 采访 老生 
个 大 纸 阵 是 这 并 种 形式 之 一 , 则 自然 应 当 利 膨 提 供 的 这 些 不 同 的 例 程 来 提高 效 座 .有 4 个 必 使 
用 为 一 般 托 阵 设 计 的 形式 。 

有 一 个 明 娃 的 办 限 ,能 把 例 程 用 的 是 直接 法 5( 即 执行 过 程 运 算 次 数 可 判定 :证 是 选 代 法 
《 即 试图 收 敏 到 据 定 的 解 ,但 需 很 多 步骤 ?区别 总 米 - 不 论 由 于 很 大 :还 是 由 于 问题 站 淡 近 
奇异 的 , 当 有 效 数 字 有 丢失 的 驳 险 时 , 泛 代 法 更 可 取 , 在 本 书 第 2,7 节 和 第 18.18 坦 中 .我 们 计 
论 关 于 夺 代 法 的 内 容 ,这些 方 法 是 重 时 的 ,但 超出 了 我 位 的 范围 ,然而 ,我 们 将 雪人 论 -种 介 于 
直接 法 和 和 泛 代 法 之 也 的 技术 , 即 解 的 迁 代 改进 , 它 吉 以 由 直接 法 得 介 ( 第 2.3 节 ) 


2.1 高 斯 - 约 当 消去 法 


有 求 捍 阵 的 逆 叶 ,高 斯 . 约 当 :auss Jordan 消去 法 与 瑟 尼 方 法 养 林 多 “和 伴 有 人 黎 : 解 我 全 
方程 组 竺 .高 期 -的 当 入 去 法 婚 可 产 和 其 有 个 或 多 个 三 潜 问 前 的 方 和 组 的 艇 ,也 人 疙 出 
征 阵 交道 A .然而 立 的 让 上 弱 总 在 二: 本 7 需 划 计时 存 诸 和 让 浊 革 


ae 





相交 和 六 着 ii， 个 入 旨 
雍和 皇 阵 时 ,高 斯 - 约 当 法 比 求 秋 音 -- 线 柏 癌 是 的 最 好 梳 术 (第 2.3 笃 ) 要 慢 二 倍 .这 种 方法 鸭 长 
涉 在 于 它 跟 其 它 直 搂 法 “ 伴 德 定 ,在 使 用 定 人 证 元 法 时 可 能 更 志 些 (参看 下 面 内 窗 

浆果 读 痢 后 面 还 要 处 埋 其 妃 的 右 问 问 草 , 引 然 求 算 隆 首 较 时 ,这 尝 可 以 将 布 碳 向 王 本 以 
所 阵 的 并 ,这 确实 给 出 了 一 个 解答 .红色 很 从 得 怀疑 活 雷 有 售 入 误 甘 并 误 ， 它 不 妞 - 计 好 就 
用 看 凋 问 最 炒 得 的 新 向 展 结 果 那 么 好 ， 

ee 
人 3 节 中 的 分 解法 较 些 .为 修 人 还 晤 给 站 语 革 - 约 咱 法 呢 ? 这 旺 上 为 它 拓 二 护 

当 的 , 易 民 的、 非常 稳定 的 方法 ;而且 太 会 出 寞 而 公 交 Re 

这 视 广 法 是 -个 概 共 好 的 "心理 上 ”的 三 备 - 

- 些 大 记 为 这 得 振 苦 本 公公 是 心理 了 的 ,高 斯 的 革 法 是 一 个 “独立 的 " 时 作 2 二 圳 
说 法 让 多数 情况 丰收 证 站 只 是 仲 空 想 :除了 下 厅 所 证 的 ,在 写 匹 法 遂 证 区 时 想 年 入 DH 蝴 
屯 外 .高 斯 - 约 内 请 走 法 的 宏 际 操作 过 程 苛 后 加 和 节 中 的 人 和 的 操作 评 保 是 密闭 朝 关税 . 

为 清 果 扎 见 , 并 和 避免 总 写 省 路 导 ( 六 我 们 个 商 竺 隐 方 程 绎 公有 四 个 方程 和 网 个 让 钊 
数 : 以 及 事先 已 知 的 一个 不 阿 的 布 庙 向 量 . 用 完全 类 也 的 形式 ,就 可 以 写 出 更 大 :此 抱 近 上， 
证 把 方程 组 扩充 成 入 X 撑 阵 , 亿 会 好 个 右 吴 问 竺 ,名 下 实现 举例 程 自然 忌 -- 红 许 出 


2.1.1 列 增 广 矩 阵 消去 法 
考虑 线性 知 阵 方程 




















1 Ge 61 | 汉 由 让 四 名 = 汪汪 
6 2 1 1 ， 人 
， " iU U L 
人 1: 3 2 | 
人 4 站 11 | 忆 交 人 ， 4 
2 和 | 
| | 

人 1 人 0 | | 

| | (2. .1， 

万， 六 六 | 6 0 0| 


世 大 1 
这 中 区 点 (表示 地 阵 性 琵 .是 探 作 符 册 公 代表 列 增 广 ,也 汪 是 党, 天 踪 相 鄂 的 小 括 导 下 党 作 
符 册 的 多 和 作 数 构 成 增 伍 罕 竺 。 
读者 相应 SS 瑟 方 程 人 2 上. 1). 订 坚 明 : 于 全 :是 系数 为 六 


-3 第 三 个 有 足 项 (六 1.2, 3 的 何 葵 能 站 第 ;个 死 素 生 一 12.3.433: 而 末 知 系 妆 六: 的 中 这 
人 
[4 UsJxUy 一 -Ubb U5 (2 


式 中 A 刘 YY 夫 为 三 阵 ,b: 和 X, 为 列 可 巧 .1 为 章 在 陈 . 它 忆 时 艇 决 了 线性 方程 组 集 台 


，30。 


踊 在 来 证 实 下 列 天 于 (12. 1. 1 的 基本 事 京 : 

”交换 入 的 手 意 商行 以 及 hh 和 1 的 根 谋 的 行 .着 不 改变 (或 任何 形式 的 技 交 区 下 车 
人 能 . 它 和 外 过 是 杷 同一 线 恬 方 得 纠 中 .方程 的 次 坪 调 换 而 己 - 

” 同 埋 ,如 果 我 们 用 半 什 意 - 一 行 和 其 它 行 的 线 狂 鹿 侣 代替 该 行 ,只 要 可 对 b 翔 1 横行 
售 相 同 的 线性 组 人 台 ( 当 然 ! 变 换 后 不 拍 是 单 他 阵 ), 解 集 也 不 政变 或 受 作 条 于 拢 ， 

， 父 换 生 的 任意 现 列 ,如 果 我 们 同 叫 安 换 x 手 1Y 的 要 庶 的 行 . 其 解 不 安 : 搞 六 之 ,这 三 
突 换 搞 乱 了 解 甬 行 的 次 岩 。 如 果 是 这 样 :我 们 需要 托 希 舵 行 恢复 到 原来 次 下 以 收 于 

疝 类 - 约 消 消 走 法 使 消 “个 式 更 多 的 上 述 抬 作 :把 和 趣 阵 驴 后 并 成 为 单位 诞 阵 . 天 首富 过 
后 .其 (2.1.2) 中 世 即 可 以 看 出 右 端 项 即 为 解 集 ， 

2.1.2 选 主 元 法 

在 "不 选 主 苞 的 南 斯 : 约 当 消去 法 ?中 , 仅 使 用 了 上 商 所 列 的 第 二 项 操作 , 空 条 第 …… 行 吏 

过 被 元 索 oa 除 (可 视 发 第 一 行 与 睦 他 任意 行 的 线 件 组 台 , 寻 基 对 其 他 行内 的 是 宗 入 北 ， 
尼 用 第 -- 行 滥 以 合拍 的 系数 去 减 其 他 各 行 ,使 得 生育 余下 的 cr 为 堆 。 全 此 , 鬼 径 交 列 省 香 
本 了 “, 坝 存 处 埋 第 二 列 , 将 第 一 行 除 以 6 然后 将 第 三 ,四 行 分 细 减 去 法 合 洛 汶 
倍数 ,恒生 它 门 第 二 列 昨 元 素 为 霉 -有 前 第 二 下 也 化 简 为 单位 阵 的 形式 .类 似 奖 址 理 第 - 引 
和 第 四 列 , 人 在 对 和 慌 这 些 操 在 对 .省 名 也 要 对 日 刑 1 博 相 尾 荡 措 作 ( 灾 换 痢 苑 1 大 生 亩 和 不 
单位 阵 的 样子 了 ) 。 

显然 , 禁 使 四 对 前 线 上 的 元 素 作 除数 时 , 询 果 该 戏 贡 线 二 的 元 囊 为 下 .我 代 会 肖 汉 许 丰 
(附带 所 一 大 .我 人 出 镍 除数 的 元 素 补 称 为 主 元 素 或 主 元 ) :所 俩 没有 过 到 坟 主 雹 .理光 于 油 
十 售 入 误 匡 的 出 更 不 和 壕 二 无 的 商 斯 约 当 放 去 法 (小 和 有 出 站 述 第 一 步 和 第 .将 过 程 ? 在 至 请 
上 是 不 稳定 .尽管 这 -点 不 是 日 了 然 台 ,但 确实 妇 此 , 清 读 关 劳 必 不 出 不 选 主 死 尾 坊 地 让 
当 消 去 活 ( 或 基 上 总 斯 消去 法 .于 下 面 1 

么 ,这 种 奇 刀 的 庆 主 光 法 是 怎么 天 事 呢 ?其 实 不 过 是 进行 生 释 换 ( 部 分 主 元 法 ;或 是 全 
列 雹 交换 (完全 主 元 法 ) ,把 一 个 特 绰 寄 归 的 元 素 族 天 对 角 线 的 位 赎 上 来 选取 证 站 党 为 我 时 
林 想 摘 记 已 构 选 好 的 单 倍 所 以 要 迹 接 的 抱 素 必须 满 直 ;在 紧 标 洪 化 时 在 民生 
片面 的 行 中 心 ii 在 要 消去 的 列 或 其 有 过 的 列 市 :部 分 皇 元 法 比 完全 下 死 法 基 阿 宇 些 .可 姓 
我 们 不 必 记 下 解 向 贡 的 排列 顺 尝 ,部 分 十 无 法 仅 当 证 天 已 处 十 正确 的 列 时 .是 吻 天 空 现 的 
可 以 证 明 ,在 数学 梢 度 狼 意义 也, 部分 主 元 法 基 不 多 与 完全 主 匹 法 丛 果 “ 栏 好 (进一步 的 这 
让 和 和 矢 竹 节 呈 , 昂 Wiikinson 1965 年 的 英作 1 为 给 出 于 者 的 区 曾 , 我 们 在 本 节 疝 别人 由 书 用 生 
全 士 元 法 ,在 第 2.3 节 中 用 部 分 主 元 法 ， 

我 们 必须 说 展 . 名 人 柯 闪 划一 个 元 索 是 否 是 待 别 需 昌 的 证 元 素 . 这 个 吕 题 本 址 悍 半 二 能 开 
完全 解 莹 的 :在 理论 上 和 实践 中 .大 家 划 道 阶 单 旨 尘 取 最 大 无 素 ! 指 效 对 朝 是 个 让 喷 共 
法 * 然 而 这 么 做 的 痪 解 志 处 是 : 持 死 的 选取 要 仿 惠 方程 织 草 初 的 形 趟 . 旭 果 我 们 入 和 放 宗 
组 的 第 二 个 左 称 帅 演 知 乘 以 月 厅 ,着 不 多 可 以 保证 第 个 再 交 素 在 芯 中 .而 方 条 外 守 让 : 











条 






解 并 不 因 做 过 乘法 而 改变 ,因而 人 们 的 习 志 修法 是 , 烙 所 和 有 方 利 左 有 了 两 过 进行 针 放 变 拉 , 传 
蕊 们 各 自 最 大 的 系数 标准 化 为 单位 侦 , 然 基调 选 作 主 元 的 元 素 也 许 己 是 最 太 了 .这 被 笨 为 隐 
式 主 元 法 ,另外 需 有 记录 保存 每 行 所 乘 的 比例 鸯 子 ,! 第 2.3 节 的 例 程 中 负 合 了 隐 式 让 实 汉 、 
息 本 节 的 例 程 中 没有 》、 

最 后 ,让 我 们 来 考虑 一 下 这 种 方法 的 存储 要 求 . 略 如 思考 ,可 以 郑 道 .在 算法 的 每 上 消 
中 ,要 人 委 和 的 元 素 是 1] 或 是 0 如果 它 已 经 是 化 简 成 乓 单位 害 阵 的 一 部 分 ) ,要 不 然 出 让 人 存 生 
阵 1 记 开 始 的 矩阵 中 ,相应 元 素 会 变 成 1 或 是 4( 如 果 羔 中 的 对 应 元 素 还 未 被 化 简 为 单位 于 陈 
形式 )。 因 此 ,和 矩 碑 1 不 必 单 独 存 情 : 多 阵 A 的 逆 在 A 中 话 步 构造 ,同时 破坏 入 庶 来 的 内 容 、 同 
至, 解 向 量 x 能 够 逐步 替代 右 端 项 向 量 b, 皇 使 用 同 - 存 情 空 间 , 央 为 每 一 列 & 中 的 元 索 归 
并 后 ,b 中 相应 的 行 项 重 不 再 合用。 


下 面 的 例 程 是 用 完全 主 元 索 法 的 高 斯 - 约 当 消去 法 : 


二 include <math 盖 
区 ipelude “tutil. hz 
玫 dtiine SS 网 APtavb)f remp :=fai(alzstb);i0b)==tempii 


Yeid gaussj 《float # #aintavttoat xx *brinr ni) 


对 上 面 42. 1 1) 友 各 用 高 斯 - 约 当 消去 法 求解 线性 方程 组 .a[1..6aiL1 .On 为 nxa 输 入 香 阵 .hb[1 nm 为 条 
念 阅 个 吉 痢 项 向 量 的 nxm 输入 矩阵 -输出 时 ,s 被 其 也 外 阵 代 韩 .b 被 相应 的 解 向 是 所 代 蔡 。 


inr *jindxc，xkindxr、*ipivi 
int iicol，irow。，j、k,，1，[{L， 
float big、dum，pum、piviny termpy 


Jhdxe 一 ivectorC1 0 _ 怕 形 数组 jpiv ,indxr 和 12dxc 国 汪 先 士 丈 作 正 录 
indxr 一 ivectorT(1ny》， 

ipbiv 一 Jvector(l nli 

for 1 人 = 1 < 一 nj 十 十) ipiv 工 一 0; 


for 0 一 1 < 一 nil | 归并 列 的 在 箱 环 
big=0.0; 
for 1 一 1;j< 扫 = 一 nij 二 十) 找 主 苑 囊 的 外 芭 笛 环 


diprv [TI= 1 
for (kk 一 1< 一 nk 
if ipivr[ 谎 ] 一 一 仿 ， 
放 (fabs(a[j 由] 六 一 hig) 
big 一 和 absfsa 二 ick 5 
jrow 一 让 
icon] 一 Ki; 
} 
1 else 于 (ipiv[k] 全 1) nrerrorf"gaussj:Singular Martix 一 1”》: 


1 
十 十 (ipiv[icol])， 至 此 我 们 已 求 得 主 元素 , 如 果 和 项 要 的 诉 . 进 行 换行 把 主 心 泰 族 到 对 角 
线 的 位 置 上 .现下 不 艇 实际 伙 换 ,只 是 进行 午 新 妹 注 :indxc -1 为 第 ! 
个 上 元 束 所 在 的 列 , 即 扰 化 笛 的 第 i 列 ; 而 ndxz[ 让 是 主 苑 索 库 来 臣 
巴 的 行 . 如 暴 jndxr[5 尖 indxc[ ,意味 著 要 做 列 交换 -用 这 惠 形式 志 
刺 , 解 捍 刍 最终 的 次 序 尼 下 确 的 .而 省 矩 竹 的 列 次 序 被 打 访 
过 ifow ! 一 jcoi) 
for 日 = 所 三 二 有 十 十 ) SWAP(ta[irow - 门 ,a[icol][]) 
foc L 一 1 村 二 一 mi 让 十 十 》 SWAPfh_irowj][j.bficot[) 


人 
『 


incxc[ 站 一 irow， 川 信 十 now 条 icoi 州 的 持 元 素 去 除 其 牟 在 比 行 
indxe[ 训 一 icol， 
if CaLicog][icot 一 -= 六 0) nrerror(*gaussj:， Singular Martix -2")4 


,32 。 


Pivrirtc -iol tc : 


Licol Lisel 







0 Dieinvi 
- -bool 1] ， pisinvy 
-而 进 1r2rE 


与 然 于 二 素 除 外 


fear [一 1 
和 = 一 1 
if 0 1 io 
中 Im 一 让 人- ieolj: 
中 
rr 人 = nc 一 hl 一 一 se dam 
lor 计 一 nn 一 0 一 二 aa 一 HTice js<dunl， 












1 裂 目 年 相 请 针 的 竺 所 . 茜 虑 也 进 行 这 别 交 换 ,为 使 执导 葵 休 
for (ni le 一 4 一 叶 葵 的 次 颇 ,下 及 梅 其 灾 换 的 相反 色 毕 安 侯 各 列 , 尺 整 得 辽 各 
(indxr [1= indxcl1]) 
or tk 二 1 之 一 Di 一 ) 
SWADia XT [icdxr[l 4 xi[inqdxl ie 


各 邦 结 束 








Free lvCcctebipiv 1.n7: 
free ivector(:rnrlxr .上 ma)， 
frec ineriorgtntixc ,mn): 


2.1.3 行 和 列 消去 法 策略 
以 上 的 讨论 可 避 朋 下 呆 形 式 训 以 发 挥 :用 其 简单 生 阵 R 前 乘 ( 即 左 巧 ) 以 抑 陈 二 党 完 成 条 覃 伍 例 训 ， 
乍 阵 R 只 有 分 页 


1 扫 开 一 7 利夫 2 
和 


当 了 一 2 一 1 


| 

吡 ，= 1 
1 当 一 4 一 
1 


荆 履 果 直 第 2 行 条 第 : 行 区 换 ., 单 剖 胃 行 操作 的 商 斯 - 约 葵 站 消去 法 ! 包 括 部 分 十 元 法 的 可 能 性 ?可 生 系 
东 琶 组 虐 ， 
点 “X 一 上 
(… 有 iv R: Rs XeR R Rb 
(yx 一 … 用 :。，R， 有 hb 
X =-… 及 ."“R, .Rb 本 
关键 在 上册 为 这 些 是 阵 民 其 有 应 霸 购 造 ,所 以 在 人 一 炒 于 ,等 式 奋 过 大 从 一 个 向 攻 菏 单 地 风 起 二 本寺 
避 样 ,' 绚 操 作 可 总 相应 地 昼 简 单 的 旦 阵 称 以 C 后 冬 ( 或 有 乘 ) 香 殉 A 实现 , 芳 式 (2.1. 0 中 的 和 证 件 和 条 
以 年 竺 赴 , 则 使 种 隆 生 中 移 2 询 与 第 四 刘 交 换 , 列 找 牢 的 消 雪 法 是 ,要 仿 上 ) 在 第 辽 二 和 本 央 癌 时 和 
括 六 列 操作 项 及 其 道夫 作 。 
及 ，xX 一 hb 
和 CIX=h 
4vC CC CI X-=b 全 
办 
OCX 一 
测 得 解 为 ， 
sx CC Ch 42》 
此 注 意 (2.1.8) 和 (2. 45 二 之 名 的 本质 区 绸 :在 (2.1. 呈 过 中 这 系列 息 阵 是 六 倒 凑 下 亩 下 和 
慎 h .从 币 得 到 鲜 向 其. 也 铝 花 宪 们 必须 仿 曝 这 种 倒 次 学 存 钳 : 这 -需求 侨 保 了 列 兴 玫 的 实 喇 必 .二 三 大 交 


3。 


全 二 无法 的 情况 广 ' 巴 隐 和 了 它们 的 让 用 ， 


了 kinson，[. 于 ，]1865，Te 了 fgebprarc 百 I8enaaiatp Droplepm YNe York: (Oxford University Pressy， ]- 
2.2 有 具有 回 代 过 程 的 高 斯 消去 法 


有 回 代 过 程 的 高 斯 消去 法 的 用 途 主要 是 适合 于 教学 . 它 介 于 象 高 斯 约 当 这 翌 的 完全 消 
去 法 和 下 章 讨 论 的 三 角 分 解法 之 各 :高 斯 消去 法 并 不 是 把 矩阵 完全 化 简 为 单位 阵 ,1 艺 半 音 
位 竺 . 即 其 对 角 线 上 和 (比方 说 ) 其 上 半 部 的 内 容 不 为 空 ,现在 我 们 来 看 一 下 这 么 做 首 好 处 . 


修 定 在 做 高 斯 - 约 若 当 消 去 时 ,如 第 2. 1 节 所 述 , 我 们 每 一步 公 减 去 位 于 当前 主 元 素 下 血 
的 那些 行 .比如 , 当 as 为 主 苑 素 时 ,我 人 ] 用 它 的 值 去 除 第 二 行 ( 跟 必 前 一 样 ) ,但 现在 用 主 汛 
否 所 在 行 疏 把 zzz 和 ass 消 为 零 ,而 不 消 ap:( 参 见方 程 2. 1. 1) .再 假定 我 们 仅 作 部 分 主 元 法 澳 
去 ,不 进行 列 交 换 . 这 样 米 知 量 的 顺序 就 不 必修 改 。 

对 所 帮主 元 索 处 理 完 后 ,得 到 化 简 后 的 方程 如 干 (对 单个 右 端 向 量 的 情况 ); 


2 du aa atl 十 站 
0 es 0 0 1 | ， 。 
， 2 | 1 于 | 
0 站 二 | 
总 9 和 4 [后 有 


这 里 的 撒 号 表示 = 和 尹 不 指 是 康 来 的 数值 ,而 基 经 过 所 有 行 消 去 操作 后 ,得 到 的 修改 了 的 
值 . 全 此 ,高 斯 消去 过 程 结束 。 


2.2.1 回 代 过 程 
在 我 们 如 何 求解 工 呢 ?最 后 :一 个 二 ( 例 中 为 二) 已 可 独立 求 出 , 即 


一 Byaa (2 
最 后 “个 工 知道 后 便 可 来 米 倒 数 第 一 个 z， 
区 元 味 一 :ra 《2.3 
钼 后, 炙 续 求 其 前 面 的 上。 典型 步 曼 为 
| 一 六 一 闫 大 《2. 2. 1: 


方程式 (2 2.4) 定 义 的 过 程 称 为 回 代 过 程 .高 斯 消去 法 与 四 代 过 程 结合 起 来 朗 可 求 得 方程 织 

与 高 萌 - 约 当 消 去 法 相 比 ,高 斯 消去 法 与 回 代 过 程 相 结合 的 优点 在 于 它 的 还 筑 次 数 少 . 

要 快 一 些 . 禹 斯 - 约 当 清 去 法 的 最 内 层 循环 芋 次 包 售 一 从 减 法 和 一 次 磁 法 ,需要 执行 入 次 和 

af 次 (有 六 个 产程 式 和 邮 个 术 知 数 时 .而 高 斯 消 去 法 的 相应 循环 仅 执行 七 AN 次 及 3 

六 朵 议 ( 仪 化 简 拖 阵 的 一 闭 . 且 区 变 成 过 的 元 素 个 数 减少 到 二 分 之 一) ,每 个 右 端 质 mi 代 要 
ee 34 。 


要 行 寺 N 次 类 似 的 循环 (一 次 从 琵 法 加 一 次 减法 ) .对 41<< 的 高 斯 消 云 法 ( 邮 仅 大工 全 寺 
端 项 的 情况 差不多 要 比 高 期 - 纪 当 让 好 工 倍 我们 招 文 个 好 处 打点 折扣 减 到 1.54 .大 而 谍 
没有 和 象 高 斯 - 约 当 法 那样 能 计算 出 送 算 阵 )， 

要 计算 矩阵 的 道 时 (我 们 可 视 其 为 时 = 入 人 即 人 列 咎 全 入 个 生 
位 向 量 ),-- 眼 可 以 看 出 ,高 斯 消去 法 各 回 代 法 需要 于 和 :5 年 阵 化 简 ) 十 壮 N 和 内 瑚 这 册 :一 


诗 N:CN 次回 代 ) 一 和 Nz 次 循环 操作 ,这 比 高 斯 - 约 当 法 的 Nm 次 要 多 。 然 而 .单位 向 时 是 很 特 


殊 的 ,除了 一 个 元 素 蚌 1 外 ,其 余 全 是 0 元 到 . 如 果 将 此 考虑 村内, 布 端 需 处 理 可 减 尽 只 
次 循环 操作 , 故 对 求 算 阵 的 逆 来 说 ,这 两 种 方法 效率 是 同伴 ， 

高 斯 消去 法 和 高 斯 - 约 当 消去 法 都 有 一 个 缺点 , 即 右 问 项 必须 提前 知道 .下 - -向 由 要 计 
论 的 7 分 解法 就 没有 这 个 缺点 ,不 管 是 对 有 任 喜 个 右 庙 项 的 求解 问题 , 渤 是 人 阵 鸣 洋 ， 
这 种 方法 的 运算 次 数 都 要 人 少 , 由 于 这 个 原因 ,我 们 就 不 写 凡 高 斯 消去 法 的 实现 程序 了 


2.3 工 V 忆 分 解 和 它 的 应 用 


假定 我 们 能 够 把 矩阵 A 写成 晓 个 矩阵 相 乘 的 形 直 
LU 一 人 六 人 
其 中 工 为 下 三 角 和 矩阵 ( 仅 在 对 角 线 上 及 其 下 面 有 元 素 ;,C 为 上 三 角 和 抢 阵 ( 仅 在 对 信 线 上 及 
其 上 面 有 元 素 )。 益 个 例子 .对 1X4 和 让 阵 的 A 的 情况 ,方程 (2.3.1) 如 下 : 


au0 0 0 用 ， 六; 2 | 





寺 。， 
aa os oo 站 0 0 pp 加 EC 0 
oj 10 站 D 了 ay en 全 这 
我 们 可 以 用 象 式 (2. 3. :的 分 解 来 解 线性 方程 组 
各 *X 一 (LU xx 一 LU.x) 一 bb 23 
普 先 求 刨 癌 量 y 使 得 
直 -7 了 一 h 《2 
然后 再 米 求解 
下 X 一 多 [2 放 


把 一 个 线 忻 方程 组 拆 成 时 个 连续 的 方程 组 有 什么 好 处 呢 ? 好 处 在 十 求解 一 个 _: 捍 肛 鄙 
方程 组 相当 宅 易 , 正 如 我 们 在 第 2.2 节 中 (方程 (2.2.4) 已 经 见 到 的 那样 ) .而 方程 (2. 3 4) 工 


用 向 前 痊 换 过 程 求 解 如 下 ， 
v 一 二 1 六 庆 yi] 1 


方程 43.3,. 下 可 出 品 代 过 程 求 解 , 跟 方程 (2 2.2) 一 并 程 (2.2.4) ' 样 ， 


zw 一 新 
， 0 
,一 基 [ 一 之 配 妆 ] [一 入 一 1.、N -2F， 


方程 组 (2.3.6) 和 (2. 3.7) 共 需 执行 关 次 央 层 循环 (对 疆 个 右 端 项 hb), 簿 个 内 层 循 厅 包 扫 
次 乘法 林 一 次 吕 法 ,如 果 我 们 和 六 个 丰 端 头 : 它 们 是 单位 列 同 基 (在 求 娃 阵 赣 时 就 是 怪 1 
识 ) ,考虑 这 些 零 元 索 可 也 方程 (2.3.6) 的 总 的 执行 次 数 从 寺 AN" 减少 到 二 RN, 在 方 得 :2 
的 执行 次 数 不 变 , 仍 力 廿 Ni 

注意 ， - 旦 对 A 进 行 了 7 分 租 , 我 代 就 二 以 一 次 求解 所 有 要 解 的 右 庙 项 : 距 算 2 季 利 
第 2.2 节 中 的 方法 尼 , 这 是 一 个 性 昔 的 优点 。 
2.3.1 进行 2 分解 

对 给 定 的 入 我 们 怎样 才能 求 得 丘 和 U 呢 ?首先 .我 们 瑟 出 方 称 42， 或 42. 和. 2 的 浸 
[项 分 量 , 它 总 是 一 个 和 的 形 蕊 ,开始 部 分 朵 式 如 下 

1 了 T 

种 式 中 的 项 数 依 束 于 * 和 了 站 较 小 的 数 -事实 上 有 三 种 红 式 ， 





[ 二 ER AN 
7 人 7 6 十 Ge C 
RE 吧 RS 

有 4 站， 生计 人 纪 

人 本 二 半 
人 Ci1 问 1 | ie 6irD) 一 全 半 43. [D， 


方程 (2. 3.8)~- 人 《2 3. 10) 片 有 呈 个 方程 式 ,而 理 求 A 十 个 未 知 的 & 和 光 辐 对 击 浅 的 林 
知 死 有 了 丫 侍 ) .由 然 末 知 数 的 个 数 比 方程 个 数 多 ,我们 线 人 为 邮 指 定 六 个 夫 知 数 , 然 这 峰 求 
ee 
站 二 二 [一 1 0 
这 时 有 一 个 竟 妙 的 步骤 叫 RE roul s algoribhmj , 它 仅 通过 榨 某 种 滨 和 于 起 别 广 
程 , 就 能 相当 容易 地 求 出 方 积 (2.3.8) (2.3.11) 的 司 :十 个 方程 中 的 所 有 = 天 站 这 个 上 
又 如 下 : 
、， 设 c =1.= 1 入 (方程 2.3.11) 
*。 对 每 个 j 一 1,2,3.:N 做 以 下 两 步 : 首 和 对 每 ;一 1.2. 六 用 方程 (2. 3 六 
的 和 (2.3.11) 来 解 好， 即 


网 \、 3 
六 一 人 pu 42 3 1 


(或 方程 (2.3.12) 中 7 一 1 时 . 求 和 质 山 鹤 》, 第 二 步 ， 邓 竹 个 上 一 7 TAN 咱 方 根 (2 
10) 米 求解 & 六 划 


1 、 本 
5 可 (Ce，， -一 人 友人 间 2 
下 站 


在 进行 下 -个 j 之 前 更 保 让 做 过 以 上 两 步 ， 
人 寺 候 后 ,就 会 发 规 .六 着 (人 23 121 和 人 13 有 让 直 


"56。 





诺 归 时 已 经 知道 了 ,还 会 看 到 ,得 “个 sn 仅 被 使 用 演 便 不 圭 用 。 这 意味 着 相应 的 神 
8 可 以 存储 在 所 占 的 夺 鱼 空间 :出 分 解 是 " 癌 此 7 利 行 的 对 弟 线 下 的 单 估 元 素 “大 程 
2.3.1] ?并 不 存储 ]: 简 而 亩 之 . 克 各 特 算法 得 天 的 症 a 林 二 的 混合 矩阵 ,其 排列 是 

















乌 关 第 隆 的 抑 素 按 中 与 宗 竹 的 顾 审 庆 隆 M 信 :as .等 等 .党 轩 影 的 生 形 方块 表示 择 些 已 起 修 示 的 
宛 玖 ,它们 被 用 来 覆 改 杯 有 存 " 交 ” 记 生 胸 曲 个 时 晶 工 过 
恒 2 3 守 首 特 算 法 对 算 阵 进行 志 7 分 解 
友基 上 芋 世 法 ( 即 计 择 -个 人 台 适 的 十 匹 兹 去 除 方 各 (2. 3. 13) 的 两 边 ) , 世 对 厚生 蛙 方 法 的 
稳定 性 是 绝对 必要 的 :只 有 部 分 主 天 法 ( 行 交 换 ) 可 以 有 效 地 实现 ,然而 ,这 已 号 岂 使 算法 稳 
定 卫 . 顺 使 搓 下: 汶 意味 着 我 们 并 不 是 把 息 阵 AA 分 解 成 为 PE 的 形式 ,而 是 将 其 技 行 公 换 


二 


的 方式 分 解 ( 如 果 我 们 保存 这 个 寻 换 的 次 抒 : 该 分 艇 就 与 原来 的 分 解 ” 人 棕 有 内 )， 

失重 特 算 法 中 级 主 元 法 有 点 精妙 之 处 关键 基 槛 注 赢 方 称 !2.3.12) 在 5 一 天 天 行政 
方程 ;时 ,与 方程 62. 3.13)( 除 了 后 者 还 要 做 … 次 除法 外 /时 完全 … 样 的 ,这 丙种 情 沈 求 候 沟 
上 限 都 是 下 = 1]C=r 1) ,这 意味 着 ,我 们 不 此 费心 大 者 虑 对 节 线 元 素 癌 , 足 否 ] 
阴线 上 ,也 不 必 考 虑 该 丈 中 , 它 于 面 鸣 某 个 元 素 ( 未 做 除法 的) 二 六 1 
升 " 成 为 对 角 元 素 昌 . 当 所 有 该 列 元 素 都 求 得 后 ,这 点 便 会 证实 .现在 应 该 楷 况 苦 划 , 我 :和 
选取 最 太 的 元 素 作 为 对 攻 线 元 素 3( 主 元 素 ), 然 后 用 它 去 除 其 它 匹 素 . 这 便 是 部 分 主 元 法 的 
克 鲁 特 方法 .我 们 的 实现 方法 中 迁 在 一 个 精妙 之 处 : 它 首先 找 每 行 的 最 太 元 索 ,站 人 全 让 
太 主 元 素 时 ) 乘 以 一 个 比例 系数 ,就 象 我 们 最 初 对 所 有 方程 进行 比例 变换 , 伍 它 站 最 太宗 引 
成 因 单 位 元 素 那样 ,这 就 是 第 2. 1 节 中 提 到 寺 的 隐 式 主 元 法 , 
艺 inelal， 习 3nz ho 


开 incladle "Fruzil 7 
efinpe TINY 1oce 一 29; :个 小 丽 








oO ludcetnptfloat * < 上 Qin int +incxXy float x 寺 ?7 
刘 禾 是 的 :个 sx= 四 阵 划 1 .30 1..n 和 本 亚 床 对 其 进行 接 行 叶 撤 革命 解 , 靖 果 存 在 该 舌 随 辣 ， 利 n 是 顷 科 


基 .a 为 输出 丫 朵 . 毕 元 买 的 排列 汞 臣 与 上 面筋 (2. 3.141- 一 学 .indx .nm 为 得 贡 癌 重 , 亡 计 来 记 下 洁 韶 分 于 于 天 
改变 了 的 行 厘 列 该 序 : 箱 出 毫 着 d 的 这 为 土 上 相应 地 表示 邱 变 搞 容 数 为 藤 数 还 基 阁 数 - 本 各 下 巾 尝 鼎 Lupksb 一 演 
用 来 求解 总 改 方 各 组 或 者 求 名 陈 力道 





int j .Imax ,>| ,ki 
ionar higvqdum sun vtent 
有 们 al < vv wx 用 上 上 梨 硅 直行 的 凤 仿 直列 习 寺 


vv 一 seetor(1.D)5 














“qd 一 1.0; 还 本 进行 芝 弃 
for ti 一 -< 妇 一 nn 一 十 ) 1 按 行 往外 .下 区 食 交 二 侈 町 子 
big… 0.D 
fcr0 王 15j< =n 和 jj 1) 
让 CCtemb 一 fbsta[i 2 > big) big 一 temby 
(big 宇 一 DTmttetror (Singdjat tnatrix jn routine judcenap" ); 没有 下 过 的 展 上 大 绾 这 
Vv[ 一 上 0rbigi 候 存 火 例 上 寺 于 
for 6j 一 1 过 一 nj 十 十 并 克 鲁 符 方 法 的 烈 福 牙 
fotr fi 一 1ii<jiii 一 一 三 量 2. 3.121 的 i 坟 的 情史 
sun 一 a[i[j]， 
for (KE 一 1 水 si 让 一 十 ) surn 一 一 30 ksa[R Ts 
4[i][ 记 一 Adm 
1 
big 一 避 0 宁 姑 化 最大 宇 元 素 柑 量 
foc 一 Tic 一 n3- 方 坦 2.3, 12 i--j 的 情况 以 区 方舟 
Stma=-ilLil 2.3.13 ij 二 1. .的 博 吝 
for (kk 一 1 尾 <jk )》 
sum 一 fk4xalkLDi 
a_i[ 门 一 sumy 
idurn=syvLi 1albstsory bg) ti 新 的 修 谈 主 雹 号 过 比 世 尘 福 的 生 注 三 


Rig 二 hum， 
ImEX 一 1 


让 品 了 一 imsx) 1; 裔 蛇 让 行 诡 摊 岗 
jor 人 一 1:k< 一 nk 十 一 ) 其 的 ,进行 人 换 


duanm 一 a[imasx Lk_; 


38 。 


a.max 咱 K .一 上 站 
a jJLk] 一 dum， 


*d 一 (sd)1 收 虹 4 的 奇 谓 性 
vv[omax]= vs[j]; 还 此 交换 比 俐 四 下 

imdx' 六 一 irnaxy 

iT 一 0 TINY: 最 后 际 以 主 元 袁 

ii 全 n) 如 毕 主 元 天 为 办 则 矩阵 尾 奇 只 的 ! 节 
dum 一 1 928ET ET 少 对 本 算法 精度 而 诗 ) 过 厅 异 坏 阵 
fer i 一 i 寺 15 -ni 一 十 iiLi 订 < 一 damy 了 的 情况 筑 要 知 TINY 换 成 相 . 

了 纶 同 籽 并 小 -- 列 


free .veeror [vv ln)i 


下 别 的 程序 出 向 前 替换 过 程 和 同 代 过 程 来 实施 方程 (2. 3. 56) 和 (2. 3,.7)。 

Yoid lubksbtfleat * *ayimnznyint >indx, fyloat b[ ) 
求解 上 维 线性 方程 入:X=B. 比 中 aLi, .= -1..o 为 输入 量 , 它 不 是 原始 所 阵 生 .而 是 总 袜 序 ndemp 用 生 成 的 其 区 
分 解 别 ,radxfil. .pb] 为 输入 过 , 古 adetmp 反思 的 记录 行 排 刚 顺 ! 的 揣 最 1. .5] 为 输入 右 靖 项 问 量 且 , 返 洒 解 癌 量 
xean 和 indx 小 被 该 程 序 网 机 ,可 留 下 来 骨 被 调用 , 米 不 同 的 右 映 柄 日 的 解 。 这 个 例 程 沽 虑 了 b 可 能 开始 有 良 多 零 
无 隶 的 情况 ,因而 在 求证 阵 的 递 时 上 直拨 商 效 率 ， 


int ji 一 0yip.ji; 
flost sum; 


tor 5i 一 15i 才 一 ngi 一 十 ) : 当 让 为 正 数 时 , 它 表 示 h 的 第 “个 赣 零 元 的 位 轩 - 
ip 一 indx[i3; 现在 米 做 方程 (2. 3. 6 的 癌 前 坎 换 , 茂 唯一 的 缺点 明 激 有 
sum 一 bip]; 恢复 所 来 的 排列 顺序 。 
bfip] 一 b[i2# 
计 (ii 
for 二 < 一 1 一 一 ) sum 一 一 f 刘 上 和 < bj 
else f (surd) 全 一 1 才 到 上 续 室 元 素 . 下 面 要 进入 二 面 的 求 和 循环 
h[i 一 sumyi 
for Ci 一 nsi> 一人) 现在 类 捞 坟 穆 (2 3. 7 的 四 代 


sum 一刀 三 ] 
for 《jj 一 ;十 13j 之 =pjij 十 十 ) sum 一 一 afifi]s*b 门 1 
bi 一 supzya[ ii 保存 榴 向 显 > 的 -个 分 莉 


上 
了 


程 译 Jademp 中 , 心 人 分 解 大 约 需要 执行 十 Ne 次 内 层 循环 (每 次 包括 -次 乘法 和 次 加 
法 》， 这 是 求解 一 个 (或 少 基 几 个 ) 右 员 项 时 的 运算 次 数 ， 它 要 比 敌 2. ] 节 中 的 高 其 - 一 车 当 程 
0 要 快 三 悦 , 比 不 计算 道 惩 阵 的 高 斯 ”车 当 程 序 快 . -点 五 倍 。 求 揽 抵 阵 时 ,总 

运算 次 数 ( 包 撒 上 面 方程 (2. 3. 7 后面 讨论 的 向 前 替换 和 回 代 部 分 ) 为 ( : 二)N 一 
ee gaussj 相同 | 。 


心 结 一 下 :求解 线性 方 穆 组 Ax 一 b 的 可 取 的 方法 是 ， 


float xx tttydi 
tn，+* inqxi 


ludcmp (anyindx， 六 .d); 


lubksb ta ny indx，b); 
解 x 将 保 在 在 b 中 ,时 原 米 的 下 阵 A 会 被 叙 趟 ， 
如 果 随 后 还 乱 求 解 具 有 相同 的 A 世 布 端 项 让 不 门 的 线 忻 方程 级, 则 可 以 仅仅 惠 六 
lubkshb (anv indx,b ); 
当然 把 阵 A 已 非 源 来 的 形式 :这 里 的 上 a 和 indx 已 经 庄 得 订 lodemp 设 轴 好 了 。 
2.3.2 和 抑 阵 的 求 逆 
使 用 上 一 节 中 的 72 分 解 和 加 代 过 程 的 租 序 ,能 完全 直接 地 按 列 来 求生 陆 的 道 { 没 关 还 
好 办 法 来 求 了 )。 
#Gesine N 


和 oat < <aey xydxcoli 
it lj xindxy 


ludcmpiayNyindxRd)i 艾 把 矩阵 分 解 “次 
for6j 一 1 一 N 和 十 十 ) | 恋 列 下 人 也 


forfi 一 13ic 一 Nii 十 十 ) cc 订 一 加 
cn][ 门 =1.03 

tabksbra, Nasindxseol); 

fprti 一 ]iitc 一 NU 十 十 ) 7 一 eolli 


息 阵 y 保存 的 是 原始 和 阵 a 的 道 ,年 阵 a 会 被 破 坟 ,使 用 象 gaussj( 第 2 1 季 ) 这 样 的 高 斯 约 
当 例 程 求 官 阵 的 道 也 是 不 错 的 选择 . 它 问 样 也 破坏 原始 矩阵 .这 中 种 方法 的 运算 次 数 关 不 风 
相 梧 . 

如 果 碰 巧 要 根据 矩 隆 站 和 有 昌 米 计算 和 B, 应 当 对 4 进行 1 分解, 然后 由 吾 的 列 进 
行 回 代 , 而 不 应用 单位 向 最 先 米 入 的 道 . 这 样 吕 以 省 去 -- 次 整个 更 阵 的 乘法 运算 ,并且 精 让 
更 高 : 
2.3.3 矩阵 的 行列 式 

经 了 分 解 的 玫 阵 的 行列 式 仅 为 对 角 线 上 元 素 的 职 ， 

det = | ]P， (2.3. 15) 

回顾 一 下 ,我 们 并 没有 求 原始 矩阵 的 分 解 ,而 是 只 进行 过 行 交 换 后 的 分 解 。 京 运 的 是 ,我 们 记 
承 了 行 交换 次 数 是 奇数 还 是 偶数 ,因此 ,我 们 就 可 以 在 乘积 前 面 冠 以 相应 的 符 导 (现在 终于 
知道 第 2. 3 节 中 的 程序 Iudcmp 设 变量 d 的 原因 了 )。 

计算 行列 式 顷 凋 册 一 次 lbdemp ,而 不 必 接 着 调用 Inbksb 进行 同 代 了 。 
站 define 六 
jluoat 关 #aavdi 
im jy yindxy 
间 9 ,Nindx 忆 dd) 返 困 伸 本 沙 上 1! 
forG 一 1j 们 一 Nd si 
d 中 沈 在 保存 的 即 为 原始 第 阵 a 的 行列 式 值 ,a 活 会 被 破坏， 

0 


对 完 际 生理 的 大 焉 孟 ,很 可 能 出 珊 行 列 忒 千 二 洪 或 下 洲 , 赵 出 了 计算 机 记 能 去 雪 的 衣 吕 
数 的 范 [ 昔 . 丰 站 囊 搁 况 于 .可 以 修长 二 进程 序 中 的 循环 部 分 例如) 除 以 十 的 藉 半 单 旭 保 存 
该 比例 因子. 或 5 各 如? 求 下 从 乘 数 绝对 定 的 对 数 和 并 单独 保存 其 管 号。 


2.3.4 复数 系统 方程 


如 果 引 阵 入 是 实数 的 ,而 有 器 向 械 让 入 数 的 ,ER 4 用 通常 的 让 泛 对 丰 进 行 生 分 盘 ， 门 州 h 
辕 代 过 程 求 得 解 间 时 的 实 部 ,ii 上 半 下 加 代 斌 程 必得 解 癌 时 的 虎 癌 、 

媚 昌 和 皇 阵 本 身 是 复数 的 ,就 趾 况 要 求 纪 的 方 如 为 : 

(点 一 ii Xi =(b 一 局 ) 

则 和 在册 种 可 能 的 办 法 求解 。 反 好 的 办 法 基 肛 好 Iadcmp 和 lubksh 为 复数 程序, 在 构造 比例 内情 sY 及 导 我 最 
大 主 开 素 时 ,用 复数 的 模 代 钴 绝 右 让 - 线 它 咒 分 帮 很 显然 ,需要 寺 就 进行 昌 数 的 算术 这 算 ,全 见 第 1. 方 下 
5.4 节 有 基 ( 评 言 写 的 复数 算 不 运算 的 讨论 .) 

快速 亿 不 大好 的 求解 复数 系 济 约 少 法 星 ,将 广 征 02, 3. 16) 的 实 部 和 虚 部 分 上 . 即 

A:x fy 一 hb 












(人 X 二 上 "YY 一 机 有 
它 直 丸 与 成 个 2Y>2N 的 实 览 记 如 、 
辽 是 风 机 2. 3. 18) 
然后 用 iudcmp 和 外 fubksb 来 求 鱼 几 前 的 形式 .该 六 案 在 存 情 上 要 花 阿 售 的 党 间 , 固 力 和 和 5C 部 被 存 财 了 时 
沈 . 另 外 ,也 要 共同 傅 的 时 间 , 河 出 在 用 复数 彤 式 与 成 的 代 序 中 , 复 赦 乘法 仅 击 4 次 实数 机 滋 .有 到 2 2 
的 区 是 长 解 旺 YY KR 问题 的 工作 草 的 8 倍 . 如 和 村 这 册 万 面 的 代价 能 够 容忍 的 疾 , 则 方程 (2 3 18) 也 基 
种 很 方 伍 的 求解 办 法 . 


2.4 三 对 角 及 带 状 对 角 系 统 方程 


线性 方程 系统 的 特例 之 “号 三 对 角形 式 的 ,也 就 是 说 , 非 零 的 元 素 仅 出 现在 对 角 线 及 其 
上 上 的 信守 上 ,这 种 情况 会 经常 出 现 . 带 状 对 角形 式 的 系统 也 常 几 ,其 非 过 的 元 素 仅 出 
规 在 二 对 莉 纺 附近 (或 玉 鸭 几 个 对 闻 行 中 。 

对 “对 节 计 人 守 .- 分 解 流程, 前 代 或 回 代 等 党 只 需 GOCN) 次 操作 ,整个 求解 过 程 可 以 非 
常 往 洁 地 器 条. 求解 理 订 tridag 在 司 面 的 章节 中 还 要 用 到 ， 

和 欠 尖 不 记 把 整个 立交 N 下 阵 全 部 存 起 米 , 而 只 需 保 仓 非 零 的 元 素 , 存 作 :: 企 向 量 。 要 求 
解 的 方 但 汶 : 








全 Cr 站 二 本 2 [7 


注意 各 ce 没有 宇文 .下 王 的 程序 间 不 硕 首 蕊 站， 


艺 inclucze "asrutu hh" 


void tridag ffloat a[ 门 ,float b[j， float ec，floatr 1， fo ut]，utsigned long 
求 逢 各 量 af 1..n1 ,三 对 前 线 糙 各 孟 御 丰 年 (2.1 昌 钴 出 05bi se 及 语 100 为 输入 汝 基 , 正三 丢 


修改 ， 


unsigned long } 
Jioat bet。，x Ratnt 


名 am 一 recctorf1n) gaol 需要 - "个 向 量 的 工作 空间 

详 tb[T 三 一 00) arerrorC" ErrIor 1 in tcidag” 1 若 这 秋 情 襄 发 后 ,应 重 写 方程 ua: 笃 辐 
LI 一 rL137(het 一 hbhL1.); 不 计 : 上 或 为 内 -| 维 的 

for (ij 一 2 去 一 nr-- 十 ) 1 分 解 帮 前 代 


gam[j] 一 cLj-132bet， 
bet 一 b[ 这 ai *Rgstn[j2 
ii (bet := 一 0.0) nrctrort" Error 2 DTridag"》+ 商法 失败 .及 下 而 的 能 释 
u[j 一 Cr[i] aeaCi theti 
far 站 一 Cn- 全 一 1 一 一 ) 
ai] … = gam[jirllzuri+l 3 辐 伐 
free-veetor(gatn 1n); 
在 tridag 中 没有 求 主 元 。 这 是 因为 ,如 果 对 赣 奇 蜡 的 惠 阵 ,tridag 也 失败 的 话 , 则 对 非 河 
异 矩 阵 就 会 有 可 能 通 到 零 主 元 的 .在 实践 中 ,不 必 为 此 过 于 担心 .那些 能 产生 三 对 角 线 性 系 
统 的 阿 题 通 常 都 有 其 它 的 篇 性 , 它 能 保证 算法 tridag 会 成 功 . 举 个 例子 ,如 果 
| 全 十 | 了 1 《2.4,2) 
( 称 作对 角 线 优势 }, 则 可 以 证 明 算法 不 会 遇 到 有 零 主 元 ， 
可 以 构造 出 特殊 的 例 于 , 米 说 明 由 于 算法 没 找 主 元 而 导致 数值 不 稳定. 然 呆 ,实践 中 这 
种 不 伤 定 几 乎 从 未 迪 到 过 ,不 象 ` 般 的 和 抢 阵 问题 中 , 求 主 元 是 必 不 可 少 的 。 
三 对 角 算 法 是 算法 中 的 一 种 稀有 情况 ,实践 中 其 稳健 性 吉 比 理论 上 强 得 多 .当然 ， -后 
遇 到 了 tridag 算法 失败 了 的 问题 , 则 可 以 换 用 更 一 般 的 方法 , 即 求解 状 状 对 角 系 统 的 方法 ， 
F 面 就 要 讨论 它 ( 程 序 handee 和 banbks) 
- " 些 其它 的 第 阵 形式 ,包含 了 三 对 和 角 及 少数 几 个 附加 的 非 索 元素 (如 右上 角 或 左下 角 ， 
也 吓 以 进行 快速 求解 ,参见 第 2.? 节 . 


2.4.1 带 状 对 角 系 统 


二 对 角 系 六 的 非 零 元 公 出 现在 对 角 线 及 上 、 下 个 元 素 的 位 剖 上 : 谭 带 状 对 角落 统 则 衫 更 - 般 些 . 紧 
香 在 对 角 线 在 邮 ( 下 迪 )》 有 ( 屋 如 ) 空 0 个 非 党 元 素 , 紧 香 其 右边 (于 边 ) 有 ms 泣 0 个 非 鹤 元 庇 -当然 .这 仅 当 
; 和 站 ?地 过 <N 时 才 奉 意义 .在 赣 种 情况 下 ,外 0 分 解 求 解 线 性 系统 可 以 化 通 月 Rx AR 的 情 蝎 沧 成 亲 
南 忆 : 占 空 间 现 少 。 

必 寺 车 对 些 状 对 为 下 作 的 精 丧 定 六 为 ， 

or 0 

阐 状 对 前 各 阵 折 种 往生 下 条 重大 武吉 行 夺 人鱼 及 操作 .把 托 阵 顺 时 任用 转 与 "使 下 零 苑 素 排 成 个 册 
乏 的 牢 峰 , 它 有 问 1 03 列 六 :最 好 用 个 例子 来 解 琶 -下 

带 状 诈 秆 辽 


| 3 1 nn0 0 0 
| 二 1 如 /于 人 人 
5 
io 3 3 
| 站 了 
是 由 
0 D 30 2 站 + 


二 中 关 = 王 7 一 2，m2 一 1 存储 的 压缩 形式 为 了 7X 外 阵 . 


让 





| 全 沪 

9 

3 8 9 2 
7 9 3 2 

3 8 4 6 

[ 4 1 < 


这 里 x 表示 压 桥 式 时 浪费 的 空间 ,它们 在 运算 中 淋 被 引用 ,内 而 其 值 可 随 竟 . 洒 竟 , 诛 站 陆 过 用 王 无 素 册 
现在 第 mi 十 1 列 中 ,对 角 线 左 直 的 无 还 在 其 左 侧 , 对 阴线 丰 于 的 元 素 在 其 右 侧 、， 
压缩 存 赃 的 带 状 对 角 怎 阵 最 简单 的 运算 是 乘 以 其 而 边 的 癌 划 .尽管 这 是 算法 上 的 小 种 鉴 , 淡 者 c 能 起 
条 细 研究 一 下 下 面前 程序 , 肴 肴 如 何 节 奈 综 闻 储 格式 若非 零 区 av 变 成 顺序 的 方式 、 
inelude“nrucil, hr 
void banmaultiloar * <*a，unsigned long ny int mi int nl2, flost x[ ,了 loat b[ ) 
永 阵 飞 法 b 一 4A-X- 其 中 凡是 带 小 对 角 阵 ,对 有 角 织 三 有 mi1 行 ,对 贡 强 上 有 mm2 行 -输入 前 司 x 妆 输 il 司 量 四 机 天 站 作 = 
[加 和 DLL .ai, 数 组 aflefi ml 十 m2 十 条 人 存 铺 鼻 : 对 月 线 正 素 在 aL1 .nmlL+1l 中 ,对 华 线 上 下 咱 匹 壹 在 
数 蛆 slLi .nm L1 .ml] 叶 (1, 对 地 于 每 个 村 角 线 左上 元 素 的 个 数 ) .对 角 线 右上 下 素 作 ai al 和 ,ml 十 D52 
十 中 对 应 十 灶 个 对 前 线 右 上 下 过 的 个 数 。 


unsigaed long ij*k ,ttmbloop， 


fur (it 一 1:c< 一 nri 一 十 > 


kk 一 im 13; 
tmibloop 一 LMIN(ml 十 m2 一 Lvn 一 k): 
bi 一 0.0 


for 1j 王 LMAX{1,1 一 kj 一 unploopf 和 十 一》 bfi 十 = 引 癌 [xj 十 K 


不 可 能 把 :个 检 状 对 和 于 阵 A 的 区 分解 也 象 其 下 闪 形 式 本 身 翌 览 下 地 存储 殷 来 .分解 5 下 鉴 在 用 
克 侍 特 太 法 , 盆 见 第 2. 3 节 ? 几 和 了 附 机 的 炒 零 邢 素 庆生 种 直接 的 存 赃 方案 是 ,柜上 前作 于 人 5 焉 河 刘 
各 以 前 占有 的 相同 的 堂 间 中 , 杷 下 江 俐 内 子 { 了 7? 返 因 到 单独 的 六 关 m 卜 缩 卸 阵 中 :的 对 前 浅 开 素 它 让 更 
乘积 , 乘 上 d= 土 1* 舍 是 行列 眠 的 仁 ? 被 存放 在 生 的 让 储 笃 间 的 第 一列 ， 

下 面 的 径 宁 bandee 类 似 于 第 2.3 节 中 的 Tudemp', 在 号 解 迪 并 对 用 系统 的 。 
术 inctude <math.h 全 


入 define 与 WAPkaby :dum 一 (aa 一 tb ib? 一 quml 
了 definpe TINY1De -20 












roOitl Damtteee 人 loaf > >3a，Unsigncdl iong DiDUIL iD， To: ， 1. unsipner ion imax_  ， 玫 2 
对 整定 聘 nm XD 浇 并 甬 征 距 和 ,其 对 务 线 基 下 有 1 条. 必用 乒 有 于 斌 和 玻 天 犊 于 铺 在 答 训 1 

50 中. 程 序 panmwl 的 说 明 部 苍 . 本 程 定 硬 政 个 二 接生 拷 人 你 入 已 二 竹 下 竹 直 人 本 二 竹 于 条 

疝 将 季 淹 有 请 昌 : 输 十 体 各 一 二 宣 


二 








, 记 法 让 他 于 区 





片 让 条 a.m 中 :indx 1 .rn 是 输 婴 羡 


次 获 交 车 储 礁 定 , 来 程 下 banbks “起 位 盯 , 妆 解 这 闪 引 侧 厅 奈 - 





unsigned jong (jj.K,]; 
InL TI 
fa Qudutmi 


mn ml 十 pi2 十 1 

1-=S1; 

for (一 1 二 中 13 十 十 ) 
Fer (jj 一 ml 二 2 一 1 二 一 pan 十 二 am = aa 





| i 
Jor (一 mm 一 ] 渤 一 mm 术 十) 让 和 一 0 






关外 一 1.0; 
|] 一 ins 
for 线 一 本 kk 一 hk 十 二) 对 多 和 7- . 
tan -afk- 1 
(一 kj; 
HT ts nl)1I 一 十 : 
for (=k 145< 一 194 十 半 控 记 匹 索 
下 《fabsta[j2i1 》>。 fabstdur 1 
dum 一 aLjlLius 
1 一 上 
} 
indx[k |-=i; 
ifdunl 一 一 由 0) a[kl[I=TINY:， 外 湾 算 法 上 是 过 垩 的 , 浊 作 咱 TENT 帮 帮 和 考 
准 纺 进行 ! 住 某 些 度 川 时 等 和 要 这 栏 做 
计 人 1 一 k)“ 行 变 换 
# 下 一 一 (站 5 
for (一 1 并 一 mn:ji 十 十 JSWADtalk i JaliLLi 
for (i 一 Kk 十 1ji<< 一 14i 二 十 ) 楼 消 去 
dum 一 aLiDillrark][141， 
al 「k]Li |=dum: 
for 0 一 2 和 < 一 mmijliya[i ii 1 一 ai dm ok 
ai][mrm]= on 
上 


在 bandes 存储 限 占 允 访 范 周 内 ,有 对 候 求 主 元 臣 汀 能 的 , 上 而 的 在 序 和 用 了 这 羡 机 会 。 般 博 况 上 ， 
当 返 回 TIRY 作为 区 的 难 角 元 时 , 则 原来 的 囊 阵 5 可 能 出 于 禽 入 误 益 的 康 双 ? 雪 实 二 是 奇异 的 .办 同人 下 | 这 
点 ,bandee 某 种 程 庶 上 要 比 上 面 的 tridag 更 稳健 ,因为 tridag 即使 对 非 坷 有 的 息 阵 也 可 能 导 毁 算法 于 的 二 
放 -bandec 对 某 些 公 果 不 好 的 三 对 前 系统 也 足 有 效 的 ( 取 到 一 ms= 1): 
' 且 年 阵 生 被 分 解 了 ,任意 数 订 前 布 端 项 都 可以 通过 重复 调 中 nanhks 来 求解 . 代 猴 序号 第 2.3 和 中 
的 lubkthb :类 记 。 


开 definc SWAPIa idum 一 1 1 一人) hh) -doni 


Yoid banbkstfloat ” #E，unsigned long ns intimiy int m2, naoat x >s[， msigneel ljong indx[ ,foath 1 
对 给 定年 为 barqec 返 避 值 的 数 姐 aal 和 indcx' 双 苔 定 的 而 端 项 涪 拒 pn 、 这 解 做 冰 对 用 线 性 方程 KK .8 锅 
向 最 X 查 盖 入 拭 1..2 其 它 的 输入 茹 织 不 被 让 变 , 证 用 可 玖 用 于 民 三 全 癌 右 帮 珊 交 估 练 册 昌 . 


44。 





unsigned long 1,X1i 
int Di 
Loat dumi 


TI I+ 名 2+T 
zli _ 
for (<1iK<enixt++)》 和 前 代 ， 丰 本 乱 行 的 绯 列 虑 序 
isindz[x]， 
if (i ta x) SWAP(b[x],bri]》 
if (1 < an) 1+4 
for 《imr+lii<st;ir+》bfi) -= alfr][i-k]sbrr]; 


Je 并 
ter (fi=nii>s1;i~~] 并 昌 代 
dum<b[i]; 
for 【kw2;x<=1;kK+y) dum -= ari]lftx]zsbkr+i-1] : 
b [ij=dumAar[iy [it] 
i 1 < am》1++i 
} 


六 bangec 刊 batbks 起 于 釜 痢 节日: 1 中 的 宫 凡 eader] 和 Bensell 


参考 文献 和 进 -- 步 读物 : 
桶 让 Einson，J, HL ，and Reinsch ，CG，1971，Zrneaur LEegrw yy， Yol，11 0 司 anddpook Jpr 交 NiOalit 《wamgprtte- 
Hom (New York: Springer. Verlag)。Chaprer 176. 「1] 


2.5 线性 方程 组 解 的 选 代 改 进 


显然 ,很 难 使 线性 方程 组 解 的 精度 超过 计算 机 涵 点 字 精 度 .不 辛 的 是 ,对 于 大 型 线性 方 
程 组 .区 起 达 惠 甚至 是 接近 计算 机 所 限定 的 精 毫 也 总 是 很 难 的 。 在 直接 求解 的 方法 中 , 舍 入 
误 芝 的 积累 达到 “ 定 程度 时 , 算 阵 就 接近 奇 量 了 .对 于 远 非 奇异 的 托 阵 (认为 如 此 ). 却 也 很 
容易 丢失 两 个 或 :个 有 效 数 字 。 


如 果 发 后 这 种 情况 ,有 -- 个 篇 洁 的 方法 能 恢复 到 全 机 器 精度 , 称 作 解 的 选 代 改 进 , 埋 
论 上 是 很 直接 的 ( 郊 较 2. 5. 1): 假 定向 基 x 是 线性 方程 组 
及"XxX 一 hb 《2 人 
的 精确 解 .然而 并 不 知道 解 x, 而 仅仅 知道 一 些 略 有 误差 的 解 gx 一 bx, 其 中 jx 为 本 知 的 误差 ， 
当 将 其 乘 以 矩阵 A 时 ,这 个 有 误 半 的 解 使 乘积 与 原来 的 右 端 项 b 也 存在 偏 益 , 即 


上， 十 3) 一 上 二 加 0 
式 (2.5,2) 减 去 式 (2.5. 1) ,得 
和， px =- 四 (入 村 3 
但 由 式 (2. 5.2) 也 可 求 得 和 .将 其 代入 式 (2. 5.3) 中 + 得 
上 "3 十 xb 《4 十 》 


该 方程 中 ,整个 右 旺 项 是 已 知 量 , 因 为 x 一 0 基 朋 待 改进 的 有 误差 的 解 , 用 双 精 度数 计算 右 
端 项 是 个 好 主意 ,因为 在 减 去 b 的 过 程 中 会 产生 很 多 抵消 。 接 下 来 我 们 只 需求 解 方程 (2 5 
4) 的 偏 养 量 ix ,将 其 从 有 误 关 的 解 中 减 去 使 得 到 改进 后 的 解 。 

“45， 





如 果 我 们 是 通过 7 分 解 得 到 最 初 的 解 , 则 这 么 做 还 有 “个 很 大 的 好 处 .因为 这 理 情 次 


下 ,已 经 有 了 惩 阵 4 的 开 ' 分 解 形式 ,要 求解 方程 (2. 5.4) ,只 需 计 算 右 端 项 青 进行 回 代 ! 











首先 假定 x 十 如 与 A 相 采 的 税 为 b 十 动 . 减 去 已 知 咎 旗 日 程 ob 下 以 此 为 在 中 项 及 这 求 求 鱼 该 线 
人 性 方 科 组 ,得 中. 将 其 从 开 始 假定 的 解 中 诚 去 即 得 改进 后 的 解 x. 
网 2.5.1 Ab 的 能 的 法 代 政 进 


完成 上 述 马 能 的 代码 既 简 洁 又 直接 ， 
七 cluae “Drutil hiw 


Yogl mbprove(floar * ay float ”audyinrnjrtindx ii non br float xy》 


此 进 线 持 方 程式 A 汉 一 目的 解 是 xn]. 宦 陈 ar 区 癌 淹 在 量 31 nn 各 和 己 汶 薄 大昌 -ald 1 


Dj 也 为 连 和 人 莽 , 它 是 Iademp 返回 移 克 : 分 角 形 式 . 问 量 indxl 1 岂 册 流 代 往返 是 辆 畦 基 具 有 x 写作 卜 ， 


集 的 改进 值 . 


Yoid lubksh (Poaf * arintninc “indx、noob[ ys 
Int j,ii 

double sqh: 

float *ti 


工 一 vecrork lnly 


fo: Ci 一 1 一 nii 二 下 ) 计算 在 身 项 -上 崩 妈 炳 度数 表 二 凑 逢 
sdh 一 一 bo， 
ior 局 一 10 扫 -ij 十 一 ) sdp 十 一 a0j[i sy xi 
ri 一 sdp; 

下 

jnhksbralud,nvindx ,>)， 尿 租 的 误 意 其 ge 

ier 0 一 1 过 一 ni 一) x[i 一 一 基 6D1 丫 其 内 原 米 的 解 中 减 去 


free .vectortrv 1,n); 


应 当 洋 意 第 2, 3 节 中 的 程序 ludemp 破坏 了 输入 筷 阵 .将 其 进行 了 7 分 解 .可 为 达 代 法 


队 需 村 原 米 的 年 阵 又 需 本 其 Z 分 解 的 形式 ,在 尘 汛 ludemp 之 前 须 将 和 进行 复制 . 电 理 


。4E。 


3 


lubksb 坏 卫 b 而 得 到 x, 所 以 要 复制 “ 份 b: 如 愉 趟 在意 这 些 额 外 增加 的 存 鱼 空间 , 虽 造 代 
改进 法 是 绷 值得 推荐 的 ;其 运算 屋 仅 为 避 级 ( 疝 基 甜 阵 乘 及 回 代 ,见方 程 C2.3.71 下面 的 讨 
论 ) ,而 且 它 水 远 不 会 把 解 变 烛 . 如 果 已 经 花 了 只 次 运算 :而 得 到 的 却 是 一 个 不 够 精确 的 解 、 
则 这 个 选 代 算 法 确实 是 殷 划 得 来 的 。 

如 果 愿 意 , 可 以 连 绫 调用 mproye 好 儿 次 。 附 丘 副 开始 的 解 与 真 解 相 养 大 迁 .…- 般 来 流 
一 次 调 几 就 足够 了 .但 也 可 以 上 骨 泣 用 -次 来 证 实 其 收 仇 性 ， 


2.S$. 1 关于 迭代 改进 的 更 多 的 讨论 


对 方程 (2.5.4) 纵 出 略微 更 可 绊 些 的 分 析 是 有 启发 意义 的 (而 且 本 书后 面 还 兹 此 鲍 ) 诈 寻 壕 能 叶 外 从 
到 -: 些 结 果 。 在 前 面 的 讨论 中 ,已 指出 笠 向 营 x+ 二 cx 有 一 个 错误 的 项; 但 我 们 趣 忽 酷 了 :个 书 实 , 凤 全 隐 
分解 本 号 并 不 精确 。 
-种 不 同 的 分 村 方法 击 矩 阵 耻 , 开 录 . 报 定 空 是 矩阵 上 的 -- 个 近似 的 道 , 则 可. 二 近 僻 等 于 音 习 娃 隆 ] 
十 之 B, 的 剩余 科隆 R 为 ， 


条 二 1-- B. 入 证 
共 值 黑 定 部 "很 小 ”下 面 会 给 出 精确 的 说 贡 ), 因 此、 
吕 , 、 点 … 1 一 及 【全 


交 上 来 考虑 下 向 的 慰 准 运算 : 
Ai: 一 AI(Br .Bu) 一 (B.),B。 


= (Be Ai B=tt R Bi 一 1 十 到 一 R 十 有 十 …)》，B， (人 
我 们 可 以 将 最 后 …… 个 表达 式 的 前 需 之 租 筷 六 为 
B, 二 [1 RT RD) 区. 2 


内 此 ,如 柴 极 限 存 在, 由 器. 一人。 . 
现在 .直接 有 求 验证 “下 等 式 (2. 2. 8 满足 - :此 有 趣 的 递 上 关系 , 乞 虑 到 要 求解 方程 组 入 'x=-D, 共 中 全 让 
b 部 昆 向 星 , 室 六 
Ma 一 县 .hh (356 
- 则 和 提 容 易 得 到 
Xi 1 一 YX B:。(b- 丰 。 多 人 《2 
7 列 可 以 看 出 、 它 跟 方 程 人 2.5. 4) - 样 , 上 其 中 一 中 -x+ 一 xy 有 这 里 代 奉 『 二 -的 位 置 。 罗 此 ,我 全 村 到 六 
程 (2. 5.4) 并 不 需 至 和 的 L7 分 解 有 多 人 么 精确 .而 具 是 紫 东 剩余 生 际 R 入 小 敢 可 -粗略 而 才 , 旭 果 该 剩余 二 
小 于 计算 机 售 人 误差 移 平 语 根 , 则 站 用 :次 方程 42. 5.10) 之 后 ! 邯 自 症 二 Bob 得 到 xi), 第 -一 次 如 略 的 需 ， 
为 耿 数 黄 级 ,也 就 小 十 念 信 涝 荐 了 -而 有 目 , 方 惧 人 .3510 与 52, 724) 一样 训 以 使 用 歼 这 ,六 为 它 妈 区 使 溃 
B，, 而 没 用 更 高 阶 的 也 
由 等 式 (2. 5.8) 可 以 得 到 … 个 更 令 人 吃惊 的 遵 扒 式 , 它 往 次 递 蕉 的 阶 ”得 越过 2 倍 ; 
B.， ,一 2B,，- B, .AbB。 一 0,1.3,7 本 1 
斌 -个 台 适 的 矩阵 Bu 并 妊 , 重 揽 砷 用 等 式 42. 和 1 可 以 次 地 收 误 村 末 知 的 递 王 隆 站 《 习 二 次 地 
定义 人 参 提 第 纺 41 节 ) ,等 式 { 人 二 1 有 许多 市 问 的 名 平 .包括 Schultz 方法 凑 Hotelling 方法 , 参 册 Pan 允 
Reif 事实 上 , 容 式 (2. 5.11? 只 不 过 是 找 敌 的 丢 代 Newtcn-Rabhsoo 方法 应 用 于 年 阵 求 着 加 了 
然后, 不 枚 灶 等 式 (2.5.1 有 过 二 乐观 ,好 当 注 意 猎 拖 次 达 代 它 要 进行 商 次 完全 的 种 阵 胀 法 。 竺 岂 征 许 
租 乘 包括 呈 外 法 利 梯 法 。 但 必 , 我 们 在 第 2.1 一 2.3 季 的 tpto 中 .已 经 知道 直接 水 生 的 着 也 只 需 瘟 次 用 
入 次 乘法 , 洒 此 等 式 (2.5.11) 仅 在 某 弃 特 瑟 精 演 下 , 护 过 算 归 比 通 放生 阵 求解 方法 快 时 才 帮 让 区 ,这些 
情况 我 们 将 在 二 面 的 第 13, 10 节 中 遂 何 ， 


我 们 暂 册 来 研究 一 下 是 个 查 美 的 问题 : 仁 各 性 候 等 式 人 二 关 的 如 数 收 策 :什么 样 的 补 双 候 于 呈 生 革 
【本 如 ,如 果 刘 和 苔 的 妈 全 解 下 可行 1 
我 们 可 以 将 目 阵 此 范 数 (oprmy 定 文 力 . 庆 朋 对 个 让 其 送 度 训 大 的 最 大 倍数 、 


;有 | 2 max R> 的 了 | 
YY 世人 小 
记 洒 合 产 释 52.5. 门 肥 和 任意 的 右 端 项 中 , 冯 寡 要 第 距 的 赣 对 . 王 然 收 康 的 充分 茶 件 尾 
1 RL 0 


Pan 和 Reif[ 1 中 指出 ，- 个 合适 的 驰 , 的 初 贻 假设 是 .充分 小 的 常 基 = 箭 以 下 的 转 置 , 到 
B， 一 上 7 或 民 一 ] .5 司 . 生 1 1 
要 搞 清 楚 为 什么 这 里 使 用 了 第 11 况 的 岂 念 ,我 们 仅 敬 出 最 入 单 的 介绍 :和 ”二 是 对 称 的 .正定 和 和 蜂 , 疏 公有 
下 实数 的 纤 征 值 ., 州 其 对 角 线 卖 把 ,及 采用 的 形式 为 
及 一 diag 人 1 一夫 上 允 ) 1 131 
其 本 所 有 的 太 ,的 为 下 车- 灵 然 .对 什 全 上 满足 Ce<2rmaxi xi 部 得 利 "R < [不 从 发 现 ,s 的 最 化 寺 择 从 
凡 等 式 (2.5.11) 最 快 的 摧 伍 , 亡 中 


F = CIDax， 十 DA， 和 ,Ti 
上 和 们 很 少 知 道 等 式 (2.5.16) 中 由 二 的 畦 征 值 .Pan 和 Reif 得 到 了 儿 个 有 趣 的 按 界 . 空 们 可 妆 肌 入 
直接 计算 出 末 。 下 所 的 选择 保证 了 ": 时 ,的 收 策 性 
上 1 人 或 考 和 17Cmax > ljl 反 max> ,ari|) [从 办 
站 攻 
第 …… 个 的 表达 是 点 正 仁 得 注意 的 式 了 ,出 Pan 利 Reif 枞 得 ,他 如] 涪 意 到 ,等 起 (2.35. 12) 中 辐 项 的 东 娄 不 必 
是 通常 了 :的 范 数 , 作 可 其 二 (最 大 但? 范 数 或 是 7 ( 交 对 值 ) 范 数 所 代 能 . 详 抑 他 们 的 荐 作 ， 
另外 -种 方法 我 逢 也 获得 了 -一 些 碟 功 ， 就 是 通过 和 颈 六 维 闪 问 中 随机 选取 的 方向 寺 ， 选 几 个 单产 柯 而 
yi 米 计 算 s 一 14 用 统计 的 万 法 米 估 算 最 大 的 特征 值 , 最 天 的 特 往 值 和 可 以 被 2msx o 区 2 
2fs) 力 最 大 诞 所 跟 定 ,其 中 Yar 种 六 林 应 去 瑞 伴 杰 的 方差 利 坞 侦 ， 


移 疙 多 献 及 进一步 读物 : 
BanyV,，，anld Reif，1，1085， 记 Proceedings of the Seventeenth Annual ACM Symposium om Thoetrs :于 


fomrimmiting 【New York :上 ssocjation far Computing Machincry). [11 


2.6 奇异 值 分 解 


有 一 爸 非 常 有 用 的 技术 ,来 处 理 不 论 是 奇 措 的 , 达 是 数值 上 非常 接近 奇异 的 方程 组 或 托 
入 :在 许多 捕 况 下 ,高 斯 消去 法 和 z 分 解法 都 不 能 给 出 满意 的 结果 ,这 套 称 为 奇异 值 分 解 
或 SVbD 的 技术 ,会 精确 地 告诉 我 们 什么 样 的 情况 属于 该 类 问题 . 某 些 情 况 下 .,SVT 不 仅仅 
可 以 判 叫 该 问题 ,也 可 以 求解 它 ,向 该 次 提供 一 个 有 用 的 数值 解 .尽管 我 们 将 会 看 到 这 个 解 
由 不 一 先是 读者 想 要 得 到 的 。 

SVD 法 也 可 用 米 求 解 大 多 数 的 线性 最 小 二 友 方 回 题 ,这 -- 节 简要 地 介绍 一 下 相关 的 理 
论 . 有关 SVD 在 这 方 而 应 用 的 详细 探讨 放 在 第 十 五 章 中 , 那 一 章 的 专题 妇 慷 数据 模 开 法 . 

SVT 法 基 基 于 下 春 的 线性 代数 定理 ,其 证 明 超 出 了 我 们 的 范 臣 :任意 邮 xN 的 年 阵 六. 
其 行 数 好 大 于 或 等 于 列 数 N ,可 以 写成 一 个 好 XAN 的 列 正 交 邱 阵 U -个 只 XN 的 元 素 壤 

和 44 吕 二 


为 正 数 成 专 的 对 角 阵 外 ,以 下 一 个 闪 X 正 交 陈 的 转 器 矩 陈 的 乘 酚 形式 : 弄 下 慌 弱 下 这 
尖 生 这 的 各 种 兹 式 会 更 清 车 些 : 





短 阵 品 有 和 Y 大 是 王 允 的 , 蕊 们 的 列 是 正安 标准 化 的 


会 ia 1] 二 并 二 民 (2. 站 2 
二 
1 扫 1 执 闪 
人 PP 一 人 1 过 (2.8. 31 
J= . 


或 者 用 上 图 来 表示 : 


ou 下 Y7 | YY 


3 2 
计 于 Y 是 方 阵 , 故 也 是 行 正 交 标准 化 的 ,YY =1: 

当 蜡 习 六 时 ,SVD 分 解 也 可 以 执行 .在 这 情况 中 , 奇 工 值 mw 一 邓 一 1 孝 等 十 
僵 .并 县 1 中 机 应 的 灵 表 是 家 .这 上 时. 仅 对 下 .na 所 好 时 . 式 (2.6.2)? 成 立 。 

式 42.6.1) 的 分 解 总 是 吕 以 完成 的 .而 不 管 矩阵 基 否 是 奇异 的 ,而 用 这 个 分 解 几乎 是 毗 
-- 的 。 也 就 是 说 ,其 分 解 形 式 唯 一 息 人 对 习 的 列 ,W 的 元 素 和 和 的 列 (或 红 的 行 ) 能 司 相 回 
的 痪 换 .或 者 (形成 下 有 Y 的 任意 别 的 线性 组 合 ,其 在 W 中 对 应 的 元 素 仍 恰好 完全 胃癌 . 
对 十 Ms 的 情况 ,这 种 自由 苯 换 的 踢 要 结论 在 ,分 解 的 数值 算法 对 xj j= 邮 十 LA 刘 
求 点 回 非 零 , 而 这 R 一 池 个 零 奇 措 值 应 分 散 于 所 有 j 一 1.2. ,的 位 置 上 . 

在 本 节 的 释 司 ,我 们 给 出 -个 程序 svdemp, 对 任意 矩阵 A 进行 SVD 变换 .将 其 鸭 埃 小 
U{ 它 们 的 形式 是 相同 的 ?并 且 分 弄 给 出 W 和 立 .程序 svdcmp 是 基于 Forsythe 等 人 提供 仆 
程序 ,而 Forsythe 等 人 的 这 个 程序 又 是 基于 Goluh 利 Reinseh 原来 的 程序 .在 参考 写 ， 21 
-4 以 及 其 它 -- 些 地 廊 郑 可 以 找 刊 它 的 变形 .这 些 参 考 节 中 ,还 包括 对 所 用 算法 进行 的 广泛 
的 讨论 : 足 管 我 们 也 不 喜欢 使 用 黑箱 程序 ,但 我 们 还 是 要 求 读 者 接受 它 .因为 这 样 就 个 攻 上 禾 
太 多 功夫 去 研究 必要 的 背景 知识 了 .有 充 山 的 理由 表 蚜 ,该 算法 是 非常 稳定 的 .出 现 失 吝 是 
杉 例 外 的 情况 ,关上 湾 人 第 法 的 天 肯 分 概念 .( 洗 通 昌 阵 化 利 成 双 对 角 矩 踪 疝 形 世 ,党 变 构 前 
QR 过 程 洋行 对 间 浅 化 ) ,将 在 第 十 “ 章 书 进行 讨论 ， 

“19 。 





如 果 访 考 跟 我 门 一 样 对 湿 箱 产生 怀疑 ,你 会 想 亲 目 验 证 一 下 sydemp 是 否 完成 其 亿 也 
说 的 功能 。 这 很 容易 做 到 :任意 生成 … 个 提 阵 和 ,调用 该 程序 ,然后 验证 一 下 殊 阵 的 乘积 是 机 
入 吓 式 (2, 6. 1) 利 式 (2. 6.4)。 由 于 这 虞 个 方程 是 定义 SVTD 方法 的 唯一 限定 条 件 ,这样 做 (对 
所 选 是 的 A) 便 是 完全 御 头 知 尾 的 验证 了 。 

现在 我 们 来 看 看 SVD 舌 合 做 些 什 么 。 


2.6.1 方 阵 的 Svi) 


姬 果 上 矩阵 各 为 方 阵 ,假设 为 六 XR 阶 的 , 则 QU 和 好 均 为 相同 大 小 的 方 阵 . 宇 们 的 着 
也 很 容 上 计 算 :U 和 Y 是正 交 前 ,因而 它们 的 拥 就 是 蕊 们 的 转 贤 ;网 为 对 角 阵 , 它 的 所 也 息 
对 和 划 阵 ,其 元 素 为 原来 元 素 凤 的 倒数 .由 式 (2.6,. 1) 澡 直接 得 到 A 的 赣 为 

A 一 一 Vidiag(lce) ，U7 12.3,5) 
这 么 做 唯 “可 以 出 错 的 地 方 是 rei 中 有 一 个 为 零 , 或 其 (数值 上 ) 非 常 小 ,由 于 含 人 误差 导 臻 
丢 大 ,是 果 不 只 … 个 的 妈 ; 存在 这 种 问题 , 则 怎 阵 就 更 加 奇异 .因此 ,SVD 首先 喜 让 使 用 洗 清 
楚 灶 知道 这 种 情 况 。 

形式 上 ,年 阵 的 条 件数 定义 为 岂 , 的 最 大 元 与 最 小 元 的 比值 .如 时 一 个 算 阵 的 条 件数 无 
穷 太 , 则 该 徐 履 是 奇异 的 ;如 果 一 个 盾 阵 的 条 件数 太 天 , 即 其 倒数 超出 了 机 器 的 译 点 精度 ( 比 
如 , 单 精度 效 小 于 10 “或 双 精 度数 小 于 10 ?). 则 称 该 矩阵 是 “病态 的 ”、 

对 奇 伞 只 阵 , 零 空 间 和 各 值 域 的 慨 含 是 很 草 要 的 ,考虑 下 面 的 联 芯 方程 式 

4-x 一 (2.6.5) 
其 中 全 为 方 阵 ,b 和 x 为 向 屋 . 方 程 (2. 6.6) 将 和 定义 为 从 向 基 空 间 x 到 向 量 空间 hb 的 - 个 
线性 映射 ,如 果 A 荐 奇 漠 的 , 则 存在 子 空间 x, 称 之 为 零 空 间 , 它 被 映射 为 零 ,A.X=C。 索 空 
间 的 维 数 (可 在 x 中 找到 的 非 线性 依赖 的 向 量 个 数 ? 称 为 A 的 零 维 数 。 

还 有 一 些 通 过 入 可 以 "到 达 ?” 的 子 宝 间 b ,就 是 赔 存在 一 些 x 被 映射 到 其 上 .。 子 空间 pb 被 
称 为 A 的 算 域 . 值 域 的 维 数 称 为 A 的 秩 . 如 果 上 为 非 麻 异 的 , 刚 其 值 域 为 整个 向 量 空间 b， 
即 其 秩 为 六 ;如 果盘 是 奇 录 的 , 则 秩 小 于 六 ,事实 上 , 相 庶 的 定理 为 “ 秩 与 零 维 数 之 和 等 于 

用 SVD 究竟 租 什 么 呢 ? SVD 明确 地 构造 了 和 持 阵 鹤 室 间 和 值 域 的 正 交 标 准 化 基 . 特 别 
地 ,对 1U 的 列 , 若 和 与 其 标号 相同 的 元 吉 m, 为 非 零 元 , 则 其 是 值 城 的 一 个 正 交 标 准 化 的 基础 
向 草 : 对 Y 的 列 , 涯 与 其 标号 相间 的 ww; 为 零 , 则 其 是 零 空间 的 一 个 正 交 标准 化 基 。 

现在 ,再 看 一 下 A 为 奇异 的 情况 上, 联 立 线性 方程 组 (2. 6. 6) 的 求解 过 程 .首先 ,对 半 齐 
次 线性 方程 组 , 因 藉 b=0, 所 以 可 以 立刻 用 SVD 方法 求解 :对 应 于 mw 为 党 的 V 中 的 某 列 产 
牛 “个 解 . 

当 右 轿 项 向量 b 不 为 零 时 ,重要 的 问题 是 ,对 右 端 项 启明 5b 是 备 存 在 4 的 值 域 .如 果 存 
在 . 则 该 奇异 给 阵 确 实 有 解 , 事实 上 解 不 小 个 ,因为 索 空 闻 的 任意 向 量 (Y 中 对 应 mm 为 堆 
的 列 ) 进 行 任意 线性 组 合 都 可 以 加 到 x 上 、 

如 果 我 们 仅 想 求 出 该 解 向 基 复 合 中 一 个 特殊 的 有 代表 性 的 解 , 则 我 们 可 以 求 上 挫 有 最 小 
共度 x| 的 那个 解 . 下 面 介绍 使 用 SVI 法 求 沪 癌 量 : 如 果 zj 一 0 ,简单 地 和 将 1/roj 桂 换 成 零 即 
可 (设置 拓 一 9 的 情况 并 不 常见 昌 然 后 计算 (从 右 诺 左 ) 

x= 8 |diagclym 让 。007 -b) 《2. 6.7》 


0 


这 就 是 具有 最 汪 长 度 的 解 铝 量 , 在 堆 空 间 中 V 的 列 完成 对 解 集 的 要 求 。 
证 明 : 考 虑 |x 十 | ,其 中 x 后 于 堆 空 间 。 设 W :表示 有 有 零 元 素 的 矩阵 被 嵌 羽 过 司 的 
道 矩阵 。 
lx 十 x| 一 |IvwWw wuUTr.b 十 xi 
一 |VIOW TI UT b+YWVTN | (2 8) 
一 WwW- OU -b 一 vY7T-x| 
其 中 第 一 个 等 式 由 (2. 6.7) 学 出 ,第 一 个 和 第 三 个 由 是 正 交 标准 化 得 出 ,如 采 格 给- 天 右 
端 求 和 的 两 项 ,会 发 现 第 … 项 中 仅 当 zj 天 0 时 ,第 7 个 分 量 为 作答 ;而 对 于 第 一 项 ,出 汪 xx 
在 零 空间 中 , 仅 当 zj 一 0 时 ,第 7 个 分 量 为 非 零 . 故 对 x 一 0 时 ,其 长度 最 小 ,证 毕 : 

如 果 上 不 在 奇异 卸 阵 A 的 值 域 范围 内 ,出 方 穆 组 2. 6.6) 无 解 .但 值得 高 兴 的 证: 如果， 
不 在 A 的 值 城 中 , 方 各 组 (?z. 6.7) 还 是 可 以 构造 一 个 * 解 "向 量 x 的 .该 向 证 并 不 尾 全 ,xb 
的 精确 鲜 , 亿 在 所 有 可 能 的 向 基 x 中 , 它 是 在 最 小 二 琴 意 义 上 最 接近 的 解 。 换 襄 之 . 厅 程 (2. 
6.7) 求 得 的 x, 使 

rr 三 |4.X 一 b: (2.6 
最 小 . 数 = 被 称 为 解 的 残 差 。 
证 明 与 式 42. 6. 8) 类 似 : 假 设 对 x 加 上 了 其 个 任意 的 xz , 则 Ax 一 b 也 扣 上 上 了， 项 中 一 
&AX' 显然 记 在 A 的 侦 域 中 , 则 有 
| 和 一 b 十 扩 | 一 OU:WeYT YY Wi b 一 b 十 bb 
xs WWIUF -ivb 二 pb 
一 |IU LOW :WU DOU7 bl 
(WwW 一 Ur hh 一 7 .b 

〈 杂 ' 凤 -一 1) 为 对 角 阵 ,只 有 当 xj=0 时 其 第 了 个 分 量 为 非常 。 而 由 于 中 为 A 的 值 城 。 
故 上 共有 当 zw 天 0 时 ,7b' 的 第 ;个 分 量 为 非 零 ,因此 , 令 p =0 即 得 最 小 填 , 证 毕 ， 

图 2.6. 1 是 对 所 寺 论 SVD 法 的 总 结 。 

从 方程 (2.6,. 6) 以 来 的 讨论 中 ,部 已 经 假定 不 管 矩 阵 是 青 异 的 还 姨 非 奇异 的 .这 从 分 析 
上 看 自然 是 对 的 .然而 在 数值 上 看 ,更 一 般 的 情况 为 , 革 些 zi 非常 小 但 不 为 麦 , 即 拭 陈 证 
“病态 ?的 。 在 这 种 情况 下 ,7 分 解法 或 高 斯 消去 法 等 直接 解法 ,可 能 给 出 方程 组 的 形式 解 
〈 即 没 遇 到 零 主 元 素 )。 伍 解 回 量 可 能 有 非常 大 的 分 量 , 当 与 矩阵 & 相 乘 时 ,由 于 代数 上 的 相 
互 抵消 而 得 到 右 端 项 和 量 b 的 一 个 非常 炬 糕 的 近似 解 。 遇 到 这 些 情况 时 ,将 这 些小 的 训 , 雍 
为 过 ,再 用 方程 (2. 6.7) 来 求解 , 求 得 的 解 向 量 x 比 用 直接 法 和 保留 这 些 非 零 的 小 se, 的 
SVD 散 法 都 要 好 得 多 (在 使 残 益 |A*x 一 b| 尽 可 能 小 的 意义 外 在)。 

春 起 来 这 可 能 有 点 矛 于 ,因为 ,将 奇异 数值 化 为 零 相当 十 把 要 求解 的 方程 组 所 生成 的 
个 线性 名 合 抛弃 .矛盾 的 解决 在 于 我 们 抛 奔 的 这 个 方程 的 线性 组 全 由 士 舍 人 误差 已 变 得 非 
常 精 . 坡 好 的 情况 也 是 无 用 的 ,而 通常 比 无 用 还 要 糟 ,因为 它 将 蔷 不 多 已 是 零 空 间 襄 量 的 解 
沿 某 个 方向 " 拖 " 山 了 上 一 点 .这 样 , 它 就 挫 进 了 售 人 误差 而 使 得 效 养 |A.x 一 p 更 大 了 ， 

SVD 方法 不 能 冒 马 使 用 .必须 谨慎 地 确定 将 小 rei; 化 为 汰 的 疼 值 ,而 且 ( 或 者 ) 必 须 兽 虑 
清楚 多 大 的 让 算 残 益 |A*x 一 b| 可 以 接受 。 


人 





生 的 等 空间 














A.x: dt 的 解 | 
13) 
引 ) 非 痛 算 草 味 六 将 -个 吕剧 京 间 贞 总 有 一 个 其 有 机 下 绑 数 扫 风 城 窜 阿 : 玄 训 x 梓 睦 射 矣 昌国 上 攻 注 岂 克 
各 生 .x=b,tbi 奇 基 给 阵 羡 将 “个 问 星 空间 明 射 到 佐 继 斌 入 -这 中 用 -个 平面 贞 时 到 - -条 直 线 去 <， 访 由 
线 亲 作 凡 的 * 值 坡 ", 生 的" 杰 空 宙 "被 陕 射 成 替 ,as -的 解 集 包 他 任意 个 特 内 钴 直 二 家 宣 凤 的 尾 宣 玉 
晤 ,这 由 和 平行 于 党 窑 间 的 直线 均 忌 : 硒 并 半分 租 司 VD)? 竺 竺 谨 宣战 近 的 特 帕 胖 , 外 图 示 . 吉 本 在 和 让 全 
域 范 针 内 .所 以 息 'X=e 无 佣 -38D 找到 和 怠 尘 “ 滋 音 多 二 消 虹 证 的 折 应 朋 . 外 站 2 的 痢 , 邵 图 去 





| 多 2. 瑟 .上 


作为 示例 ,有 一 个 "加 代 " 程 序 svbskb 泪 来 评价 方程 (2.6.7), 并 得 到 右 庙 项 b 台 一个 角 
向 檬 x, 著 求 先 漂 川 svdcmp 计算 出 矩阵 和 的 SVD 彩 式 。 注 意 该 程序 假定 已经 将 小 为 和 站 
为 全 了 ，, 因 沪 程 序 不 提供 此 项 功能 ,如果 还 没有 将 小 T, 化 . 则 该 程序 跟 别 的 直接 妆 法 
样 是 "病态 "的 .这 样 就 误 用 耻 SYP 法: 





并 ucluue ”Drutu,b? 


Vui syvLxsb (oa * >uy Toalw Posc * vincxn irtny fionrbr yy fox  ) 
求 As 了 的 解 马 其 . 其 中 下 山 sydemp 旗 司 的 禾 络 和， 
各 打 维 数 , 妹 方 亚 来 说 “此 相 间 b 1 nm， 为 纺 和 有关 放 :10 诈 簿 出 护 舱 沿 司 第 入 芋 瑟 肢 生 和 


用 不 后 的 时 全 席 =-， 


1 


让 





了 2。 


int jj jii 
于 1oat 5 ,tt 四 b; 


tmpbevectortl,n)i; 


Yor 《js1;j<=nij+t) 工 这 算 上 7 
且 一 站 . 癌 ; 
诺 Cefj) 1《 仅 当 及 人 人 人 下 
人 or 【ist;ic<E;i++) 3 + 5 [ 林 虽 
s /wu[j]i 这 里 内 乒 ,从 
了 
tmp[]]=s; 
for {j=ti;j<rn;j++) { 将 外 阵 泰 以 上 以 得 到 钟 
ge=D.D; 
for (jj=l13jj<=<hijj++) 8 + w[j][jj]*#tmp[j5]3 
x[j]=s; 
了 


ree_vectoritap ,1n) 


注意 ,sydemp 利 sybksb 的 典型 用 法 表面 上 跟 ludemp 和 lnbksh 的 热 焉 用 法 很 相 象 :这 
晨 种 情况 政 ,都 将 左 端 矩阵 A 仅 分 解 - -次 ,然后 可 以 对 右 端 项 使 用 该 分 首 一 次 .或 地 入 太 问 
的 右 映 项 使 用 该 分 解 多 次 .最 重 旧 的 不 同 之 处 在 于 ,在 调用 sybksb 之 前 理 对 疹 异 数值 进行 
-下 "编译 ”: 


Tudefou NN ... 
ftoat Winax wmniny x a yy 着 闪 姑 ，> 首 VSX 
It ly 
jor(i=10s = Ni :十 攻守 如 果 不 想 破坏 ,将 其 天 未 存 入 
for j 盖 13 所 二 
uci jj .一 ai 六 
svdctnbfuNN wsv)i 对 方 孟 a 进 行 SVD 


WIIEX 一 中 
for0 一 1 一 NI 二 十》 站 (w[ 门 wmax) wmax=w[ 引 ; 
win 一 wmax# ]， ie-6 设置 的 允许 态 异 昨 为 非 党 的 较 值 , 比 常 仇 是 
典型 直 , 介 外 是 成 不 变 的 . 立 弄 据 谋 用 条 件 
这 着 改 式 
for(0j 一 15< 王 N3 十 一 ) iiCwr 让 -wminy) w[ =0.0， 
svbksbtuyvwvyJN,Nb xs); 现在 可 以 国民 了 


2.6.2 方程 数 少 于 未 知 数 的 SVD 


如 果 方 程 数 邮 少 于 未 知 数 N , 则 木 能 指望 得 到 唯 - 解 了 .通常 存在 一 个 N 34 维 的 解 
系 。 如 提要 找到 整个 的 解 空间 , 则 SVBP 可 以 完成 这 项 工作 ， 

因为 <<N ,所 以 SVD 分 解 将 产生 六。 1 个 震 或 可 忽略 不 计 的 记 ，.M 个 方程 中 的 退 
化 情况 ,还 会 产生 额外 的 堆 ze， ,在 调用 sybksb 之 前 ，- 定 要 保证 找到 这 些小 的 .并 将 其 
化 为 过 , 则 可 以 得 到 特殊 的 解 向 量 x .路 以 前 一 举 ,Y 中 邓 应 于 堆 化 ww 的 记 是 基础 解 向 荆 ， 
共 线 性 组 台 如 上 特定 的 解 就 居 成 -个 解 空间 。 


2.6.3 方程 数 多 于 未 知 数 的 SvD 


这 种 情形 将 在 第 十 五 章 中 遂 到 ,对 超 定 的 线性 方程 组 ,我 们 希望 找到 的 是 其 最 小 … 乘 
解 。 几 图 表示 ,要 求解 的 方 得 组 为 


全 
1 
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| 1 人， 
和 三 上 面 方 阵 语 深 下 所 给 志 的 证 明 , 不 用 修改 就 适用 证 方 程 组 多 于 木 知 数 的 司 咒 , 尿 小 
箭 解 向 景 关 由 虑 (2.6.7) 给 出 .对 提 广 阵 的 情况 元 下 ， 


二 大 
昌 加 Y | ， | U7 1 2 





一 般 铺 况 下 , 惩 阵 W 不 是 奇异 的 .就 没有 roj 要 被 设 为 零 :然而 ,偶而 A 也 可 能 是 列 退 
化 的 . 种 情况 下 ,就 需要 将 小 的 ww, 值 化 成 党 了 。VY 中 相应 列 给 出 的 x 的 线 ' 本 组 合 ,这 时 即 
使 很 记 是 超 定 方程 组 来 说 ,其 限定 条 件 也 要 变 林 

有 时 候 , 尽 管 由 于 计算 上 的 原因 不 必 秋 化 任何 wji, 然 而 .读者 可 能 会 十 意 堵 些 特别 小 的 
值 :它们 在 V 中 对 应 的 列 是 x 的 线性 组 合 ,但 它们 对 读者 约 数 据 并 不 敏感 .事实 上 .法 瑚 可 
能 起 费 零 化 这 些 zw 以 减少 其 自由 参 基 的 数 日 .这 些 问题 将 在 第 十 五 章 中 , 作 进 -一步 的 讨 
论 。 
2.6.4 构造 正 交 标准 基 


假设 在 好 维 向 其 空间 有 N 个 出 旺 .< , 则 六 个 向 最 跨越 了 和 尾 个 向 晤 空间 的 一 些 子 
空间 。 我 们 经 常 想 要 鸡 造 跨越 相 问 了 空间 的 Y 个 癌 量 的 个 正 交 标准 基 . 教 科 书 中 的 作法 
是 ,通过 Gram:Schmidt 正 交 化 ,出 :个 向 量 开始 ,然后 竺 次 扩展 - 维 了 空间 .然而 从 数 倩 上 
在 ,由 十 甚 内 在 的 售 人 误差 ,单纯 的 Gram 一 Schmidtr 让 安 化 效果 很 甘 。 

寻 一 个 子 空 间 , 确 造 沾 交 标 蕉 大 的 正 俏 办 法 是 ,通过 SVD 方法 : 悔 造 一 个 MX 的 天 
阵 上. 共 列 是 已 有 的 向 量 , 将 该 拭 阵 交 给 sydcmp 运行 -- 帆 . 则 和 阵 UJ( 军 实 上 svdcmp 输 
出 的 吕 奉 代 了 A) 的 列 就 是 党 求 的 正 交 标准 基 圈 量 。 

也 许 还 应 检验 一 下 和 输出 的 ro 中 是 否 含 有 零 值 . 如 果 有 , 则 事实 上 跨越 的 子 空间 不 是 六 
维 的 iU 中 对 应 于 roj 为 零 的 列 应 从 正 交 标准 基 中 去 除 

(第 2. 10 节 中 讨论 的 @R 因 式 分 解 也 可 构造 一 个 正 交 标准 基 , 见 [5])。 


2.6.$ 矩阵 的 近似 


注意 方 理 (2. 6. 1 可 以 重 写 -下 ,将 生 意 筷 阵 4 表示 成 日 的 列 和 YY" 的 行 的 外 积 之 和 
的 形式 ,奇异 数值 4 作为 “ 权 因 子 ”， 


N 
" 订 了 ， 二 
几 ,; 一 > ae 7 (2 
丰 


如 果 媒 到 惩 阵 的 和 大 部 分 奇 措 值 zw; 都 非常 小 的 情况 , 则 仅 用 (2.6.13) 和 东 的 “小 部 

分 由 ,就 可 简 到 A 的 很 不 错 的 估计 值 . 这 意味 着 仅 震 保存 少量 的 辣 和 的 列 ( 根 同 的 吉 列 ) 

就 可 以 恢复 称 个 矩阵 . 且 精 度 很 高 .同时 法 意 到 用 此 近似 的 抱 阵 去 磁 向 其 x, 也 是 非常 党 效 

的 :可 将 x 与 从 个 仓储 的 Y 的 列 敌 点 积 , 放 二 以 相应 的 比例 值 tw, 然 嫩 分 吕 于 以 对 应 的 
。 5。 


的 列 , 并 求 累 加 和 .如果 盾 阵 用 很 少 的 天 个 协办 值 来 近似 . 则 计算 Asx 仪 需 乘 人 约 大 (4 一 
入) 次 ,而 不 必 象 求 整 个 矩阵 时 用 WA 次 ， 


2.6.6 _SVD 算法 本 


下 面 是 用 于 构造 任意 人 囊 阵 的 奇异 值 分 解 的 程序 .有 关 方 法 的 讨论 参见 第 11. 2 六 一 第 i1、 
3 节 和 参考 文献 [4 一 5]。 


共 inciude <<math. h> 
并 inciude ”nrutil.bh" 


void svdempbrfiloat 关 关 yint ms int ny float w[ fitoat * tv》 
扒 定 御 阵 #[L1..p][1..z], 本 程序 求 其 奇异 值 分 解 呈 = 一 Cs 和 Y7 和 划 出 纸 阵 已 保存 在 数 蛆 # 中 由 过 异 秆 构成 的 对 角 
阵 引 作为 出 愤 用 w 门 3 表 基 . 输 澡 囊 阵 "不 是 共 转 轩 形 式 Y 站 用 vi.n_51. .nj 发 未 。 


?10at Pythag(zloat 习 ， 这 LO&at b) ; 
p 世 芋 1a 多 二， 半 二 有 村 ] 本 ,并 ,1 ,Pa 
Y1oat amncxE,C, 了 区 hb, 由 CB1@: 工 , 玫 ; 和 TVA 1 


xviavectort1,n)] ; 
癌症 C 委 人 二 DO 人 日 .0 归并 成 双 对 角形 式 
了 cF 《im]1;Y《 aa ;I+ 寺 》 攻 
】m 主 + ; 
菩 1[ 开 ] 一 和 C 生 | 二 让 丰 7 
要 一 怀 二 包 人 和] 二 w0 ，) 
ig fi 《一 四) 工 
TO 【rm 二 ;也 Ka 本 ;了 t+ 十 ) BC 和 1@ + 了 aber[X][i])i 
工 z 《ECale) 工 
EOT (mii; caix++] 并 
久 [X] [1] /= acalei 
3 4= 量 [X] [+]wsafxl[i]; 
】 


了 一 [ 交 ] FEi] ; 

gm -SIGN(sqrt(s) T)i 

下 中 区 ~ 条 | 

a[i] [it-gi 

for 《j=1ij<=nyjy+) 
for (em0.0,z=iK<mai++) 3 + 一 a[k][i]jsa[k][j]: 
fei 
Por 《Esc<mmaikk++) 妈 [k][j] +m ea[x][i]; 


了 or 【〔x=1 ;各 <mpiX44》 性 [X] [i] wm mcalei 
] 
】} 
全 [二 ] 一 二 C 和 1 中 多 ; 
区 =Em 人 Ca1bia0 .Di 
if 人 1 < 可 本 了) 并 
二 or 《ks];z<ea;x++) scale + 了 aba[sa[il[x]); 
if [Scale》 ({ 
or 《= 工 ;了 <m 立 i++)》 1 
a[ijCx] Ze Bcal6; 
3 + 昌 [j] fk]*#a[i][]， 
了 
T=afil [1]: 
区 ”~STON[Sqzt{B) IT) 1 
hfeEg-B3 
妈 [ 并 ] [1] 一 和 - 匡 1 
?or 〈ks=1 ; 基 Xen;X++) YL[IX]msati] [k] /hi 
for 〈j= 工 id<mmij++y) 
tor 【kw=0 0,k=IiXc=a7++) m 4 af[j]Cx]s*afi][k]; 
ot 【al1ix<spixr+) @[j] [x] += zsrvl[x]; 


for 【km1;X<z=aik++) 3[i] [kx] *= SCalei 


anDTmsFMAXK(anorm,〔[eabs(zy[ill+fabskrvlfiy)); 


了 
for (araiiymlii--) 攻 求 丰 消 长 欣 果 加 和 和 
it [Ki<Rl 荆 
af 《g) 二 
for (je=1:j<=a;j++) 用 旭 次 除法 避免 目 能 的 上 溢 
v[jjifi]= 人 (ar[i][jjxzarirl])7g; 
Yor 《j]=1;j<raij++) 1 
for (8*0.0,Xk=1;kc=Dnik++) 6 += a[i][x]jsv[fx]l[r3]; 
for 〈《k=1;xX<=nikx++) Y[x][j] +* sey[x][i]; 
】} 
for (j=1;j<=n;j++) v[a][j]=v[j][i]=o.0; 
v[i] [it]=1.0; 
gmTyli[i]i; 
了 
了 
for 《imIMIN (由 , 虽 );i>=dTii--》 乓 求 讶 端 变换 累加 郑 
工本 十 于， 
Eu[i] 
far 〈jm1i;ij<en;j++) alij[jjs0.0， 
iT 《Eg) 工 
gm1.07gi 
for 【jam1i;j<mn;j++)》 芯 
for (8m0.0ke1;k<emik++) S + alxkj ileark]Lj; 
fm=fs/a[i][i])egi 
.for (ke=iik<=mixk++y a[k][j] +a fewafx][i; 
】 
for (j=i)j<eaij+r+) a[j] [i] wm 区: 
} ls8 for (j=iij<=<@;jt++) a[j][i]mD.0; 
++afi]l ri]; 
】 
for (krai;Xy>ml:xk-~) 攻 妈 对 前 阵 对 钊 比 : 对 奇异 数 佳 插 压 
for 《itsg=tiite<=30i1tB++) { 帮 所 归 作 的 迁 伐 币 床 
Y1ag=1 : 
for 【lz=KiL>=1;1--] { 敏 分 解 测试 
nme1-1l; 计 意 ryl 「i 总 为 过 
if 【(fioat)yftabas(Ivi[1I])+anora) 一 Sogm) 1 
TLaE=Oi 
breax; 
了 
if 【《(t1oat){taba [W [zzD] +anorm) = anora) breai 
】 
了 《El18g) 区 
c=0-0: 如 果 1 :1 刀 请 去 frvl 上 
gm1.0i 


ftor 【islii<eskiz++y T 
f=ayrvi[i]i; 
rvl[ijecerviCi] ; 
if 【《[floag]) (Fabstzy+anormn) == aaorm) breax; 
Eeew[i]; 
=Pythag'I.g] ; 
Y[1]mh; 
be=1i.DZAh; 

Cg*h 

8 一 ~ 寺 hi 

Tox 《jz=1i;j<sRIj++) 半 
ya [fam] ; 
Zz=a[rjJ] [t+]; 
为 [j] [mm] 一 y9C+Ze 右 : 
[j] [Ci]=zc-ywSi 


] 


}》 
2=V[kj i 
if [1 == X) 工 收 攻 
这 (z< 0.0) 工 站 太 惕 匣 伪 滥 气 
v[k] = ~zi 
for 【j=ft;jcsnm;j++] v[J] [kg] = ~-z[j 订 ULkl;_ 
] 
byreakr ; 
} 
if 【its == 30) nrerrorf'1no CORVaTZePce iD 30 3vdemjhp iterationhe"); 
x=<a[]J; 从 底部 > 二 上 上 成 移入 
DimX 一 1 ; 
y=w [nm] 
geryl [nm] ; 
hervi[k] ， 


下 =((7-Z] 中 [ytZ)+( 区 -hh]} 二 (名 th)] AK2.0zbwy] ; 
Bg=pythag(T,1.0); 
T=((x-2)*+(IT+Z]+b+{ttyrfT+SIGNKB ,于 )]))-h)yAx: 
cmg=1.0; 王 面 进行 OR 态 换 
for (j=]3j<=nma;]++) 1 
4 
攻 =Tv1Fj]; 
y=u[i]: 
h=se8i 
只 =C"8， 
Z=pytbagtt,h)i 
Tv1[j=z; 
C=Y/zi 
5=byz; 
下 = 工 rC+grS 1 
品 = 玫 *C-XnmSi 
hsyss) 
了 zx 
for 《jj=lijj<s<nijj++》{ 
x=*vljj] [j] ; 
7=v[jj] [i] ; 
y[j3] [jj=x*c+zas5i 
vfj 让 [ii]=zec-xys: 
】} 
之 = pytDbagf?,h); 
立 [j] =z; 如 果 Z “可 短 环 任意 次 ， 
if 5z) 
Z=1,D7z)， 
己 本 王 本 乙 ) 
号 一 hy 开 
】 
天 =C* 训 二 By 
天 =C# 了 一 明和 区 


fozr {jjs1;jj<=mi;jj++)》 1 

y=a[jj] [ 联 ; 
zxa[jj] [i]; 
fjj] [j] =ywz+2433 
九 [jj] [ij<zyc yy 可 1 

} 

YY1[L]=0.0; 

TY1l [Kx]mf: 

如 [%] m 工 5 

}》 


+*ree_vectortrvl 1) ; 


闫 inteludte 二 .mathbb 
基 include ”nrutil.n” 


floaty Pythagtfiost ay fipet b) 广 宁 十 克 和 没有 破 汪 全 汶 动 下 禾 ， 


有 man ilhbss ,absh : 

absa 一 fabsfa)' 

absb 一 fahsth); 

计 L(absz 六 absb) retulIn absa * sdrtf1.0--SQRCabsbsabsay)》 

else retutrhn fabsb 一 一 站 各? 00 absb * sc 十 SQRCabsazabsb)105 


(Csvdemp ,svbksb 和 pythag 程序 的 双 精 度 版 本 ,我们 称 为 dsydemp ,dsvbksb 利 dpythag , 它 
们 被 用 于 第 5 13 节 中 程序 ratlsq。 读 者 可 以 很 容易 实现 数据 转换 ,或 者 从 数值 算法 程序 磁盘 
中 获得 这 些 转换 好 的 程序 .) 
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2.7 稀疏 线性 系统 


如 果 一 个 线性 方程 组 系统 , 仅 有 相对 很 少 的 一 部 分 苑 索 ww, 为 丰登 , 则 称 共 为 稀 辽 的 .过 
这 类 问题 ,用 通用 的 线性 系统 求解 方法 是 浪费 的 ,因为 在 求解 或 求 道 矩阵 时 ,运算 量 为 7) 
6) 的 大 部 分 算术 运算 都 用 米 处 理 零 元 素 。 更 有 甚 者 .希望 求解 的 问题 可 能 大 到 已 超出 了 
可 用 的 存储 空间 ,而 保留 这 些 无 用 的 鹤 却 很 梁 费 空间 。 注 意 , 对 任意 稀疏 矩阵 的 求解 方法 ,不 
外 乎 有 是个 明确 的 月 的 (它们 并 不 总 能 局 时 达到 ) ,省 时 间 并 且 { 或 者 ) 省 空间 ， 

在 第 2. 4 节 中 ,我 们 已 考虑 过 一 种 原始 的 稀 焉 矩阵 模型 , 带 状 对 角 和 矩阵。 在 那里 我 们 疹 
到 .可 能 伍 到 既 省 时 间 CN* 降 至 N 数量 级 ), 又 省 空间 (W: 降 宇 N 数量 级 ) ,求解 的 算法 诛 册 
上 无 异 于 一 般 的 《7 分 解法 .不 过 是 注意 到 如 何 记录 零 元 素 而 应 用 得 巧妙 些 回 了 .大 部 分 求 
和 解 稀疏 矩阵 的 实际 门 题 都 有 问 样 的 特征 .它们 基本 上 部 采用 葵 解 法 或 者 类 似 巾 斯 --- - 苦 当 
的 消去 法 . 伺 必 须 进 行 认真 的 化 化 ,以 减 作 被 称 为 填充 项 的 效用 .这 些 填充 项 坡 初 号 抑 宗 。 
而 和 苗 求 解 过 程 中 必 和 伏 蛮 成正 忆 匹 素 .为 尼 必 须 保留 它们 的 存 信守 困 。 

求解 稀 顺 方程 组 的 直 议 六法 则 主要 是 依赖 上 和 矩阵 的 稀 基 模 式 。 常 见 的 模式 ,或 者 在 化 简 

- 般 形 开 第 阵 时 所 机 的 一 毕 有 用 子 模 式 . 都 已 有 了 特定 的 名 称 及 竺 定 的 解法 ,这 里 不 再 加 铬 
幅 详细 介 济 下, 参考 书 口 歼 在 本 节 最 生 . 读 首 可 以 外 学 :- 些 更 专业 的 尖 容 .下面 列 出 的 各 误 
“大 图 2 7.1)5[ 供 使 用 . 
， JR。 


全 


己 LvA = 
四 
| | 加 
中 


娶 


芭 





性 
二 


(oa) 带 状 对 戎 生 阵 :5 块 状 二 莉 算 际 :1e) 块 状 于 表征 桥 ;(di 单 过 镶 连 块 状 对 用 抵 阵 村 1 丸 过 狗 这 
块 状 对 坊 征 阵 !f 六 昔 边 氏 边 块 状 :人 衣 惠 括 :(81 娘 所 带 状 三 捅 记 阵 ;有 和 人) 分 别 广 单 过 本 相让 
让 过 带 牧 对 组 日 阵 ;和 引 ? 为 其它 形 专 .( 见 Tewarson 的 书 [12) 


图 2.7.1 靖 撤 外 阵 的 “ 些 际 准 形式 


， 二 对 朋 和 矩阵 
。 带 宽 为 对 的 带 状 对 角 所 陈 (或 带 状 更 阵 ) 


带 长 一角 化 阵 
， 块 状 对 前 托 阵 
， 块 状 二 戏 和 角 扎 阵 
“二 状 一 乡 眠 阵 
。 挟 带 状 拒 阵 
” 单 按 ( 蕊 双 边 ) 镶 边 块 状 对 角 抑 阵 
， 单 这 (或 疏 让 ) 煞 和 边 状 三 角 妃 阵 
*。 单 入 (或 公演) 缠 边 带 状 对 贡生 洗 
单 议 (或 双击 ) 镶 边 攻 状 二 仙剑 阵 
， 其 它 
此 外 ,还 应 知道 一 些 在 求解 二 詹 或 向 维 俩 癌 分 方程 丰 , 遇 到 的 竺 殊 芍 大 朴 矩 阵 形 并 和 
见 第 上 刀 章 ， 


如 果 持 殊 的 稀 踊 模式 不 是 革 一 的 ,那么 读者 串 能 筑 革 涝 出 分 析 /* 因 子 分 解 * 运 算 程 序 包 . 
它 能 自动 地 计算 出 怎样 减 备 填充 项 .分析 步 又 对 每 个 稀世 模 虑 只 做 一 次 .因子 &| 村 
个 适合 该 模式 的 特 呈 矩阵 做 - 人 的 记 淇 项 进行 - -次 .人 天 
的 敬 考 文献 参见 Jaceobs 的 著作 .NAG 库 ” 且 分 析 : 朵 ， 人 
那儿 也 可 得 到 一 个 稀 朴 矩阵 计算 的 程序 集 , 如 回 邯 租 人 学 笑 草 拭 阵 程 宁 但“ 。 

应 当 清 楚 , 婴 类 似 出 主 泡 消去 的 正规 巧 7 分 解法 相 比 : 雪 隆 朴 矩 阵 解 法 为 减少 填充 动 于 
算术 运 自 次 数 ,进行 了 特殊 的 次 序 交 换 和 消去 ,… 般 洲 说 ,其 算法 的 数值 稳定 性 机 太守 降 引 
将 求解 的 线性 向 题 按 比例 变换 其 系数 ,使 其 非 党 元 吉之 可 可 进行 其 值 比 较 , 这 衬 ( 嫩 果 计 这 
到 的 话 ) 号 会 改善 这 种 黎 定 性 问题 ， 

在 本 六 剩 下 的 内 容 中 ,我 们 提供 两 种 方法 .它们 可 届 来 求解 - 般 的 稀 极 迁 陵 而 题 ,Il 症 
不 依 四 寺 称 梳 模式 的 具体 情 郑 - 


2.7.] 谢 尔 曼 . 英里 森 公 式 


假定 读者 已 费力 求 出 了 方 阵 和 的 迹 息 现在 ,又 起 对 生生 点 "外 "变化 ,比如 下 炊 一 全 
元 素 4 或 是 更 换 几 个 元 素 , 或 更 换 一 行 ,或 更 换 询 。 有 没有 办 法 直接 计算 人 “中 相 虑 与 
变化 的 还, 币 不 必 重 复 个 复 对 的 过 程 呢 ? 有 的 , 奸 果 村 问 基 由 和 v 来 说 恋 队 乡 起 为 

上 > (ADVY) 人 

如 昌 唱 为 单位 向 世 e 则 式 (2.7. 1 尾音 晤 元 素 贺 到 第 了 行 芋 :全 顾 “下 :Siv 大 于 短 陈 瞧 算 
7 行 、 算 询 元 素 值 为 上 的 第 ， 项 与 v 的 第 了 项 之 各 )。 刻 村 是 单 使 问 量 e 刚 (2.7 1 入 库 
的 素 如 条 第 了 列 上 .如果 了 和 和 栓 好 交 咱 单 售 疝 量 e 和 e 则 覃 许 的 需 公 加 在 元 素 上 上 

谢 尔 曼 莫 于 豆 公 起 给 出 送 和 阵 (A 十 uv) , 排 尼 如 下 : 


(和 下 人 V) 一 0 一 上 yy 
一 (1 -和 一 
三 直 工 < 寅 攻 NO AAA -ev) 
1 DY 
一 点 | 一 和 ET 站 汪汪 
5 二 


" 060， 





鞍 中 
入 一 YY 和 
戈 (2 了 .25 第 二 行为 丁玲 蜡 级 旷 展 盾 。 第 汪 行 扯 册 息 外 积 相 结合 将 怀 最 关 分 解 关 . 
式 人 ,7.2) 的 月 途 在 于 :给 定 让 一 问 旦 WEY- 我 舍 且 需 灾 当 两 个 旭 性 的 于 人 属 生 生生 
拒 的 点 积 、 
2 -AU 全 


使 可 得 到 和 欲求 首 变 化 后 的 道 





灶 个 过 程 仅 需要 3 次 乘法 于 次 数 闪 不 多 的 机 法 (如 果 ， 区 为 单 你 加 攻 . 则 次 直 王 全 

兴 尔 曼 - 莫 申 森 公式 可 直接 用 来 求 租 “类 稀 落 算 阵 硬 题 .如 果 已 方 个 性 圳 计 外 四 
道 的 算法 (例如 江 对 角 工 或 其 它 标准 稍 枯 所 和 阵 的 形式 )， 人 二 
相关 的 介 更 为 仇人 洒 形式 的 审 阵 -例如 短 次 深 如 :和 行 或 : 草 : 注 意 . 刘 尔 昌 : 英 由 琳 公 起 可 以 过 
续 使 用 -一 次 以 上 ,每 次 基 用 最 注 更 竺 过 的 入 〔 太 得 2.7.5). 闫 然 ,如 宁 不 得 六 性 下 特 “ 行 ， 
则 又 回 到 了 入 次 的 方法 了 . 妆 前 面 的 党 村 兴 全 人大 几 倍 , 伺 失 去 三 芋 下 法 季 生 加 
长 处 - -~ - 锥 而 要 谋 伺 舍 采 。 

对 另外 - 些 黎 朴 重 孟 问题 , 谢 尔 曙 - 莫 轨 森 公 蕊 不 能 此 接 率 用 ,上原 册 很 篇 蛙 , 着 请 党 个 
赣 挟 防 A“ 基 行 不 通 的 .如 昌 仅 要 小 改 mv 的 - : 鱼 . 用 求解 的 线性 问题 为 


(Aury xs h 3 
则 可 按 十 摧 方 法 来 做 。 允 矩阵 度 用 假定 尼 通 用 的 快速 算法 : 灯 求 解 熙 个 畏 甚 困 是 
各。*yY = hb 和 点。? = 日 全 


藉 向 蜡 y 和 z, 四 此. 丫 (2.7.20 式 右边 秉 以 b, 得 
2 GAS ， 1 8 
2.7.2 周期 三 对 角 系 统 


所 谐 的 周期 二 寺 角 系统 会 经 常 遇 到 ,而且 证 用 刚才 所 述 的 方法 利 申 谢 尔 曼 - 黄 里 太公 二 
求解 的 一 个 很 好 的 下 例 。 方 程 形 式 为 








Ti 必 和 由 1 

1 ， 

:和 1 1 

| + | | | 旦 全 
GT 和 《  T 二 1 

L 女 了 昌 ef pa 


这 是 “个 二 对 和 角 系 统 :只 是 角 上 上 有 邱 阵 苑 素 e 向 有 ,这 种 形式 此 型 地 由 岳 有 汶 星 性 这 欠条 件 
的 有 限 盖 分 微分 方程 过 生 ( 第 19. 4 人 入) 

我 们 使 用 诗人 各 曼 黄 蠕 雁 公 式 . 将 流 系 统 作 为 二 疙 朋 系统 册 上 于 个 修 止 秋生 几 考 奏 (2 
7. 中 的 记 法 :将 何 基 wu 和、 全 义 为 











二 。 
本 | 
| | 
| | 区 
和 
可 
[有 L ary ， 
此 处 y 暂 且 是 任意 的 :矩阵 A 二 式 (2.7. 9) 中 的 三 对 角 部 分 ,但 有 了 两 个 项 修改 过 ， 
看 一 上 7， js 一 用 (2.7, 1]， 


现在 ,我 们 用 标准 的 三 对 和 角 算 法 来 求解 方程 (2.7.7) ,然后 由 等 式 (2.7.8) 得 到 解 。 
于 面 的 程序 cyeiic 实现 了 该 算法 ,我 们 取 任 意 参数 7-- 一 名 ,以 避免 在 (2.7. 11 ) 的 第 - 
个 方程 中 造成 精度 损失 .而 在 第 二 个 方程 中 不 会 产后 精度 损失 .因而 可 以 做 不 同 的 选择 


了 玉 include ”nrutdl.h” 


void eyclic (tloar af ,tlost b[]，flearc[]iloar alphasfloat betttvfleat rL_ iloal xunsigned long fy 
汶 方 程 {2.7.9) 纵 出 的 * 周 期 ?线性 方程 组 的 “个 解 盯 展 XD. .ma.b:c 和 了 方 输 六 问 量 ,其 丝 数 的 是 [上 : .pha 


和 1 是 生计 名 二 的 直达 供 .输入 奔 不 钙 履 上 


yoid tridag(Tloat 中 []， 节 1oat b 纪 ，float c[]，float T[- ，float ur]， 
unaigned lung 38)i 
Ungtghed long ii 


?1Loat 了 act ,gammza ,bb ,DeZi 


放 人 aa < 2) nrerrorf"a too 9pal]l in Cyclen) 

bb=vector(1,n) ; 

devectorgi pn) i 

Zemvdctorr1n)i 

Batmaa = -bft1] ; 形成 ph 1.4 时 避免 贞 理 下 这 在 

bb[1]=b[1] -ganuna; 为 疾 改 过 的 一 对 角 系 统 设 让 对 角 线 

bbFoj=b[n] -alpharbatsyAgsmtna ; 

fter (ie2;iicnii++) bb[i]=b[i]; 

tridagtaivbb,cr.xia)i 求解 丰 ,x = 

[1] = 多 amata ; 设 普 癌 萎 

u [njwalPhai 

for 《isn2;i<n;i+f+) Ar[i]xO.Oi 

tridag(a.bb,c,u,z.n); 求 租 A .zu 

fact=《[1]+betasx[n] /Eannayy 形成 YA + zh). 
1,0+rzT1]+betawz [n] /gammal ; 

Tor (ilii<<pii++》X[il] -”Tactwz[i]; 各 此 祖 到 解 问 明 x 

于 rea_Vecror(z ,1,D) 1 

frea_vactor(u 1,n)i; 

reg_yestorfbb,I,); 


2.7.3 伍德 伯 瑞 (Woodbury 公式 


晰 洲 野 氏 改 超过 个 的 厌 - 则 不 能 扑 复 池 便 州 生产 光 二 :此 为 没有 存储 新 的 和 二 加 不 蓄 在 敌 定 一 深 
后 前 王 地 上 解 辅助 亲 题 人 27.77 .要 诺 代 之 ,人 硬 德 伯 瑞 公式 旺 谢 汞 总。 贞 导 不 公 坟 的 成 块 诬 阵 转 摘 形 式 . 
(和 TY， 1 “0 ， Re 0) VIA (2. 7 12) 
j 站 有 惧 计 党 一 伴 是 关公 辣 币 子 本 了 不 是 二 陡 由 是 入 是 天 二 关中 末 下 并 于 要 后 可 品 
鸣 呈 和 豆 委 ,相生 会 惠州 起 此 


。12 。 





了 

| 芭 

| 「『 | ] 

忆 | YV 1 全 区 二 
| j 

| 


可 志 看 出 ,区 中 要 求 阳 的 矩阵 是 亚 六 叫 不 是 上 XAY， 
如 让 意 到 下 面 的 事实 .伍德 侍 庙 公式 与 连续 使 必 谢 尔 学 -- 划 时 和 森 公 式 之 问 的 联系 惑 入 河 “如 发 二 
阵 【 上 中 下 个 疝 基 和 :up 按 列 构成 , 撼 阵 而 天 个 应 量 wsvap 按 列 构 成 。 


E 三 oo ui YY 一 攻 | 让 
党 


| 风 





则 对 盖 上 加 儿 到 可 用 丙种 志波 表 导 
DG = 人 UV (和 3 
才 一 | 
(注意 则 和 的 下 村 并 不 去 下 死 素 , 败 是 用 来 人 分 不 同 的 列 向 量 .) 
方 得 (3.7.15) 赤 明 , 如 昌 鼻 “已 在 存储 器 中 , 则 可以 用 (2.7.12) 必 一 个 王 x 十 陈 的 赣 , 便 可 1 了 这 
吕 进行 吕 次 修改 后 的 结果 :或 者 也 可 用 (2.7. 9 过 续 调 性 户 次 得 划 。 
如 没有 现成 存 好 的 & :, 则 必须 儿 下 列 方法 使 用 式 42, 7, 12? 炒 解 :向 求解 的 线 恬 方 再 为 


记 
(4 一 2u@vivexwh (7 16) 
站 1 
片 友 求解 六 个 辅助 启程 组 
昌 ，2 一 由 | 
和 点。 一 由 
L7》 


并 东 据 得 到 的 了 技 询 构造 矩阵 也 


[ 号 
月 到 








有 二 ;zi 了 人 
疏 ee 

第 2 步 , 装 已 X 疡 年 阵 的 道 

卫 =(] 二 Y7-Z)， 《2. 37. 13) 
她 六 ,再 慌 解 . -个 轴 虞 方程 钥 

， 各 sy 一 肯 2 2 

根据 已 有 这 些 基 , 则 可 解 得 
x=yY Z.THvYr.Y)1 和] 


2.7.4 分 区 求 乾 


有 时 候 会 遇 到 一 个 下 阵 ( 忌 管 不 必 是 兢 琉 的 ). 它 可 以 通过 分 区 来 高 效 地 民族。 假定 下 
xAN 读 阵 和 被 划分 成 

-rp o 本 

4 一 | | 2 


“3 


且 中 已 和 8 相应 为 产 X 如 和 5yxs 方 阵 ( 关 一 :一 玉 ) .所 阵 昌 和 昌 不必 是 方 阵 . 神 庆 交 7 
> 疡 的 抵 阵 。 
如 果 A 的 道 被 划 为 问 样 的 形式 ， 
FF 
了 [ 六 | 
史 主 ,G , 变 ,$, 与 相应 的 P,Q,R,S 大 小 相同 ,可 以 几 下 面 的 公式 求 出 : 
三 ==-(P--Q.S :,R) 
人 = . (PP-Q.SI:R)I .QQ.S 
去 
S 


= 一 (6 :.R) .了 一 Q.S-,R)-， Re 
=S- 十 (SR CPP QOS TRYQS 
或 由 其 等 价 的 公式 求 出 ; 
五 =P :+(Pi oO 一 R:P QIR P-I) 
站 = 一 (P 9) .SR P-OQO)- 人 
六 一 一 (人 一 R.PQ) -(R.P-) 国宝 和 


SS=-( R'PI,O) ， 
等 式 {2. 7. 24) 和 (2,7.25)? 中 的 小 括号 指出 了 只 需 计 算 次 重复 因子 (当然 ,根据 结合 律 . 生 
阵 相 乘 的 次 序 随便 )。 选 择 使 用 等 式 (2. 7. 24) 或 是 等 式 (2. 7. 25) ,取决 于 或 是 变 求 下 吗 和 丰 
简单 的 公式 ;或 是 重复 的 表达 式 (S 一 R*P !…Q) 要 比 表 达 式 ( 人 一 Q.S …R) :计算 简单 ;或 
旦 卫 和 S 的 相对 大 小 :或 是 是 否 王 或 $ 已 知 。 
另 一 个 有 时 有 用 的 公式 是 , 求 分 区 矩阵 的 行列 式 ， 
det 点 二 detP det(S -- R .P :Q) 
一 detS det 中 一 Q.S  .R) 


2.7.5 稀 防 矩阵 的 索引 存储 


在 第 2, 4 节 中 ,我 们 已 经 看 到 ,二 对 前 或 带 状 对 角 矩 阵 可 以 用 压缩 任 式 存储 , 仅 为 那些 可 能 木 罗 过 的 苑 
素 分 配 存 情 空间 ,以 及 为 保存 方便 可 能 会 浪费 掉包 个 存储 单元 -对 更 为 一 般 的 稀 琉 筷 阵 情况 如 何 中 :他 … 
个 绯 效 为 NxA 的 入 朴 和 矩 阵 , 当 它 仅 包 含 几 倍 于 x 的 非 堆 元 { 一 种 典型 情况 ?时 ,当然 是 低 效 的 了 .而 生 竣 
前 地, 要 为 所 有 六 个 元 素 分 配 空 间 ,在 物理 上 是 不 可 能 的 , 即 穗 可 以 分 配 这 妇 大 的 空间 . 它 也 是 低 效 的 或 
庶 当 禁止 的 , 国 为 它 把 大 最 机 器 时 间 用 十 衢 环 查找 这 些 非 零 元 了 。 

显然 需要 一 些 索引 让 依 方 案 , 它 仅 保存 非 零 的 扎 阵 元 索 , 前 片上 共有 足够 的 辅助 信息 ,以 确定 -个 元 雪 
的 交 辑 位 置 , 及 如 何 使 各 个 元 索 对 某 共 辣 的 忽 阵 运算 能 特 环 操作 起 米 .不 幸 的 昆 ,并 不 存在 -个 通州 的 杯 
涅 方案 .Knuth 一 中 摘 述 了 :种 方法 .Yale Sparse Matrix Package5 .和 ITPACKIO 中 描述 了 另 个 几 种 方法 ， 
对 大 多数 应 用 ,其 们 喜欢 用 PCGPACKC 中 的 存储 方案 , 它 眼 Bentdey"i 中 描述 的 方法 做 不 多 相同 ,机 用 3 
Yale Sparse Matrix Package 中 的 种 也 很 相似 .这 种 可 以 称 作 行 罕 引 称 玻 存储 方式 的 方案 , 仪 需 大 约 两 售 
于 站 有 零 和 矩阵 元 率 数 日 的 存 情 其 (其 它 方法 可 能 需要 = 至 五 们 ). 为 简便 起 见 , 我 们 仅 讨 论 实 践 中 经 常 由 了 的 
方 阵 的 情 减 ， 

为 表示 -个 X 交 维 的 柜 阵 上 , 行 索引 方案 设 了 两 个 一 维 的 数组 , 称 作 sa 和 ij. 第 .个 州 所 少 的 捍 精 
度 或 双 精 度数 存储 生 阵 元 素 的 值 .第 二 个 存 整 数值 .存储 规则 为 : 

"sa 的 前 w 个 位 置 按 肯 序 产 全 六 的 对 角 线 矩阵 元 素 .{ 注 虑 ,对 角 线 元 素 即 使 为 零 也 茹 存 , 力 为 实 卡 

应 用 中 大 部 分 情况 对 角 线 元 素 非 零 , 放 最 多 造成 :点 轻微 的 存 媒 浪费 ) ， 
。64。 


”ia 的 前 闪 个 位 村 傈 存 数组 sa 的 索引 对, 它 指 疝 第 阵 相 上 度 行 的 第 一 个 不 在 对 角 线 上 的 开 素 工 如 果 
那 “ 行 没有 不 在 对 角 线 二 的 无 素 , 刚 其 内 容 为 上 一行 中 最 后 存 鱼 元 素 在 sa 中 的 索引 肿 1， 
ija 的 第 -个 仁 峻 总 是 等 二 六 一 2 可 据 此 判定 六)。 
-ijia 紫 第 光一 1 个 人 兽 是 最 而-- 行 最 后 :个 非 对 和 元 在 sa 中 的 索引 共 加 上 ( 可 择 此 判定 证 陈 非 示 元 
的 数 日 -或 数组 sa 和 1ia 的 元 圳 个 数 ).sa 的 第 六 +1 个 位 置 不 用 ,其 值 任意 。 
，s 中居 N 一 2 的 位 资 存 有 A 不 在 对 攻 线 上 的 元 素 的 值 ,它们 按 行 排列 ,每 行内 臣 列 排列 : 
:ija 中 沽 交 2 的 位 置 保存 的 基 sa 中 对 应 索引 号 中 无 素 的 列 倩 。 
上 管 这 些 规则 第 一 眼看 .F 去 很 任意 ,但 实际 上 它们 是 :个 非常 精 邱 的 不依 方案 .举例 说 明 ,考虑 族 阵 





3 和 1 0 9 

[| 

D 7 5 9 9 2.7.27) 
nm 9 0 0 名 | 

世人 


用 行 索引 压缩 存储 , 定 陈 42,7. 27)? 用 两 个 长 韶 为 11 的 教 组 来 表示 , 见 训 2. 7.5.1， 


表 2.7.5.1 














这 时 人 的 值 是 任意 的 .注意 ,根据 存 届 规 则 可 知 ,N 的 值 [ 即 5) 为 jja[1] 一 2, 每 个 数组 的 长 度 注 ija[ija-t- 
中 1], 戎 1 . 行 i 的 对 角 线 元 索 为 sa[i], 该 行 酉 对 角 线 匹 素 在 sa[k] 中 ,其 中 k 从 iiac 到 ia 一 1J-1， 
当然 上 限 要 六 十 或 等 于 下 限 ( 如 在 C 证言 中 的 竺 十 )。 

这 里 有 个 程序 sprsin, 它 把 一 个 和 阵 从 全 部 存储 的 方式 转换 成 行 索引 稀 政 存 情 方 式 , 它 失修 于 酝 定 
国人 的 光 素 都 杭 为 零 元 凶 关 了 .当然 , 稀 巩 存储 方式 的 土 要 用 途 姨 对 那些 用 全 部 存储 方式 机 器 根本 作 不 下 
的 所 阵 , 那 时 就 不 得 不 直接 产生 稀 朴 榈 式 。 然 而 ,sprsin 作为 存 情 方案 的 一 个 精 彤 的 算法 定义 还 是 有 有 庙 的 ， 
可 用 作 大 问题 的 子 册 模 测 这 ,以 及 对 执行 时 间 太 于 存储 的 场合 ,也 追 使 采用 稀 朴 存储 ， 


六 include <imath-h>> 


void spPrsijntfloat > asiftt 力 t 了 ioat Threshiuns 局 hed iong nmax ,Hoal sa[ ]，unsigred long ijz[) 
将 方 杆 a[1. .na--L..n] 转 换 成 行 索引 栅 朴 看 情 方式 , 仅 保 儿 数值 大 于 阔 值 的 元 素 .输出 两 个 维 数 为 nmax( 作 方 得 入 
矢 数 ) 的 线性 数 绎 :saL1. .包含 数 蛆 秆 ,ea[1.,o] 为 寅 引导- 十 入 输出 sa 和 ji 中 的 元 素 的 数 月 部 是 ia iia ] 1 一 1 
二 1， 


void nrerrortchar error text[])， 
int jj 
unsigned long k; 


for (jj 一 ] :j 扫 一 nj 十 十 1) sa[ 订 =avcj][i]; 让 对 角 线 开 
ija[1]=m 一 2，; 如 黑 存 ,指向 第 行 的 惠 对 前 元 
kk 一 n 十 ] 
for iti=liit< = 一 nii 十 十 ): 行 循 坏 
ter (j 一 1; < 一 ni | 7) 列 循环 


i 《labx(a[i[ 门 ) 关 = rhresh&& ii 一 让) 
计 【 十 一 KK 六 nmaxy nrerrofr”"sbrsin: nmax too small” ); 


sa[k- 一 [ij 订 ， 保存 非 对 角 沉 及 其 殉 贷 


本 
过 me 


iiafk 一 j; 


ijai ga 2 主 行 证 成 时 ,将 指针 指 癌 下 一 个 


用 行 索 下 杨 朴 在 铺 六 式 保存 的 征 阵 的 唯 … 最 重要 的 用 途 就 是 人 在 其 右 达 衫 以 一 个 向 量 。 事 实 上 ,三 镶 广 
忒 的 优化 就 是 为 了 这 个 习 的 ,村 而 下 面 的 矢 序 就 非常 简单 了 . 


voidq sprsaxtfloat sa junsigned long iia[j,float xfioar bf unsigned loog ni 
将 行当 引 秒 谍 他 请 数组 sa 和 ia 莹 以 ， 个 下 量 x 门 ,得 到 疝 旺 [1.,o]。 
Yoid nrertotftchar ettor_tcxtL_); 
unsIgERed lonbB 1 K:; 


if fija[ 1 1 一 - 2) nrerror(”sprsaxt mismatched vector and tnatriX ); 
fjor (一 LN 一 nii 十 十 ) 


b[ 训 一 saD 2 xi 从 对 角 焉 开始 
for 作 一 jia[i kk 二 一 ia[i 一 一 1 十 一 ) 对 非 太 角 项 种 环 
b[i 1 一 sa[k” vx[ijackx]]; 


划 是 在 筷 阵 的 转 置 太 边 匀 以 一 个 敬 基 也 很 简单 .5 本 节 后 面 , 随 们 要 用 到 这 种 运算 ,) 注 意 , 转 置 出 阵 寺 
水 实际 构造 ， 
void sprstxffloat sa[-  、unsigned Jong ija[]，fhoat x[ 丫 、floay h[3， rnsigned lang mn) 

将 存 傅 成 数组 ss 糙 Da 灾 行 索引 各 下 扎 阵 的 转 莹 瑟 以 向量 x[1.. ,得 到 向 量 h[1..n1. 
{ 


void nrerroTKchar error_texti i) ， 
urtsigned long ivki 


ifijaft] 1 一 mn 二 2)》 ntetrorKrniisnatched vector and matrix in sprstxw); 


for (ii 一 Tii< 一 nii 十 十 》bLi 一 sa *x[ 门 ， 从 对 角 项 开始 
for ki 一 135i 忆 一 nii 十 十 》: 验 浊 对 角 项 循环 
for (k 一 ija -让 ks 工 一 ija0+1 一 L5k 十 十 ) 
j=ija[k] 


P[ 麻 十 = sa[k3ex[i]; 


1 
了 


( 公 精 度 版 的 sprsax 和 sprstx 称 作 dsprsax 和 dsprstx ,在 本 节 后 而 的 程 耻 attmes 中 还 要 用 到 , 浅 者 可 氛 很 
容易 地 进行 转换 ,或 是 从 禁书 磁盘 中 得 到 转换 好 的 程序 。》 

事实 上 ,上 羽 为 选择 行 索引 存 情 对 行 和 列 的 处 理 完 全 不 后 , 则 棠 遇 到 要 对 一 个 给 定 的 .以 行 索引 六 看 闻 
储 方式 存储 的 给 阵 , 悔 潜 其 转 公 的 操 征 .。 当 该 操作 不 可 避免 时 , 可 以 按 下 面 的 步 台 来 做 : 按 列 构造 非 寺 角 抑 
的 索引 [参见 第 8. 4 季 ). 则 这 些 元 素 技 别 次 序 气 入 输出 数组 ,在 写 侠 个 元 囊 时 ,要 傅 定 其 行 值 并 保存 避 来 ， 
了 肾 后 ,得 别 的 元 案 按 行 次 序 弃 钱 ， 
void sprstp [leat sa[]，ursigred long ija 人 、fteat sb[-  ，unsignaed long iib2) 

构 洁 效忠 方 阵 的 转 冒 ,从 行 素 5 稀 朴 存 笠 的 数组 sa 列 ia 转换 成 数 纪 sb 和 训 : 
void iindexx(un6igned 1ong D，1long arr[] ，unsjigned long lndx[]); 

将 程序 indexx 所 有 浮 点 型 变 上 改 成 长 型 变量 的 版 本 


un3igned 1Dng j,jl,jo,Jjp,jn,k,o,n2,noff ,inc，ivi 
T10a7 Yi 


”bf 


mn2atjafl]i 和 矩 斩 线性 长 度 加 2 
for 〈j=11j<=n2-25jy+) Bb[jJj=sa[j]; 叶 朋 雹 
iiodexxttlja[n2-1]-ijaflil, (1oang m) 主 ija[n2-1] ,上 ijb[n2-1]); 
按 刚 构造 非 对 钊 元 的 索引 
ne 
8 《wmtja[1];kcnija[n2-1]~1;x++》 荆 对 非 对 角 雹 循环 
mat jb [kj]+n2-15 使 用 索引 去 按 5 以 前 的 ? 列 存 储 
gb [wea [也 ] ; 
for Ca ijb[j]=k; 将 索引 十 入 省 略 的 行 中 
jpB=ija 加 ] ; 用 二 分 法 查找 蕊 素 m 存 旦 行 , 并 将 其 存 入 
je1; Hbfk] 
Ju<n3-1l， 
hilo (ju- 和 L > 1) 荆 
jmm(ju+jl)y72; 
iY 【ij 各 [jz] > 孟 )》 jumj 了 四 ] 有 5 1 一] 加 


ijb[x]=jl1; 


了 or 【jejp+1ij<n2; ye+》 4jbft+lmijaro2-1] ， 

for 【j=11jkmn2-2;j4+》 工 用 Sheill 排 内 算法 对 每 行进 行 景 后 一 思 排序 
jlaljbr[j+t-tjb[j]; 
afYmijb[ 人 ~ 汪 ; 
4necml; 


4RC++i 
] omhile (inc <= Ja); 
do 姜 
inc 7y= 3i 
TO 【anogzt+ioc+1l;X<emogf+jLiv++》 荆 
Xeijb[x] ; 
vb [x] ; 
国 要 共 ; 
whtl 丰 《tjb[m-inc] > iv) 
ijatfm]=ijb[m-ioc]; 
ab[z]msb fm-jnc] ; 
香 -到 BC; 
Im-noff <m inc) braeaki; 
让 > 
Ljb[m]mivi; 
8b[ 世 ] =v ; 
》 
} while (inc > 1)7; 


上 面 的 程序 中 ,包含 了 第 8.1 节 中 的 一 个 排序 算法 , 供 调 用 了 外 部 程序 inaexx 来 构造 条 始 的 列 头 引 该 程 
序 与 第 8.4 节 中 所 列 的 indexx 相同 ,只 是 后 者 的 隔 个 浮 点 数 说 明 应 改 为 长 型 (long) ,事实 上 , 深 者 可 以 经 党 
司 用 indexx 而 勿 需 覆 改 , 因 为 许多 汁 算 机 不 管 数 值 被 解释 成 浮 点 的 还 是 整 型 的 值 ,都 会 止 靖 册 独 之 二 排 
序 。 

作为 稀疏 矩阵 运算 的 最 后 一 个 下 例 ,我 们 给 出 上 个 称 丽 罕 际 相 乘 的 两 个 程序 .它们 对 第 13:.、18 节 中 寺 
描述 的 技术 恳 很 闪 用 的 。 

般 说 来 ,两 个 稀 酬 第 阵 的 积 本 身 不 是 稀 莹 的 .因此 要 限制 积 拭 阵 的 大 小 有 隔 种 方法 ,其 .是 事 灶 已 
知 积 为 特定 的 稀 极 模式 , 仅 计算 其 中 的 这 些 元 素 ; 贞 二 ,计算 所 有 的 非 淮 元 ,但 仅 保存 那些 数值 在 罗 值 包 民 
的 苑 这 第 “种 技术 刻 果 能 够 使 用 中 非常 有 效 的 - 称 得 模式 可 以 通过 用 行 索 引 砍 苹 在 储 格 式 必 和 壮 的 归 纪 
(人 训 ja? 来 说 明 。 并 且 程 序 示 稳 造 : -个 相应 的 倘 数 组 (如 sa). 笃 .种 拷 术 有 超出 订 算 时 下 划 不 如 输 四 姑 模 的 
郑 险 , 故 诬 谦 慎 使 用 。 
站 


开行 索引 存储 ,一 种 租 自 涩 的 乘法 运算 是 ,左边 的 记 阵 焉 以 在 边 下 孟 的 转 置 ,这 样 可 以 讲 征 行 总 生息 
运算 ,而 不 足 行 对 列 .因此 我 们 的 稳 序 是 计算 和 "8B? ,而 玉 旦 有。 这 意味 普 在 把 右 端 让 阵 提 诡 疆 陵 的 浅 积 


序 之 前 ,必须 运行 sprstp 穆 序 对 共 进 行 转 置 。 


两 个 实现 程序 ,sprspm 进行 “模式 乘 *, 而 sprstm 进行 *“ 辣 得 履 ?, 它 们 在 结构 上 亲 常 相 象 .由 于 己 瑞生 
给 人 流 和 输出 流 进行 了 不 同 的 有 角 线 或 非 对 角 线 郊 素 组 合 ,两 个 算法 者 很 复杂 . 


void sprspmaflont st[]，unsignced long ija[-，float sb[] ，unxigned long 1 ]、Jloat sc-]， 


unsigned long ijc[ 


也 阵 环 法 运算 和 ,BT 其 中 点 动 了 是 以 行 素 引 存储 态 式 在 储 的 两 个 右 榴 矩阵 ,Bi 为 孔 购 转 同 :这 岂 sa 竹 册 广 储 进 队 
A:sb 和 ijhb 存 精 第 阵 呈 .本 程 序 仅 计算 由 输入 索引 数 晶 灾 预 说 时 能 种 阵 悄 可 口 的 已 素 :iic 立身 不 被 修改 .给 入 数 皇 
se 煌 下- 起 络 出 了 烈 算 车 的 行 凑 引 存 情 方 式 : 对 区划 直 阵 秩 法 ,执行 祥和 酝 序 前 , 绽 常 这 先 请 用 sprsrp .以 术 告 王 印 四 


珠 的 特 寻 ,并存 入 刻 获 组 sb .ijb。 


void DrerTOYKChar erTOT- Text )# 


unsigned long iijmaijimb ,jynmma cb,mbb ,mnl 
Joat sumy 


if (ijaf] 5 iibD] 11ija[I] 1 一 ic[] 
htferrorf”sDrspm : sizes do not mliatch* 
for G=1i=i 菩 一 2 一 一 ) | 
一 一 i 
mn 一 ijc[i， 
sum 一 sa_i|* sb[ 门 ; 
for (1 
Tb 一 iib[i]i 
foer《“ ma 一 ja 百 -imac 世 一 [一 1--1:ma 十 十 ) | 


ijma=ijia[ma]; 
if (ijma 一-- J) sumn 一 = sa[ma]x*sb[in; 
else ， 
while Cnb < 二 ijb 叫 一 1 1 
ijmmb 一 jb[mbj; 
计 (ijmb 一 = 一口 { 
sum 十 一 Sai xsb_mb 十 一 1i 
coniriniuet+ 
else (ijntb < ijma) : 
Inb 十 十 ，; 
continue ; 
} else if (ijmb 一 一 ijmal ! 


sum 十 = sa[naj]xsbrmb 十 十 1 


coTltnuei 
人 


break; 
1 


for {mbh 一 mhbtmbb< 一 jhb[j 十 苛 一 Limb 十 十 ) : 
U 《iibLmbb] = 一 isum 十 一 sali]*sb[mhbb 


sc[ 各 ] 一 sunm 

su 了 一 ,Pr 

寺 (mn 全 一 ij 一 口 ) break; 
1 一 te[m 一 ma 十 一: 


磋 Include <muath th。 


9 68。 


行 种 环 
议 冒 初 征 ,以 穗 第 一 商铺 荆 处 理 对 怎 T: 
对 每 个 给 汕 匹 进行 的 说 灸 二 


对 六 的 行 元 素 簿 环 , 下 天 的 好 衬 歧 革 芭 用 工 
及 非 对 称 元 进 生 各 囊 组 人 


处 更 完 昱 的 行 的 剩余 部 分 


为 三 -次 特 环 重 必 夫 引 


god sfystmtiioa- sa ]，umnasigned long iaL ,foat shlL 上 .unsigned long iibL ji， 
iioat thcesh，unsigned lung nruaxy，fioat sc 1，unsighed long iic ]) 
惠 阵 乘法 运算 A*B7 ,其 中 泸 由 旦 号 以 行 索引 存储 方式 存储 的 两 个 析 眼 矩阵 ,8 为 中 的 转 钥 :这 里 s 利 ja 在 全 十 寻 
上 ,sb 和 冲 存储 矩阵 B. 本 程序 计算 多 阵 积 中 的 所 有 元 素 ( 可 能 不 是 郴 蚊 的 1) .但 仪 存 情 那些 数 生 超过 阔 估 的 元 案 . 
输出 吉 组 sc 秆 if! 其 息 天 长 度 由 办 人 量 nmiax 位 定 ) 出 行 素 引 人 存 娃 方式 冶 出 积 拒 阵 . 对 稀 朴 算 陈 条 兴 ,执行 本 程序 前 
底 先 调用 中止 如 ,以 构造 已 知 撼 阵 的 转 置 , 并 共和 到 sb 和 意 、 


void nrerrorfchar ertot text[ ); 
unsjgned lornge Lijrnairnb ksrzmastnbyabbDi 
iont somy 


证 ba] 一 bLlly ntrerrorftsprstm :sizes do nor match” )} 
ic 科 ]=k 一 ha-1j; 










fczr 人 一 和 一 ja 门 ] 一 241 十 十 ) 1 各 的 行 循环 
5or 站 一 1 之 一 b- 订 一 25j 十 一 8 的 行 猎 坏 
讶 一 一 jsum 一 sa 门 ] rsb[ 门 1 else sum==0.0Oe0， 
mb 一 ijb 上 bj] 
tor (ma 一 jb]mas 一 ia[Li+ti 一 1:ma 十 一 ?1 对 A 的 行 元 闲 循 环 ,下面 复 杂 的 逻 翌 直入 


对 角 元 玉 非 对 秀 元 进行 各 仲 组 合 
ima 盖 ija[maa]y 
让 《ijma 一 一 j) sunl 沪 一 salma]lx*sbiiji 
else 上 
wbde mb 过 bf 一 1 
imb 一 b[mb]; 
iEKijmb = 一 让 1 
sum 十 一 sa[i] s sbfmb 十 十 上 
CoTitinue1 
} eise 让 (Ujmb < ma) 1 
mh 十 十 ， 
continue' 
1 ejse 讶 Untb >- ima)! 
xum :一 sara jsb[mb 十 一 3 
AQOntIIutE 


breakr 


二 - 


上 


for (mbb 一 mbitmhbb 到 一 ijb[j 十 1 一 1ymbb 十 十 ) ! 处 理 完 下 的 行 的 币 余 部 允 
(iihb mbb] == i) sum 十 一 sa[iJ* sb[Lmbb]; 
is 一 jsc[i 一 sumj 输出 丫 果 
elae if 【faba(aum) >> thresh) ! 
话 kk > nmax) nrerror("sbrsttm; nmax too small" 》 
sc[kj 一 sum 
iefk 十 十 ] 一 j5 
} 


ijc[i 十 本 一 ki 


2.7.6 共 辑 梯度 法 求解 稀疏 系统 


折 渭 的 共 铂 贼 度 法 ,为 求解 帮 XA 线性 未 统 提供 了 -- 种 相当 通 咱 ”1 法， 
上 ，xX 一 hh (0.7 297》 
这 些 求 解 大 型 质 章 系统 的 万 沪 , 其 好 钼 在 十 它们 对 入 的 引用 仪 包括 生 与 一 个 辐 量 相 乘 , 战 其 转 冒 与 


人 日 


个 向 革 相 丧 , 正 如 我 们 夸 见 ,这 些 立 站 对 通 当 亦 储 的 种 鸣 逢 阵 是 非 世 商 禾 的 -该 才 ,可 能 会 蓝天 开放 和 人 
数 ,希望 它们 对 这 些 球 疏 还 阵 乘 法 及 订 能 高 效 地 运行 ,而 我 们 规 在 提 上 和 : 些 道 州 的 得 序 ,下 所 的 limbeg , 它 
能 忒 解 线性 三 程 组 (2.7,29). 

最 简单 的 常见 其 久 眉 度 算法 入 求 包 02. 37. 20). 持 低 当 六 为 村 蒜 的 理 正 定 的 时 饮 : 它 战 开 委 小 化 和 
面 渍 数 的 怎 想 





fo 一 了 xx 一 bx 2 
半 其 梯 虚 
一 和 27 3 


为 霉 时 ,该 函数 极 小 化 , 泣 相 类 于 汞 (2.7. 29)。 极 小 化 的 实现 是 通过 产生 一 个 现 索 方向 攻 的 后 继 以 演 改 寺 
极 小 化 的 风灾 量 xg :等 - 步 都 是 要 找 - -入 最 ok 来 极 沙 化 xs 十 akpk)， 并 且 把 关 4- ;这 为 黎 寺 新 的 , 江 Xa 
十 几 所 .px 和 4 也 是 这 拌 构造 的 ,xx 是 大 站 所 走 过 方 币 衬 Pt 的 向量 空 二 汪 怠 极 小 点 , 冶 寺 入 
次 迁 代 后 便 可 型 法 整个 回 量 空间 的 报 小 点 , 是 式 52. ?7， 的 解 。 

在 后面 的 第 1 6 和 节 中 ,我 广 半 操 这 个 * 彰 通 钓 ?上 共 负 悦 度 算法 推广 到 什 意 基线 性 函数 约 情 况 . 这 由 .其 
们 的 兴趣 人 下 求 解 线 伯 的 , 担 不 必 十 下定 多 或 对 称 的 ,其 种 重 此 的 撕 广 是 : 双 共 斩 梯 度 法 .一 般 说 来 ,该 
算法 上 非 是 简单 的 攀 数 极 小 化 问题 : 它 要 构 车 四 个 央 量 序 素 mroBpe Ps 二 12 … .只 昌 据 和 步 访 始 阿 二 本 
Fi, 并 设 一 c, 一 ri, 出 可 得 十 而 的 递 奴 式 ， 


(人 2 
开 “了 了 
玉 ” FT 
Pei， 一 下 十 遍 B 
该 -一 二 次 
划 序 列 满足 双 正 交 条 件 
让 【和 全 
及 邓 共 辆 条 件 
机 和 .pi 一 pi. Ab 一 0.7<c (2.7.3 和 
是 相互 正 交 的 
刺 所 (3733 


证 明 这 二 和 几 人 全 和合 汪 ]4 :只 要 递 推 不 由 出 则 分 母 力 鹤 而 提前 中 断 , 共 结束 必 人 在 ms 步 之 济 , 目 
ra4+1=Posibs 这 外 四 为 ,最 多 N 步 后 就 已 知 用 党 了 所 购 利 应 亨 的 新 的 正 奖 方 向 。 
司 用 该 算法 求解 系统 (2. 7.38, 要 完 猜 测 个 初始 的 解 & ,将 上 选 为 残 束 
FF 一 略 一 上，Xi (9 
并 没 忆 = 然后 构造 改 渤 的 估算 他 列 
Xi 一 MX hp [| 
灾 规 世 52.7.32) 的 递 推 ,等 式 (2 7.37 保 证 省 推 得 到 的 mr 事实 节 是 对 应 二 X， 的 残 关 9- 二 和 1 时 
鸭 疝 = 站, 故 辣 1 是 方 笠 (27, 237 的 解 。 
尽管 不 能 条 证 整 个 过 程 不 会 中 断 -或 是 对 - 般 的 重 隆 二 会 变 镶 全 本 试 种 情况 很 洗 咏 : 
下 重 柳 的 是 , 仪 当 有 精 博 的 算法 时 - 才 会 等 多 和 次 达 人 三重 精确 她 站 康 。 击 于 谷 生 下, 它 组 糙 活 算 坦 作 


了 
2 


个 线 类 代 的 过 笃 , 当 符 介 一 些 适 当 的 钳 误 冰 则 时 看 尾 忠 目 ， 
普通 的 共 辊 梯度 算法 是 双 共 氏 境 度 算 法 的 个 和 营 列 ,加 二 是 厅 称 的 ,并 选择 交 -= 呈 ss 然 三 总 新 有 阿 二 。 
入 站 一下 及 让 一 冯 可 以 省 去 这 部 分 计算 , 闫 扯 汰 的 工作 区 减 半 、 去 斩 梯 度 法 应 钊 释 为 概 小 化 各 八 避 7 
30)。 如 党 盘 是 正定 及 对 称 的 ,算法 不 会 中 世 ( 归 论 上 如 此 妆 : 下面 的 种 六 linbcg 在 输入 对 称 的 和 时 实际 上 
减 化 成 普通 的 共 罗 梯 度 法 ”“ ,但 它 却 做 了 所 在 的 元 余 计 算 ， 
通用 算法 的 吕 一 种 变化 足 对 于 对 称 的 \ 世 非 目 定 的 囊 阵 总 ,这 时 选择 5 一 和 站 "而 不 是 下 二 种 人 纲 
下 ,对 所 有 的 太一 各 及 际 一 各 "Ps 因此 ,算法 等 价 于 普通 的 去 箔 梯度 算法 ,其 是 所 有 的 点 秽 运 漳 ab 
被 aaA:hb 所 代 堆 . 它 梓 称 作 极 小 残 闻 重 法 ,因为 它 对 尿 十 王 面 函 笋 的 注 绽 地 极 小 化 积 丰 
(xz 一 rr 一 Ag bl 2 7 38》 


其 中 连续 地 送 代 xx 就 可 以 在 由 共 斩 境 度 法 产 咎 的 担 索 六 向 px 相 相 的 集 上 极 小 化 下 。 沪 扯 法 已 推广 加 各 
种 非 对 称 窍 阵 的 算法 。 通 诈 极 小 残 押 法 1GMRFS+ 和 参见 9 5 )HJ 能 旦 这 些 卢 法 中 最 边 稳 放 蔚 了， 
注意 等 式 (2.7. 58) 给 岂 
(一 和 一) 人 39》 
对 任意 非 奇异 矩阵 A,A7 入 是 对 称 的 弄 止 定 的 .因此 ,可 忌 试 着 通过 将 普通 的 共 色 障 庶 算法 应 条 二 “血亲 
题 , 侧 米 求 解 方程 己 .7. 29) 
《各 ， 点) 一 由 b 2 40) 
但 不 要 这 样 做 ! 抑 阵 &7.A 的 条 件数 是 人 扩 的 条 件数 的 平方 (条 件数 的 定义 网 第 2.6), -个 人 的 条 件数 不 公 
增加 了 所 需 的 法 代 次 数 ,而 县 限制 了 可 能 得 到 的 解 的 梢 度 . 用 奶 共 辊 境 度 法 对 震 始 夫 阵 舟 求 解 莹 不 区 总 上 
好 一 些 。 
至 此 ,我 们 尚未 言及 这 此 算法 的 收 敏 速度 问题 ,对 十 条 件 好 的 皂 阵 , 基 “ 靠 近 " 单 位 阵 的 钊 阵 ,着 道 的 共 
二 境 度 算法 效果 很 好 .这 提示 我 们 把 这 些 方法 应 用 于 方 和 (2.7.29) 的 先 溢 条 件 形 式 , 则 
(让 和) xx 站 vbh {2.3.41)， 
这 种 想法 是 ,对 接近 王 入 的 某 个 训 求 解 线 和 系统 可 能 密 容 易 些 ,其 中 评语 <z1: 它 宛 计 算法 在 较 少 的 步 数 
内 收 误 . 抑 阵 入 称 为 -个 先决 条 件 : ,这 里 给 市 的 整个 方案 即 为 有 先决 杂 件 的 双 共 恩 梯 庆 法 ,或 称 为 
PHCC 。 
为 了 能 高 效 实 现 ,PHBC(7 算法 谷 绍 了 一 个 附 如 的 问 基 集 zx 和 zt* 定 广 为 
和 2 一 (2 7 12) 
并 修改 了 等 式 (2.7. 832) 中 kBkypk 攻 更 : 的 定义 
陈 / 1 了 
本 


全 


Txk 一 1 ?+ 
人 "2 


及 一 


证 


pk 一 ?~ 叱 AP 
人 := Z 全 六， 虽 。 
对 下 面 的 舟 闻 linbcg ,我 们 更 求 庶 首 和 白 己 来 提供 求解 142.7.423) 苗 轴 肋 线性 系统 的 程 闻 如果 全 章 道 诗 什 反 
作 先 决 条 件 全 , 则 不 妨 使 用 A 的 对 角 线 部 分 , 藉 至 是 单 您 纸 阵 ,这 样 收 敏 的 负担 完全 落 在 尽 具 先 境 度 算法 
本 身上 。 
下 面 的 Hinbeg 程序 ,基于 以 前 上 nne Greenbtnum 厅 定 的 …… 个 竺 序 ( 盆 见 1 , 它 计 一 全 不 同 芍 ,站 着 站 
些 的 实现 ). 述 有 一 点 技巧 应 沪 知 道 。 
怎样 能 构成 * 好 "的 收效 是 依 种 于 认 几 : 辣 纪 各 诺 iinpbeg 提 仁 四 冲 诈 择 ,可 以 对 输 大 标记 iol 过 行 设 
冒 , 如 果 设 iol=1 则 当 值 ij 入 一 bb 小 上 输入 营 tu 时 ,于 代入 由 < 闸 果 设 io 一 2 则 直 起 的 际 则 为 ， 


(XDA <tol 人 


如 果 itel 一 3, 则 程序 使 用 蒜 户 归 大 澡 六 的 估计 ,站 吉 求 基 大 清除 只 六 的 值 小 于 tol. 设 四 -99os 
情况 胡同 , 共 屁 用 误 差 的 最 人 基 5 绝 对 售 ? 和 X 的 最 大 分 其 全 靶子 总 昌 的 太 小 5 路 ,用工 . 坏 蕉 代 划 了 开学 
准 》 ,该 者 可 能 需要 在 实践 中 这 次 妇 找 到 哪 种 收 急 准则 最 适合 及 已 的 问题 。 

和 输出 方面 serr 是 实际 所 达 介 的 容 营 ,如 果 返 同 的 数 iter 才 串 里 允许 的 最 大 灶 代 次 数 itmax 洲 被 扣 冯 
册 err 度 比 tel 小 .如 果 要 进 一 目 迭代 ,可 大 改变 返 思 的 最 霸 次 调用 程 访 .然而 两 次 调用 之 而 , 理 序 会 装 
关 所 胜 越 共 生 梯 度 子 空间 的 记忆 , 故 椒 席 使 其 经 常 副 问 , 至 少 每 次 应 有 次 达 代 。 

最 后 , 汉 计 意 的 是 ,linbeg 中 伟 睛 的 下 到 精度 数 . 怪 此 它 通 常 是 在 K 相当 大 时 使 用 的 。 





共 incjude <<stdio.h>> 
共 include <math.h> 
于 include ?nrutil. hy 

站 deiine EPS 1. De 一 14 


void linbcg (unsighed long nm，Gouhlr hL  ， udouble x[ :na toldochbl ce， int :tmax。 inr ，iter， 
double ~err) 


肝 夺 代 发 具 往 习 度 法 求解 A"x 一 bbLi ua] 蕊 知 , 求 x-1..nj. 生 入 计 1FE ,no] 民 设 为 骸 的 补 始 猜 调 (或 全 胃 短 )au， 
为 1,2,3, 或 4 它 说 明 使 月 何 种 收 敏 珊 试 5 匈 正文 im:tx 为 饭 区 和 轿 迁 代 的 最 大 次 数 ,to: 为 所 祯 的 收 侣 容 益 . 培 局 证、 
|] 被 器 为 改进 后 的 解 ,ite: 为 实 味 进行 的 千代 次 数 .err 方 伟 计 的 湛 闭 -矩阵 入 的 册 用 仅 未 过 用 靖 许 典 的 程 直 sa 
tmes' 它 计算 4 或 其 转 轿 与 一 个 揣 量 的 玉 积 ,而 称 序 aalve, 它 对 某 个 先 志 时 件 拭 阵 二 (可 衣 仪 是 A 的 平凡 罚 续 沸 
分 ) 求 解 太 gb 成 请 To 一 0 


了 
Yoid ne0lyvefunsigned iong mn，doubla bf] ，double zx 中 ， inot icrnap)i 
yoid atimea(unedgned 1ong 卫 ，dotuble x[] ，double 工 [ ，int itrngpy》; 
double anrma(unslgned 1ong 了 doubie axf]，jint 15ot)i 
unedigned LonEg j; 
double ak,akdet,bx,bxden ,bn ,brrm:dznraq,XnTE .2m1lnra,znzai 
double eaPvwPPueT.sIIT.sZ.wZZi 本 程序 中 呆 用 妈 精 上 度 泪 示 为 好 
Bmdvector(tt,n); 
ppedyectort1l,n); 
Tedvector(1,D7; 
TemdvectorC1l,o) 
2Zmdvector [1 ,ny) ; 
ZZerdYVector(KIL ,DJ ， 
计算 初始 残 养 ， 并 恰 查 优 止 准则 
万 BITm0O; 
怒放 参合 四 《也 和 车) :mes 的 输入 为 xF1. .输出 为 rF1..n3: 晤 后 的 
fo 【jam13;j<=aij++》 攻 央 示 使 用 竹 阵 本 身 ( 而 不 基 工 转 量 ， 
开 [jJ]m=bf~FrJ， 
rr{[j]=rrj]i 
了 
Am timagrnrrriG) 97 去 掉 桔 行 的 省 者 茶 号 即 得 凤 该 算法 的 “ 职 小 残 凑 " 
ZnrmsL . 心 ; 亦 种 


if (ttol "e 1) barn=snrmath ,bitol'; 
旭 ]9G 于 (itol =m 2》 捷 


asolvefn,b,z,0)i; asjgve 的 辖 入 是 b[I, .n]， 和 输出 为 z1。 .5 最 乒 

bnrassnrmtn,z,dtol); 的 0 表示 使 用 的 全 于 孟 生 [ 测 不 是 其 转 量 1 ， 
elae if (itol = 3 1| itol == 4) 工 

asolvafmnvbyz,0); 

bnrmsenImf{fn ,zitol) i; 

&SQOLIVG [DT,Z,O)i 


znIOeSntmrDR,Z,itol): 
】》 elaa nTerrork"illggal itol in 1inbcg") ; 
asaolye( 了 ,rr,Z，0O) ; 
while (iter < iftrax)》1 主 撕 环 
十 十 《 首 itbez) 1 


Zm1lnrum=zrmi 
as3olvefDny,rr,zZZI1) 1; 最 后 的 1 老汉 鱼 贿 转 内 和 托 阵 站 
for benlaaa<f.0,j=tij<=nhii++) bknum += z[])]wrr[] : 
计算 导 效 hk 及 方 阿 向 量 由 和 pr 
if 【+iter =e 1] 1 
for 【jami1iJ<=nij++)] 艾 
Pt]=zEj] 
ppP[Jj=<zz[] ; 
】 
} 
Glse { 
DKk=bkpimbhden; 
fo (jl:j<ssn;j++) 《 
PTj]=bxrpf[j]*zrj] 
ppTIJ=bk*pp[j]+zz[J] 


】 
bxden=bknum; 计算 系数 i 冰 , 新 的 迭代 最, 监 新 的 线 苏 T 和 1 
atimeafD ,P, 工 ,D) 
for 《akden=s0.0,j=1;j<=*ni;j++) akden +4= zZ[j]*pp[jj， 
akasbknumyaxden， 
atimeefD ,PP ,zz:1) ; 
Yo 《jay jc<nnij+y) {f 
x[1] += ak?P[ 们 ]; 
r[j] -= axs*zfj] : 
rr[j] -= akwzz[j]i 


asglveka,TyZvO) ; 求解 入 - 工 - 了 并 榨 查 传 止 准则 
if (itol “1 11 icol == 2) 工 
2ZDrmsel .0Oi; 
*#erTaShrmfa, rz ,Itol)rbnroa; 
}》 else if 《itol < 3 |1| itol == 4) { 
Znzmasanrm(an,Z,2to1L)) 
if 【fabs(zmlnra-znro) > PEPSyz2nrm)y 1 
dxnrm=fabs(ak)*xsnrmtn,p,itoli)， 
*erF=znrmyfabsrzmnlnrm-znrmjy9dxnrmi 
YY else 荆 
省 是 [一 0 yb; 误 次 可 能 不 特 确 ， 故 再 次 锋 环 
Co3ILImU" : 
了 
Inzm=snra(anx itol) 
【+erT “= 人 .5ITnIT 们 )》 TFTI 7 XPT 如 ) 


else 二 
的 TT=Znrmybnrm | 襄 差 可 能 不 精确 ， 故 再 次 振 环 
Cont inuei 

] 


} 
Printf'i"iterzy4d eTT=Xi2.6T\n" ,yiter serI) 
if 〔《*arT <= tOL1) break; 


)》 


frea_dvectortpy 1,n): 
下 TrG 台 .diVaectorgPPR ,iT); 
fre6_dvectorfIT，, 吕 ) 1 
free_dvectorgTKE。1 ni 
Erea_dvectorfZ ,al. 
fr6e_dvectortzzZ.，. 


】} 
程序 mpeg 全 用 了 下 而 这 个 小 实用 竹 床 来 计算 向 最 的 范 数 。 
扩 Include “meth. 立 : 


doubje snrpagunsighed long Fr，qdceuhle sx[，int itol) 式 殿 ito]l 的 体 . 计 算 应 良 sx[ 站 .rr3F 风 个 花 琢 
1 之 -被 程 率 linlbeg 类 用 ， 


。73。 


Heigned Iong 1.1S2m3aXH 
ceuble nss 


计 有 0 妆 一 33 






US 

for ki 15i 二 一 nil 一 4) nans 十 ~ sxIjs<sx ij 可 时 大 小 的 苑 数 

tesuro stGrrrans]: 
，clse 了 

jsdmax 一 上 4 

for fi 一 1j<< = 一 nd 十 十 ) 最 大 元 的 范 数 

放 (fabxfsx[i] > fahsfsxLisamttax])) isamax 一 1 
1 


Yetutl Tabhsfsx isamax ])i 


为 使 种 译 attmes 利 asolye 欠 说 是 清楚 些 , 戎 们 在 此 绚 出 简单 的 版 本 , 它 委 害 矩 阵 和 以 行 壳 引 山 朴 下 式 
在 平 基 处 。 


cxtern unsighed Jong ija[ : 


extern double sa[ 小 和 返 阵 存 于 某 处 
void atimmesfunsigned leng mn，dqouble x[，double r[J，int irrnsp) 


void dsprsaxtdouble sa ]，unsigned long ija[ ]， double x[]，double b[]， 


unsigned jopng my) ; 是 Sprsax 的 双 精 度 版 森 
void dsprstx(Kdouoble sa[ ，unsigrmet ng ia 门 ，doub[e x「 厂 |， donbjs bl ， 
unsigned Jong nm) ; 是 Sprstx 的 双 情 总 版 本 


寺 fitrnsp) dsprstx[satijasxvryn): 
&lse dsprsaxtsasljia TD) 


extern unsigned long ija[]， 
exterfn doubls sa[ ; 韦 陈 存 于 某 处 


void asolvefunsjinged Jong ny, double bL ，double x[C] ,int itrnsp) 
unsigned iong ii 


forti 一 1it< 一 0 十 十 ) xfi 一 (sa 1 一 009?bfilsa-ir ，bfi]y， 次 凡 直 是 各 的 对 萌 线 部 会 -他 二 
sa 的 前 n 个 才 素 .因为 该 得 洗 的 
转 置 对 前 沅 厅 亚 , 禾 没 有 漠 宗 记 


ixznep 
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2.8 范 德 蒙 矩阵 和 托 普 雷 兹 矩阵 


第 2. 4 节 中 ,三 对 角 和 矩阵 的 情况 是 特殊 处 理 的 ,因为 这 凡 特 半 类 型 的 线 叶 系 演 厅 使 头 解 
运算 仅 为 级 ,而 不 是 一 般 线性 问题 所 需 的 全. 如果 存在 这 样 的 特殊 类 型 ,重要 的 是 此 了 了 
解 它们 .如 果 络 巧 要 求解 含有 特 蛛 类型 的 问题 , 它 所 节省 的 计算 量 是 很 可 观 的 。 

这 - 节 中 ,处 理 两 种 特 妹 形式 的 第 阵 :它们 可 以 在 司 级 运算 内 求解 :虽然 不 则 三 对 角形 
式 那 么 时, 但 比 一 般 情 况 要 强 多 了 (除了 运算 基 外 ,这 两 种 类 型 的 矩阵 没有 别 的 其 司 卫 处 )- 
第 -种 类 型 的 矩阵 称 为 范 德 蒙 串 阵 (Vandermonde Matrices ) , 它 经 常 出 现 相 与 多 顺 比 拟人 台 、 
护 的 分 布 重 构 以 及 其 它 一 些 内 容 有 关 的 问题 中 ,例如 本 书 的 在 第 3. 5 节 中 出 于 了 苍 德 蒙 年 
寿 。 第 二 种 类 型 称 为 托 普 雷 兹 抢 阵 (Toeplitz Matrices), 其 很 容易 在 解 卷 积 和 信 导 处 理 训 题 
中 遇 到 ,本 书 在 第 13, ? 节 中 将 遇 到 托 普 雷 兹 矩阵 。 

这 并 不 是 已 知 特 殊 形式 插 阵 的 全 部 . 希 尔 伯 特 矩 吐 (Hilbert Matrices ?的 元 素 乡 尖 为 w， 
一 1704 二 一 1)57 一 1 N ,可 以 用 非常 精确 的 整数 算法 来 求 赣 。 由 于 其 数值 咀 况 很 特 丈 ， 
用 其 它 别 的 方法 来 求 闻 是 很 一 难 的 ( 祥 情 请 参考 .1]). 已 在 第 2.7 节 中 访 论 过 的 谢 亿 曼 - 莫 册 
森 (Sherman-Morrison) 和 伍德 们 瑞 (CWood bury] 人 公式. 有 时 可 以 用 来 把 新 的 特 弥 形式 转换 
成 已 有 的 形式 ,我们 还 没 发 现 别 的 形式 的 矩阵 象 现 在 讨论 的 这 两 种 旭 么 常 匈 ， 


2.8.1 范 德 莫 矩 阵 


六 xR 的 范 德 蒙 郑 阵 元 全 出 六 个 数 rn， rw 所 确定 ,这 品 : 个 抱 束 按 其 束 烙 次 颗 丫 列 .二 7 一 
1 显然 有 两 种 志 能 的 形式 , 官 取决 于 是 庆 看 作 行 了 看 作 列 ,还 是 反 过 来 .发 前 此 我 们 得 和 线 性 系 流 的 


睫 程 如 下 : 
下 和 中 ，- 
将 | 人 | 放 
四 | ， 
j 





《2 


将 钙 阵 采 法 展 二 就 会 而 到 , 沪 方 程 求 能 的 本 基 系数 二 它们 与 N 对 横 束 标 和 可 织 党 标 Cryey) 之 僻 满 由 区 记 
式 关 系 , 精 确 地 求解 该 问题 将 在 第 3. 5 中 讨论 ， 和 :将 型 说 明 的 廊 法 来 求解 0 和. 1， 
的 。 

行 询 灾 覆 的 方程 组 形式 为 : 


-1 1 上 人 -= 
和 
袍 < 民 EN 1 j 全 1! 
人 2 人 | 这 0 | 2 
- 1 | 
一 交 证 人 7 本 二 


骆 东 展 开会 发 现 刀 与 失 朵 题 有 关 。 给 定 六 个 点 的 起, 束 林 知 的 权 w ,使 其 与 前 面 的 N 个 着 的 给 定 作 。， 
相 帆 配 :( 想 了 解 关 于 此 问题 更 多 的 内 窗 ,请 验 考 [4.4.) 这 一 节 中 给 出 的 哥 让 是 有 来 求解 (2.8. 2 的 ， 


歹 刨 43.3.1) 各 (2.8.2) 的 节 法 ,都 与 拉 格 良品 的 多 项 式 插 值 公式 密 切 相关 ,这 将 在 后 应 的 第 3 出 中 
讨 沦 ,尽管 如 此 ,下 面 推导 还 是 可 以 理解 的 : 
设 PC 为 W- 1 阶 罗 项 式 . 其 定义 为 


所 
Pify) 一 上 一 > .4 1 可 3 
Jo 0 业 一 | 


最 后 个 血 式 的 意义 为 ,将 手 阵 乘 各 展 开 成 多 项 式 形 式 并 合并 同类 项 ,再 把 其 系数 定义 为 手 阵 4,; 的 内容 、 
密 需 式 Pi(r)-. 般 是 x 的 两 数 .但 会 发 现 沪 数 的 待 珠 之 处 .对 所 有 zi 时 ,其 值 为 枉 : 对 > 一 站 

其 值 为 1。 换 言 之 ， 

总 

PjfTi) 一 人) 一 了 4iet ， 2 二 1 

才 一 ] 
式 (2.H4 表明 4 关 是 式 (2. 8. 2) 中 抑 素 刀 1 所 构成 的 算 阵 的 道 , 这 里 天 -的 下 标 代 表 列 索引 国 弛 ， 式 
(2.8.2) 的 解 就 是 该 首 算 阵 与 右 端 柄 的 匀 积 ， 


二 Adaai (人 .3 
二 1 
邓 于 孩 问 题 转 置 的 形式 (2.8.1), 相 据 转 置 扎 阵 的 道 攻 是 地 拒 隆 的 转 划 这 一 事实 .所 以 
5 一 5 《2 区 .人 
1 


在 第 3.5 节 中 的 程序 来 实现 亡 。 
留 下 的 问题 是 ,所 样 找到 一 个 好 的 方法 ,将 式 (2.8.3) 中 的 各 个 单质 乘 出 米 , 以 便 得 刘 4i# 的 元 束 . 这 个 
问题 很 有 必 紫 扎 出 来 ,这 虫 可 让 读 者 白 己 过 起 程序， 束 丰 看 它 基 胡 何 解决 的 , 先 定义 瑚 (7): 


pool 一 aa 4 2.8. 


求 出 其 系数 ,然后 通过 对 一 个 另外 的 项 做 综合 除法 ， 得 到 己 : 的 分 子 相 分 邮 项 5 关于 练 介 除 法 详 见 笃 
节 )。 因 为 每 一 次 这 样 的 除法 处 理 复杂 度 仪 为 六 阶 , 所 以 剖 的 处 理 过 程 为 N 阶 。 
糙 须 说 明 , 范 德 蛇 谷 题 山 于 其 内 在 属性 因 是 严重 病态 的 .( 在 第 5.8 节 中 还 要 担 到 . 持 厚 因 与 监 怀 世 比 
扫 太 拟 合 (Chebyshev) 达 色相 当 的 精度 - 翌 : 存 在 高 阶 多 项 式 , 其 形式 非常 接近 于 零 。 因 此 , 舍 入 误 状 会 江 
入 到 这些 多 项 式 前 凡 项 的 实际 系数 小 .) 因 此 始终 采用 双 精 度数 米 计算 范 德 蒙 回 题 是 个 好 办 法 ， 


下 面 的 求解 方程 组 (2.8. 2) 的 哥 序 是 山 G,B.Rybichi 提供 的 ， 


7 了 76。 


共 ineiudk ecuti hr 


woidq vattdtefrtcieuhles x 1. doubic w[、doube 9 incTy 
由 


求解 冰 怨 莹 线性 系 信 之 故人 二 LN 箱 入 这 折 癌 时 区 1 和 的 9 办 站 为 产量 辣 ，， 


jnt 主 , 本 长 .Xl. 
VDub1e bb,6t YX 
doubte 9c3 


cedvector(1,n) 
tiz (mn zs 1) v[11=qf12; 
6lse 《 
for 【is1ii<=n:i+s) =f 1=-0.D) 初始 化 数 粗 
cfn] ~* -x[i; 立 多 项 式 杀 数 由 遂 归 得 开 
for [ims2.i<:muii++) T 
XX 地 一 X 人 ti] 
for (3=Cn+1-iliJ<mgn-t) j++] ([】 + XX 本 c[j-t] 
cin] *= Yz; 
》 WO 
for 【i=1;i<=aii+*) 二 依次 对 每 一 企 炊 因子 
xxz*X[i]; 
fmbe] - 口 :; 
s=qrn] ; 
区 =R 
for [ss2 jiz=nyjt+) 做 冰 合 除法 
其 1 区 一 1 
hec [x+EEeb; 
5 “= q[x 妇 wb 所 市 喘 虞 进行 绅 陈 莱 
化 王浆 现 申 蕊 二 昌 ; 
Xml: 


》 
fi]sAt， 用 守 母 除 


让 
frue_dvector(c lon) 


2.%. 2 托 普 雷 花 佐 阵 


直送 的 托 普 册 获 生 阵 (CTopioitr Marricesy 田 给 出 的 2Y 一 :个 数 和 组 下 一 一 六 二 1， 


1 一 1 这 上 三 数 作 为 矩阵 的 常 景 元素, 次 (左上 至 右 下 ?对 角 线 顺序 排列 : 


下 
及 : 开 c 下 一 县 一- 语 
及 只 有 


Re Ra 站 
RN 内， 2 


线性 托 普 雷 获 问 题 可 雪 为 
人 1 = 人 一] AN) 
了 1 


其 中 司 jj 一 1 为 要 凡 解 的 术 知 晶 。 


.94 


《2 8) 


2 


如 果 对 所 有 点 于 人 天 :一 玉 则 该 托 普 惠 兹 阵 是 对 陈 的 : 某 文 各 (Levinson) 设 计 『 汪 汶 虽 榨 的 托 洲 


雷 蒜 站 题 的 快速 萤 尖 ,边界 法 . 亡 是 一 个 递归 过程 , 圭 来 求解 M 维 的 托 普 备 兹 问题 


尽 、 下 ff 一 11 (22 1 7 
依 寥 取 邮 一 1 2 直到 好 一 六 ,全 可 发 得 最 行 要 求 的 车 吕 , 同 最 5 其 第 好 次 得 到 的 兰 果 .只有 闪 玫 过 
到 下 财 , 才 谋划 求 的 解 。 
来 文 进 的 方法 在 标准 的 教 位 节 中 (例如 [3 者 在 着 细 的 介绍 : 查 这 种 太 法 推广 刘 非 对 称 阵 的 情况 ,地 
鲜 为 人 知 . 这 里 只 出 -个 由 Rybicki 提供 的 准 导 = 
在 上 面 由 第 M 步 到 第 好 十 1 步 的 推导 由 -会 发 现 递 推 荐 阅 ”的 变化 如 开 : 
订 


人 局 = 1.) (2.8. 11: 
7=1 
灾 改 
> Ri 二 (2. 8. 12; 
Re 
消去 ,他 
提 人 
1 了 机 二 区 人 
名 有 (生生 汪 
臣 将 将 = 周二 17， 并 将 产 *az 二 1 7 
到 
了 RiG 一 《Mi 
ji 
其 中 
1 所 =3:1 
光 0 
C” 本 一 (2 
好 11 
将 共 改写 为 
0 的 和 证 1G = 1 【 定 .6 


因此 .如 果 由 此 递 伏 式 求 得 申 阶 的 侦 写 和 和 人 5 以 及 -个 时 一 ! 阶 的 值 了 党 各 则 其 余 所 有 的 富 “入 可 
求 得 - 汶 运 的 是 , 值 8 可 人 在 方程 (2,8.12) 中 , 令 半 一 | 上， 


六 天 4 
5=1 
对 本 刘 的 虹 十 1 阶 最 了 党 ,可 以 用 6 中 的 低 阶 基 米 吕 换 。 让 
1 一 2 
6 一 一 一 一 (2. 训 :5) 
人 1 
运 站 的 结果 为 
吕 
>， 尺 。， 站 2 
人 本 
人 Ri 
党 1 


铀 上 的 叭 “ 倍 般 是 水 人 的 递 玲 关系 .外 贞 在 构 导 素性 关系 之 前 ,我 们 必须 指出 ,对 诛 米 的 非 对 称 镶 年 术 政 
虱 昼 是 .右上 遇 个 完全 相同 的 筋 集 , 即 和 喘 项 解 5 我 们 已 讨论 的 ?和 堪 端 项 钊 Z : 无 靖 项 解 的 形式 羡 别 仪 在 下 
装 处 下 的 六 殿 为 


玫 (2.8 2 
然 生 .对 该 集 间 做 蓉 似 的 换 攻 , 行 
了 
人 > 民 UP 开 (8219 
于 


其 中 


7711 二 和 【2. 8, 22) 





( 订 式 2.5.14 一 2 和 15 比 较 ), 提 贡 革 天天 解 的 旧时 在 二 -在 方程 {t2. 8 21) 中 ,要 是 用 yi 大 营 换 三 到 下 .外 
了 与 漠 丘 相知 的 方程 , 闷 此 ,出 广 各 (2.8.19) 我 们 可 以 很 快 栓 出 





之 As 机 妈 w 

1 一 -一 一 4 23) 
入 ,Re 
Di 

和 玉 合用 车 换 >. > 屎 ~- 交 并 用 坦 同 的 符号 表示 , 则 避 满 之 激 表 东 的 相 站 的 万 程 . 即 

避 
多 

6 = 把 一 一 一 - RS 和 8 


人 Re 
同 理 , 变 换 广 程 (2.8, 16? 以 及 工 所 表 基 方程 的 对 永基 ,得 最 后 的 方程 为 


0 1 
人 人 





下 (2 25 
现在 ,来 全 看 方程 的 初 傣 
RE Ca R. 261 
我 们 可 以 递 惟 上下 辫 : 在 第 晨 步 求 船 运程 中 , 卫 广 程 人 (2.8 23 和 (2. 8. 24) 求 得 生 刘 G 遇 然后 让 程 
(2.5. 25) 求 得 另外 的 大 党 和合” 的 册 容 ,出 此 ,网 区 关 ” 各 ?或 z 7 便 很 容易 求 出 了 ， 
让 的 程序 完成 岂 功 能 . 它 将 ( 汪 .8, 25) 的 第 二 个 方程 撒 趟 变 为 
理光 一 人 
这 样 计算 可 以 * 阿 此 " 赴 行 : 
注意 如 果 心 一 0* 见 上 上述 算 法 失 履 . 非 实 上 ,由 小 迪 界 泛 没 有 采用 主 元 素 法 ,期 果 将 诛 来 的 托 自 消 笃 远 
阵 中 平 对 间 线 上 上 的 小 元 素 化 成 赤 , 身 水 也 会 实 败 ! 由 第 2, 1 站 中 讨论 的 = 对 角 陈 算法 对 引 一 下 ? .如果 算法 
失败 : 征 陈 并 不 :和 定 评 闪闪 的 可 能 几 顷 用 -个 慢 点 亿 更 为 通 丹 的 算法 ,例如 ,使 月 主 元 素 法 的 工 L 
分 解 来 求解 该 问题 。 
该 程序 实 开 方 程 12.8.231-2.8.27) .也 是 征 恨 yhiegi 提供 的 -注意 ,程序 中 的 z[n 门 与 二 而 的 区 得 ， 
当 , 因 此 .数组 上 的 下 榜 变 化 范围 为 下 -2 1 。 
于 inclttde “neufil. hy 
世 defline FRERRETURNIfree_veefor(h ,Lifrec vectorf 人 gl Lireturny 
void tosplztuatr cr[ ioat x[ 站 ,fosr yw[ 1.inyn) 
求解 托 普 宦 侣 局 监 之 1 普 记 紫 拒 阵 不必 基于 称 的 :7 和 和 下 十 从 
朋 长 大 为 和 2s na 的 输入 王 阵 ,FI aa] 县 输 出 过 红 


inz j,X,z,Dl,D2; 
loat PP;,Ptt ,Pt2,q9,qtl,nt2,ad.sgd,sgb ,hn ,sx 
leat 中 区 wh 


证 (rz[n] = 站 .0) nrarrorf "toaplIiz-1 ainghutlar Principal mitnot") ， 
BE=vVector(1,]) 1 

he=vectorginl; 

x[l]=y[i]xxrfn]; 为 递 推 气 始 化 

if (na “= 1 FREERETURN 


7 了 9 


节 L1]=rt-lirfa]i 


hf[1]j=rfn+l]l]yrfn]; 

Yor (msl;ac=DiB++) 递 推 的 主 咯 二 
咯 上 = 全 + 了 3 
sx = -yfmti]， 计算 x 的 分 了 和 分 母 项 
sd = “7r[a]; 


for 【je1i1c=m;j++) 
SXH + zfa+mt-jiszfj]i 
sd += FInhyzl-j]sg[Ia~-j+1]; 


if 《sd = 0.0) nreTror("coepiz-? SinguULtar Principal mlnor"); 
工 岂 1]=axnysti 由 此 得 到 必 
for {j=1ij<<mij++) XxLj -= 守 [ma:]jsg[m-j+z] ， 
E (ml = 了 D) FREERETURKN 
EBgm 一 - 工 [了 - 电 1] 计算 各 和 二 的 分 子 和 分 母 项 
Shn = -zfn+al]; 
sgd = ~rkp]; 
for 《js=1i;jc=oij++)》 1{ 
sgmn +=< rr[n+j-mljwg[jji 
shn +<= T[btmj-j]e*hrj] ; 
sgqd += r[n+j-m1]wn[m-j+i]; 


] 
if (sd <= 0.0 11 sgd *- 0.0) nrarror("toeplz-3 slngular Principal minor") : 


g[ml]=sgaysgd; 由 北 得 到 加 和 王 
3 [mtj*shznysdi 
Ke 
mm2= (m+r1) >> 诗 ) 
PP=&[m1] ; 
qq [ni 1? 
for 〔jm1;J<=m2;j++) 工 
Ptt=gfj]i 
Pt2= 区 [x] ; 
Gt1h[j: 
qt2=bh [kx]; 
有 [jj]=ptt-Pp*qt2; 
史 [k] =Pt2-Ppsqtil; 
0]-qti-qq*Pt2， 
h [k--]=qt2-9q*ptl; 
了 返回 进行 了 一 次 递 拱 


Drerror("toepyz - should nct arive hereln); 


如 呆 在 读者 工作 中 , 遇 到 求解 豆 大 的 托 普 翁 落 系统 , 傣 闪 会 发 开 有 - 些 声 称 为 "新 的 快速 "的 算法 、 它 只 要 
: 求 NCogNr 阶 操作 ,无 莱 文 必 算 法 需 N 阶 提 作 -但 这 些 算 法 非常 复杂 ,可 参考 小 奇 (Buneh)[6] 利 德 ， 记 
fde Reog)[?] 的 文献 ,它们 给 出 这 些 算 法 的 有 关 卡 容 ， 
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Westjakey 本 及 1868 :由 anme1loog of Niantprical artrir peersion antl Satarian af 了 pzear gaatrpns Tisow 
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Runmeh， 3.R，3985 .43 7 SGCieRTP cl SrarPtceE CPP VOD 419 3 


de Hagkg 下，1287 petr 人 ERepre an 0 patinms ve 88:89.PF，123-138。| 7 


2.9 天 莱 斯 基 分 解 


如 虹 - -个 太 亦 音 丛 好 是 对 称 技 和 正定 的 , 唱 它 在 一 烷 殊 的 更 有 效 其 一 角 分 解 .对称 的 间作 在 二 5， 

对 71: 正定 的 意味 着 
vY 0 村 厅 有 向 其 2 

“在 第 1 豪 中 .我 人 将 会 青 到 下 证 的 等 价 甸 乞 加 ,各 的 所 有 桂 征 伸 占 为 正 灶 -) 对 称 止 是 的 十 库 相 尝 桂 绽放 
倍 企 某 芷 度 朋 小 会 经 党 出 现 , 帮 最 时 知 得 上 共 特 殉 的 分 铝 . 称 作 乔 药 斯 基 'ceholesky) 分 和 解 .合用 这 六 方 二 二 解 
线性 方程 组 时 , 鞋 不 多 更 比划 的 六 法 快 及 局 

乔 莱 斯 基 分 多 并 不 是 寻找 在意 的 上 一角 初 王 三 角 岂 子 工 式 避 ,而 证 阐 造 一 个 下 一 朋 镍 阵 L, 其 壮 茎 本 
身 相 为 上 :背部 分 . 换 谨 之 ,我 们 可 以 相等 式 12. 3. 1 换 成 


LE 一 入 (2.3. 321 


流 分 饰 有 时 证 引用 为 ,对 惠 阵 A" 取 中方 要 ”上 ”的 邢 率 与 二 抱 元 素 的 关 条 自然 尾 


与 出 方 翌 [2.9. 2 的 元 索 , 很 容易 得 人 镀 与 语 得 12.3. 127 一 (2.3.13 类 似 的 站 果 ， 


SS T ， 
有 9 
人 
1 N\ 
人 (入 
人 下 -1 


着 果 坊 希 序 ;一 1 2 六 使 用 方 各 (2. 9, 4 和 (2,.9,5) 记 会 发 现 专 喘 二 现 的 工 在 需 亚 时 已 泽 确 定 ” .还 
有 ， 公 有 有 产 扩 的 元 vi 被 引用 (这 为 让 症 对 称 的 ,这 些 包 合子 全 部 的 信息 ) .然后 ,很 帮 便 地 就 可 托 基 季 上 
章 写 全 区 于 对 名 线 部 分 { 下 三角, 村 不 包工 对 掀 线 ) ,而 保留 输入 的 生 的 上 三 钊 的 值 不 变 . 基 而 下 项 -， 
个 长 度 为 闪 的 妊 加 疝 基 存储 工 的 对 角 线 部 分 -其 运算 次 数 为 As56 座 为 层 循 下 (包括 一 次 乘 ， :次 减肥 NY 
次 平方 根 运 得, 前 豆 已 坦 惠 过 .这 关 不 多 区 比 生 的 2 分解 快 柜 倍 ( 上 内 它 没有 考虑 吓 陈 的 弄 称 性 ). 
个 直接 了 当 的 演 现 为 


节 Ucluds Testtb. 训 二 > 


void choide KClioat * *adyinnsjioutbpL 
对 簿 出 的 正定 对 称 柴 亚 a 1 .nm 1 .5 本 程序 构 适 其 开 蔷 斯 基 分 般 ,A.= 上 LT. 输入 量 公 需 芭 出 站 上 一角 部 分 、 
而 且 它 不 被 给 序 笑 改 . 工 莱 其 基 队 子 上 返 同 于 a 的 下 注 航 部 分 ,但 式 对 角 线 元 帝 返 回 到 pP[1..nj， 


void nrerforfehar error text[ ); 
jnt j kk; a 
ilnat sumy， 


[Isr fi=1:i 世 =no4- 十 ) 
for (一 ij< 一 nj -1 3{ 


[or (sumt ra[ isk 一 Tik 交 kk--) sum 一 一 arilk:xa ji k]， 
共 全 立 本 二 
这 (suna ss 人 六 直 平 谷 信 误差 的 缘起 ,s 不 总 证 定 的 


nrerrort "choldc fajled" ys 
Pi 一 sqrt(sumj 


ee。 5] 。 


else 划 lj 儿 刘 二 sumyp[i 


此 下 , 谈 音 可能 会 起 是 否 肃 芝 找 主 虑 ,信人 商 兴 的 是 , 基 莱 斯 某 分 解 企 数 值 上 极为 稳定 .而 乐 序 rholdc 
有 的 失败 ,只 能 去 妇 延 阵 和 :或 是 机 于 念 人 溪 盖 的 缘故 ,有 另 - :个 与 其 非常 接近 的 拭 阵 ) 不 是 正定 的 。 末 志 
得 序 cholde 是 .种 检测 个 对 称 趾 阵 是 和 否 是 正定 的 表 人 有效 的 方法 1 对 于 这 种 应 用 ,可 以 把 对 rerror 的 让 
用 换 成 其 种 亿 蕊 垦 利 些 的 方法 )， 

- 电 刘 阵 被 分 撩 、 可 下 过 人 同 代 过 程 出 - 笛 谎 子 来 求解 线 入 方程 。 这 种 坦 接 的 必用 发 

void cholsl tiloat * kayinr ny float p[j, float b[], float x[) 

求 饼 n 座 线 医 广 程 给 站 ,一 b, 具 中 a 为 正 耳 对 称 定 阵 - 输 大 晤 a[.n [Ta 用 bp[1. nj 中 得 上 sholde 和 输 由 的 让 来 、 

具有 = 的 上 :三角 就 分 法 访问 ,b[ na. 输入 基 是 右 误 项 问 量 . 解 度量 返回 昔 xc1..o 中 .ou 寿 吕 江 有 被 个 及 ,下 各 作 

不 时 右 端 拓 上 的 选 续 调 骨 :h 也 不 被 修改 , 珍 半 调用 时 尾 b 和 x 设 成 个 .这 种 情况 是 允许 的 。 


inl ivk ; 
Hiear sutnl 


for (=15 < 这 一 nil 十 一 ){ 求解 .7yY=b ,将 y 在 * 
for 《sum 一 bo]j, ki-likm> 一 tk 一 ) sum 一 一 aiEk rrx[Lkj|; 
x[i 品 =sumypD]; 


far [LI 一 ni 全 一 151 一 2 求 暑 二 x 一 》 
ipr (sum 一 xX[i]k 一 i 十 1ik 式 一 nik- 十 ) sum 一 dk ix<x[k is 
x[D]=:sumpui]; 

1 


choldc 型 cholsi 的 一 个 费 焉 宕 用 是 , 求 境 述 数 过 适合 某 种 异型 的 协 方 次 现 阵 的 选 , 参 殉 如 第 15. 6 生 
这 里 及 其 它 洗 多 应 用 中 ,经常 需要 .该 殉 阵 的 下 一 角 部 分 可 以 效 地 从 echolde 的 出 中 求 得 ， 
ior (Ci 一 15i<niih+on 
ali][i 让 =1.07p[i2y 
For fj 王 i 十 1; j< 盖 nj 十 3 
sun 一 0，0; 
fer (k 一 1 k<Ji 1 ) sonm 一 a[i[k- *a[kjfijy 


3 ji 一 sumyDpTi 


2.10 CR 分 解 


还 有 曙 - :种 筷 阵 的 因 式 分 解 ,有 时 砷 珊 有 用 , 则 所 谓 的 R 分 解 : 
多 再 二 有 有 (2. 11》 
此 处 二 上 三 角 的 ,而 名 是 正 交 的 , 即 
QQ 一 1 [2.1 2 
其 中 心 为 也 的 转 置 , 久 管 对 -- 般 的 长 方形 拒 阵 ,这 种 分 解 都 存在 .但 我 们 还 是 限定 为 维 数 为 生 x 和 的 开 
阵 的 情况 。 
虹 我 们 已 遂 到 过 的 其 它 禾 阵 分 钙 (LUSVYD,Cholesky)-- 样 ,QR 分 解 包 可 用 于 求解 线性 方术 系 弛 。 欲 


点 "下 42. 1 31 


首先 构造 妨 :b, 然 后 通过 回 代 过 程 求 解 

Rx-Or'b [2 
町 为 QR 分 解 的 法 鼻 操 作 荔 木 才 大 工 二 分 解 的 丙 借 ,所 以 它 林 用 寺 暴 生 的 线 相 :和 孝 程 系 流 : 然 下 ,我 们 会 瘟 利 
一 些 特殊 情况 ,QR 分 解 是 林 选 的 方法 ， 

标 奉 的 QR 分 九 算 法 包括 连 练 的 豪 斯 锅 得 变换 (在 与 面 第 11.2 竹 订 论 ?我 们 鄙人 沾 台 斯 党 德 击 了 , 标 
式 为 1-@@ uc, 其 中 < 一 到 uc 合适 的 察 类 贺 德 给 隆 用 在 给 定 的 竹 阵 上 ,可 以 启 位 于 某 进 定 皂 表 之 下 的 
拖 阵 列 元 素 全 部 鹤 化 . 困 此 ,我 们 说 第 一个 豪 斯 贺 德 拓 阵 马 ,使 各 的 第 … 列 第 个 元 素 之 下 沾 开 素 全 化 为 
零 , 同 样 ,Q: 使 第 - 列 第 一 个 元 素 之 下 的 元 索 全 化 为 鹤 , 如 过 直到 QQ，, :所 以 

及 一 人 12.154. 3 
町 为 宫 斯 锅 德 年 阵 是 正 交 的 ， 
QQ Qi 一 QQ ， 1 
在 大 前 分 应 出 中 ,我 们 林 需 要 显 忒 地 形成 下 , 刀 需 将 其 达成 人 10.5 的 因子 的 形 共 , 除 非 扎 阵 A 生 常 据 这 
奇异 , 驹 则 不 必 江 主 元 [1] 中 给 出 了 -种 通用 的 ,对 长 方形 笔 阵 的 QR 算法 , 读 包 括 了 发 十 开 .这 方 孟 :种 
实现 程序 如 下 : 


其 IDclude 过 Inaltib 
杂 inelude“nrutil.h”" 


Ycid atrdemPp {ijpatf <* ”aintny boat *cyfloat xd,inf xsing) 
构造 a[1..5j-1..n] 的 QQR 分 解 .上 二 舟 气 阵 民 返 区 到 as 的 上 .首部 分 ,其 等 对 角 死 返 臣 天 d[1,n- .上 交 下 阵地 短 
起 示 成 呈 一 1 个 吉 斯 贺 德 生 阵 @:…Qu 的 积 角形 式 ,其 中 国 一 1 一 由 Byrc 对 5 9 一 1 的 第 i 个 汇率 为 灾 . 
非 零 元 抬 同 村 s[i 开 ji 中 心 三 六 ,如 时分 解 中 出 更 奇 蜡 的 情况 ,sing 利 返 同 为 真 141) ,全 本 例 书 -应 守成 分 笨 , 臣 划 
馆 回 为 俱 (0). 
2B 了 ji 
闻 1D 二 上 呈 CT -0 ,和 IEBmR SU tai 
二 让 1 RE=Di 


for 《kzet;kcnhik++)》 
for (leE;i<csDaii++) BcalenFMAX(BSEcale,Tabata[i] [kx])); 


让 【gchle = 一 0.0) 工 奇 呈 情况 
让 吧 了 IE 区 mm 工 
cpDqJ=d[x]=0.0; 
else { 形成 Quk 政 QF 上 生 . 


?cr 【is=xit<=m;i i++y)》 a[i]fIx] /we Bcalei 
for 【9ume=D.0,imk;ii<<n;ii++] aum +m SOnKari]l[x]) ， 
BigmaSIGN《6qxttoum) ,afk] [xl) 
&[k] fk] += sigmai 
SI]=meiguasa[k] [xl ， 
qd[K] 一 “SCRTsBB 二 Ed3 
zcor 【j=k+1;j]<=aij++) 1 
for (gum=0.0,i=ki;ii<<nii++》 9tum + af[i][xjs*ar[i][j]; 
tauaum/c[k]; 
zcr (1i=<k;di<=nil++) afil[3] -= tau?a[i][x]， 


》 
】 
” 了 [ojm 二 [b] [an] ; 


记 (d[n] ==~ .0) =*aiag=13 
} 


下 桓 的 程 让 qrselv 同 于 求解 线性 系统 。 在 许多 床 用 中 , 仅 带 要 算法 的 (2.10, 人 部 分 .因此 : 乱 们 料 其 分 离 成 
单 各 的 程序 rsolv。 


Yoid qrsolv ffloar * *ay:nlnyflosac |. Doard ,hoarhbl ， 
水 部 口 浊 线 蓄 方 得 纪 ASX 一 bb, 和 东 大 出 相 ni ce ci 和 和 47| 且 种 读 grdcmp 读 町 灿 结 网 .用 了 二 和 


必 - 答 入 量 b .uaj 为 石 彤 癌 量 ,并 被 输出 的 彬 严 量 折 社 区 2 六 
vetd rsolwttloas # 着 9 nn esr tt ilosh br ， 


int ii 
float suniy， taui 





for 站 一 1<nijtr -> 撒 - 尖 (7b 
Jor isum 一 0 一 ii 人 一 nii 十 十 》 sum 十 = ai 人 >b:i; 
tu 一 sm 
Jor (= iic 一 nai 一 十 hb 一 tu ij 
1 
Tsolvfanreb)i 求解 Rex 一 Qb 


void rsolvtfloat > #ay intn，Ecoatt[ ， nosb[) 
求解 口 维 线性 方程 级 及 ,一 b+ 其 白 民 为 夯 卫 冯 本 的 | 兰 前 征 诺 ,区 入 晶 3 站 .a] 科 1. .cj 是 雁 讶 grdcmp 号 牺 出 
妖 虹 ,调用 不 被 族 履 ,输入 景 BL1 .ce 为 去 淆 问 基 .并 或 各 出 的 解 本 时 故 响 蒜 写作、 


int ij 
Jioat surn ; 


b[oa]y 一 dr[o- 
tor (=n Li 六 15 一 一 ) 
fcer fsu 中 一 和,j 一 十 :二 一 ni 一 一 sum 一 一 后 


hb 和 =:bD7 -sumyydD] 





关于 如 条 个 用 急 中 分 首 树 造 正 基 共 求 解 最 小 和 下方 必 条 冲 ,可 着 细 旬 首 [ 半 0 邓 这 种 有 万 泛 , 我 站 中 作出 
第 2.6 的 SVD 方法 ,内 为 它 对 郊 访 情况 其 丰 绞 斌 的 诊 世 能 方 ,， 
2.10.1 更 新 QR 分 解 

右 既 数 倘 算法 包含 求 贸 连 串 的 线性 条 流 ,河和 个 系统 与 前 一 个 公有 很 小 的 芷 鸯 ,不 民生 坎 加 让 0 
CN35 次 运算 从 零 开始 求解 ,我 们 经 常 可 以 在 OU: 次 运算 岂 虽 新 审 阵 因子 , 理 用 这 个 新 的 儿子 求 站 于 上， 


个 线 注 方程 钥 , 册 于 找 主 元 的 原因 ,ZE 分 解 更 新 很 复合 .然而 QR 分 解 对 一 种 很 常 包 的 束 新 却 基站 党 宏 局 
的 ， 


入 一 点 十 Sit 二 
【与 方 各 2. 7 比较 .实际 上 :出 托 等 俐 的 民 式 来 计算 让 方便 
和 旭 'R 一 站 一 由 FRI =Q:IR+uGOY) (2 v1 
可 以 在 等 式 (2.123.73? 和 [2.10.81? 之 了 丘 . 泛 复合 用 @@O 是 下 父 的 这 -事实 ,得 到 
ty 及 sq 或 or:s (2 


算法 [2 有 有 两 全 阶段 .第 -阶段 , 式 引 应 用 入 一 [次 准 记 比 草 转 (第 11.1 季 小将 妇 - ugov 是 的 成 [ 租 栋 
坦 格 (Hessenlberg) 形 式 . 另 和 1 次 淮 可 比 各 转 将 该 上 诲 森 伯 尾 利 阵 转 坎 或 新 的 -三 站 旭 和 攻 民主 陵 QT 
为 昌 芍 208 了 次 蕉 串 尼 话 转 的 项 可 形式。 在 谋 用 中 通常 需 鉴 Q ,该 算法 很 谷 兄 将 @ 接 成 Q' 的 展 基 汗 
算 。 


include 之 math.h>> 
苹 incjude “nrutil.h” 
YoOiil eropdtgiloat > rs hoal * <qtyintny foat ci floatv 


姓 某 个 缠 的 nxn 敌阵 的 外 民 他 种, 汁 算 掉 噬 负 1 的 入 区 分 角 . 文 此 导 的 维 数 册 呈 0 
8 。 


1 给 入 质 . 间 派 河 丰 由. 


{ 
Void rctataerf]oat we*r，ftl1oat 中 eqt，int Dint ii， Eloat a，TlLoat b) ; 
int ij,a5 
for 〔k=Dp;x>=1;X--] 工 二 找 最 大 的 天 合 aIx] 关 0， 
if fufk]] break; 
下 
if (k < 1) =li 
for 《imxX-lii>=1ii-~》1 将 R+w 包 Yv 转换 成 土 海 森 伯 彬 形式 
rotatefr,qtaviu[i]l,-uri+i])3 
iz (ur[i] == .0) u[i]=fabgfuri+ezi]); 
else ii 《tabsgku[i]) > fabsfu[i+rl])》 
uri]=fabs(u[i])ssqrtk1,9+S9RCuLi+t ulilyy); 
elsa u[ij=rabstufiyrl])asqrzgi-oO+SQRKu[iz] uri+rl 7) 1 
for 〈j=l7zj<c=aij*+) r[]Ljj += 写 [tsv[j]; 
for (is1,ai<k;iy+) 将 上 海 森 佣 格 算 陈 转换 成 上 二 角形 式 
rotateftr,qt,nirfi][li],-rta+rti]ri])i 
二 


其 include 过 Inath.bh 2> 
Mincjude “rrutil h” 


bid retate(Cfiloat # ytefioal * #nts in intiy foatay floatb) 
对 给 定 的 各 阵 nEO 和 dm- 和 莹 每 个 算 阵 的 ; 行 和 i【 生 远 打 外 可 比 回 转 ， 诈 - 











rao3 一 < vie9= 一 - 2 
rr- 瑚 We 1 下 
下 

int ])， 

float cfact.sviyi 

if (人 a = 一 0.0 1 媳 免 不 区 要 的 上 滋 或 下 禾 
C=0.0i 
s=fb > fr.0?1.0: -1.0); 

}》 else if {fabsia] > fabstb?) 1 
开 aC 七 = 口 / ai 
C=SION(1.0/sqrt(CL ,0O+[TACcLaTa3CL)) 8) 1; 
5= 人 acCteCi 

上 else 攻 
革 aCLa&Abi 
s=3IGN(1.0ASqrt[C1.O+[<actyiact3)y vb]i 
CacrttSi 

了 

for (ji;]<=<ni]t+) 1 1 预 汪 以 蓝 可 比 尾 转 
ysr[i] [J] ， 
wer[i+1] [j] ; 
zfi]fJJ=cry-3w9 1 
工 [1+1] [j]=se7+ewEi 

} 

for 《j=1lij<=n;j++) 《 9: 预 乘 以 雅 可 比 旋转 
y=dt[i][]3， 
=<qt[i+ij 0j]; 
qt [i][]]=cey-sw9i 
qz [141]1 [j]=Sey+Cew， 

上 

了] 


鞠 尖 将 在 第 8. 7 节 中 ,使用 QRK 分 解 及 挫 更 新 部 分 ， 
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2. 11 和 抢 阵 求 道 是 NA: 阶 运 算 吗 ” 


的 剖 题 半 始 : 
对 2X2 的 拓 阵 进行 矩阵 并 , 划 做 多 少 次 滋 法 运算 . 
[a2 ez 隐 了 1 clz| 


1 
2 | 


sa2l eessj 
人 次 ,对 吗 ? 明 确 地 当下 来 节 ， 
C1 一 Qi1X 太 :十 4 
全 
CQxl X 上 十 eis 2 
cz 一 CQ XD 十 asXX2os (2.1-,2) 
你 相信 有 人 能 反 用 七 次 乘法 ,就 写 出 求 (的 公式 吗 ? 
事实 上 ,这 套 公 式 是 由 斯 特 拉 森 (Strassen) 发 现 的 ,这 些 公式 几 ， 
息 : 六 人 十 go) 公 (一 下 2 
2 十 co Xi 
局 ;二 ci X (一 如) 
@, = ws X (一 六 小 放 ) 《2. 131.3) 
久 : 二 (al | 人) Xe 
妨 . = 一 ca | ce)X 仿 十 六 
外; 二 (ay 一 收 (人 一 总 2) 
由 此 得 ， 


ce 一 局 十 人 入 一 外 一 所 

这 人 么 做 有 什么 用 呢 ? 昌 然 比 方程 (2. 11.2) 中 少 了 一 次 乘法 ,但 却 多 了 许多 加 泛 和 减法 ,还 看 
不 出 来 得 到 了 什么 好 处 。 但 注意 到 式 (2. 11.3) 中 a 和 六 并 不 互相 引用 ,因此 当 <“ 和 训 木 身 驻 
是 抢 血 时 ,方程 组 (2.11. 3 和 (2. 11.4) 就 有 效 .对 非 党 大 的 琴 个 矩阵 相 乘 党 题 (对 某 赴 整数 
mi : 维 数 六 一 2 ) ,可 将 其 递归 地 分 解 为 四 分 之 ,小 六 分 之 一 等 等 -关键 是 要 诗意 绚 : 节 省 后 
的 运算 量 不 仅 基 个 “778 "的 央 子 : 厕 遂 归 的 每 一 级 都 是 这 个 册子 , 它 总 基 将 插头 乘 的 运算 
纪 山 A5 级 碱 少 利 Ne 。 

那么 式 (2. 11. 3) 一 (2. 11.4) 中 生 外 的 加 法 怎么 算 呢 ? 它 会 不 会 超过 了 由 于 少 算 法 带 
来 的 好 处 呢 ? 对 大 的 只 贰 .可 正 肝 和 这 12 人 一 (全 革 中 续 介 的 加 法 次 娄 是 乘法 演 数 的 


w BRBD。 


六 入 ,但 是 ,如 果 N 非 党 大 ,该 常数 内 子 就 不能 与 从 N 峰 到 News 的 指数 变化 相提并论 了 
在 进行 “快速 " 拓 阵 乘法 的 研究 中 .斯 特 拉 霖 达 得 到 了 关于 抢 阵 求 北 的 邻 人 吃惊 的 结 虽 ， 
候 定 所 阵 


Le 和 | | | 站 
eta 2 (231 Ci2 
互 为 道 和 矩阵. 处 * 可由 = 按 下 列 拘 作 得 列 : 
玉 == Javerse (ee i) 
民 = oa X 民 ， 
是 :天 党 
及 一 eol 芭 肛 
再 一 此 一 过 
民 , 一 Jnverse 〔( 民 :) 性 区 本 二) 
2 
0 一 上 X 
开 ; 一 天 X cat 
一 民有 ; 
2 一 具 ; 


在 式 (2. 11. 6) 中 , 道 (Inverse)” 运 算 有 两 次 。 该 运算 被 解释 为 , 苦 e 和 +* 为 数值 . 则 求 其 倒 
数 ; 若 e 和 本身 为 平息 阵 , 赂 类 其 逆 矩 阵 .四 象 -- 下 ,对 -一 个 维 数 N= 2" 的 非常 大 的 拒 阵 
求 道 时 ,用 二 分 法 逆 归 求解 的 情况 .在 每 一 步 递归 过程 中 ,都 要 使 求 道 运算 的 次 数 奶 倍 ,但 这 
仅 意味 着 总 共 做 K 次 除法 ! 所 以 在 递归 使 用 式 (2. 11.6) 时 ,除法 并 不 是 主要 运算 .事实 上 ， 
等 式 (2.11.6) 主 要 的 运算 是 它 的 六 次 乘法 . 厌 为 这 些 乘 法 可 用 复杂 度 为 N" 的 算法 实现 ， 
故 矩阵 求 逆 岂 能 如 此 ! 

这 很 有 趣 昧 ,但 我 们 米 看 看 其 实用 性 ,如果 估算 一 下 ,要 多 大 的 N 才能 体现 出 指数 3 和 
指数 log:? 一 2. 807 的 差别 来 ,实际 上 这 就 是 浪费 笔 思 了 .由 于 递归 斯 特 拉 森 算法 的 内 在 复 
杂 性 ,就 会 发 现 EU 分 解法 并 不 面 临 过 时 的 危险 . 

勇 - - 太 面 ,如 果 读 者 对 这 种 游戏 感 兴 趣 , 可 以 再 试 试 这 些 :(1) 能 仅 用 三 次 实数 习 法 ,就 
求 出 两 个 复数 (e 一 局 ) 和 (ce 上 过) 的 习 积 吗 ? -答案 见 第 5. 4 节 ]。(2) 能 在 计算 - 盘 : 的 四 次 多 
项 式 时 ,对 许多 不 同 的 天 值 ,每 次 仅 用 三 次 乘法 就 能 求 出 其 值 吗 ?[ 答 案 见 第 5. 3 方 ， 


参考 文献 和 进一步 读物 ; 
Strassen ，V. 1969，Nimeriscjhe Mathentati，vDl，、 13，pPp，354 一 356: 1] 


第 三 章 ” 内 播 法 和 外 推 法 


3.0 引 富 


有 时 .我 们 仅 知 道 荔 散 Ar) 在 :系列 点 roseszs 圭 的 数 侦 (假如 和 全 
放 设 丰 /z) 的 解析 式 来 求 得 任意 一 点 的 数值 .例如 .An 能 来 源 士 一些 物理 测 基 他 . 尸 
来 源 寺 不 能 用 简单 数 形式 表示 的 见长 的 数值 运算 , 通 营 r 是 等 问 上 的 ,但 不 是 必须 下 此 ， 

现在 的 任务 是 ,还 一 条 通过 (可 能 越过 )z. 的 平滑 向 线 ,来 对 任意 > 估算 Ar 的 展 癌 则 
求 的 < 处 于 *: 的 最 大 值 与 最 小 值 之 回 , 则 称 之 为 插值 法 (办 搬 法 ) 如 昌 了 超出 此 范围 岂 称 
为 外 推 法 ,后 者 由 险 性 更 大 : 些 .( 许 洛 股 票 市 场 分 析 家 可 以 让 明 ) 。 

内 播 法 和 外 推 法 是 在 已 知 点 之 押 或 越过 已 知 点 ,用 某 些 可 能 的 函数 形式 来 做 拟 此 乓 六 
函数 的 形式 应 该 基 很 甫 见 的 , 亚 几 和 能够 近似 巴 应 用 中 可 能 遇 到 的 几 大 类 上 晒 数 。 人 
的 堪 冻 为 多 项 式 (第 3.1 闻 ) ,有 理 冰 数 (多 项 式 的 奉 ) 也 被 计 明 是非 常 在 几 的 (第 3.2 节 ) 让 
和 余弦 等 三 角 函 数 应 用 于 三 镶 播 值 法 及 相关 的 健 甲 叶 方 法 中 ,我 们 将 它 推 返 浊 第 RN 
第 十 一 章 中 讨论 ， 

在 内 容 全 而 的 数学 文献 中 .都 有 关于 何 类 明 数 用 作 攻 依 遍 数 能 很 好 地 进行 估算 约定 理 . 
普 城 的 是 ,这 些 定 理 和 通常 几乎 完全 没什么 用 :如 昌 我 们 对 盟 数 很 熟悉 ,能 够 自如 地 应 用 人 关 
的 定理 ,也 就 不 会 处 于 必须 艰 据 数值 志 来 内 描 函 数 的 可 怜 处 涪 了 。 

内 播 法 与 函数 通 近 有 关 , 世 也 硼 不同 之 外 . 国 数 通 过 汐 任 务 是 ,: 找 -全 近 和 仆 的 但 筑 勇 计 
算 的 ) 畏 数 用 以 取代 原来 较 复杂 的 函数 。 志 插 信 法 情况 中 , 基 要 在 不 由 自己 选择 的 点 于 结 出 
函数 直 的 值 。 而 对 于 少数 过 近 , 是 为 了 得 到 近 做 函数 .并 允许 在 任意 设 定 点 计算 出 函 烽 /村 
依 。 我 们 将 在 第 境 章 中 讨 伦 明 数 盘 近 问题 ， 

各 以 很 禾 易 地 构造 一 些 痫 态 函 数 使 诺 拉 法 失效 , 例 短 , 考 谍 函数 


(32 十 二 tai -下 《汪汪 


刻 除 了 > 一 了 之 外 都 有 定义 ,市 =:x 时 无 定义 ,其 它 情况 , 值 有 正 有 负 - 而 这 岗 数 李江 f 划 
于 数值 工 一 3.13,3. 11,3.15,3. 16 的 盾 值 法 ,都 肯定 在 了 一 3.1416 处 得 到 一 个 错误 的 解 , 玉 
管 通过 这 于 个 点 所 画 的 曲线 确实 相当 半 清 :用 外 算 器 这 试 香 。) 

氏 为 这 种 病态 甬 数 可 能 隐藏 在 任 邱 地 方 , 所 以 蔓 来 内 播 活 和 外 推 法 的 程序 ,能 究 供 导读 
的 错误 评估 ,这 样 的 氏 会 是 简单 透 菊 的 .我 们 可 能 有 个 起 数 , 它 和 人 
两 点 之 问 收 些 相差 本 远 或 是 林 符 合 要 发 的 点 ,其 理由 只 看 函数 构造 者 才 清楚 .六 :入 
定 进行 凡 描 的 果 数 有 . 定 程度 的 平滑 二 ,在 此 肯 定 政 , 储 贞 节 滑 也 应 能 被 检测 只 尖 

杰 含 上 讲 , 括 位 遂 程 有 了 酒 个 阶 品 .0) 线 一 公 播 伪 民 吉海 足 已 知 数 据 占 区 对 可 际 
迁 行 插值 悦 效 证 法 。 

淮 而 在 实际 庶 攻 中 .这 个 一 险 匡 访 讶 不 总 是 最 好 的 天 法 :站 法 与 在 需 蓝 每 区 直 和 不 这 





定 个 上 外接 档 进 佑 计 卫 可 产 辣 的 方法 相 纤 . 它 在 让 算 上 上 汇 型 地 缺乏 高 黎民 ,而 上 全 妆 衣 其 计 
题 也 值得 性 颖 .大 沟 灯 实用 方法 是 .用 个 邻近 点 As 开始, 葵 庶 其它 相关 的 站， 
然后 进行 :这 中 的 越 米 拭 小 的 由 下 (和光 弄 证 此) ,该 过 程 的 运算 次 数 般 为 CON es 
行 得 上 顺 列 .最 后 一 次 的 修 止 规模 最 小 ,而 且 防 条 革 做 可 作为 说 莽 汐 个 章 直 这 入 5 忠 让 十 和 
是 严 烙 内 ? 昼 跟 . 

对 多 项 式 抒 利 的 情况 ,有 和 时候 确实 对 证 值 多 和 式 的 系数 感 兴 趣 , 忆 管 由 它们 关 们 计 巧 生 
画 数 也 于 不 满意 ,我 位 将 在 第 3， We 

局 部 托 和 值 , 使 用 有 限 个 “最 近邻 "点 . 络 台 插值 丽 头 7。， 段 碟 来 它 没有 和 连 注 村 让 导 
数 或 总 阶 导 数 - 这 是 熙 为 了 取 的 是 0 绸 的 介 ”,: 焚 人 法 所 这 接 的 这 些 去 中 的 点 部 二 “ 
部 的 (如果 这 举 的 连接 允许 发 牛 任何 地 方 、 叫 在 于 -点 产值 冰 数 水 身 将 不 连续. 六 症 不 好 
的 做 法 ) 

在 攻 虑 导数 过 续 性 些 求 时 ,就 必须 使 用 “种 称 为 样 条 函数 的 "呆板 ” 的 插值 疡 法 了 
竹 两 个 已 知 询 去 点 之 钉 的 光 项 式 困 数 .但 它 的 系数 却 *“ 有 点 " 正 局 部 确 室 的 ,这 种 非 生 部 攻 ; 
用 来 保证 沪 插 值 函 数 的 若干 阶 导 数 的 鉴 体 平滑 性 ,三 次 样 条 插值 (第 3. 3 节 ) 足 好 为 十 玫 册 ， 
法 ,其 产生 的 托 值 国 数 一 阶 导数 生 续 , 翌 杀 法 比 和 多 项 式 法 炸 十 稳定 些 : 它 仕 询 表 忆 二 棋 开 
的 栅 率 些小 些 ， 

插值 法 中 使 出 的 节点 数 晶 ( 减 1) 称 为 该 插值 的 阶 - 苑 其 对 多 项 式 质 值 :增加 辽 数 关 不 … 
定 能 提高 精度 .如果 添加 的 点 离 感 兴趣 的 袜 相差 太 远 . 则 和 成 带 有 额外 限 亨 必 生 向 阶 均 
项 式 , 会 在 多 表 值 之 间 上 生 振荡 现象 。 这 种 振 蓝 可 能 3 与 "真实 ?函数 的 形状 党 元 英 系 :图 3 
1 户 然 ,增加 所 求 节 点 险 近 节点 的 数 日 ,通常 会 有 所 名 助 人 一 点 点 下 进 意 味 着 妆 少 加 大 呈 
去 中 的 数 慢 , 故 并 不 总 是 吕 取 的 。 

除非 有 可 你 的 让 据 证 明 , 醚 值 明 数 的 束 式 接近 本 真实 丽 数 (, 那 么 使 用 高 除 拓 直 是 个 好 
主意 ,我们 排 荐 使 用 3 对 4 个 节点 的 插值 .: ee 点 也 是 可 以 春 凤 的 - 除 韭 具 位 让 芍 襄 基 失 
制 租 相 当 严 格 ，: 般 投 们 极 少 使 用 再 多 的 节 

刘 毕 痪 据 表 中 包 合 的 点 多 于 插值 所 需 ee 则 走 每 次 插值 时 ,就 此 须 选取 志 中 售 甫 亿 
填 的 点 ,从 簿 这 项 工作 严 恪 说 来 .并 不 是 插值 法 专题 的 -部 分 ,但 却 卡 常 重要 (经 常 做 得 徙 不 
好 ) ,我们 将 在 第 3. 4 节 中 讨论 。 
给 出 的 髓 播 法 在 广 也 是 外 椎 法 程 宪 : 它 在 第 十 六 章 中 的 … 个 重 旧 应 用 是 , 常 微分 方程 的 所 分 
解法 .那里 旨 引 忌 特 别 注意 的 是 误 盖 控制 .否则 ,外 玲 法 的 不 可 靠 性 就 要 过 分 强调 : 山 圭 疝 数 
出 作 外 推 通 数 . 当 条 数 在 已 天 区 间 之 外 . 旦 成 距离 大 于 表 中 点 的 雌 间 上 距 时 , 率 千 结果 与 
走 实 伟 会 相差 其 过 ， 

捅 值 可 以 是 多 维 的 ,如 由 数 Fryyrvz)v 一 般 情 况 赴 ,多 维 捕 值 伴随 着 一 系 页 -和 涝 性 伍 
这 个 问题 在 第 3.6 节 中 讨论 。 


3.1 多 项 式 内 插 和 处 推 


通 主 任意 阶 上 只 人 有 唯一 一 贡 直 二 ,通过 任意 二 点 只 从 :个 平面 ,等 等 .通过 和 个 点 
Rss 的 和 维 汝 搞 和 多项式 ,可 用 拉 格 妆 可 Farargee 控 
坚 公 式 时 确 地 去 示 出 来. 


SG 。 





Ca) 平滑 因 数 ! 实 线 ), 用 高 阶 才 项 式 捅 值 或 雯 (图 示 的 进 线 ), 比 用 低级 网 项 式 打 值 才 反 
(图 中 一 雇 段 的 折线 ?要 更 畏 网 些 ,(D? 具 有 萄 点 很 陀 或 高 殷 导 数 变 化 迅速 的 函数 ,用 高 
阶 密 项 式 近似 (说 线 ) ,由于 太 * 果 板 ", 比 用 低 阶 多 项 式 近 似 ( 扩 线 ? 精 成 机 落 一 些 -即使 
象 指 数 靖 数 或 有 由 函 数 这 样 的 平滑 函数 ,用 高 阶 多 项 式 近 似 也 基 很 情 欣 的 . 


曾 3.0. 1 


( 衬 一 Te 一 Tek7 一 个 w)》 


(了 -一 21 二 这 二 
(人 二) 


全 ， 
(za -- -TICzr 7a)efre -TVWT 、“ 





靖 (z) 一 下 


他 一 区 0) 代 一 oe(r 一 上 
(zw 一 TID 一 2Dooe(a 一 2 1 
其 中 共有 六 个 项 ,每 个 项 都 尾 一 个 入 一 1 维 多 项 式 .对 每 -- 项 除了 一 个 二 使 其 值 为 外 .对 
其 它 所 有 xz 值 均 为 零 。 

直接 使 用 拉 格 妆 及 公式 并 无 什么 严重 的 错误 ,但 也 不 是 非 营 好 的 办 法 .这 种 求解 算 潜 没 
有 给 出 误 闭 估计 ,并 且 不 适合 编程 .一 个 较 好 的 算法 (构造 问 样 的 唯一 的 捅 值 多 项 式 ) 是 尼 维 
尔 (Nevile) 竹 法 , 它 与 埃 特 金 (Aitken) 算 法 有 关联 ,有 时 其 全 容易 者 混 , 但 万 者 现在 赴 米 它 
经 过 时 不 用 了 . 

令 严 是 经 过 克 Crby ) 汪 了 过 阶 多 项 式 的 值 ( 即 党 数 ), 故 疡 = i。 类 似 的 方法 定义 六 
3 库 令 六 ii 为 过 点 (7， AI ) 和 (ra 32) 的 定 一 阶 多 项 武 的 值 ; 类 似 方 活 完 光 歼 sr 
es po 了 阅 攻 多 项 式 做 类 做 定义 , 塌 鱼 sx 它 是 对 过 所 有 N 个 点 风 播 值 多 项 式 的 
值 , 即 所 求 的 解 。 各 个 不 同 的 尸 形成 一 张 “ 表 ”左边 为 "祖先 ,一直 推 到 最 右边 的 一 个 “ 短 


十 .… 十 CN 3. .1) 


10D， 


代 ”. 出 如 , 当 六 一 4 时 ， 


-3 2 一 三 . 
P， 
2 3 一 疡 3 
2 4 (3.1.2) 
3 到 及 2 
了 3 
福 48 号 人 冯 ， 


尼 维尔 算法 用 递 猴 的 方法 填写 表 中 的 数 ,每 次 一 列 ,从 左 到 右 。 它 基于 "十 女 "7 机 其 商 
个 " 双 素 ?之 间 的 关系 ,得 


挛 E 下 放 人 Doece- 十 fi 一 人 这) 1 2 
了 CS 四 


(4131 





因为 两 个 双亲 值 已 由 点 二 … evw 1 得 到 , 故 液 逆 推 式 可 求 。 
对 迷 推 式 (3. 1. 3? 的 “个 改进 是 , 记 下 双 素 值 与 子女 值 之 间 的 微小 “ 差 什 ”, 即 定 文 4 寻 秋 
一 1,2,…, N 一 1) 
Co 王 忆 osm 一 下 osocn 





(3. 了 4) 
二 
列 由 式 (3. 1. 2) 很 容易 推出 关系 式 : 
D，，， 四 一 富 ss 一 sa 
交 二 二 和 汪 
了 加 (Ts 
惑 岂 《二 Co 


0 
对 每 - - 尽 , 修 正 后 的 C 和 吓 剖 使 插值 高 一 级 ,最 后 的 解 P…* 等 于 任意 w 加 上 … 些 上 各 
(或 )D 之 和 ,这 些 C 和 呈 形 成 一 条 穿 过 家 族 树 到 达 最 右 端 子女 的 路 径 。 
下 面 是 一 个 有 六 个 输入 点 多 项 式 内 揪 或 外 推 程序 .注意 输入 数组 设 为 单位 俩 移 基 , 若 
数组 为 零 恼 移 量 , 记 住 要 减 ]( 参 看 第 1. 2 节 ): 


六 Inelude <math,b 盖 
打 include ”ntrutl bw 


于 


void polint [fleat xaL]、float ya[], int pn， float x. float xy, float *dy) 


给 定数 组 xa[1. .3i],ya[l. .nm] 及 数值 x. 本 程序 返 梧 数 借 y 吕 溪 益 估 访 dy: 妇 了 林 PICx) 为 估 PCxui) ==val.i = 上 -的 
n 一 1 除 多 上 顷 式 ,由 返回 值 y>=P(xy， 


int L,rmyns 一 1 
jloar den .dif ,dift ho.hp ,ws 
flpat xcvxadi 


dif 一 fabs(Cx--xa[l])+ 
6G 一 vectorCl tr; 
qd 一 vector(f1:n): 
Ior (il5is< 一 nii 一 十 ) | 这 颗 用 ns 作 昂 表 中 最 近 入 口 的 指针 
让 《dift 一 搜 bhsfx xxa[i)》 < di 
JI35 
gf = 中 ff; 
ec[Li 一 yafi 切 铺 化 袁 :* 生 表 d 
d 口 一 va 


“1。 


< 拒 问 昔 伍 六 全 





fr ia 一 1:nc5Dbi iT 7 对 表册 仙 区 “全 
ior (i==] = -nii 十 一 )》! 共和 当 基 < 信和 过 条 种 壕 . 翔 吉 痢 衬 说 汐 神 
ho 三 太 
tb 一 机 
wz:=rf 9 di 
让 4 (gen 一 hn 一 和 一 一 中 0 DIEFTOrY Ercror oumec Point 和 


den 一 wzrlen: 
d[i ==hlj ycanli 
Pi 襄 --ho :qden 











二 Cn myyctns 3; ds- -Li 

志 中 的 - 列 处 奸 守 证 .上 过 吕 修 上 秆 5 还 二 出 加 到 > 的 暴 自 侦 上 上 ,和 丈 是 这 , 选 择 表 中 的 开 种 路 革 证 
委 的 芝 叉 还 是 上 过 的 .我 全 的 慑 和 歧 呈 起 表 中 最 让 "的 路 球 . 并 更 夭 f 杆 以 记录 所 下 的 路 和 滩 、 胡可 全 全 
蔷 X 上 的 有 二 估计 集 , 基 后 习 dy 二 元 澡 头 


free -vectortdy lsn)i 
Frec veetortec .nyi 


常常 需 些 调 用 程序 pulinat ,和 调用 时 用 实际 此 有 秽 移 其 的 数 年 从 换 下 设 灾 重 xa 和 wa 
例如 ,构造 polint(& xx 14 Reyy id] dxsyydy) 程 度 , 使 立 仁 州 表 傅 xx 5 8 vv 
15.,181 王 实现 4+ 所 内 捕 。 


3.2 有 理 函 数 内 插 法 和 外 推 法 


有 些 函 数 州 多 项 式 近 似 徐 果 相好 ,但 用 有 理 画 数 . 寻 多 项 式 的 商 来 合计 效果 却 作 好 - 拭 
们 用 尺 、，， ,人 表示 过 妆 十 1 个 点 Cs) 和 Cr 的 有 理 函 数 。 为 更 清楚 起 记 . 腿 定 
Pet 加 十 六 袜 十 科 和 2 

QiCz) 轴 工 0 十 十 外 3 
因为 有 w+ 十 * 十 1 个 未 知 的 户 和 70 任意》 则 人 有 

疡 十 i=:A 十 7 一 ] 2 
在 把 插 信 阔 数 定义 为 有 理 国 数 时 ,必须 给 出 分 子 和 分 和 几 多 项 式 的 险 数 。 

有 有 理 函 数 比 多 项 式 函 数 优 越 , 粗 略 而 言 ,是 同 为 们 能 够 模拟 上 有 被 点 的 咀 数 . 极 江 其 
指 笔 式 (3.2.1) 中 分 母 的 专 点 .如 果 要 择 值 的 所 数 本 身 丰 极点 的 证 , 则 在 实数 > 处 就 有 串 完 
发 生 这 些 执 点 .更 为 常见 符 情 沉 足 , 国 数 /zy 对 所 有 有 限 实 数 都 是 有 宅 的 ,但 在 夏 芷 应 
内 存在 极点 ,是 解析 连续 的 :即使 限定 为 实数 *, 这 些 极 渤 也 会 俩 多 项 式 道 近 彻 底 失 败 . 下 如 
它们 会 依 盖 的 无 穷 级 数 达 不 到 收敛 一 样 .如 时 在 复 平 面 内 , 活 列 表 中 的 和 个 点 一 信 癌 , 除 
非 最 近 的 极点 也 远离 此 圆 , 否 则 就 内 指望 多 项 起 插值 结果 很 好 . 相 比 而 言 , 只 要 有 型 乓 散 的 
分 母 中 ,zx 有 足够 高 的 区 次 以 避免 (消除 ? 近 处 的 极点 : 有 理 函 数 通 近 的 效果 述 不 错 。 

对 十 值 问题 ,构造 有 理 函 数 就 是 为 了 使 其 能 够 通过 :组 选 定 的 列表 果 数 借 . 然 而 字 该 席 
上 太 的 是 ,有 有理 现 数 道 近 可 以 用 于 解 本 的 上 和 作 中 -有 大 普 宰 造 了 一 个 有 理 另 数 通 近 , 共 诽 品 为 : 
等 式 (3. 2.1) 的 有 理 函 数 本 身 的 寿 级 数 展开 , 凡 与 欲 米 国 数 /2 的 景 级 数 放 开 前 闫 一 1 
殖 , 这 被 放 为 帕 得 (Pade) 通 近 , 这 将 在 第 5. 12 节 中 尘 论 。 


及 Le 
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Bulirsch 和 Stocer 发 现 了 -种 尼 扒 重型 的 作法 ,可 以 对 表 中 钓 数据 进行 有 理 坊 狼 交 推 ， 
按 列 构造 类 似 等 式 (3. 1. 2) 的 趟 ,进而 导 员 节 后 的 结束 和 误 莽 估计 .Bulirseh -Siocr 商 汪 和 
侍 一 个 称 作对 前 的 有 理 虹 数 , 它 分 和子 和 分 母 阶 数 相 等 { 荔 六 为 例 元 ) ,或 者 分 母 的 阶 数 比分 
子 的 阶 数 高 | 为 过 数 ,参见 上 和 的 等 江 (3.2.2))。 沪 算法 的 推导 参见 [15: 改 似 于 多 
项 式 有 逼 近 的 等 式 (3. 1. 3) ,该 算法 也 可 用 递 推 艾 系 精 鲁 地 兰 结 为 : 
1 


之 
TT 一 2 天 ， 











人 TD 


该 递 椎 式 袁 示 ,可 由 过 加 个 点 的 有 理 葡 数 和 过 2 个 点 的 有 理 函 数 (等 式 中 3 2 3 中 
只 et-a-i) 导 出 过 六 十 1 个 点 的 有 理 涯 数 。 初 始 依 为 


下 = 人 和》 


局 


尺 - 王 让 用 mm1 3 一】 时 ] = 一 工 《3 
现在 , 跟 上 面 等 式 (3. 1.4) 和 (3. 1.5) 完 全 一 样 , 将 递 推 式 (3. 2. 3 转化 为 仪 含 细小 差别 的 式 
学 


人 民生 
13. 2 人) 
上 
注意 它们 满足 关系 式 
在 《全 7 


该 式 在 证 明 下 理 的 递 推 式 时 是 非常 有 用 的 ， 
Cr: TICCairsi 1 一 Do 2 
于 在 


让 ”一 mm 
人 (3.- 2.3) 
和 村 


画 和 5 an 





mo 二， 





人 


如 一 





人 
一 一 一 站 Cl 
忆 一 宛 ,+m+1 


该 递 推 关系 由 下 傈 的 半数 来 实现 ,其 用 法 与 第 3. 1 节 中 的 potint 程序 完全 相同 .再 次 提 
醒 , 输 入 数组 假定 为 单位 偏 移 量 (参见 第 |, 2? 节 )。 


本 include < 所 math.h2>> 

芝 inejude "nrutil. h7" 

共 define TINY 1.0e- 25 -十 小 的 数 

和 4define FREERETLRN (ffree- vertortdy lo)ifree_vectortc 1 no)ygrcturn yt 


void ratint(float xsl ,fileat yar]， intny， float xy， float *y，foat wdy》 
给 定数 组 xa[ 1 ,cr … ya[1..a] 及 数 债 *, 可 程序 返 癌 y 的 值 及 精 崇 侍 让 dy。 返回 值 是 通过 风 个 点 (xasyyssy sis 
的 有 理 函 数 系 x 处 的 值 ， 


int Jnyiyns 一 1 
fioar 加 thhhdd rcxdi 


“一 Yectcr(1 ni 
中 一 vectortl ny 


三 tabsCx 一 xafl)， 
*，D3。 


人 


Jor《i 一 14i 拒 一 ni 二 十 7) 
Ph 一 fabsfx 一 xa[i 3; 
记 《h 一 一 0.04)《 

xy 一 yaLi i 
文昌 y 一 了 .Di 
FREERETURN 
else kh < hh 
nsS==1; 
hh 一 hb 
} 
c[i2 一 ya[i- 
d[ 中 =ya[ 和 -TINY， 扫 用 TINY 来 辽 站 业 江 芍 :天 的 情况 


出 
上 


xy 一 ya[ns 一 一 ]; 
fer (mnm 王 lim<mnaim 十 十 ) 1 
iof (一 1:i 所 一 0 一 Dai 十 ) 
ww 一 cLi 二 lj--d0]; 
hxa[i 二 rm 一 xi 河 为 在 允 媒 簿 左 下 了 2 测试 这 ,这 里 不 会 为 零 
t 一 (xari  xX)?* 出 -i Ph 
dd--c[i+14 


计 (dd 一 一 08 nrerrorft" Error in routine ratint" ) 这 种 错 癌 博 党 
和 3 表 洒 该 狐 酒 明 数 在 铭 
di 一 cG 一 1J* dc: 来 的 x 处 存在 极点 
<D] 一 Lx dd: 
# 妆 二 一 【<dy=2Ahs< na my 93clns ecLos 5 
EREERETURN 


参考 文献 和 进一步 该 物 ， 
Stoer+j and Buiirsch ,r- 1980 tregerrrpa 人 Ge meterfNEw York: SpringerweraRT 、 呈 2 


[1] 
Cuyt ,上 .and Wuytack ,L .1987，Nondinear aetRoly 和 汪 ppperHal 全 atysES【 ATInsterdart Nort -Hbu 
(Chaprey 3. 


3.3 三 次 样 亲 播 什 


给 定 一 个 列表 显示 的 站 数 六 =Yir 7 1 把 注意 力 放 在 了 和 > 之 问 的 : -个 
特殊 的 区 间 上 上 .该 区 间 的 线性 插值 公式 为 


二 全 平 浊 。 (3.5. 15 
其 中 
站 浊 认 和 大 王 下 大 症 二 2 
Zi-1 2 Pr 一 


等 式 (3, 3. 1) 和 (3, 3,2) 是 拉 格 朗 口 插值 公式 (3, 1. 1 的 特 蛛 情况 。 

因为 它 是 (分 段 ) 线 性 的 ,等 式 (3. 3. 1 帮手 区 间 内 的 一 阶 妾 数 为 零 ,在 横 永 款 为 ?, 处 
的 一 阶 导 数 不 定 多 或 无 限 。 二 次 样 条 搬 值 的 和 斗 的 就 是 要 得 到 -个 内 搬 公 式 , 不 伦 在 区 间 内 或 
其 过 界 上 , 线 阶 导数 平滑 ,二 阶 导 仇 连 续 . 

做 一 个 与 事实 相 皮 的 候 设 . 除 * 的 列表 博之 外 .我 们 还 有 通 数 一 阶 和 
即 一 系列 的 % 值 .下 在 短 个 区 间 内 .我 们 可 以 在 等 式 (3. 3. 2 的 有 边 旭 上 -个 二 次 多 项 式 ， 

日 94 昌 





芝 - 队 全数 从 太志 的 值 线性 变化 到 右边 的 : 值 . 这 双人 做 :我 们 惩 得 到 了 让 天 拘 连续 芍 
二 从 导数 .如 果 我 们 述 将 该 三 次 多 项 式 构成 在 … 和 -处 为 鹤 . 这 样 就 不 会 玻 坏 放 终点 ， 
何 .cr, ,处 与 列表 所 柳 值 w， 和 >， 鸭 一 下 性 ， 
做 - 些 辅 二 计 算 便 二 扼 , 仅 有 一 种 站 法 才能 进行 这 神 构 着, 芭 用 
一 4 一 有 并 


来 代 赫 43.3, 1), 其 中 六 和 RH 山 人 3.2) 定义 * 昌 


太 二 二 (用 一 一 


注意 ,等 式 (3,3.3) 和 (3.3.4)7 对 白 变量 二 的 依 琥 ,是 完全 通过 中 和 四 对 > 的 线性 依 下 - 以 及 
和 全 和 万 ( 利 过 4 和 有 对 定 的 三 次 依 融 。 
我们 可 以 很 容易 地 验证 \y 专 实 上 是 该 揪 值 多 项 式 的 一 阶 导 数 。 使 用 4 有 人 六 的 宇文 
对 x 求 等 式 (3, 3.3) 的 导数 ,计算 dayez 2BAeratyee 及 ozDrdyrs 缚 果 为 :一 除 导数 
dv 4 -二 
cr 了 6 100 十 加 


一 阶 导 数 


和 人 





全 一 4v， 一 下 轴 (3.3 
上 为 zx 一 时间: 时 用 一 0 而 吾 正 相反 , 则 式 (3. 3 6) 表明 恰 为 列表 着 数 的 二 
航 导 数 。 而 且 该 二 阶 导 数 在 两 个 上 区 问 (z sx 和 (Crxz 上 是 连续 的 。 

现 亦 吡 一 的 问题 地 ,我 们 假 谈 w 是 已 知 的 ,而 实际 上 六 不 知道 。 然 而 ,我 们 名 厅 驶 求 从 
等 式 (3.3. 呈 算出 的 … 阶 导数 , 企 棒 个 过 问 汐 边 界 处 是 连 点 的 : 卫 次 样 条 的 关键 思想 ,就 一 
些 求 这 种 连续 性 御 出 它 求 得 等 式 的 二 阶 导数 

设 等 式 53. 3. 5 人 不 区 间 (r，:. 上 ,对 了 一， 求 得 的 犁 ,等 于 同一 等 式 在 区 问 (r .rr，， 
上 ,对 x 一 ”, 求 得 的 值 : 便 可 得 到 所 求 方 姐 . 重 新 鉴 理 得 到 (对 产 :2 -有 





条 3 
人 -一 过 
》 世 人 2 人 
人 


有 六 一 2 个 线性 方程, 但 却 有 只 个 未 知 数 w .rr= 1 , 环 : 因 此 ,有 -个 具有 上 师 个 参数 的 可 能 
祥 集 . 
为 求 得 唯一 解 , 需 要 给 出 两 个 进一步 的 条 件 ,一般 版 局 和 ss 处 的 边 愤 关 作 ,最 常 昂 的 
向 法 有 
” 设 科 和 国之 一 或 两 个 电 为 芝 ,得 到 所 谓 的 自然 三 次 样 素 函数 ,其 一 个 或 是个 浊 色 的 
-次 导数 为 只 ,或 省 
” 设 或 为 等 式 (3, 汪汪 计算 得 到 的 值 ,使 得 该 插值 函数 的 “ 阶 导 数 在 全 成 杂 公 
志 界 处 有 特定 的 逢 。 
二 次 样 某 插 值 特别 实用 的 原 胃 之 “在 于 有 两 个 附加 过 界 茶 件 的 方 理 组 (4.3 7 放下 
侈 居 线 性 的 :而 目 也 是 江村 角 葛 :第 个 3 仅 与 其 其 近邻 的 j 十 1 的 划 有 关 。 因 此 、 记 各 叮 以 肝 
-对 前 算法 (第 2.4 攻 ?在 OOND 次 运算 央求 角 - 该 算法 非常 障 昌 ,很 容易 正确 地 痪 千 汪 幸 茶 


”9 


本 


计算 的 程序 。 但 是 这 使 得 程序 不 象 式 (3. 3. ?的 实 表 采样 完全 诱 明 ,所 以 我 们 鼓 丰 访 吉 : 作 下 
面 程序 与 程序 tridag( 第 2. 4 节 ) 比 较 -- 上 ,作风 此 研究 侠 究 。 数 诅 慌 冠 是 单位 往 移 臣 ， 刘 亲生 
零 偏 移 蚌 , 参 见 第 1.2 节 。 

中 elude ”nrutl， 


roid splinechoat xs 站 Joat ys ny aoat vpltfenat ypny iloaty2 ]) 
科 中 数 生 xx 1 mn] 和 win] 格 成 -个 列 发 医 数 .如 六 一 7 其 中 xxs 和 cxx 还 有 插值 油 蚊 在 第 1 全 生生 
= 个 点 处 的 “: 失 导 数值 *p1 和 ypn ,相应 地 ,本 妥 订 返 旧 区 组 y2 4. .人 悍 几 搬 赴 碟 数 在 表 中 避 二 的 一 记 于 要 条 
化 yp 条 [或 ?ypPm 大于 或 等 于 1 和 163, 刚 去 得 让 痢 拥 度 的 让 界 第 计 这 己 忆 状 样 条 , 邯 边 界 狼 一 阶 导数 为 他 ， 





人 
anC 并 ,Xi 
float P.qn.saig lnui 
UsvVectorCL,n-1I) 1; 
if (7P1 > 0.99e30) 下 边界 条 性 证 成 “ 委 类 的 " 
y2[ 菇 =u[ti]=<0.0i 
ezsge 并 背 则 有 特定 的 一 防 导 教 
y2[1] = -0.5; 
uf1]-(3.07A5z[2]-x[1il))utry[2]-yfz]37 (xz[2]-xr[1]7-7P11; 
for (iji=211<=n-1iY++) 荆 三 村 角 算法 的 分 解 循环 
Sig={tX[i]-x[i-z])yAKxr[iyl]-x[ti-i]y; 2 和 0 为 想 分 解 因子 的 临时 变量 
petgsy2[t-1]+42.0; 
72[i]=(sig-1-027P; 
uf[i]es(y[i*1l3-yri]yykxfi+t]~-xz[i]》- (7[i]-yEz-tyACarti]-rfia-4]y; 
uU[i]s(6.D0wu[i]A(rti+l]-zfti-1])-aigsuLi-t]lyzp; 
}》 
if (ypa > 0.99630) 上 边界 条 种 设 成 “自燃 的 ” 
gasun<0.0i 
el1sa 否则 存 特定 的 - 阶 异 数 
qmas0.5i 
umstk3.oxx[a]-x[n-1])yet7pn-ty[o]-y[n-1)70xrn-xrn-1])); 
] 
yY2[a]s(un-qaea[a-t]yAqnsy2[n-i]+1.0)7 
for 【ka~13Y>e1iX--)》 开 对 角 算 法 的 回 代 纤 环 
Y2[x]j=y2[x]wy2[k+1]+u[x]: 
free_veactorfu,1,n-1); 
] 


重要 的 是 要 记 住 ,在 处 理 数 组 x 和 和 构成 的 列表 函数 时 ,程序 splime 仅 能 调用 -- ,全 
旦 调用 过 后, 对 任意 的 *, 插 值 函数 的 值 和 通过 调用 (要 多 少 次 就 说 多 少 次 ) 一 个 独立 的 程序 
splintC"spiiae iaterpotatom 的 字 头 缩写 ) 来 得 到 。 
void splint float xa[ 站 ,float ya ], float y2a[]，int ny float x，float xy) 
给 出 凑 个 数组 xa[ 1. .9 机 ya-1. .5] 秆 为 列 去 洒 束 ! 校 xai 的 顺序 ), 数 组 yza51..m- 有 由 上面 spltne 得 说 的 编 出 洽 定 、 
并 给 证 x 的 值 ,本 程 字 返 和 何 x 的 一 次 样 条 搬 介 结果 3 


void nrerror(char error-textf 3 
int klo .khivk; 
fioat hbsay 


klo 一 1: 用 “分 法 查 乒 表 的 正确 位 置 . 如 果 几 随 山 的 x 估 连续 到 用 汪汪 
khi 一 ny 元 ,这么 做 是 最 佳 的 .如 果 连 续 谓 用 时 ,x 是 有 序 的 且 同 距 不 大 ,最 
while (kni--klo >> 1){ 好 把 前 -次 调用 时 kie 和 khi 的 值 保存 起 来 .在 下 次 调用 

kk 一 (khi 十 klo) 关 人 > 1 时 先 失 测 小 它们 的 值 是 否 还 台 适 ， 


证 (xnh[Kk] xy khi=-ki 
9g6，。 


R ko kk 
klc 和 HR 办 薄 和 六 的 上 下 哄 
-sxaLkhy --xaikto 3 


计 作 盖 一 有 0.0 nrecrorlBHad xcDoUT to rourine 3SDlint* 上 xa 的 佑 不能 相同 
2 一 (人 xa Kxh x)hi 
和 一 (fx 一 xa klo 27b: 江 次 样 杀 多 项 尺 求 什 


xy 一 汪 > valklo 十 b 关 ya hi 一 CC 有 Ya 一 dyy2a[klo] 一 上 xxhwhb 一 bs*sy2atkh]ixtuy oo0v0s 


3.4 如 何 搜索 有 序 表 


要 定 块 定 用 一 - 些 特殊 的 插值 方法 .如 四 四 阶 多 质 式 揪 全 ,根据 表 中 之 及 六 的 值 计算 出 
丽 数 Ar) 那么 ,对 给 出 的 特定 值 < 要求 计 算 其 数 值 .就 需要 一 个 决 速 的 方 潜 找 型 在 起 
中 心 的 位 置 . 这 个 癌 题 汞 归于 数值 分 柯 不 -由 台 通 , 但 实际 中 却 搬 容 易 辜 到 ,所 以 不 能 部 略 

这 个 问题 的 标准 描述 为 : 己 知 横 坐 枝 数 组 xx[j -1.2，pD, 按 递增 或 递 焉 的 顺 订 排 
列 , 对 给 出 的 数 x* 求 整数 1 使 待 x 在 xxLjJ 与 xx-i+1i] 之 问 - 为 了 查找 方便 ,首先 定义 末 个 
附加 的 数组 元 素 xx-C] 和 种 xx[n 一 1 分 别 代表 正 负 开 穷 大 (这 样 仍然 保持 表 中 元 素 的 单调 
性 ) :出 j 总 是 在 0 到 nm 之 名 了 ,. 即 可 用 0 作为 表 的 一 凋 界限 ,n 作为 另 一 端 界 限 。 

在 大 少数 情况 下 ,当面 所 述 的 要 求 满足 时 ,再 没有 比 二 分 法 更 好 的 办 法 了 . 它 能 在 人 
约 log2n 次 试验 内 找到 表 中 由 三 的 作 团 。 在 上 “ 节 的 样 条 法 求 值 程序 sptint 中 ,我 们 已 经 使 
用 了 二 分 法 ,所 以 可 以 优 考 一 下 .另外 ,分 法 程序 一 般 可 如 下 构 闭 ， 
void lorate (float xx 1 unsinged Eong ny floar x，unsigned long < 1 

已 庆 数 组 xxLi nm- 及 并 的 慢 , 退 地 ] 的 但 ,必得 x 在 xxLi- 和 xxtj 二 1 之 司 :xx 几 须 基 单调 的 ,递增 或 琴 减 岁 串 - 音 
返回 ) 一 "或 1=n 苹 明 < 越 界 了 - 


unsigned Long ju,jm ,jl; 
int ascndi 


jl=0; 初始 化 上 下 边 癌 

了 一 n 一 ]; 

as 一 (xx[n > xx[1]>; 

while (iu 一 1)! 如 果 还 沁 有 做 完 , 则 计算 中 点 


JE 一 (ju hl > 1 
证 gx > xxljm] 一 = ascnd) 


]1 一 Im 符 换 下 界 
clse 
ju= Jrmmy 否则 应 苇 找 .上 界 
} 循环 至 条 件 病 足 
关 j 一 j]; 设置 输出 最 并 返 何 


数组 xx 假定 是 单位 储 移 基 . 如 果 是 堆 偏 移 数组 ,请 记 住 要 将 xx 的 地 址 减 j ,而 且 运 加 
的 值 ) 也 要 减 1。 
3. 4. 1 用 相关 数值 进行 搜索 
有 时 会 遇 到 多 次 查 表 的 情况 ,而 且 是 用 几乎 相同 的 横 尘 标 进行 连续 查询 .人 禾 如 .可 能 正 
在 生成 一 个 用 在 微分 方程 左 端 的 函数 :如 像 我 们 将 在 第 十 六 章 中 看 到 的 那样 ,大 部 分 微分 方 
+ 97 ， 


得 的 程 分 费 在 问 明 成 疝 司 味 下 的 些 点 | 请 骨 有 有 狂 计 门生 得 二 在 示 积 耸 方 问 下 代 
地 尾 嫌 征 衬 

在 这 种 情 旧 下 :每 伙计 用 部 其 关于 始 敌 宕 企 分 外 十 
并 旺 从 恨 中 基 个 后 的 体征 于 箔 在 支 : 它 从 迭 了 :不 沦 递 增 汪 是 带 减 ,部 是 时 下 站 
为 贞 下 =-- 演 六 2 于 一 次 为 4 等 等 . 语 天 : 深 天 问 由 为止 .然后 ,在 时 得 网民 吕 交 」 
进行 2 从 处 下 .在 最 二 情况 小 -不 风 大 吉 归 比 [站 32ncate 程序 慢 两 倍 ( 到 来 报 3 只 半 
因 胃 基 整 张 表 ) :在 最 好 的 情 记 下 :其 阿 求 点 蛆 这 站 荐 流 丰 很 过 闸 情 六 ,要 比 iocate 标 计 快 
Log:n 倍 ,| 嘻 生 二 了 上 趟 这 网 个 穆 考 哆 









很 沪 费 的 .下 呀 的 让 计 、 庆 寺 执 




























3 
二 
1 
8 相 [mL 旦 
2 
一 ee 一 ee 一 


一 一 一 一 一 一 一 一 -一 -一 一 -一 -一 - 
7 16 44 32 六” As 


全 Focate 







他 小 小 :全 有 芝 帮 这 烛 昌 贡 站 寺 由: 芭 介 到 过 来 河 的 讨 各 .Chby 信 人 


这 下 汪 寺 的 是 全 全 大 炸 不 萌 记 下 
守 . Li, 仅 洁 要 :次 齐 找 ， 


bual 引 从 志 业 条 一 


各 开 . 攻 王 考 让 从 


5 DEC 人 ae MK UnsiRnbd on Jo DISigeil toog jl) 
sx 和 有 上 本 x 巡 jilo 的 任性 得 让 xx: ol jl 之 司 :xx 之 3 


ee> 共和 二 俩 





站 毅 则 、 或 阐 增 、 开 这 





na yx 本科 





unetgneq 1ong j 世 ,j2i,ioc， 
int ascnd 


ascndzsr(zrz[nl > xmrrt])]; 递增 的 凑 作 为 真 ， 再 则 为 候 

if (4jlo <= 0 1 *jlo >m) T 菊 测 值 不 准 ， 无 参考 价值 ， 直 嫌 转 二 分 处 理 
六 j OOi 
jhisn+l; 

} elae 工 _ 
inc=1; 疏 学 搜索 清 长 


if (xz >= xx[ejlo] == aqrndy {f 癌 上 搜索 
if 【*j1o me 也 ) returni 


jhi=f(+jlop)+ai 
while (rz >= xx[jhil -= ascndy 1 填 素 未 结 训 
中 j 工 O=jhiy 
inc += inci 增 量 加 倍 
jhi=(ej] lo)+inci 


RN 


if 《jhi > n) 1 搜寻 绪 训 ， 已 至 表 尾 


jhi=n+1， 
TDFreaki 
} 再 试 
过 搜寻 结束 ， 科 区 间 找 记 
日 荆 扣 恒 向 下 
if (〔#jl0 == 1) 1 身上 搜索 
e#]1o=0 
TtuIT 


jbi=(*jlo)--; 


whiie (rz < xx[4yjlo] = ascnd] { 搜 子 本 结束 
jbi=(ejlo); 
inc <<= 1i 肌 依 增 攻 
if (inc >= jhi) 1 揪 寻 结束 ， 已 至 雁 忆 
出 了 om 人 3 
brzaak 
】 
else *jlo=jhi-inc; 
上 再 这 
省 搜寻 结束 ， 依 区 问 找到 


搜寻 完成、 开始 进入 最 后 的 一 分 阶段 
while〔〈jni-k*]lo) im 1) 【 
jmm(jbi+f*jlo)) >> 1; 
让 《x > xx[jml == ascnd) 
地]Io=jmi 
人 LS 
Jpti=j; 
了 
了 


姐 果 数 组 xx 足 零 偏 殉 量 . 人 参考 上 曾 lecate 程序 后 的 证 笠 。 
3.4.2 写 在 Hunt 之 后 


问题 : 程 这 Ilecate 和 hunt 返 四 索 咱 指针 j, 估 求 的 值 处 在 袁 项 xx -六 与 xx 一 ] - 痕 ， 
其 中 xx 1. ,nm 为 表 的 总 长 庶 . 伺 是 使 月 旬 bolint( 第 3 1 和 节 ) 或 ratint( 第 2 2 节 ? 这 柱 的 程序 . 
是 为 了 要 极 得 到 mm 点 搬 值 .就 必须 提供 民 度 为 mm 1 xx 和 YY 点 么 办 中 

解答 :让 外 


k 一 [MIJINIJMAXGO- m 一 1)52.17n 十 1--mh) 


( 宏 调 用 INiIN 和 IMAX 是 求 商 个 整 焉 铸 数 的 最 小 值 关 最 大 值 , 参 多 复 1.2 节 及 于 于 1 :该 
表达 式 产 生 的 是 ,m 点 集 台 小 最 左 过 元 索 的 索引 措 计 , 这 血 个 点 的 中 心 相 1 和 1 1 之 lo 在 
可 能 范围 内 ) ,但 开演 界 为 1. 辣 边界 为 an:C 语言 多 省 几 数 组 的 地 址 偏 移 其 k 米 油 用 请 上 斤 得 
订 , 例 如 ， 

Poelint (R xxik 一 11.&YyytK 一 11my…) 


3.5 插值 多 项 式 的 系数 


有 些 时 候 想 昔 刊 道 的 .并 上 中 经 过 少数 几 和 点 的 搬 值 多 项 式 的 函数 值 . 调 星 沪 多 顺民 的 
系数 这 些 系 数 的 实际 用 处 可 以 是 .例如 同上 计算 琴 数 的 撒 值 和 和 它 的 几 个 导数 4 会 见 第 5 
竹 ) ,或 者 求 列表 通 数 段 与 某 个 此 它 冰 数 的 卷 各 :这 个 具 它 函数 的 短 ( 即 安 避 、 多 井下 让 窟 
积 ? 是 台 灯 己基 的 ， 


找 让 .… 定 茧 要 定 这 些 系 粒 响 为 计 需 的 。、 :有 暑 说 来 . 插 作 多 项 式 的 系数 的 请 定 ， 和 人 下 ， 
特定 点 求 清 歼 舍 则 么 精 码 . 因 呈 .公所 为 让 分 析 费 而 铺 定 系数 并 不 是 信 好 办 法 :入 秆 让 全 让 
到 的 数 伸 并 不 能 粕 测 了 和 通过 列表 书 的 点 ,调用 第 3 - 第 3 中 的 程序 所 计 芝 乓 本: 本 本 
人 风 地 襄 过 这 些 列表 点 

读者 也 信 尺 该 将 捕 值 多 项 式 ( 及 此 用 数 ? 锚 症 成 科 的 英 似 问题 :经 过 系列 执 拓 点 让 
多 项 芭 的 最 佳 拟 合 : 拟 合 是 个 求 平滑 机 歼 的 过程 由 | 的 
数 月 少 , 所 以 ,即使 在 列表 值 出 现 沈 计 ji 斌 花 时 , 拟 仿 的 系 克 也 可 以 靖 确 而 稳定 址 确 守 让 类 :做 
第 14.8 往 )。 只 对 于 系数 个 数 等 于 列 南 点 个 数 的 栖 值 法 .是 把 所 有 列表 中 的 数据 埋 当 成 
无 误 的 。 录 果 共 中 含 和 统计 误差 , 则 可 能 导 竹 列 表 点 之 癌 产生 社 和 值 客 卡 式 的 搜 动 ， 

跟 以 攻 一 样 . 令 列 表 中 的 喜 为 汪 y(2)， ,如 果 插 全 区 项 式 写 成 





一 和 十 ee | 人 人 
则 * 头 满 足 线性 方程 
| 汪 ! \ 
| 六 ? 泛 < > V: 


1 
这 是 一 个 范 德 蒙 和 阵 . 沁 第 2.83 节 所 证- 原则 上 可 以 用 解 比 性 方程 的 标准 技术 (第 2. 3 节 ) 深 束 
解 方程 (3, 5 2) .然而 .用 第 2.8 节 推导 出 来 的 特 妹 方法 对 大 的 维 数 N 更 为 有 效 ,. 虹 此 这 所 去 
要 好 一 些 . 

记 作 : 范 德 蒙 问题 可 能 基 柑 当 病 态 的 。 在 这 种 情况 上 , 找 林 刘 能 给 出 非常 精确 解 的 数 盾 
方法 .但 这 些 情 深井 不 意味 着 ,采用 第 3. 1 节 中 的 方法 计算 插值 会 有 什么 因 难 ,又 是 在 计算 系 
数 叶 志 会 右 困 难 ， 

利 第 2.8 节 目的 程序 : 梯 , 下 面 的 程序 也 是 由 台 . Rybicki 提供 的 ,注意 程序 中 数 纪 孝 个 
定 为 零 偏 移 草 。 

共 fnclude "Prutil. h2 
void poleoe(float x[， float y[，int ny float cof_ 有) 

洛 定 数 纹 x[ .mn 及 y[3 .nm 表示 列表 匿 数 交 一 六 xi .本 入 序 返 加 系数 数组 rof 0. .站 . 使 得 :一 之 ， 7 
{ 


jint KJ,i3 
了 loat Phi,iE,biegi 


amyector(O,) 3 
for (ie=0ii<enii++》 656[i]=cof[i]=0.0; 
s[] = -zto] ; 
for (ieT;ikenzi++) 攻 由 递 推 求 得 主 多 项 式 户 fz) 的 诛 系 数 a4 
for 《jz=n-i;j<sn-1;j++) 
srj] -= x[i]*s[j+l] ; 
8[aj -= 工 [i]: 


far 【j=9;jcen;jt+t) ff 
Phi=n+1l; 
for 《k=nik>=1iK--) 量 phi = T] xxz - zh) 
Phiwx+a[x]+x[j]*Phii 逢 为 的 导数 已 找到 Pry) 
ff*y[jtyphil 了 
b=1.0 拉 酚 朗 日 公式 中 每 一 项 的 多 项 式 系 数 出 综合 除法 2fz) 


*，]0D 





于 or 【kaix>esC;X--) 攻 除 Bz 一 27) 求 得。 解 ck 力 轩 计 逢 
cc 计 fge] + be 了 ， 
b=e [k]*x[]J]J*b; 
】 
了 
freg_vGCEo (号 Onhi 


3.5.1 其 它 方法 


还 有 一 种 技术 是 ,采用 忆 冯 介 癌 过 的 函数 仍 亲 捅 值 程序 (第 3, 1 节 中 的 polint 程序 ,如 
果 使 用 内 择 法 (或 外 推 法 ) 凑 播 什 多项式 在 .一 0 处 的 值 , 则 此 值 呈 然 为 c, 现 在 可 以 将 每 个 
>% 城 去 c, 再 除 以 各 身 相 应 的 z 然后 ,去 摘 一 个 点 (具有 最 小 二 的 点 是 很 好 的 候 计 点) 再 
可 以 重复 此 过 程 求 cl, 如 此 继 浅 。 

这 处 理 这 程 的 稳定 性 并 不 能 号 上 看 出 米 , 介 我 们 发 现 一 般 情 况 下 , 它 比 下 接 处 理 的 程序 
喝 妆 和 萎 定 些 ,这 种 方法 的 复 休 度 态 XP ,而 处 理 - -次 为 N?。 然 而 ,会 发 现 对 N 很 人 时 这 醋 种 
微 活 效 果 必 不 好 ,这 是 因为 范 德 蒙 问题 本 身 是 病态 的 。 用 单 精 寺 表 示 ,N 到 8 或 1 效果 还 满 
意 ; 几 双 精 度 袁 示 时 , 值 差不多 可 加 倍 ， 


其 inflade <matia. 有 hh 全 
存 incluce “Prutl hn 


void BokeoEfnoat xaf nloat ya[，int ny ileat rofr]) 


给 定数 组 xa[0 . 2“] 及 yar0.. q] 表 示 列 表 函 教 ya, 一 /fxa )， 本 程序 返回 系数 数 租 sof'0..n], 使 得 ya-- > ,， of 


Yo 过 Pelinf(flaar xa[ yiloar ya[]，ipt n， boat x，0ont wy y，Jjeat =dy): 
int kj,iy 
fioar xmindy，< xywyi 


xX 一 vectorfnn)i 

y=Yector( ny 

for 和 一 09ji 攻 一 nij 汪 一 ) 1 
x[ 记 一 za 站 jh 


yj 一 ya[j]; 


} ， 

for (= 一 0ij< 一 njj 一 ) 
polint(x 一 1,y 一 1.n 十 1 0.Us&eof[i],kdy); 由 十 竹 序 polint 使 用 的 数组 下 填 为 -1. .n1、 
xzmin 一 ] .0e38; 所 以 xz 和 Y 的 半 标 要 茂 才 1, 外 椎 列 xx- 
k 一 一 
ior (i 一 0ii 习 = 一 ii 一 +) : 类 绝对 值 节 小 的 余数 xx 


计 人 abscx[) < xminy 
xmin 一 fabs(x[i)5 


k 一 1 
if xD] y[ 和 一 人 [和 一 cef[j])2x7i3; 问 时 化 简 所 有 的 着 
| 
for 《一 k 十 3 二 一 n 一 让 十) 1 并 进行 训 吉 


y-i 1 一 [ii 
xb-1]=-x[]; 
! 
itee .vectortyiOva)， 
free - vectorCx ,0.n); 


| 





活 具 是 站 不 在 (或 痢 旦 生 不 接 江 ) 列 表 导 值 拓 范 列 , 风 据 入 光 项 成 的 系 妇 让 生长 

会 变 笠 闫 关 宾 : 寺 而 :这 些 孙 数 直 正明 "依旧 雪 容 ? 苇 会 肌 * 平移 引 起 ” 榴 人 

是“ 种 桨 态 的 情 癌 .全 导致 有 效 效 字 的 天 失 , 并 使 求 出 的 系数 结果 很 冀 , 六 只 .号 
定 广 原 来 的 问题 ,把 xz 一 G 族 到 合适 的 地 六， 

男 外 一 种 比较 精 的 铺 泥 直 ,二 果 试图 出 赤 商 阶 的 括 划 羽 平 豆 画 数 . 则 扬 代 务 关 二 到 
| 儿 用 高 阶 系数 .好 这 些 系数 很 大 .但 苏 大多 柯 等 贞 革 柯 拱 放 了 : 亿 各 衣 司 包 侣 涉 巡 正念 司 ， 
优 满 中 插值 师 数 .这 样 做 鸭 效 采 . 与 印 值 多 下 这 交情 在 基 限 定 志 之 问 摆 动 的 由 在 生 呈 
该 的 .外 使 机 器 的 社 点 精度 疾 常 提 常 姓 这 种 情 滴 也 会 发 于 :二 面 的 程序 aeoe 本 划 
这 种 异常 情 总 都 有 有 不知 程 度 的 敏感 . 

这 样 ,还 能 关 完 这些 系 数 导 人 全 扔 求 的 蚂 * 


3.6 二 维 或 高 维 插值 


对 re 列 变 俏 的 天 绒 多 瑾 共有 关 个 一 维 向 晨 . 求 估计 疯 
数 ?xsza szn) 这 于 个 -此 癌 址 给 出 租 组 镜 交 变 乱 守 : 本 人 1 司 们 
二 系统 的 其 信 问 题 , 即 不 考虑 赤 中 国 族 侦 是 么 后 中 的 -一些 “ 适 册 ”和 ， 济 
是 直角 人 举 标 委员 情况 的 .为 清楚 起 见 , 我 们 似 基 坚 二 维 的 情 演 , 江 缠 we 有 让 
2 
对 一 维 情况 .假定 已 庆 萤 数 值 的 失 阵 ya 1..m .nj 另外 还 已 知 数 组 x]2 1 芝 
兹 组 x2a 门 . .nl .这 些 输入 芋 的 关系 由 关 数 we ve 确定 
yi [ER =: TXT vx2a ck ) 《证 13 
蓝 求 的 是 , 川 措 侦 法 计算 昂 数 y 在 去 由 末 列 和 路 点 (Ceu: 的 仁 ， 
-一 个 重要 的 概 仿 是 方 格 网 格 点 , 辟 rz) 落 在 其 生 : 岂 就 十 况 出 列表 中 的 门 个 点 色 羡 
电 了 征求 的 内 部 点 .为 方 恒 起 见 ,我 个 从 左下 交 起 接 反 时 针 方 下 及 到 4 只 这 些 点 进行 于 居 
风 吏 3 3 25: 更 迷 确 地 走 示 性 妇 果 出 












六 各 | 二 和 二 全 至 下 | 
X2a kk :和 x24|k 十 1 (2 


定 尺 上 和 上 , 则 


Yak_ 


和 ， 
三 Ya[ kk 一 1 本 
一 Yi kk 二] 吉 
和 最 简 贡 的 二 维 拆 征 是 方 格 网 格 点 证 的 一 绯 线性 播 值 , 失 公民 为 ， 
= 一 Xda8 渍 全 7 人 :十 1 xtn 阅 肥 ] 站 二 可 


TEL 一 XU (xs 十 ]]1-:-x2k]) 


t 避 此 上 和 都 共和 和 1 之 旧 
Ce 《一 《3 3 


2。 


起 号 


人 名 色 忽 
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| 过 
VBauaonr| 





fa fb) 


(0) 存 …… 绯 插 值 祥 序 beujat | pcuceg 中 对 点 进行 标 号 ,bb? 对 5 中 四 个 点 的 每 全 点 . 昨 户 时 氟 生 
下 列 函 数值 : 酚 组 一 和 导 炒 机 一 组 混合 号 数 . 总 具 16 和 数值 . 


思 3.6.1 


二 维 线性 插值 经 常 很 类 似 于 "政府 部 门 的 行政 工作 ”人 在 插值 点 从 一 个 方 桥 网 确 移 到 另 
一 个 方 赂 网 恪 时 ,插值 函数 的 候 是 估 续 变化 的 :然而 , 插 利 冰 数 的 梯 虞 在 每 个 方 尾 网 格 的 边 
禾 上越 不 连续 变化 的 。 

将 二 比 线 性 插值 推广 到 咬 维 时 ,有 明 亚 不 同 于 原来 方法 的 两 个 方面 ;可 以 使 用 高 准 缚 依 
奢 得 插值 鹃 数 精度 的 所 高 (是 足够 平滑 的 果 数 ) ,而 不 必 试 图 满足 梯度 和 高 阶 导 数 的 连续 性 . 
或 者 使 用 高 维 插 倘 法 太 对 方 格 司 格 边 奥 点 捅 值 时 ,使 一 些 导 数 更 加 半 漆 。 我 们 烛 继 者 点 -下 
这 两 个 方面 。 


3.6.1 用 高 维 插值 获得 高 精度 


基本 岂 想 基 , 将 高 维 栖 值 问题 分 解 成 一 系列 … 维 插值 问题 ,如 果 想 在 方 向上 做 冲 - 
维 插 值 ,在 2 六 向 上 做 nm 一 1 维 插 仿 ,就 首先 设 革 一 个 mxXn 上 下 
它 包 含 了 所 求 的 点 (zyre)。 接 下 来 在 六 方向 ,其 子 块 的 行 方向 上 做 各 次 一 维持 湘 .六 二 直 
所 (Kaisrz = 1 ma 处 的 图 数 值 。. 服 片 ,在 > 方向 二 做 最 后 -- 次 搬 利 ,合生 列 本 
下 击 的 程序 使 用 了 第 3, 1 节 小 的 多 项 式 插值 程序 polint, 及 假定 已 设置 好 的 节 块 通过 指 生 - 
float x* xya 村 址 ,参看 第 1. 2 节 ) 


基 includc “rtruti.h” 


void 0 xla[- :lnary x2aL] ,人 oat xysint nsjnt nioar xlount x2 ,float 关 了 [leel 8 
洽 完 数组 st m -和 区 5a 1 .53 为 穆 立 安吉 . 子 征 阵 绍 .1..m 门 ..m] 玫 未 由 xle 和 x2s 定义 的 网 桥 ,的 到 大 大 区 


目 : 呈 外 还 知道 独立 蛮 攻 x1 和 并 的 优 , 本 得 序 吉 熙 插入 区 烙 y 及 畏 度 开 示 ds( 仅 很 握 x 放 让 上 的 条 省 ， 


void poliatttoat xa[J: Decas ya[ int ny noayr xy float xyy float *dy); 
IT 


jat wmatIt 


YUEPYSCIOC | ta44 


Jor (jj T65 5 二 十 ) 下 
DoltntCx2tya isntny | slv 3 证 秆 站 果 特 装 存 位 起 卜 
po:tntXTLayyttttnapsht xisvr:dv)s 世 拱 全 一 直通 作 


jree vectorfytmntmby lm)i 


3.6.2 用 高 维 插值 获得 高 平滑 度 ; 观 三 次 插值 


我 们 给 出 呐 个 不 相关 的 通用 方法 .第 一 个 方法 通常 称 为 双 三 次 插值 。 

和 以 三 次 插值 要 求 使 用 者 在 等 个 坐标 格 点 上 不 仅 指 定时 数 37 2 的 值 , 痢 县 逊 归 指 距 
梯度 32y792 一 ayyaxs 一 3: 蚊 汇合 俩 导数 并 va 0 二 yes 然后 ,使 可 在 半 标 音 过 为 
! 和 xf 等 式 3. 6.4) 处 求 得 三 次 质 值 函数 , 它 具 有 小 偿 性 牙 : 0 曙 数 值 及 指定 的 导数 才 基 由 
坐标 格 点 重新 精确 产生 的 ,人 i) 当 插值 点 此 一 个 方 格 网 格 进入 另 方 格 网 烙 时 , 画 数 便 总 指 
定 的 导数 值 是 连续 变化 的 。 

双 三 次 捅 值 方程 并 不 需要 赴 鲍 说 圳 多 余 的 导数 ,地 解 这 :点 很 重要 ! 于 清 的 性 质 是 由 多 
重 保 让 的 ,与 指定 导数 的 精 虚 无 关 , 如 人 局 获得 这 此 指定 的 值 , 那 是 当 一 个 单 狂 的 谍 题 . 基 得 的 
值 直 好 , 搬 值 也 就 越 精确 。 亨 旦 碟 论 怎样 插值 都 是 半 湛 的 

最 好 是 能 知道 导数 的 解析 值 ,或 是 能 够 用 数 信 方法 精确 地 计算 出 方 档 吉 上 的 导数 .次 好 
的 办 法 ,是 能 够 从 列表 中 已 有 的 方 格 点 的 因数 值 , 通 过 数 倩 差分 来 确定 这 些 导数 .有 六 的 代 
码 类 做 下 面 的 形式 (使 用 中 心 差分 ) ， 

yla[ 中 [kj 一 (yaE 一 1]k] 一 ya[j 一 ]J_kJ25xla[ii 1 了 jxlaD 17)， 
1 一 fyafi]5k 十 可 一 ya 站 [kxo2ak 一 ] 一 x2a[k 一 1]); 
12a[ 让 [kk] 一 (ya[ 一 1]Ek 十 1 一 yaDj 二 1] kk 一 贡 ) 一 ya 一 可 卡 一 口 一 ya 一 上 ，) 
CCxla[j 一 1 一 xla[) 一 1]) > (x2aLk 十 ]]--x2a 上 …1])); 

在 方 梢 网 格 的 四 个 硕 单 点 上 , 己 类 每 个 项 角 的 函数 侦 y 及 导数 yl1,y2,y12, 构 造 方 格 网 
格 内 的 双 三 次 插值 ,其 有 蚌 个 步骤 要 做 ,首先 ,用 下 面 的 程序 heueof 得 到 十 六 个 量 cr 一 
1，….. ,4。( 由 肯 数 值 及 导数 值 求 < 的 公式 就 是 一 个 复杂 的 线性 变换 ,其 系数 在 求解 过 程 中 公 
确定 一 次 .名 和 将 其 制 成 数 表 , 以 后 便 不 用 责 考 虑 它 了 ) ,其 次 ,将 c 代 换 到 下面 任意 几 个 或 全 
部 想 费 求 的 双 三 次 孜 数 值 及 导数 的 公式 中 : 


十 站 
各 相 人 
元 | 了 二 风光 Ci 8 1 


， 
Dot > 一 De 


Yoery 二 这 间 一 ] je 1 


人 


《6 


关 要 
3 1 人 2 三 3 De 1 
间 2 过 | 


共 中 :! 和 12 也 由 等 式 (3.6.4) 给 出 ， 


*， 1i4， 











让 1 jl osUyl2E fioat 9 ftoast2。floar ， we 
一 和 分别 天 于 各 彤 部 标 ] 域 囊 人 天 目 5 基诺 直 甬 牛 氛 I 


下 21.， 4 7i。 0 














好 六 曲 。、 
beaujamt 状 允 二 次 和 


{ 1,9.9,0*0.0,D.0D,0.0,D.0,0,D,0.0. 
0.0,0;0.0,0.0.0.10,0.0.0.0,0.0， 
-3.0,9,3:0;0,0,0,-2,0,0,-1,0.0,040， 
2,.0:0,-20:00,01,0:01.00,0,9， 
0:0,0,0,1.0;0,0.0,0.0,.0,0,0,0,0， 
0.0,0,0.0,0.0,0.0;0:0,0,1,0.0;0， 
0.0,0;0,-3,6,0,3,0,0.0:0,-2.0.0,-1， 
0.0.0,0,2,0,0,-2.0.0.0,0.1.00，1， 
-3,3,0,0,-2,-1:0.0,0,0;0;0,0.0.0,0， 
0.0,0.0,5,0,0,0,-3,3.0.0,-2,-1.0,0， 
9,-9.9.-9.6,3.-3,-6.6,-6.-3,32.4.2.1.2， 
-686,6,-4-2.2.4.-3.3.3,-3,-2,-1,-1-2， 
2,-2.0,0,1.1,0,.0,0,.0,0.0,0,0,0.0， 
00.0,0;0.0.00,2,-2.0.0,1.1,0.0。 
2 -6,6,-3,-3;3,34,4,2,-2:-2,-2:，-1， 1， 
4-4,4,-4,2,2,-2,-2,2,-2,-2,2,1,1,1.1}; 

iat 1 ji 

?ioat ZE,d1d2,clL[16] ,zx[16] : 

ld2mdled2i 

tor (i=3ji<e43i++) 并 压 综 暂 寻 间 量 x 
% CI-IJ=yfI]; 
xfi+3j=yl[+]ad1li 
x[i+r7j=y2[ijwd2; “ 
x[i+tt=y12[i]sdld2; 

让 

or 【im0;c<amkt5)s+) 如 拭 阵 乘 以 存 好 的 表 
XIn0O.0i 
tor 〔keO0ik<el5;E4+) xX +m wb[i]y[g]wzx[k]y: 
clL[i]=rzi 

】 

leD; 

or 《tl3;ica4ii++) 将 结果 甫 压 编 成 嵩 出 赤 


Tor 《j=l1i;j<=<&3j+ej cti]tf]]scz[1t+t+ji 


等 式 (3, 6. 6) 求 双 二 次 梢 值 , 其 实现 非常 简单 。 它 调用 上 面 的 程序 beucof ,并 返回 禁 值 商 数 值 
及 了 嘛 个 撕 度 值 : 


芋 include ”nrutil.b” 


vold beuint (feat y[-，iloat yj _ 上 float y2C fleat yl2[]、ftloat xll, ftlaot xtuy float xs21， Elar 2a， :tea 
X1，floal X2，float Yatsy，floar * ansy1，foat # armsy27 


仁 方 珍 坐 款 区 域内 求 六 二 次 播 全 -输入 医 包 括 v,rl,y2yy12( 点 beueof 要 求 的 样 );xi 税 xiu 为 在 第 个 卢 拉 下， 
六 形 崔 讨 区 起 的 上 下 界 笃 怀 ?x21 裤 x2u 回 埋 为 第 二 介 方 向 上 的 土 下 恰 坐 标 ;xl,z2 为 所 求 插 俏 点 的 灿 丰 -nsy 必 胃 
中 的 拖 傣 两 数值 ,ansy1 和 nnsy2 为 排 德 至 计 全 本 笠 床 男 吊 beucnf ， 


voida bcucof (人 Loat y[] ， 夺 Loat ?1L 口 ，tloat 72[] 、oat yl2[] ，float dl， 
了 1oat d2，?1oat macCh)) 

int i) 

float tudl,d2,?wci 


”1155 


C=mattixt1,a,3，4]: 


di=xfu-xlli 

d2=X2uU-X21i 

bcucof (y,71,y2,y12,.qd1t,d2,c)i 得 到 八 

放 【xl *= xll | 上 | x2u mm x21) nrarror(n"Bad inpuf in coutlne bcuint"); 
t={xl-xll)Adlli 等 式 【3.6.4) 

u=(X2-X21)7d42， 

* BanmSsym(*anSy2)=(#angy1t)=D.0; 

Tor (in4;i>=1ii--) T 罕 由 (3.6567 


wansy=t*K+ansy)+KfKCc[ilr[4]*u+re[:] [3])sute[i][2])ea+e[i]l[:]; 
anSsy2=twftansy23y+{f3.08cfi] [4]*u+2.03cf[fi] [3] )*utc[i] [2]， 
*anBylsastansyl]+rf3-0wcfi4l[i]+t*2.0tc[3] vi])*t+tc[21[i]， 


*abhsyl 7Y= li; 
anay2 /md2; 
free_mtatrirfc,I,4,1,4) 3 


} 
3.6.3 用 高 维 插值 获得 高 平滑 度 , 双 三 次 样 条 


竖 获 得 二 维 扫 伍 前 平 滑 度 的 身 …… 种 常用 技术 十 邓 三 次 样 条 .实际 它 等 于 是 色 二 次 排 人 入 
的 一 种 特殊 情况 : 摘 值 函数 与 等 式 (3, 6. 的 的 函数 刺 式 完全 相同 ,不 过 些 梳 方 格 点 的 导数 订 
是 毕 “ 维 样 菜 "全 局 ?确定 的 .然而 , 双 三 次 样 条 通常 的 实 负 形 起 ,看 起 来 跟 屿 面 的 双 三 作 托 
作 程 序 相差 苦 远 , 价 是 更 接近 上 商 的 polin2 程 序 的 形式 : 求 丽 数 桥 值 时 , 先 接 你 表 和 的 行 方 间 
求 税 次 一 维 样 双 插 估 , 再 按 新 建 的 列 方向 做 - :次 : 维 样 条 捕 傅 ,这样 做 在押 需 的 参 计 算 和 
存 鱼 等 方面 邦 很 得 位 (时 间 和 空间 的 皮 衡 ) 。 没 垢 ( 象 双 :次 插值 那 洗 ) 需 预先 计算 并 在 好 所 
有 的 导数 信息 , 谭 足 象 样 条 折 值 一 洋 , 内 需 先 计算 并 保 人 在 .- 张 辅助 表 , 它 是 仅 沿 一 个 方 熙 上 
的 只 导数 , 接 下 来 ,只 需 对 年 行 拌 条 散 样 条 求 得 (不 用 构造 ). 还 要 对 最 后 共 列 栏 条 咎 - -次 
构 记 并且 求 值 .( 回 忆 一 下 、 检 造 拌 条 的 复杂 度 为 交 阶 , 布 人 拌 条 求 伟 仅 为 logN 就 可 在 到 
表 中 的 位 轩 1) 
这 中 的 程 毕 是 预先 计算 辅助 的 一 淮 导 数 志 
void splie2(fioat xlal ly floay >2ar]，fleat > yayut my inrny float x *y28) 
和 贫 定 列表 请 数 ya of -nm23 及 列表 名 灾 硬 宝 zi ml 和 xn] 本 各 宁 构 法 加 的 行 购 次 记 和 人 
某 , 当 各 的 : 阶 当 敏和 上 数组 2 m [1 n 由. 
Yei spline(Eoat x[ float yint ny lloat yp1。fIont yon ， Foat Y2L]); 
Jnt ]1; 


fnr WU] 一 miir 一 ) 
splireCx2a ya[ins1.0e30yl.0ey30sv2n 六 )， 贡生 1407 栋 二 . 妃 样 划 


(如 果 想 要 对 更 大 全 阵 的 子 块 宕 值 , 傅 考 第 :. 2 节 )， 
上 抽 的 程序 执行 过 -次 以 后 .可 以 连续 调 几 下 面 的 程 上 池 热 行 任意 次 求 双 三 次 样 条 持 值 : 


并 inciuadie “nrutl.D“ 


Yoid splin2tDost x:al 1 fioat x28 foaf > 4yaviioat 关 va， LvijintmyHioatxl fa xx 
fotft *w) 


路 时 xlavx2ayavmun 


三 们 的 庆 下 是 大庆 gplle2 ,其 市 该 理 音 全 万 Y2a 对 路 守 所 求 的 丘 朱 点 xs 本 得 生生 
宏 叶 条 轿 依 发 笃 兵 检 国 红 和 具 





Yoid sbjinctjlnal x ilorty intn， fioat ypls flnoat wm flnat v2「 .); 
SiC PiiatifIoat xf 划 oa yaC float y2af in: mn。 flont vont Y) 


“1]100 


mtf |) 
Ttcar ”Stmp xs YY 


YUOb -Vector ] .TDt7: 
yytmpb 一 vecTorf1 .071 








spPlinefx IsyyTontP rn ea 
sbintCxTa 7ycmp-vtmp na X1 
[eece. vecetTnrfyytnmh lm 

[cee setetuortytolp LT 
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第 四 章 ”函数 积分 


4.0 引 害 


才 信 和 祖 分 方法 浆 称 求 积 法 (quadrature) 其 历 虫 归 诺 测 往 乱 相 务 发 明之 辣 或 其 
的 时 候 。 初 等 昂 数 的 导数 一 艇 能 解析 让 算出 来 ,而 积分 靖 企 佣 使 得 娩 提 自分 这 和 
的 作出 更 为 显著 ,而 木 必 和 象 在 糙 个 二 从 .二 办 持 纪 中 那样 . 作 芝 草本 车 亿 从 和 梧 的 算 过 让 昌 

随 着 自动 计算 的 发 明 , 求 积 分 仅 成 为 一 站 下 不 在 让 村 ， 开 计 和 华 二 和 作 了 .FT 动 计 站 
使 是 鼠 诛 始 的 形式 ,如 使 用 台式 计算 器 积 能 装 满 一 亲 只 于 站 计算 机 5 育 审 开 上 征伐 下 过 下 大 
丽 不 足 搜 露 ) 在 内 ,使 微分 方程 的 数 候 积分 这 弛 为 二 千 胞 轿 生 于 志 二 司 伟 丘 求 由 个 当 寺 
其 中 “种 最 简单 的 特例 : 秘 分 值 









了 一 | Frjefa (11 
与 对 微分 方程 (4. 0. 2) 求 7 三 y{( 信 的 利 等 价 ， 
空 = /az) 人 
[- 式 育 演 界 条 件 
36d) 一 小 (4 


本 书 第 二 六 束 将 过 论 缴 分 方程 的 数值 积分 ,届时 着 重 强调 步 长 的 "可 灾 当 秆 择 ,或 “ 许 通 避让 
择 的 概念 。 这 里 不 想 进 一 步 探 讨 , 刘 果 待 积分 的 天 数 明显 地 集中 在 个 或 几 个 峰值 点 企 .或 
其 形状 和 根 难 用 单个 长 度 杯 尺 描 这 ,那么 放 该 将 同 题 化 成 (4 0. 2) 和 (8.0.3)? 的 形式 , 然 汪 开采 
用 第 上 六 章 方法 。 

本 章 求 积 分 法 的 啤 理 就 是 ,以 一 定 方 式 在 积分 区 闻 和 站，, 按 横 坐标 顺序 将 被 积 几 数 的 对 元 
值 剖 起 来 。 绅 标 是 用 最 少 的 求 被 积 册 数值 的 次 数 . 铅 得 到 尽 可 能 精确 的 积分 值 . 构 内 择 污 :第 
三 章 ) 的 情况 类 似 , 可 身 出 选择 不 同 阶 的 各 种 方法 ,有 时 ( 低 不 总 是 ) 越 高 阶 的 精度 碟 高 .第 4. 
3 节 讨 论 的 " 范 贝 格 CRomberg) 积 分 ”是 利用 各 种 不 同 阶 的 称 分 方法 的 一 般 形 式 . 它 是 站 
值得 推崇 的 方法 。 

珍 了 本 章 和 十 六 章 的 方法 外 , 烛 秋 分 的 方法 很 多 .其 中 很 重要 的 :种 是 利用 还 近 着 数 ， 
第 5.9 节 将 仔细 讨论 场 比 下 去 (Chebyshev) 通 近 末 数 积分 。 读 乔 空 了 解 如 何 利用 第 3.3 和 中 
spline 程序 的 结果 .来 求 三 次 样 亲 函数 的 积分 ,这 里 将 不 作 详细 讨论 .提示 ;用 式 53. 3. 35 对 
并 解析 积 分 。 盆 见 [1]) 

感 里 叶 变 换 中 涉及 的 积分 丰 出 快速 傅 时 时 变换 (FFT) 算 法 算出 .这 在 第 13.9 节 中 jj 论 ， 
多 重 积分 内 容 也 很 多 ,第 4, 6 方 特 作 - 般 性 讨论 ， 比较 重要 的 沙特 一 卡 罗 (CMon Carrc 可 
分 方法 在 第 七 章 申 介绍 。 
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324085【Emnglewood 人 和 、 内 J:>reantice-1dall) ， 站 全 多 

ivis PP、 、ang Rahinowjsz，P、198 和 Near Drpgroaons 2n0 eq 10Orlando 01:Acrrpmir 
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4. 1 坐标 等 距 划分 的 经 典 公式 


踊 本 基于 数值 分 析 的 书 上 .会 汪 宕 谈 牙 辛 卡 生 (Sinipson? 先 生 和 他 的 “法 刚 " 吃 * 尘 
永 数 在 等 此 点 处 的 值 已 知 : 求 这 个 通 数 积分 的 经 典 公 区 是 极 精 巧 雅 狼 的 , 它 让 人 人 联想 下 它 
的 历 员 . 正 是 通过 这 些 公式 ,现代 数值 分 析 家 们 可 以 返 同 到 数 个 世纪 前 甚至 远 笃 牛顿 时 代 的 
大 有 , 与 他 或 她 们 的 前 辈 交 流 岂 想 . 介 时代 的 确 在 密 沙 ,除了 其 中 最 根本 的 两 个 公式 各 扩 展 
撞 形 泛 ? 式 64. 1. 1 和" 直 展 中 点 法 ? 式 (4. 1. 19), 见 第 1 2 节 ) 沪 外 ,这 些 经 典 公式 于 平 都 没 什 
么 用 处 了 ,可 以 进 博物 馆 了 ,但 它们 确 足 很 精美 的 谋 品 ， 

先 作 些 约 定 : 一 组 嵌 怀 床 风 mvziwvazvyrs it 其 间 了 为 定 步 长 大 

re 7 一 0.1 和 .十 1 ET 人治 
已 知 图 数 Fzr) 人 在 各 忆 处 值 

xi 公克 村 示 

求 范 数 /xz) 在 下 限 x 和 和 上限 训 之 闽 的 积分 ,其 中 ab 分 别 等 十 其 中 某 一 个 r, 值 .使 用 了 在 
疹 点 的 函数 值 Fa) , 75) 的 积分 公式 , 称 为 闭 弄 公式 -有 时 被 求 积 分 的 申 数 在 … 个 或 两 个 端 
点 处 的 函数 伪 难 以 计算 (如 求 了 变 成 求 儿 型 极限 ,或 者 更 粳 粒 的 是 ,端点 处 为 可 社 柯 异 
性 .此 时 , 喜 需 要 …… 个 开 型 公式 , 即 只 用 严 插 限 于 x 之 间 的 二 值 来 人 震 计 积分 ( 见 图 


和 1.1)。 


Xw+1 
并 型 公式 使 用 这 些 点 
闭 司 公式 司 用 这 些 点 


闭 型 会 式 村 计算 在 迪 和 点 处 的 和 值 ,而 并 型 公式 未 这 样 做 (以 防 达 符 点 上 的 求 值 使 算法 失效 :， 
图 4 上 上 用 等 距 划 盆 的 坐 评 来 求 商 数 从 :到 ss: 之 间 积 分 的 求 各 公式 ， 


经 典 公式 的 基本 构造 模块 是 , 计算 函数 在 一 个 小 区 同上 的 积分 的 “方法 ” ,区间 数目 增多 
和 人 
* 109。 


前 六 师 精度 )。 上面 反 出 一 些 这 古 的 出 是 公 寂 ， 
4.1.1 牛顿 - 柯 特 斯 (Newton-Cotes ) 闭 型 公子 


二 有 旷 泪 


FTOcdr 二 让 二 4 -一 2 -00 ) 洒 本 本 


水 中 肖 项 OO) 武直 凌 ' 灾 依 这 让 全民 闪 牙 大 小 等于 耻 和 
证 恬 友 加 实 某 -点 处 的 一 阶 导 数 的 各 .这 全 吾 计 条 牙 是 是 计 放 在 任何 - - 太 基 荆 这 和 
的 村 :证 资 臣 中 或 刘 ,但 应 在 哪 总 求 - 阶 导 可 托 村 知 的 ， 下 是 我 们 陛 知 所 这 汪 、 这 
陛 求 出 该 点 前 值 : 这 样 的 话 , 这 种 方法 过 织 不 通 王公 己 逢 下 与 2 林 和 着 黎 . 之 机 们 几 
个 不 乔 蓝 ,此 我 们 还 焉 原 岩 上 守 公式 .只 本 康生 顺和 而 在 字 二 数 利 系 洗 。 

为 “个 两 司 公 坏人 明 总 让 下 于 等 王浆 的 多 项 忆 是 精确 的 .由 7 
和 有 大 共 户 术 有 一 个 示 用 于 小 上 等 地 次 多 项 式 的 二 点 公式 。 确 实 有 这 样 的 公 直 .而 月 - 工 
四 :有 对 称 引 起 条 数 相 消 ,这 种 注目 会 瑟 丰 水 二 等 节庆 的 各 天 式 全 晕 精 确 的 . 划 六 ， 















疾 下 中 (Siectpson 大 二 


估 cf 咱 末 / ， 4 7 -= | 了 人 下 过 
了 过 1 ， 


开 员 水 “ 表 :， 小 奈 数 在 积 分 区 癌 菜 本 知 点 处 的 四 | 全 于 北 倘 .这 要 注意 公民 给 出 取 有 -用工 记 加 7 广 
区 | 区 间 上 的 积分 ,所 以 系数 加 起 来 窜 上 
辐 点 公式 理 的 系数 相 消 就 不 怎 委 了 .但 对 小 于 准 上 .该 的 多 咏 式 也 是 精 奏 的 ， 


E 人生 378 让 ， 


二 9 ， 号 ， TI 
| CC 7 一 禁地 7 3 天 二 
起 人 下 2 隐 


五 鼎 公 式 就 区 有 消 均 性 原 了 。 
波 特 (Hocdec 法 
六 rne _ 吕 4 业 的 加 所， 下 六] 上 oo 有 


[有 小 上 三 学 于 开 : 次 上 多 项 式 足 精 哨 的 。 

伞 虑 、 公 世 不 下 以 人 务 谷 人 这; 下 也 本 理 接 大 探 访 下 2 所 手 按 上 计 二 让 会 二 本 
作 [-， 
4. 工 2 单个 区 间 的 外 推 公式 


我 们 竺 时 候 岗 上 让 出 发 展 的 咕 放 .在 这 由 ,大 多 数 - 共 二 会 出 一些 "New:on--Gates 家 
公式 “例如 : 


| er 有 几 


滞 富 ,了 上 武 是 求 从 = 到 靖 <， 二 只 用 了 内 部 答 点 二 这 利平 弄 会 玉 朋 站 不 


*。]1ua， 


康 轩 基 :G 友 能 串 起 来 稳 记 有 才 的 扩展 方志 ,及 乏 我 们 将 父 理 同型 公式 志 样 ,0 7 续 实 用 外 


吉 学 


这 


受到 商 斯 积分 公式 的 文责 ,性 在 第 二 5 节 中 人 党 高 斯 求 积 公式 ， 
霓 在 ,我们 不 从 于 天 柯 特 斯 会 趟 音 手 .所 从 二 剂 六 的 单 区 阅 贞 估计 积分 仿 公 起 善 于， 


-积分 用 了 在 人 … 处 的 俏 表 示 。 








0 jc 一 Oo 
| 7eodz 一 用 全 -Or 大 人 
Acepwa 一 OGA) 二 
| 人 2 匡 A 冯 庆 一 1 一 二 | Oo 本 .139 


有 人 也 许 和 上 程 公式 怎样 得 到 的 ,有 很 多 精美 的 方法 ,但 最 直接 的 方法 超 . 宇 公 迁 的 


基本 形式 中 ,用 未 知 数 ,比如 pgsr.s 人 村 其 中 的 系数 .不 失 :有 般 性 , 取 了 0 = . 则 ) 一 
1。 恢 次 用 .Ar 一 1 一 2 一 全 人 门 一 rr 代 换 Fr 还 有 万， 户主 次 求 
次 积分 ,使 右 按 成 为 -个 数 , 而 左边 虐 为 未 知 数 Paris 的 线性 方 穆 。 求 解 由 此 得 到 的 四 个 
方 杏 , 即 可 求 得 系数 。 


4.1.3 扩展 公式 ( 闭 型 ) 





使 用 方程 64. 1. 3) 六 一 1 次 .计算 区 闻 人 trrsrosCdsie2s) 中 的 种 分 , 邮 把 关 


果 训 起 来 ,得 到 从 ,到 xx 积分 的 "扩展 ”或 “合成 "公式 。 


扩展 梯形 法 
| (rd 一 肋 


员 | 人 一 全 三 ， 
木 - 友 ai 人 1 .11)》 


这 里 误 论 项 用 了 区 间 长 度 &- 2 各 点数 六 米 衣 示 ,而 不 用 入 ,通常 < 光 回 定 ,车 取 睛 去 个 数 为 
原来 的 商 们 ,那么 误 头 项 将 减少 多 少 , 这 一 点 从 会 式 在 误 很 清楚 了 (此 时 校 4 倍 关系 履 宅 所 
以 在 品 面 会 蕊 中 , 误 关 项 只 衣 示 为 步 长 个 数 的 比例 因子 。 


列 


( 系 


事实 上 ,地租 (4. 1.11? 足 本 节 最 重要 的 公式 ,大大 多 数 实用 积分 方法 的 的 基 儿 .这 所 


和 2 人行 才 会 时 白 。 


]7N 阶 的 扩展 公式 为 ， 
17coadar 人 7 一 了 证 二 六 二 


多 一 


本 罗 国 区 


-会 说 明 乱 么 得 到 的 ). 
对 连续 的 、1 人 闻 寺 ,应 甫 式 1 2 得 到 扩展 辛 直 生 法 ， 


有 -- 1 全 省 -二 了 上 汪 = 


“1 il， 


2 二 1 oO 1 SR 
3 上 了 入 十 地 NU 5 


注意 ,上 式 中 括号 内 273,473 一 直 交 超出 现 。 有 人 会 以 为 这 种 押 动 的 交 蔡 过 程 , 基 列 包 含 ，) 
于 被 积 毅 数 积分 的 某 种 不 易 察 觉 的 性 质 . 事 实 上 ,这 种 交 蔡 只 是 由 于 用 了 式 人 4. 生生 友 井 樟 


式 的 结果 。 
与 广 卜 生 法 同 阶 的 还 有 另外 一 个 扩展 公式 ， 
rryazr = 人 时 帮 一 放大 二 中方 二 大 
- 23 . 二 
1 二 太一 和 


+ 
本 方程 是 通过 对 每 达 续 中 个 一 组 的 点 集 上 氢 合 三 次 多 项 式 得 到 , 关 寺 这 一 点 的 细节 延至 第 
18. 3 节 中 讨论 ,该 节 中 为 解 积分 方程 使 用 了 丰 似 的 方法 -现在 ,我 可 以 说 明 式 (4 上 12) 上 妈 
得 钊 的 了 .在 第 一 个 驻 间 及 如 后 一 个 区 间 里 ,使 用 式 (4. 1.3) 的 梯形 法 .其 它 区 间 用 辛 上 生 
法 ,这 样 得 到 的 改进 结果 再 与 直接 使 用 辛 卜 生 扩 展 法 得 到 的 结果 取 平 均 :梯形 法 比 立 生 法 
低 两 阶 , 这 样 使 得 积分 的 阶 次 降 为 另外 一 个 Y 的 宪 ( 因 为 梯形 法 只 用 了 两 次 而 不 是 入 次 )、 
因此 ,这 使 得 到 的 公式 比 辛 卜 生 法 低 一 阶 。 


4.1.4 扩展 公式 ( 开 型 与 半 开 型 ) 


式 (4,1.11) 一 式 (4. 1.14) 加 王 式 (4.1.7 一 式 (4.1.10》, 即 可 以 推导 出 开 型 的 或 半 开 型 

的 公式 ,其 中 将 式 人 4. 1.7)~- 式 (4.1.10) 用 于 第 一 步 的 外 推 的 开 型 公式 ,而 式 (4. 1. 11) 一 起 
(4.1.14) 用 于 求 第 二 步 及 后 面 各 步 值 的 闭 型 公式 .。 止 如 上面 刚刚 讨论 过 的 那样 ,在 区 闻 边 界 
求 积 分 的 各 步 , 可 选用 比 区 间 之 内 各 步 低 … 阶 公式 -这 样 , 所 得 区 间 疯 端 都 汶 开 型 的 公式 如 
下 : 
由 式 (C4,1.7? 和 式 (4. 1, 117 得 到 


| rposz = 可 P+ 二 + 二 4 
由 式 人 4. 1. 8) 及 (4. 1. 12? 得 到 
全 站 生 
| Apdz = 计生 +157 一 A++A+ 


站 23 
-十 廊 :十 瑟 产 = 十 节庆 |] 《416) 
全 计 
十 必 责 | 


由 式 (4. 1. 纪 及 (4, 1. 13) 得 到 
| >renar = 计 和 户 + 一 瑟 A 十 二 六 二 


， -和 1 27 2 -人 
了 Ax :十 蕊 六 :十 0 十 Vs- | 


"112。 


十 0 区 (1.17) 
区 上 辐 具 部 各 点 系数 由 173.273 安 于 宰 化 :为 消去 这 种 交 葵 变化 .由 区 (4.1.9) 及 起 (1 可 
得 
他 35 
上 Fradz 一 诈 芒 4; 一 襄 户 十 中 六 T 扩 | 太太 二 


- - 1 1 Sr 
5 
十 -4 六 -十 车 3 8 2 
上 [ 1 
工 吕 Ri 


再 简单 失 “下 另 “种 扩展 开 型 公式 , 它 用 于 积分 限 位 于 标定 坐标 中 点 的 的 情况 ,-- 般 称 为 扩 
展 中 点 法 ,其 精度 如 式 (4. 1. 15) 荐 二 阶 的 
| (tt 一 站 六 十 六 一 太一 
2 41.103 
十 大 1 十 | 中 


IN 
这 种 情况 也 有 高 阶 公 式 , 这 里 就 不 作 介绍 了 。 
半 开 型 公式 就 是 式 (4. 1. 1 一式 人 4.1.14) 分 别 与 式 人 .1.15) 一 式 (4. 1, 18) 的 线 伺 组 
台 .- 积 分 的 财 端 使 用 前 四 个 式 子 中 的 权 ; 而 积分 的 开端 使 用 后 四 个 式 子 中 的 权 , 举 例 说 明 ，-- 
个 右 闭 左 开 误差 按 1AN3? 减 小 的 公式 为 : 
| 上”renpaz 让 史记 十 蕊 大 平 沪 下 天 十 


《二 1. 20) 


、 ]3 3 
。 1 一 广 . 一 { 二 
站 了 屯 关 fs 1 十 3 
参考 文献 和 进一步 天 物 : 
入 hratnewitz，M.、，and Stcgun，|. 和，1961，77eepebook DR8ietRemeetzrcatl 严 pwncrfanas。 上 ppliec Riathebmaticy 
Series，vcl，55，8 25, 4，[11 


Jssacseny E. ，and keller，H.R、 1956，3natysts pf Ruennericsdl adethodsy (New York， Wiey;y、N 7. 1， 
4,2 基本 算法 


我 们 从 式 (4.1. 11? 的 梯形 法 着 手 . 全 于 为 什么 要 从 梯形 法 开始 来 斌 究 众 多 其 它 算法 , 原 
因 有 两 个 ,… 个 很 显然 , 另 一 个 深奥 些 。 

显然 的 原因 是 ,人 在 固定 积分 限 sb 之 间 求 国定 蚂 数 的 积分 时 ,可 以 将 梯形 法 中 分 划 区 塌 
的 数目 增加 一 倍 后 ,仍然 可 以 利用 前 面 上 作 的 结果 .实现 梯形 法 最 粗糙 的 步 又 是 ,在 积分 区 
域 端点 a, 对 函数 取 平 均 :而 精细 时 的 第 一步 是 ,将 中 点 处 晒 数 值 加 入 到 那个 平均 值 .第 二 
步 加 进 174 和 374 点 处 的 函数 值 .如 此 等 等 ( 见 图 4. 2. 1) 。 

不 费 多 人 刀 气 可 写 出 程序 实现 这 种 算法 : 
共 qefine FLINCCx) (CC*xfunctx)) 
了 pal tratpzd(fioar fx func] (floaty float ay floatL intn) 

本 程序 计算 扩展 风 形 法 第 r 次 的 加 上 结果 ,Junuc 为 输入 ,是 指向 被 压 芍 数 的 指针 , 驮 数 和 分 限 sb 也 为 输入 :na=- ] 半 
"113。 


阔 用 ,. 返 叮 [7 fa3ttr 的 弄 酶 疝 计 区 个 症 3 种 出 时 . 诗 次 蜡 略 二 全国 帮 以 牙 符 精 一 。 


flest x，tnn sum，del， 
NTHfic 人 foat 1 


iD- 省 ，1 


na 
retarn fs 一 由 5z 人 一 2 ELUNC34EUNGCCby)7) 
:plse 
foxr (ic 三 ] .1 一 1Hs2D--] ,ii 二 Ti 二 一 上 
tnm 一 1 ， 
de = -atD7inDl4 这 是 所 增 如 点 人 加 卫 
x = 一 0 5xdGeli 
fer (sum 一 小 0 1 一 1:] 交 = 一 1 十 十 ,xx 十 一人) sum 一 一 下 LINCCx)i 
R 一 DR CS 二 fb …alxsumrtnrnyy 用 狂放 从 儿 全 总 
TetWTD SS 


后 闪 博 况 ) 


须 新 洞 月 程 座 trapzd, 浊 从 何 利 用 前 而 藻 次 的 结 策 , 精 训 时 公有 天 在 新 增 避 处 米 彼 各 网 莹 似 


战 目 面 “ 菜 综 麦 示 经 放 4 次 油 月 司 求 毅 数 信 前 点 数 ,得 上 qsimp 为 中 间 结 果 如 权 , 这 翌 共 名 
元 旭 修 改 就 可 出 梯形 法 转变 为 让 让 法 、 


图 {.2.1 


调用 上 面 程序 trapza 有 很 多 方式 .最 简单 的 .一 种 就 四 ,事先 知道 冰 分 划 多 少 区 局 (多少 
赤 ? 的 情况 下 ( 祥 能 想像 生 求 :个 国 数 的 积分 . 若 须 宫 十 1 沙 , 可 用 下 商 理 序 完 成 , 返 问 俏 


for 和 一 jsm1:ji 二 二 strapzd(fonc.a bj) 
当然 更 好 的 办 法 是 改进 梯形 法 ,以 达到 某 种 特殊 的 精 谋 要 求 。 


玉 inclnde <Dmnatth. > 
革 efmne PS te 一 5 
芝 defme JIMAX 20 


站 oaf Jtraltfloat fa funcltflost》、foat ay Toat by) 


全 a 到 日 扣 同 师 克 Eune 的 入 分 值 。 戎 数 EJPS 可 设 次 为 可 求 的 相对 精度 . 岂 时 设 苔 JMAX. 使 金桥 隐 最 多 步 数 区 se 
一 1 .用 梯形 法 水 积分 。 


float trapzd(filoat (* tunc)fPonry， float na Hom uint ny， 
void mtrerrorfchar error text[]): 

urtt ] 

Hioxar s-oids 


.114 。 


5ds 一 一 ].oe30， 这 出 杠 何 数 客 行 . 只 吏 不 在 氏 数 在 靖 忆 站 的 由 护 旋 
for 避 王 1 过 一 JMAXT 十 一 

SS 一 trapzdtjurcabvy); 

让 (fabsts olds) < ERPS*fabstolds)y return si 

ulds 一 5; 


hyerrort2 直 Do mamy steps im routine dxzTap”》 
retuTn 0. 0， 水 远 不 手提 


qtrap 虽然 不 很 复杂 ,但 用 于 求 一 般 不 很 平滑 函数 的 积分 很 有 力 . 复 杂 性 增加 后 :往往 
可 变换 成 高 阶 方法 ,但 高 阶 方法 仅 当 被 积 函 数 是 使 平滑 时 才 有 效果 ., 若 被 积 函 数 的 变节 是 测 
基数 据点 之 问 的 线性 插值 时 , 则 可 选用 gtrap 程序 方法 .注意 对 EPS 不 能 要 求 过 于 严格 , 因 
为 若 qtrap 为 达到 要 求 的 梢 度 而 选 代步 数 过 多 时 ,累积 的 舍 和 人 误差 会 增 大 . 程 庆 就 不 能 收敛 
了 .一般 32 位 机 10” 的 精度 可 能 刚好 临界 , 当 收 伍 速度 适中 时 该 值 可 以 达到 , 亚 则 达 不 到 ， 


规 在 淡 谈 ,那个 关 十 式 44.1. 11)" 深 奥 ”… 些 的 原因 -这 个 原因 就 是 , 袁 达 式 中 了 总共 项 以 
1 阶 开始 ,表示 成 17N 的 阶 次 堪 式 总 是 偶数 阶 的 ,由 Enler-Maclaurin 公式 可 直接 看 出 : 
AT Re 二 间 要 册 
| Jodz = 让 寺 六 二 六 + 六 + 和 一 二 A] 


怪 ， 下 全 


避 2 
一 3 


人 


其 中 玫 ws 为 伯 努 利 数 (Bernouii number) ,由 下 面 后 成 冰 数 给 出 


玫 可 
。 一 ea 二 
元 二 林 2 《2.2 ) 


前 几 个 偶数 项 值 ( 除 五“ 一 172 外 .奇数 项 都 为 零 ) 为， 





1 ] 1 
瑟 - 一 六 二 窟 
三 :二季 二 ; 3 总 ， 二 
1 691 
下 EN Rs 2 9 
30 避 6 和 2730 《4 


截 去 .其 后 而 项 产生 的 误差 总 是 小 于 略 去 项 中 第 -项 的 两 们 .不 收敛 的 原因 是 从 努 逢 数 会 变 
得 很 大 ,如 
_ 495057205241079648212477525 
66 

关键 是 , 式 (4. 2. 1) 中 误差 级 数 只 有 天 的 偶数 次 寡 。-- 般 说 来 ,第 4.1 节 的 高 阶 求 积分 方 
法 并 不 具备 这 种 性 质 ,例如 ,4, 1. 13) 式 误差 的 级 数 就 是 从 OILAN3? 开 始 . 但 紧 接着 示 有 其 
它 六 的 寿 次 ,如 17NM4 LAN 等 等 。 

度 用 N 个 分 划 (N 步 ) 求 式 G4. 1. 11) 的 值 结 果 为 Sv。 青 出 2 步 得 到 55 只 须 接 人 填 阅 
用 trapzd 两 次 ). 第 二 次 结果 的 首 项 误差 只 是 第 -次 的 174, 故 组 合式 


， ] js 
2 一 六 二 让 9 ， 
了 1 【〈 .2.4 


旦 5 


仁 消 去 误 交 的 首 硕 , 故 式 (4 2 4) 中 1 阶 节 误 兰 尖 就 不 存在 , 剩 关 的 误差 就 是 12 打 
和 ,与 六 让 和 法 相同 。 事 实 上 ,不久 就 会 看 到 代 (4. 2. 打 其 实 止 足 误 让 生 法 ,系数 273 43 企 久 
is 卜 生 法 求 称 分 ,这 大 方法 中 可取 .由 此 得 到 一 个 与 上 面 gtrapg 极其 类 似 的 程 矿 


include 一 math .> 
让 tf EPS Toe 6 
二 define JMASX 20 


[loat dsiztp (tloat sthunec)gbeary， fcar ay float by 
返 阳 函数 fuze 从 = 到 也 的 积 公敌 数 上 DSS 没 叶 为 枚 求 的 相对 精 谨 , 国 时 党 咒 JTAX ,征召 允许 区 最 大 开 数 网 人 、 
1, 湛 辛 卜 生 波 求 各 分: 


Toat Lrapzdt 拉 oat {x funcytiloaty、jloar ay 站 cat h，int ny; 
vGid nrerrorf(char crror-1ext[ 

int ]; 

float sst:0sttO5si# 


Us 一 os := 一 :ed 
for (一 1j 雪 一 JMAXH 7 
st 一 trabpzdr[uncyavb:j)s 


S$ 一 {4.0+* 上 st 一 080273.101 与 二 耐 式 2. 2.43? 堵 较 
计 【fahsfts 一 08) < EPS >* labskos1 retourn si 

6G3 一 S4 

0Oaf 一 sf: 


1 
了 


PTerIort "loo many steps in rou'ine qsimJ ”4 
cturn 洲 . 0; 水 外 不 世上 用 


一 段 知 被 积 函 数 的 四 阶 导 获 有 竹 ( 骨 二 阶 导数 连续 ), 贝 | gsimp 比 qtrap 效果 好 5 半 昌 站 
的 所 数值 次 数 较 少 )。 有 时 ,对 于 一 些 轻易 的 上 人 在 , 此 时 将 qsimp 与 它 必 需 部 分 trapzd 3 六 
起 来 是 一 种 好 方法 ， 


4.3 龙 贝 格 积分 


可 以 将 龙 贝 格 (Romberg ?积分 看 成 是 上 节 程 序 qsimp 的 自然 推广 ,其 积分 格式 比 立 、 
生 法 具有 上 喝 高 的 阶 次 .其 基本 思想 是 ,利用 扩展 梯形 法 中 连续 进行 才 次 甸 分 的 纤 采 (由 qtrap 
实现 ). 以 消除 误差 级 数 直 和 (不 包括 )9(N“) 的 所 有 项 .qsimp 是 & 一 2 的 特例 .这 是 一 例 关 
于 通常 称 为 理 查 德 森 (Richardson ) 延 迟 极 限 通 近 的 一 般 思想 : 妈 对 不 同 的 参数 值 六 避 成 数 
值 算法 ,然后 将 结果 外 椎 到 连续 极限 A=0。 

蕊 (4 2.4) 中 减 去 了 误差 首 硕 , 是 多 项 式 外 椎 法 的 一 个 特例 :在 更 一 般 的 华中 格 情形 人、 
我 们 还 可 以 采用 尼 维 尔 CNevilie) 算 法 ! 第 3, 1 节 ) ,将 其 逐 沈 地 精确 外 推 色 零 步 入 的 情 素 .在 
龙 贝 格 积分 程序 中 ,能 很 简洁 地 纺 写 尼 维 尔 算法 .为 使 程序 简 法 起见 ,调用 第 3.1 节 给 己 的 明 
数 polint 来 做 外 推 , 似 乎 要 更 好 些 。 


ine:ude <rmalh. h 2 






立 delihe EDPS 1.0e 一 6 这 型 ETFS 为 始 求 贡 畏 度 ' 并 外 排 误 蕉 上 洁 短 仿生 
fdeline JIMAX 20 JSAX 了 租 割 由 二 

二 djinoc JMAXPTYJMAX 一 1 

二 dedjine 区 5 K 旺 出 上 外 振 芒 二 过 


上 


float qrombtilost (5*func)(float) floar a*float b) 
片 加 所 数 rne 从 = 到 二 的 积分 从 .积分 采用 龙 人 严格 法 , 阶 数 为 zk , 当 K 一 2 为 辛 卜 生 法 ， 


void bol:tChoat xa[],， float ya[ 、incn, foat xfloa; *yyioat “dy); 
几 ioat :rapzdfgort {#fune) ffloat) ioatav1lnatbhy int ny 

void nrertortchar arrer text[]j)， 

float ss ,dss 


fiosf s[LJMAXP+1 hbhUMAXP .1 | 存 情 壹 续 走 形 法 逼 远 及 其 相应 小 长 
1nd ]， 
hf 一 上.07 


for (jj 一 1 所 一 JMAXI 十 一 ) 
s[j 一 rrapzdcfunc ,ab,j); 
诗人 盖 一 KK) 了 
polint(&h[j 一 区 ] ,8&s[j 一 KK,0.0gssgdss)， 
ifpbhskqss 过 上 PS * fabsfssyy return ssi 


上 

[Lj 十 1 一 s[j]: 

h[j 十 一 0 25*h[ 疏 ; 关 皇 炒 , 步 长 碱 为 0.5 倍 而 因子 二 尾 ?. 25, 这 样 使 得 按 14. 2. 1; 福 纪 惟 到 hr 的 多 
项 式 ,而 六 仅仅 是 上 的 多 项 式 


人 
了 


DTGTTeIKC "Too inany steps in routime qromb”)j 


FEelurll 了 -是 术 延 不 到 上 k 


qromb 程序 , 连 问 必需 的 trapzd 及 polint,. 用 于 求 足 够 平滑 (解析 ) 晒 数 ,在 不 含有 奇 点 
上 且 端 点 为 非 奇 点 的 区 域 上 的 积分 ,是 很 有 效 的 .此 时 qromb 求 琢 数值 的 次 数 远 少 干 第 4. 2 节 
中 的 任 一 种 方法 .例如 ,积分 


上 flogt 人 十 Yazz 十 1)ede 
信 


qrormb 程序 经 五 次 调用 trapzd 后 ,第 一 次 外 推 就 收 伍 ,而 问 样 的 积分 ,qsimp 需 调 用 $ 次 
trapzd ,而 gtrap 常 调 用 13 次 ， 


4.4 广义 积分 


就 目前 的 目的 而 言 , 称 满足 下 列 条 件 之 “的 积分 为 “六 义 ”的 ， 

" 在 积分 上 下 限 处 函数 有 有 限 极限 值 . 但 正好 在 端点 之 一 处 不 能 直接 求 折 教 值 ( 如 
sin(z)yz 在 二 =0 处 )。 

， 上 限 为 +coe 或 下 限 为 一 c。 

"区间 两 喘 有 可 积 奇异 点 (如 xz 2 在 zx 一 0 处 )。 

“上 下 了 良 之 间 某 一 已 知 点 为 可 和 奇异 点 。 

* 上 下限 之 间 某 一 未 知 点 为 可 积 奇 异 点 。 


若 积分 基 无 穷 大 (如 | < :dz) ,或 在 极限 意义 下 不 存在 (如 coszadr ), 都 不 能 称 为 
广义 的 ,而 称 为 不 可 积 , 苦 本 身 是 不 可 积 的 要 分 ,算法 再 多 也 没有 用 。 
本 节 将 对 上 两 节 的 方法 进行 枚 广 ,使 其 对 上 谭 列 出 的 前 四 个 情形 仍 有 有效 ,至 于 关于 不 可 
知 奇异 点 的 第 五 个 问题 , 则 只 能 用 可 变 上 长 的 微分 方程 积分 算法 ,这 个 问题 留 给 第 | 六 章 . 
首先 ,必须 有 一 个 象 扩展 梯形 法 式 (4. 1. 11) 那 样 的 基本 方法 ,但 必须 按 第 4. | 蕊 的 约 完 
基 开 型 公式 , 即 不 必 革 端点 处 求 被 积 函 数 的 俏 . 最 好 选用 扩展 中 点 法 的 方程 式 (4. 1. 19， 原 
1 


因 基 式 (4. 1 18 条 式 ( 司 1.1 一样. 具有 如 益 斌 数 都 是 的 个 次 委 的 性 质 。 有 人生 个 不 六 在 色 
的 公公. 称 为 Euler .Maclaurin 第 二 求 和 公 趟 : 








让 Are 一 让 /一 Jo 十 一 二 
有 人 ， 
十 本 一 上 一 … 《和 
2 
和 


(2 天 ) 1 

这 个 公式 可 上 直 式 (4. 2. 了 导出 , 先 用 步 的 志 代 入 式 (4.2.1) 再 用 872 代 入 ,然后 用 第 一 交 疆 
桌 减 去 第 一 次 结果 的 两 倍 即 可 。 

扩 上 展 中 点 法 不 丰 能 将 步 数 增加 一 倍 订 仍 可 以 利用 前 面 函 数 求 值 的 结果 ( 试 试看 ?1. 作 将 
步 数 增加 到 原来 的 三 售 却 是 可 以 的 .是 增加 到 三 倍 好 ,还 蚌 增 如 到 两 倍 谭 承 认 这 种 损失 好 
呢 ? 一 般 说 来 ,增加 到 三 倍 后 不 必要 的 工作 也 增加 芭 /3 倍 , 因 为 达到 期 望 的 精度 所 必需 的 
步 数 ,可 能 落 在 二 倍 引起 的 对 数 区 间 的 任何 地 方 .而 增加 到 一 倍 的 话 .这 个 因子 公 为 ， 2 . 
但 因 不 能 利用 前 面 计算 结 果 故 而 亚 撞 了 个 额外 因 了 2 .由 诗 1. 732<2X1.414, 得 知 坊 民 数 
增加 到 原来 的 三 倍 要 好 些 . 

下 面 就 是 要 求 的 程序 . 吉 与 trapzd 相 媲 关 
世 dejine 下 UNGCCxI CC fanc)txI) 


icat milpnsftloat 5 <func2gfloaty， float aflonar by inr n) 
本 程序 计算 扩展 由 点 法 第 于 阶段 的 闻 氏 外 果 .for+ 为 输入 ,十 格 得 扯 茹 数 的 指针 .和 分 上限 冲 b 也 为 输入 1 
:几时 旋 四 | rcoar 钛 粗 政 估计 , 随 片 mn 一 ?3… 调 用 :和 流 贞 诺 ) 时 ,得 这 增加 (人 23 天 和 个 册 点 以 监 善 精 信 
是 3 
了 Cat 工 + 世 D 岂 ,3U 志 :dolddeli 
SatC 了 104 七 和 
int if，j; 


计 (a me 1) 区 
TeturD 《gm(b-a)JeFUNCCO.5*fa+b)]) 1 
alae 
Tor(ite1,j=4+;j<n-1ij++)] Hit em 3i 
上 pinmi 志 ; 
ale(b-a)yA(3.09+tom) ; 
ddeladel+deli 增加 的 点 实 尊 地 在 del 和 dde1 之 间 划 分 
工 坟 负 才 个， 三 可 同志; 
Ba0.01i 
fcr 《jas1ij<eitij++) 工 
SUB + FUNMCtz) ; 
X + ddali 
SUR +m EUNCCX》; 
入 + 一 dl 
1 
日 本 [84{b 一 》 革 9 重 AtDtp) 73.0; 出 新 旧 积 分 的 组 公社 到 精细 的 积分 值 


Tetirn 8; 


在 第 4. 2 节 的 qtrap 驱动 程序 中 ,可 用 midpnt 替换 trapzd .可 很 窜 允 将 trapzdfirn 
j) 收 为 migpnttfanc,tb,j) :可 能 也 此 减少 从 数 JMAX .为 SAN 宇 2 (0 倍 ) 


“1i8， 


大 得 多 。 
实现 开 划 公 式 类 似 于 六 让 生 法 (第 4 2 人 中 的 gsinp)， 只 须 用 midpnt 巷 换 trapzdq . 冉 如 
上 述 减 小 JMAX , 现 将 外 堆 步 也 改 为 


$ 一 【9 人 #St--Ost)78。 


为 二 倍 步 数 后 ,误差 小 到 178 大 小 ,而 木 象 两 倍 时 那样 减 小 到 174。 
无 论 是 修改 后 的 qtrap 还 是 qsimp .都 适用 于 本 节 开 头 列 出 的 第 一 类 问题 .更 偶 共 的 是 
按 下 南方 式 对 龙山 格 积 分 进行 推广 ， 
霜 jnclude <math. ho > 
萎 defins 上 PS 1. De 一 
苹 dejine JMAX 114 


芝 define JMAXP (JMAX 一 1) 
芋 define 长 5 


float grome(fioa: (* funcltfoat)， float ay float h， 
floatf * chopse) 《loatt * ) float)，filoaty float，int)) 


开 区 同上 的 龙 贝 格 各 分 ,采用 任 恋 指定 的 积分 子 组 序 shoose 及 龙 贝 格 方法 :返回 函数 fnc 从 aa 到 日 鸭 积分 :cehooae 
庶 为 开 型 公式 .不 才 求 曙 烙 在 端点 处 的 人 ,choose 每 次 调用 时 将 步 数 增加 三 倍 , 其 党 兹 诺 数 只 育 有 步 数 的 借 次 等 项 。 
euoste 订 以 伏 册 mlgpnt minr midsdl mldsqu 中 件 - : 环 诈 


{ 
Yold Polint[z1lGat Z 和 [] ，1LGat 了 [] ，fDt 口 ，1oat 和 ， 了 oat 4y，Tloat ad 了 ); 
yoid Fertor (char 6TTOY_tbXt[]) 
int ]， 
1oat 348,da3[JNHAEP+I] ，B[ 了 村 NXP+1] ， 
bfEl]=4.0; 
oz 【17j<=JHAij++) 工 
此 fj]=《wchoosa)(zunc ab)j); 
if 《〈j > Ky T《 
Poliat{ 二 [jj-K] ,km[j-g] ,Kbss,des)， 
if 人 tabsKdsB) < EPSegyabB(83S)) TatuTT 8 
】 
3[j+l]j<a[j] ; 
htj+1lj<h[j]79.0， 这 里 步 长 增加 三 悦 ， 并 误 委 级 数 为 壤 次 
nrerrot "Too @@a07 Stepa io TouttnEg qroaon); 
Tetura .Di 水 远 不 达到 培 里 


不 要 对 drome 程序 中 难 创 的 参数 说 明 而 需 恼 下 例 是 一 种 典型 的 调用 形式 ( 见 寄 尔 函数 从 0 
至 2 的 积分 )， 


站 include "nr, hv 
1 们 onf answey ; 


anwer 一 romofbessy0,0.n0,2.0vmidpntr)y 


eromo 与 gromb 几乎 完全 … 样 ,似乎 没有 必要 把 qromo 全 部 写 出 来 .但 用 它 来 解决 我 们 前 
商 列 出 的 广义 积分 问题 时 ,的 确 非 常 好 ( 除 较 难 对 付 的 第 五 个 问题 外 .这 .点 马上 就 会 看 
到 。 
广义 和 分 的 基本 技巧 是 作 变 怖 幸 换 ,消去 奇异 点 .或 将 无 穷 的 积分 区 间 上 映射 到 有 限 欧 积 
人 邹 才 还 ,例如 恒等式 
” 110。 


| Fezyadu 性 工 A( 工 dl 好 42) 
Ju 1 下 上 
通用 于 2 一 ce 为 正 数 或 是 一 一 人 为 负数 的 情况 下 ， 年 意 函 数 的 收 敏 速 麻 至 少 好 可 


1 的 收敛 速度 。 

我 们 可 先 作 式 (4. 4. 2) 中 的 变 莉 昔 换 , 然 后 用 qromo 和 midpnt 作 数 值 计 算 ; 或 者 也 可 
以 在 数值 算法 中 作 变 其 蔡 换 .我 们 倾向 于 用 后 :种 方法 :因为 它 对 有 才情 是 透明 的 , 仅 邓 
midpnt 作 一 些 修改 即 可 实现 式 (4,. 4.2), 称 为 mmidinf, 力 可 为 无 穷 大 (准确 地 襄 , 订 是 一 全 很 
大 的 数 , 如 1X105) :或 2 为 负 穷 大 : 


症 define FUNCIx)》 人 区 fung)Kl 07Cx)0OA0fx) (xy 7)》 李 量 交 竖 换 效 虹 


float midinfefloat 《>*tunky(floar)y float aav flosr bb，intr ny) 
本 得 译 可 用 十 蔡 换 mispnt, 即 政 值 因 从 ia 于 Lb 对 和 rs 求 和 分 的 第 闻 次 的 精细 稍 果 ,只 是 应 芒 155 内 洁 分 市 移 点 
求 听 数 值 ,而 相 是 搞 re: 这样 上 限 则 可以 是 六 算 机 允许 的 让 的 裤 大 慎 . 或 是 下 限 aa 贞 负 的 级 小 全: 个 这 中 种 博 刀 于 
能 问 半 出 现 .na.hb 符号 必须 择 雪 。 


fl1oat 工 ,tnasumadel,dderz,bva: 
Static T1Loast 8 
int it ji 


b=1 .0VAaai 这 商行 改变 积分 限 
a=1.Crbb; 
if [n == 1) { 从 这 里 起 程序 与 midpat 完 全 … 幸 
return 《ss 人 fb-a)*EUNCKO -Sm(Ca+by)) 1 
》elae 了 
tor(Kite*1, jn1;j<n-~1;ij++) ie wm 33 
+tDmmIti 
del=(b-a)yf3.DetnDa) 5 
ddelmdael+deali 
虽 及 二 口 ,5 本 二 
UmnO .Di; 
for (j=13j<=icij++) 并 
6 如 += FUNCCXD) 3 
了 += fdel' 
au += FUNC(E) ， 
TI + qqeli 
》 
KGturD 《ms(Ksyfb-a&)99UnmArpnma)r3.0)3 


若 需 从 负 的 下 极限 到 正 无 穷 大 上 作 积分 .可 在 某 个 正 数 点 处 将 积分 分 成 两 部 分 来 进行 , 侦 
如 ; 


am8wer 一 多 romOC[une ， 350 2.0midpnt 一 drorioffunk, 2.0.1.pe3fhrmidinf)3 


又 如 何 选 择 分 割 点 呢 ? 应 选取 一 个 充分 大 的 正 数 点 ,使 函数 funk 全 少 在 这 点 就 开 好 下 
降 , 而 - 育 下 降 到 无 穷 大 处 时 , 丽 数 赵 近 零 。 第 二 次 调用 qremo 的 多 项 共 外 推 是 处 埋 1.2 的 
多 项 式 , 而 不 是 二 的 多 项 式 ， 

当下 根 是 一 个 可 积 的 .满足 乡 规 律 的 极点 时 ,也 可 作 变 量 替 换 . 若 被 积 图 数 人 在 zz=e 附 
近 按 (z 一 aa) 所 Y< 1 形式 发 获 , 风 用 恒等式 
| /enarx 冯 网 因 9 (3 


* ]2n， 


若 奇 异 点 在 上 限 处 , 则 出 但 等 式 


站 了 4 
Fe)dr 一 1 AT AT 人 3 


由 于 | 
若 上 下 限 都 是 奇 漠 点 , 则 在 中 加 基 处 将 积分 分 并 ,如 江 抽 的 例子 ， 
若 在 道 平方 根 奇异 点 的 情况 下 , 则 民 时 .二 3 不 沪 引 就 特 别 条 单 .这 种 情 沁 在 实际 
中 经 常 出 现 : 


5 YA 
| yeodz 一 | 0 (4 
加 | 


二 式 是 a 处 为 奇异 点 - 
丙 避 处 为 奇异 所 时 则 


| act 一 | 2t7O -cd (1 【下 玫 . 对 了 
这 里 再 -- 次 编 气 对 用 户 透 明 的 替换 midpnt 的 程 这 , 以 实现 蛮 量 替换 ,所 定义 的 程序 能 自动 
进行 变量 蔡 坎 ， 
其 include 过 Diarhh 
科 define ENGCTIX 《2 1LX)》 站 二 [unkitaa tx)> xy) 


foat imidsqltfjoat [ # fank3tflostys tloat aay fioat hh inr 5 
木 狂 序 避 峰 欣 mntdpal. 只 大 被 入 冰 榴 在 上 下限 妇 处 由 以 有 -个 这 立方 根 的 页 儿 局 


flioal xytrrmssunlvdel,ddel,av Li 
3tatic iinaf si 
int it ,]; 


P 一 sqrtfbj5b 一 aa) 
3 一 0 


df Cn 一 一 员 ; 程序 的 其 余部 分 与 mtdpnt 完 舍 相 回 , 则 省 咯 
同样 有 : 
症 inelude 所 marh,h 全 
并 definpe FUNCICK) (2 人 +(X) < (<iInk)(bb 一 (X) HE(X7))》 


fioat midqsqdutfiloar 5 *fuankg3)tfloar)y floar aas ilnoat bhy int n) 
本 各 序 可 蔡 换 midpnt, 只 是 被 积 臣 数 在 上 限 hh 处 可 惧 有 -个 遂 平 方 息 奇 措 点 。 


fear x,tnnavsum dclvddclya,b; 
statc [oat 3 
int it,j: 


h 一 sS3rtCbb 一 an); 
一人 
2 程 罕 的 共 人 名 分 与 midpnt 完全 相 后 . 刚 省 路 
最 后 学 一 个 例子 : 它 是 亏 说 明 这 些 公式 是 如 何 导出 的 , 设 积分 上 限 为 无 穷 太 .被 积 二 数 
邑 指 数 误 减 , 则 需 有 变 基 替换, 印 将 ec :az 灾 换 为 ( 士 dt( 选 择 正 负 号 以 使 新 变量 的 上 上 揣 大 
于 下 限 ? ,可 由 政商 老 模 求 积 分 ， 
人 


上 一 懂 上 了 一 一 |ogr 汪 
这 样 就 使 


| 扑 zjJce7r 卜 。 扩 --iogt) 此 闪光 生生 . 生 


实现 对 用 疡 透明 的 任 序 为 : 
incluodge 芭 Daih, hm 
definpe EUNCIEI CE Eunk)6--logfxD2070x)) 


float mijdexBKfleag (+ fank)tflosty， fleat aay fleat bb，int ny》 
本 穆 应 可 幸 换 midpnt, 让 是 bb 为 训 穷 天 (此 作 使 用 中 不 乔 览 ). 鸭 效 Jonk 在 无 限 运 处 下 痛 数 进 速 和 倪 碱 ， 


float xnplvsunivdcl:ddel:a.b: 
Satic 下 coaf 1 
IDL It 有 


b 一 exPC 3a31 
8 一 几 , 0 
订 人 nn 一 一 1){ 拱 字 的 其 余部 分 midpat 完全 相 | 让. 则 洁 贞 


4.5 高 斯 求 积 法 与 正 交 多 项 式 


第 4. 1 节 中 的 公式 求 表 数 积分 ,是 用 … 系 伸 等 回 隔 点 上 的 上 所 数 值 , 绞 以 一 些 精 心 庭 拌 的 
系数 所 求 和 来 近 做 的。 我 们 看 如 ,只 此 选择 系数 时 有 较 多 的 自由 性 ,就 名 扣 以 得 到 越 高 阶 的 
积分 公式 .高 斯 (Ganmssian) 求 积 法 的 思想 是 不 仅 能 给 以 选择 系数 的 自由 , 昨 开 还 能 有 市 谈 拌 
不 同 坐 标 位 轩 点 上 的 函数 值 :这 些 坐标 点 不 再 是 等 间隔 的 了 .这 种 处 理 就 有 了 两 个 户 出 度 ， 
这 就 导致 了 和 高 斯 (Garssian) 求 积分 公式 的 阶 次 是 有 回 样 多 个 函数 值 的 牛顿 - 柯 特 斯 (New- 
ton-Cotes ) 求 积 公 过 的 阶 次 的 两 倍 。 

听 起 来 让 人 不 能 相信 吧 ? 但 的 确 如 此 .其 中 关键 的 :点 已 熟悉 得 不 必 再 强调 了 ; 那 就 是 
高 阶 次 并 非 就 意味 着 高 精度 。 仅 当 被 积 函 数 很 平滑 村 ( 指 在 可 被 多 项 式 很 好 地 通 近 的 意 文 
下), 阶 次 高 才 存 高 精度 。 

此 外 ,高 斯 求 积 分 会 式 很 有 有 几 .也 是 肉 为 它 迁 有 另 一 特性 :就 是 对 由 多 项 式 葬 以 景 已 知 
函数 妈 (Czr) 得 到 的 “类 被 积 画 数 , 可 以 通过 选择 权 系 数 和 坐标 值 使 沙 得 的 积分 很 精确 .而 对 
一 般 多 项 式 被 积 函 数 并 不 能 如 此 .这 时 , 画 数 吧 Cz) 可 用 来 在 积分 中 消去 被 积 图 数 的 串 积 奇 
异 点 -也 就 是 说 ,给 定 多) 太 整 数 六 .可 以 找 列 一 系列 权 xs 和 -系列 坐标 汪 : 首 六 六 为 多 
项 式 时 , 傅 得 远 近 闲 

| weeoycom 从- > rp CT | 
基 畏 硝 的 ,例如 求 积 分 
RS 二 
( 必 钼 夭 这 : 它 看 上 皮 不 是 很 掉 然 的 积分 ) ,我们 感 兴起 的 是 , 基 十 下 面 选 择 的 涡 斯 求 相 分 公 
作 


本 |[ 裤 这 汪 


| txpf 一 - COST.t) 


BC) 一 二 有 国 本 二 站 
姨 二 下 
积分 区 间 为 (- ,it 这 种 灾 换 产 法 称 为 高 斯 - 切 比 吉 夫 积分 ,这 样 做 的 原因 污 痢 忆 上 站 傅 


明白 。) 
注意 ， 积 分 公式 (4.5. 1) 也 可 昼 避 畏 数 丈 (? 和 成 井 厅 亚 而 易 见 的 形式 ， 信 人 二 
BC 日 要 二 7 四 ,人 式 6 1 大 成 
上 
| BTDJGP SS 3 外 语 ( 二 


函数 多 Cr) 哪 出 太 卫 * 它 政 隐 含 在 其 中 .这 里 暗示 说 明 ,对 虹 如 多 项 式 来 以 WCGz1 玖 被 职 果 
数 能 达到 较 高 阶 精 户 、 而 对 平滑 性 很 好 的 画 数 却 芭 而 达 不 到 高 阶 精 度 :我 们 彰 光 要 确定 是 按 
式 (d4.5.1) 的 形式 , 述 是 采用 直人 4 5. 4) 的 霹 趟 来 求 丰 分 :然后 再 对 给 定 的 形 人 求生 可 笃 标 
去 列 。 

下 吓 例 拖 基 恶人 7) 一 1， SN 一 10 时 的 积分 程序 , 共 中 有 已 给 定 的 坐标 点 和 板 . 此 滞 权 和 
坐标 点 对 于 积分 中 心 点 对 称 , 几 实际 上 只 有 五 个 不 同 值 ， 


floer qgausffloat (* fune)gfilenfty，filoat afloat hy 
如 加 商 数 fnnc 从? 齐 症 的 积 分 ,让 0 点 高 斯 - 惠 计 德 称 分 于 成 : 促 在 基 盆 二 城 10 个 国富 上 求 岳 数值 。 


{ 
dat ji; 
fl1oat xY ,XIRdX 51 
static f1oat x[]={0.0.0.1468743389,0.《333953941， 。” 横 丽 标 和 权 
0.6794095682.0.8650633666.0.9739065285]} ; 丝 个 数组 的 第 -个 值 没 
atatic TIout w[]={19.0.0,2955242237 , 训 , 2692667193 ， 有 用 
0,.2190863625 ,0. 1494613491+ ,0.06667134431， 
IO-5efb+a) ; 
XFmD.5e[b- 上 ) ; 
em0; 将 为 函数 平均 值 的 两 悄 ， 因 为 10 个 权 ( 上 喇 五 个 数 每 个 用 
for《j=13;jk=5;j++) 1 两 次 ) 
zexrex[j] i 
8 +m 是 [jj]wfCyztunc)yfxm+dz)+fwttmmcy(xn-dx)); 
rettrn 8 w=< xi 改变 答案 的 尺度 以 达到 积分 的 范 恩 


上 例 表 唱 ,即使 不 懂 高 斯 求 积 法 理 伦 .所 照样 可 以 用 这 种 方法 :只 昌 在 书 十 找到 列表 的 
权 和 坐标 点 ( 见 [1]、[L2]) .不 过 这 一 理论 十 分 精彩 . 苦 移 用 某 一 特别 的 tr) 需 月 己 构 造 权 
和 坐标 点 的 表 时 , 则 懂 一 步 这 方面 理论 就 很 方便 . 志 此 ,这 里 不 作证 明 地 给 出 - : 些 方 便衣 者 
的 有 用 结论 ,结论 中 假 守 多 (Cr 在 (et 区 间 内 不 改变 符 导 ,实际 中 通常 也 是 如 此 ， 

高 斯 求 积分 理论 时 追溯 到 1814 年 ,当时 高 斯 是 用 连 分 数 来 解 次 这 个 痢 题 的 .8&26 千 雅 订 
比 (Jacobi) 出 正 父 多 项 式 义 推 则 高 斯 的 结果 。 用 正 交 多 质 式 对 任意 权 羡 数 系 统 的 处 理 方法， 
则 主要 归功 十 克 里 捧 托 曲 尔 CChristoffely 在 1877 年 的 工作 ,在 介绍 正 交 多 项 式 之 前 .我 们 先 
将 感 兴趣 的 积分 区 问 固定 为 (6 。 

我 们 定义 * 两 个 拓 数 /vs 对 权 玫 数 W 的 数 积 " 为 

17 本 | 到 conyeoacmas [3 


故 积 是 一 个 数 , 布 非 < 的 盖 数 .二 数 积 为 忆 , 则 称 阿 个 明 数 正 交 , 若 国 烙 与 其 眼 寺 的 效 各 广 


"2 





'… 则 称 前 数 是 归 一 的 .一 纪 隔 两 下 雪 H 分 别 归 “化 子 的 上 数 的 集合 称 为 正 交 归 一 集 


基 丰 一 个 党 风 站 计生 (对 每 :个 和 0 1 恰好 只 外 将 个 半 多 多 下 江 、 总 
Ptx)。(ij) 对 某 -特定 的 权 函 数 .这 些 才 项 式 两 两 正人 灾 - 以 让 的 递 检 关系 三 用 了 证 找 这 种 焦 
合 的 构造 过 程 

| 二 

Ce) 一 的 
人 人 
蕊 中 
一 入 包 | 二 
2 一 0 _ 
《1 

人 《人 人 


系数 各 是 任意 的 ,我 们 可 以 取 它 为 零 。 
由 54.5, 6) 街 到 的 多 项 式 为 首 一 和 多项式 , 即 其 首 硕 ( 如 六 6) 的 :系数 为 1 .用 关 5) 际 
以 常数 -Ai 即 可 竺 到 正 交 上 归 :的 多 项 式 集 . 也 可 用 其 它 广 法 对 多 项 式 时 化. 释 扣 
某 书 知 多 项 式 转换 成 首 ， 多 项 式 : 只 要 知道 户 中 六 的 条 数 , 设 为 人 :然后 ,用 1 除 尽 六 号 着 
项 即 可 得 到 首 一 多 项 式 -注意 在 网 推 关系 式 人 4. 5.5) 中 ,这 个 系数 依赖 于 所 采用 的 正 父 关系 
多 项 式 Pitz) 在 Ge: 区 区 间 内 , 悦 好 有 了 个 不 幅 等 的 根 ， 和 这 些 根 分 别 岳 华 户 (7 的 
庆 -1 个 根 之 闻 . 即 2:(z) 的 每 两 个 杠 之 间 检 好 有 - :个 (z) 的 根 。 利 用 起 性 质 可 方便 找到 
根 : 可 以 名 人 2) 的 一 个 根 开始 ,依次 将 每 全 状 用 和 牛顿 法 戒 其 它 求 根 方法 精确 地 找到 户 (7 的 
要 5 抑 第 九 章 ) 。 
为 什么 要 找到 正人 艾 归 -- 多 项 式 的 所 有 根 呢 ? 因 发 在 区 间 (e :她 内, 权 范 数 为 下 (的 下 
点 高 斯 求 积分 式 为 式 (二 5. 了 利 (4. 5. 4), 它 的 坐标 点 答 好 正 是 , 别 样 区 间 内 同样 权 典 数 的 下 
交 光 项 从 ax 人 的 根 . 这 就 是 高 斯 求 积 法 的 基本 定理 ,由 此 可 在 任何 特殊 情况 下 找到 横 举 
标 ， 
找到 横 崔 标点 xz_ yzra…vrx 后 ,就 得 找 权 ii, 其 方法 之 -是 解 线性 方程 组 


「 pz tr Ta 及 HGz) 记 :Cdr 
力 必 Zi + 户 (zw) | 2 1 和 
站 | 评 ， (1 汪 相 
本 从 这 
| pr | 1 


式 (4.5.8) 只 给 出 了 权 : 根 据 式 (4. 5. 六 个 正 变 多 项 式 的 积分 值 . 注 兰 
具 (4. 5 8) 中 右边 的 和 芝 ,这 是 因为 访 人 rz) 都 与 访 () 止 间 , 而 如 Cr) 为 常量 ,可 以 
看 出 ,由 所 得 到 的 权 . 也 可 求 得 后 面 的 六 -一 1 个 多 项 式 的 积分 .这 就 是 说 ,对 等 于 小 于 2 -1 
次 的 多 项 式 求 积 分 是 精确 的 , 另 处 ,还 有 - 下 公 内在 革 (二 全 国电 开本 站 范 冰 ), 是 按 公 虑 
.| ps >》 


了 | 辣 (4 =. 0) 
其 中 PCzi) 为 止 交 多 项 式 在 其 汶 占 了 ， 处 的 导数 ， 


* |24。 


可 见 高 斯 求 积 计算 法 分 两 步 ; (得 到 正安 多 项 式 着，…pP 即 求 式 (4. 3.6)41 系 熔 ， 
2 (ii) 求 pxfz) 的 到 点 及 其 相应 的 松仁 .对 二-… 些 经 典 的 由 区 多 项 起 ,系数 w 访 已 经 站 市 
(下 而 式 (4,.5.10) 一 4 5. 14))， 故 第 -- 步 可 以 省 略 . 间 是 若 码 到 * 非 经 典 ? 的 权时 数 Hi0r)， 
而 且 不 知道 系数 ww, 六 ,此 时 构造 一 个 要 关 正 父 多 项 式 集 就 很 重要 。 我 们 将 在 本 记 的 最 与 讨 
论 这 个 问题 。 


4. 5, 1 横 坐 标 和 权 的 计算 


这 件 工 作 难 易 的 程度 .取决 于 读者 对 权 胃 数 及 其 相关 多 项 式 的 了 解 程度 . 若 是 很 舟 典 、 
已 被 仔细 研究 过 的 正 交 多 项 式 , 那 串 情 加 很 明了 ,包括 其 零点 的 展 好 遥 近 也 是 可 知 的 :此 时 
可 将 其 盘 近 值 作为 初始 猜测 值 ,必用 牛顿 法 就 会 很 快 地 收 丝 ,牛顿 法 中 需要 的 导数 和 4r)， 
也 可 以 根据 关 . 和 疡 v ,由 标准 关系 式 导 出 。 权 则 由 式 (4.3. 5 可 很 方便 地 得 到 。 切 下 面谈 
到 的 著名 示例 中 ,这 种 直接 求 根 方法 比 任何 其 它 方 法 快 了 3 一 5 倍 。 

下 面 列 出 一 些 权 肯 数 ,区 间 及 递 推 关系 式 , 由 这 些 可 以 求 得 最 常用 的 正 交 光环 式 及 共 根 
应 的 稿 斯 求 积分 公式 。 
高 斯 - 勒 计 德 :(Gauss-!Legcndrey 


WoJ=i 一 <z<l 


是 Pi (2 十 DxP 一 训 ) ee 
高 斯 - 切 比 委 夫 (Gauss Chebyshev) 
入 全 六 三 人 二 
T 一 2z7, 一 人 ,| 本 :到 刘 池 
高 斯 - 拉 盖 尔 (Gauss-[.sguerrc》 
了 (= ap < 
人 十 1)13 = (一 十 中 十 二 TD 一 人 旧 十 oa 了 7 0 5 129 
高 斯 - 埃 尔 米 特 ((zatuss Hermmirc) 
WOzr) 一 ee 四 mo 所 了 < 扫 oo 
再 = 27r41 一 21 (4.5.13) 
高 斯 雅 可 比 (Gnass .Jacobi) 
W(z) 一 (1 一 了 )2(1 十 字 一 1 所 过] 
Ci 一 《〔〈d 十 er) 有 一 万 天 人 (4.5.14) 


其 中 系数 ciseoei 太 为 
=207 一 1 十 ea 二 BT 二 1 ee 十 月 ) 
二 (2 及 1(e2 一 站 人 
和 一 (25 十 ea 十 有 (2 一 w 十 六 一 1)(27 十 wx 十 有 一 2) 
方 =207 十 人 一 有 (2 一 十 月 一 2) 
现在 ,我 们 分 别 给 出 每 种 快 况 下 计算 横 坐 标点 和 权 的 程序 .首先 是 ,最 常 出 的 高 斯 一 勒 
让 德 横 坐 标 和 权 集 .本 程序 由 G. B. Rybicki 设计 , 式 (4. 5.9) 在 高 斯 - 勒 让 德 情况 下 的 特殊 形 
式 为 
2 
(] 一 国 Per 





ER 


在 程序 中 ,还 将 积分 区 间 人 (ec 映射 为 (一 1.1) ,输出 结 呆 为 高 斯 求 积 公 式 哲 要 的 下拉， 


和 人 志 斯 可 分 公式 为 : 


CDdr 一 _L 必 


放 





王 inelude mmath hh 全 


上 reJire REPS SO 11 EDS 方 机 嫩 精度 


At) 人 


void gaulen(Efldat xl， ftcar x2。float x ] .iloat w[] int :0 


茶 定 各 分 上 下限 xx: 
勒 计 德 求 积分 公 起 的 权 值 : 





ict pviviy 


iuhle zl exmn xl .bbyb5vp2 bl 


mm 一 1 十 1)72; 
Xm 一 妆 . 吕 《X2 二 XT31 
XT 一 站. 全 (xx1)1 

fer 和 一 1 一 mail 二 








= 
2 6CGST3. 1413592634<2 0 一 和 20270n 十 0 5 





qo 
pl 1. 
p2 一 .0， 
[or (一 15 过 一 0 ) 
一 ph2， 
pb2 一 pl 
人 二 区 2 和 本 让 和 和 客 全 人 于 
bb .DOsxe(zxD po)70zx2z 1.04)3 
21 一 Zi; 
2 一 2 -blzpps 
上 while (fabstz -21) 全 PS 
X[ 门 一 xnl -xl>z 
X[n-+l--i -XIm 一 XiLszl 
w 一 Orxltfl0 zs<x)xbPbxepb)s 
wm np 二 1 i 计 =wl3 


啊 定 本 得 吝 反 网 攻 代为 呈 抽 监 组 革 102n 用 LE 


1 式 昌 从 别 存 夏装 际 王 玫 ， 卫 上 且 


硝 变 对 全 夫 训 十 个 站 下 意 


芝 避 站 要 是 过 次 拘 , 这 样 忆 丛生 关中 二 


对 小 的 杰 在 特征 
鞭 上 曾 可 第 ;个 根 的 痪 亚信 下 申 : 泪 六 上 和 上 这 
独 划分 的 本 锌 玉 


从 壮 拱 关系 未 得 章 江 次 多 现 武 年 者 





b33? 5 有 丰 器 野 二 所 求 藉 证 焉 区 过 由 二 冯 
巾 它 与 妆 的 坏 准 关系 下 .个 让 让 直 各 





PTD:5D2 丰 比 P1 低 阶 沟 区 商 
于 恢 波 
将 恨 值 故 朱 到 尹 定 二 可 


峙 小 尖 对 坏 的 天 正点 
引 算 要 收兵 对 杯 基 刁 和 


直面 的 二 个 程序 足 根 据 Stroud 辣 Secrest|. 4 的 根 作 为 初始 下 近 值 -第 一 个 是 定期 


搞 合 尔 的 吾 标 点 不 权 值 .能 应 用 于 下 和 面 的 积分 公 





取 了 人 =“ SS 人 
着 归 和 
和 2 urtbh. ho 
tia EDPS Sn 1 上 用 呈 和 有 这 精 并 到 坟 PS 
5clefine MSIE IO 
LULL al 折 
| mn: 芝 ww 人 训 存 总 放生 用 





了 oat enfalntfloru 又 基 

wo 刘 Drerrerrelatr error Cext 3 
Im Lvts 

Jpat za 


qdeuble bpD2 .3.3DbDvzvyzl: 汇 精 章 本 得 生生 和 于 


foer ti 一 Li 一 -十 ) ， 





ij 站 人 全 一 人 | 扔 小 以 衣 册 
一 了 ,人 二 0-002< 吉 0 一 2 一 8 

elseifti 一 -- 2》 第 “个 只 的 也 昨 和 时 人 
z 十 一 【]5.0 一 6.25<al[701.D- 一 生涯 2][ 一 人 

jelse 1 汪 它 内 的 吉 迷 扯 测 征 
ai 2 


2 
fn 一 3 xX[Ci- 0 一 六 Safls 





ET Aits= 一 laitss 一 MAXIT:its 和 盾 下 去 做 测 分 
PP 一 1.04 
TP2 一 人 1 
for 和 人 =] js 三 ni 一 一 ) ) 





p2 一 Pi j 





-3 
pp 一 nxbi--tn 二 澡 介 = 直 21271 

Z1 一 2; 

2 1 Pb 下 顿 公 过 
if (fabsfz zl < 一 下 PS 和 reak， 





MANIT) Prcrrotgt oo Damw ItCcaliDs in aa 7 


革 赃 下 补 权 





一 -expfgammlnta mn) aamnlnfefloalny7205b 妆 关 b2)， 


有 埃 采 米 竺 党 怀 和 权 。 者 我 们 使 用 函数 的 标准 时 “ 业 优 .如 从 
5. 13) 我 们 发 现 当 玉 很 大 时 计 筑 会 溢出 ,这 总 内 为 会 产生 不 同 的 阶乘 ,为 避 名 这 后 这 
和 多 项 式 , 的 首 一 化 全. 此 集 个 可 由 下 型 递 推 式 产 生 : 











_ 2 一 
站 ER 
0， 刀 元 姜 “VPFTP， Vi 有 
求 权 的 公式 变 成 
2 
人 二 人 : 总 (1，、:。21) 
让 韦 “化 竺 数 且 公民 为 
严 ; = v27 万 ，， 的] 
自生 序 gauher 返回 的 尝 标 点 剧 权 可 用 于 积分 公 丰 
P 吕 。 
| ee 人 Ca) 1 
cludle .rcib. > 
了 DRPD 1 本 


本 ke PEMI 2 有 
Tefice MAAXIT 


Joar in nl 
训 印 加 1 


wojd Euher tloat x | 
摘 定 六 程 累 由 问 灼 下 xx 


1 1 网 站 
结 是 x 1 直下 区 是 xpml 


void nrerrorfeThr vvrror tfexilL 3 

4 ls at 

qouhblec p1,p2.p3,pp,z.z1; 

忆 一 1 二 97 

Jor ti 一 10< 一 5 十 ) 
一 171 








se 一 一 2? 
xz .4#powffdouble)n nr 42637z3 
else if fi 一 一 3 
2z 一 [86xz 站 Rixx 1]， 
eseUt 一 一 4 
2z 一 1.91xz09DxX Dj; 
2 elsC 
OA 2 
for (sliits< 一 MAXITiits4 =- ) 
blL=PJM4， 
bb2 一 1 4 
4oc 训 一 ] 过 一 二 十 ) 
pp3 一 h2s 
pP2 一 b] 


1 一 sdTt .07 关 Pp2 -sdrcCCdcuhe7g 一 1337 3 


Php 一 sqrt(gdoubje32smnlyy pb2s 

zl 一 z5 

z 一 2] bl7pps 

iifiabstz 21) 一 RS) bozks 








.全 下行 生 在 让 二 7 


sdrfCfdoulbe)2 sn 一 1)) 一 1,853575 > powtdaouble)(2 *n 十 1)， 


时 所 东 类 特 和 分 公式 本 于 村 全 林 冯 信人 守 站 


站 精度 对 态 梨 订 是 -个 好 二 宣 
点 硅 称 ,所 以 具 求 它 - 
的 根 箱 末 

最 大 根 的 初始 猜测 请 





0. 16667 1) : 
第 ”大 根 的 说 录 猿 济 值 


第 - 太 根 的 初始 健 测 值 
筝 川 太 由 的 杞 妨 菏 测 什 


其 它 恨 的 起 姑 销 测 值 


由 牛 法 做 滁 分 


出 记 椎 从 舌 瑟 求 得 埃 尔 来 特 多 项 蕊 在 ， 人 门 油 


P1 就 是 丰 求 埃 尔 米 竺 公 南 式 - 
玉 押 将 利用 比 op 本 - 阶 的 多 下 基 
的 关系 二 (4.5.12? 求 得 红利 灼 b 


牛 景 会 夫 


i (ifs 字 MAXIT) nrerrort2too mnty iterttions in guher* 5 

XLi 让 一 zi 仓 根 

X[n 十 1-…i 一 一 2 此 此 对 称 关 政要 
wTi_ =.Dnx0phsephb)， 计算 由 

w2n 十 1 一 口 王 wbDi3 点 寺村 你 关联 应 


季 而 , 给 出 计算 痪 斯 - 芷 可 比 坐 标点 和 权 的 程序 


0 


王 use uatlb. be 


二 人 inc PPDS 30t 14 
-defoe RSAXII 1 


车 老 春 此 精度 . 则 元 测 FEPS 







wy， jintns jloat aif，Phant 
Ja 多 基 蕊 的 营 数 和 刊 党 衬 


旺 站 帮 基 ,从 全 开光 准 科 栖 和 想 人 艰 太 生生 罗 


28。 






反问 玫 朋 7 


站 


.这 些 出 标 值 和 权 值 肌 于 下 商 积分 公 志 
Of 十 OACrJcdtr 一 SS re 《人 


1 入 技 由 人 芝 唱 1 


floal gammntfleat xx 

void nyeyrortr3ar erreoy TexT :1 

int iits ,ji; 

Hteat alibetvanpnvrt ro2sr35 

douhje ab.espl1,p2.b3 ppyrernpszvz1: 篇 精 其 对 本 得 竺 是 一 人 好 二 总 


for (一 1 一 nail 对 所 区 的 恨 猎 盾 

1 一 一 1) 1 员 大 恨 的 如 始 备 浏 合 
En 一 alfyny 
bn 一 52et2ny 
Fl== ln 一 al < 2787dC+nsn) Oo768xamen》i 
r2 二 】 有 | 1.48#am 十 羡 , 90br 十 Otto2yx anyan 十 0.83xantbny 
z 1.0 一 Tlzr2; 

-cisc 订 得 一 一 2) 1: 邓 第 二 个 大 的 根 的 初 归 吾 浏 人 
中 一 ! 1 一 at 十 age 0 156*alf))3 
r2 1]1.0 十 ?06#《D 一 5) > 《1 一 全 12 +Rl 人 mi 
5 一] 十 012 < betw (| .十 站 23 关 tabsfalf>72ny 
3 1.D 7z)At tr2x<T3; 

:else 这 (一 一 3) 1 对 第 个 大 械 的 初始 猿 沁 全 
c1 一 (1.67 十 0.28 <alfy70l.0 十 0.37xaif): 
1 一 0 十 号 2 《一 上 . 门 ny 
r3 一 1.0 十 8.0xrbe'70(6, 28 十 bet) xnmxn); 
z 一 = (xL1] zxclxrorr3i 

* else ii 一 一 mn 一 1) 次 最 人 恨 的 初始 猜测 逢 
器 一 (0 十 .2355w belt0 766 十 0 119w# bet)y 
节 2 一 1.07(1.0 一 各 8S39x tn Do 0 二 7Lwn--4.0))); 
[3 一 ]. 051 人，20. 生 #a2fC7.5 十 al 人 有 盖 mi 
2 一 二 (zx nu--3])wrrl*vr2kr3y 

feelse 训 在 一 一 ni 最 外 根 的 说 始 和 链 测 值 
上 1 一 上. 必 十 避 3 了 7 #bet7- 87 一 0 28+ bet)i 
人 fm 一 8 和 mn)3 

一 | .有 人 .9 一 中. 站 关 alfett6.28ral nxsn))， 

z 三 (zxXn…2])wrrlwr2kr3y 

Pse 兵 它 斤 的 初始 销 测 值 
z 一 3.0xxLi- 12 3-.0xrz[ 一 2 二 xli 34; 








zx|fher 一 af 十 bety 


Jor (its 王 1H0s< 二 一 MAXITiits，+ 1 1 由 牛顿 法 向 细 分 
remp 一 2.0 十 alfbeti 从 POP1 和 开始 递 扒 及 避免 = 二?2 4 或 -1 时 零 作 除数 


pl 一 fa 一 bet 一 tcrmp # 272 0 





]<- 一 ni 1 1 出 遂 推 式 循 坏 求 得 在 z 点 外 的 凑 可 比 多 珊 起 的 值 


p2~-pl， 
temp 一 2#]j 十 alfbet; 
4 一 2jxfj 十 atfbet)x (tcmp 一 2.073; 
h= 王 (Crenip 1.6)x(alfxall--betrbet+ tempx(temp 一 20)7<2z)3 
5 一 2Crt 一 1alf) xj 一 1 十 bet)x*tcmp; 
pP1 一 (b+p2 一 C#B3)7a pl1 就 是 所 求 雅 亚 比 移 项 式 .下 而 将 由 其 与 b2 汐 钛 本 关东 
式 求 其 导数 吨 ,p2 基 比 BL 低 -- 阶 的 多 项 式 
拘 三 记 < 《aif bet 一 tempyz)sxbhl 一 2.0x(n 十 红 E)w tn 一 betyxp2pftempx (1 z<z)s 


ZL 一 z; 
2 一 z] 一 hzphbt 咎 恒 公 式 
计 (faos(z -xl) < 妆 一 EPS) break， 

iL Cs MAXIT1 nrerrorf"roo many jirerations in gnujac* ); 

x 器 一 zi 存储 根 及 权 


岂 [ 和 一 exH0gantmlntalfi 二 mn) 十 gammlhtbet 十 nl . gamtmjnfal 1.0) 
gammln (一 茹 人 betr 十 1.013#temh xy powf2.0salfbety7tbn 123) 


,129， 


蒜 让 龙 多 硕 基 是 雅 比 可 和 多项式 当 = 如 = J 时 的 等 例 ,不 过 最 好 还 人 二 
个 称 译 .例如 .三 而 给 出 的 攻 序 gauleg。 入 切 比 雪 大 务 硕 式 对 应 于 ea 一 问 一 一 172( 风 和 
节 ): 可 以 鲜 李 地 写 出 其 灶 改 点 和 要 为 : 


号 
了 DSS 二 
AN 区 
所 
ie 


4.5.2 递 推 式 已 知 时 的 情况 


烛 在 讨论 一 人 ,不 知道 晓 数 正秋 志 硕 羽 村 点 的 地 佬 裙 姑 合计 征 , 作 可 用 系数 ay 和 六 求 得 攻 放 只 本 出 
Prfx) 匡 震 避 自然 庆 是 并 下 六 斯 求 和 分 公式 由 的 等 标 伟 .民权 最 有 效 广 法 二 用 公 直 550， 洒 蜀 -上 嘻 
说 下 ,其 中 导数 av ,很 着 吻 由 局 二 5) 向 分 得 询 , 奸 基 某 些 嗓 册 多 章 涉 则 可 出 其 特 生 天 系 蕊 得 撒 江 总 ， 
蕊 人 43 区 仅 对 写成 往 首 . 罗 项 式 的 形 蕊 林 和 有 有效 :村 其 它 策 理 形式 , 则 过 对 有 和 个 虹 玫 和 

1 的 系数 

除 所 其 此 已 十 论 过 的 特 隶 刁 剖 外 ,有 求 凡 社 ee 六 法 下 不 旦 用 明 牛 下 法 之 类 的 求 要 法， 囊 些 良 后 
太 法 月 Galub 亚 elsch 了 算法 .此 下 法 共 革 现 计 工 作 - 这 全 算法 误 基 ,将 项 间 划 到 和 .5 全 站 二 于 而 将 
六 项 避 到 在 站。 鹿 拱 甘 杀 起 十 汪 成 珠 阵 形 冻 : 


六 0 四 3 一 
六 站 cd 阳 站 
了 一 | 
ss pv evy ， 1 疡 wa | 0 
类 不 ru 上 几 、 天 拓 内 -1 ev 芝 
或 县 
rp 一 工 'p 一 vev [5 芝 3 


其 中 下 男 革 对 前 下 阵 :p 大 疡 站 的 列 癌 最 ;es- 为 单 闵 轩 晤 , 即 其 第 下 一 1 全 [ 报 牛 本 1 汰 尔 
为 宣 江 抽 阵 让 由 对 角 相 人 转换 所 孟 卫 安 成 对 称 形 式 ; 


人 如 用 
妆 向 ii W 


人 


-AD | enw ) 


上 让 阵 媒 为 雅 可 比 矩 阵 (注意 不 旧 与 夺 它 有 站 同名 ,作出 现 在 兴 合 不 同时 是 由 的 笔 陈 混 清 六 类 开 二 
2 汀 以 在 出 ,sr 一 0 等 价 上 上 为 了 的 特 评 倩 : 羽 为 村 从 转换 咎 特征 贫 林 变 , 可 见 富 是 对 站 一 对 商 下 
陆 革 的 竺 征 秆 ,此 外 ,Wi 还 让 明了 . 共 和 存 ， 为 村 席 于 特征 其- 的 特 息 划 虹 ,到 遇 一 化 使 但 交 ev 一 上 中 


区 0 1 SST 
翅 


139， 


此 中 


4 == | 届 Cr 
Ji 


j- 式 中 加 是 的 第 -分 必 。 在 第 上-- 齐 中 我 们 号 看 到 ,学 找 -个 寺 宁 二 对 朋 杠 陈 的 特征 估 相 特 生 大 总 入 
不 直 件 让 准 的 事 ,这 续 给 出 个 程 许 , 可 直系 数 j 和 已 找到 业 术 点 和 权 值 - 记 证 ,区 正 多 多 惧 全 的 一 扩 虚 
未 整 理 成 首 “形式 , 贴 通过 乘 以 个 数 ai, 可 以 很 容易 转化 成 首 “多 项 式 的 形式 。 


斗 ineluqe < math.b 僵 
共 inelurle "nrut.b 


void gaucof(int nfloat a jifloat b[，ficar atmno，floal x ]， fioat w[2) 
由 Jacebi 短 阵 计算 高 期 求 积分 公式 的 从 标点 和 要 计 . 输 六 是 s1-o] 中 BELLn] .分 别 为 二 安吉 号 生生 许 的 递 扶 天 
条 式 系数 ,器 忆 一 站 Cjdx 作为 amu6 的 输入 .返回 时 标点 x Loan 起 递 拭 顺 序 , 相 意 能 权 为 加 1 数 引 和 
熙 修 疏 . 蔡 修 改天 序 鲁 H 和 atgsrt, 由 计算 从 入 特征 加 其 的 第 … 企 分 地 , 虽 热 行 速度 可 以 加快 


void cigsrtiiloat 由 float * #veintnDy)5 

oviq tqliftflosz 由 ，float et int ny float > #z04 
imE 放 

float *，* 2; 


2 一 matrix(1lny1,in)4 
for (一 11< 一 njii 才 一 ) 
ifik ! 一 1) b-i 让 =sqrtCbD]); 设置 张 可 比 和 阵 的 .上 对 角 
for (j=]59< 拒 一 nj 十 一 )》z[i][ 门 =(CftloarD)ti 一 一 j)1 设 晋 单位 系 阵 ,由 ti 计算 等 全 吉 监 


1 
了 


tdltftaybynyz3i 
eligsrt(a yzZvny3t 按 递 减 上 序 排 让 半 证 值 
for (0i 一 1;i< 一 ni 十 一 ) 
x[ 订 =a[i] 
W[ 癌 二 amub xz[ ii xz[l]ri 蕊 (4 5 12》 
上 


free_-imatrix(zstnyin)s 


4.5.3 县 有 非 经 典 权 的 正 交 多 项 式 


本 节 有 点 特殊 ,讨论 若 权 国 数 林 明 上 面 处 再 的 其 些 经 典 形 式 ,而 且 也 不 知 章 BaBucof 导 式 4, 5. 6 时 说 
推 式 的 o 避 值 此 时 ,需要 另外 一 种 求 四 涡 的 方法 。 
Sticltjes 方法 由 工 (4.5.7) 算 得 2, 由 式 14.5 生 61? 求 得 pg) ,区 知 | Ap 后. 则 可 出 式 人 (4 74 求 得 、 
i, 刘 此 递 推 下 去 ,但 评 怎么 计算 六 (4. 5.7) 中 的 内 积 呢 ? 
:种 方法 足 , 将 每 个 和 人) 解 术 地 表 夺 为 的 冤 项 式 形式 ,点 后 钴 项 相 磁 求 内 各 .当知 着 权 是 数 的 前 
2N 个 业 对 ,这 种 方法 似乎 是 可 行 的 ,此 甜 为 
AH “ | 二 Cg 2 54. 291 


然而 , 根 沁 5 的 值 洲 解 系数 oj 的 代数 方程 ,得 到 的 结果 提现 亚 重 的 病态 .即便 是 以 精度 变 和 级 .闪闪 12 
时 世 很 不 精确 .所 以 本 能 使 用 基于 浆 人 4 5. 29) 纪 的 方法 . 

Sack 和 Denovan 一 发现, 如 兴 琢 泵 六 时 ,不 用 过 的 时 作 为 里 本国 数 信 ,而 是 使 用 六 外 -组 下 妆 区 斑 丰 
如 碘 ) 则 数 民 的 修 定 性 会 大 大 地 改善 .机 略 地 渤 : 禄 定性 改 芯 起 国 居 当 求 由 和 具 积 分 时 :区 项 蕊 作为 " 某 " 


采样 4a, 轨 芭 阅 比 天 作 为 基本 好 ,特别 是 当权 质数 象 由 Ce ， 
假 良 已 知 妖 焉 息 值 
一 站 CoCo JJ .2 .2 一 1 (335 


上 中 区 酌 是 类 似 式 (1.5 6 的 谨 椎 关系 式 


X 《三 
xz) 三 ] 人 
下 JJ 01,23,...， 


系 烙 ,已 是 侧切 已 知 的 .Wheeler* 找到 一个 DUO 有 效 痉 泛 . 与 Sacx 和 Doncvan 算法 足 等 效 的 , 延 计 
引咎 癌 这 访 好 或 ar 居 


GIRL 一 是 二 束 二 汪 区 
究 碎 化 
gd 上 
ay 7=0.o2N - 
区 (51 
站 
上 , 一 


则 对 于 天 一 12 一 1 计算 


Ar Te ee -一 一 ? 
0 一 


下 1 


了 1 6 
交 丰 二 站 村 !] 11 
2 一 1k- 1 2 
可 
已 = 二 中 
2 
注意 .需要 的 活 归 一 化 出 子 也 很 容易 算出 
pp》 一 上 ， 
1 .3 
《| 六 六 一 由 一 1.2,….. 


极 考 文献 -中 右 此 算法 的 推理， 

Wheeler 算法 入 痪 计算 式 (4.5. 30) 的 修正 种 值 .实际 情况 :P 通 常 为 财 型 的 形式 , 战 百 中 用 前 措 天 过 六 
对 有 限 区 间 (uy 思 ,此 算法 非常 有 效 : 对 无 限 区 间 ,该 算法 并 本 能 完全 消除 病 森 性 .Gautschi”…… 醋 出 时 扑 换 
蛮 量 将 励 限 区 间 转 化 为 :个 有 限 区 了 网 ,然后 再 用 一 个 台 适 的 离散 化 过 程 计算 其 内 积 .详情 可 见 估 与 文 喜 - 

下 面 给 出 由 Wheeler 算法 产生 系数 .2 的 程序 orthog, 给 定 系 数 qj .pi 及 修正 定局 ,为 体 持 与 理 谋 
gaucof 的 区 容 生 . 辐 基 a. 有 .aa 为 单位 偏 移 向 量 , 柯 应 地 ,和 将 = 第 阵 的 索引 号 增 为 ?2, 即 sig_K.1- ak  ，: 


立 include "nruril.k” 


void orrthog (int ntloar anu[], floar albhs[ -float beta ]， float s[],， floatb[》 
山 Wheeler 算法 , 汗 算 权 函 教 为 呆 fz) 的 正 交 多 项 式 的 递 推 关 系 栋 中 的 系 笋 oj 六 0 六 一 1 四 入 和 生 alpha 


上 .2<*n 一 ]j 和 beral1.,2*n 一 1| 少 选 定 基 汶 正 实 多 项 式 的 可 排 关 系 式 中 的 系数 m93 一 和 2 条 入 民 
向 诈 2nn71 .2*n1. 肪 个 系数 下 还 数组 ac 和 13 中 ， 


ipt.x;1i 
节 Loat **#sigi 
int 1ooPtDPp; 


BiE=matrdK1,24n+1,1,2en+L] 

JooPtmps2eD; 

?tor 《ls3;1<=Looptmp;]++) sigLt [1]=0D.0; 初始 化 (4.5.33) 式 
LDOoPEOP++; 

for 《1=2;1<=Looptmp:1++) 3ig[2] [1]=anu[ 了 -~ 打 ; 
af1]J=alpha[1]+anu[2] yanu[1]; 


*， 132。 


bfi]<0-0; 
for 【kz=<3ik<=na+1;k++) 工 (4.5.34) 式 
IOooptap=<2en-E+3; 
for 《1 号;1<=1ooptoap;1++) 并 
sig[r] [1]=aig[x-t]r[l+1]+(alPhafl-1]-ak-2])saig[k-1]f1]- 
hb[x-2j*waigFx-2] [1]+beta[1-1]*aigfFx-1] [1l-1]: 


了 
&[k-l]=alpb&a[xk-1]*6Bigfk] [kt1] glg[k] [x] -Big[x-ti] [kx] yeig[k-1l] [k-1]; 
b[x-ti]j=sigfk]fxj7zsigk[k-1]lfx~1]: 

1 

Traa_Ratrizfaig,1,2rn+r1,1,2rn4t) 


作为 由 用 orthog 的 示例 是 ,此 蛙 如 何在 多加 01) 上 .产生 要 男 数 全 (三 一 togr 的 证 次 多 项 或 个 
人 台 适 的 fi; 集 是 为 移 伺 蒜 让 德 宝 式 。 





xi- ex 一 1 (361 
忆 前 别 的 央 子 使 多 需 式 为 首 的 . 递 惟 关 系 式 :4. 5. 31) 中 的 系数 为 
ea, 一 二 了 二 11, 
权 
多 
修正 宛 为 
1 7 一 
卫 全 汪 大 站 四 虽 ，5 38) 
1 二 = 1 (2 及 人 


见 这 些 作 为 输入 二 滴 用 orthog, 即 本 在 N 很 大 时 得 到 满足 机 器 精度 的 多 项 式 :然后 用 此 权 顺 数 就 可 以 
计算 岗 斯 求 积 分 公式 了 .这 个 者 起 来 似 手 很 简单 的 问题 ,然而 在 Sack 和 Donovan 之 前 ,其实 中 很 国 礁 的 、 


4.5.4 高 斯 积分 推广 


推广 高 斯 求 积 法 的 思想 有 多 种 途径 ,很 重要 的 -- 种 推广 是 预 设 节点 : 即 先 指定 某 些 必须 
包含 在 坐标 集中 的 点 ,并且 网 择 权 及 其 余 坐 标点 ,使 得 积分 法 尽 可 能 准确 .最 常见 的 例 了 是 
Gauss-Radau 积分 ,其 节点 之 “必须 为 区 间 的 端点 , 即 z 或 5 而 Gauss-Lobatto 积分 则 必须 
2 避 都 为 节点 .Golub' 为 这 些 情况 设计 了 与 gaucof 类 做 的 算法 。 

第 一 种 重要 的 推广 是 Gauss-Kronrod 公式 .对 一 般 高 斯 求 积分 公式 , 当 N 阐 加 时 , 尘 标 
集中 没有 相同 的 点 .这 样 在 用 加 大 m 的 方法 估计 积分 误差 时 ,不 能 使 用 以 前 的 函数 秆 ,KRro- 
nrod' “提出 寻找 最 优 序列 的 方法 ,每 次 都 能 使 用 前 一 次 的 所 有 举 标 值 . 若 从 N 一 mm 开始 ,新 
增加 ?个 点 , 刚 会 有 2 十 严 个 自由 变量 :” 个 新 坐标 点 ,个 权 值 和 对 应 于 以 前 固定 坐标 点 的 
妨 个 新 的 权 值 ,所 以 期 望 能 达到 的 最 大 精确 度 为 2 十 记 一 1 现在 问题 是 在 实际 中 . 当 要 求 的 
所 有 党 标点 都 在 (< , 幻 中 时 ,这 个 最 大 准 码 度 能 达到 吗 ?这 一 问题 的 答案 现在 未 不 清楚 . 

KRronord 发 现 当 “一 z 十 1 时 ,可 以 得 到 高 斯 勒 证 德 积分 的 最 佳 推广 :Pallersoni 找 
到 如 何 去 连 续 计算 这 种 推广 的 方法 。 在 由 动 求 积 分 程序 L13] 中 , 求 -个 函数 的 积分 并 能 达到 
所 指定 的 精度 要 求 ,通常 使 用 的 序列 是 六 =10,21.43,87，…。 
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4.6 和 多维 积分 


古 大 十 - 继 的 区 城 上 :多 个 灾 量 的 顺 数 的 各 分 人 太 穿 易 计 算 , 有 两 个 京 同 :第 一 维 
空间 求 丽 数 信 的 点 数 ,将 按照 一 维 情况 下 的 天 光 稼 增多 ,粗略 地 说 , 求 .个 一 维 积 ee 
个 点 的 责 数 导 , 则 二 维 情况 下 达到 问 御 精度 水 于 ,就 需 枚 30000 次 求 吨 数 值 .第 一 'N 绯 趟 
os 避 1 维 的 边界 来 定义 ,而 边界 本 身 租 其 复杂 :例如 .不 一 定 就 是 唔 的 Le 

一 维 积分 边界 则 只 有 两 个 数 , 上 限 和 下 恨 : 

0 多 维 积分 河村 时 , 普 先 疫 大 的 加 题 是 能 解析 地 将 维 数 降低 四 3 例如, 称 为 单 灾 让 

滑 数 乒 0) 的 条 醒 积分 可 出 于 面 公式 降 为 “维和 由 分 ， 


do au | 





re 
本 





一 -一 一 了 一 Cr 站 办 人 和 人 
本 三 柯 小 TIG 于 纺 


。 数 育 其 种 依赖 独立 变 基 的 特殊 对 称 性 质 . 若 边界 也 有 这 各 对称 性 .由 继 数 可 陛 佐 : 例 

到 维 宝 了 竺 ,中 球 灶 床 蝎 数 在 球形 瑾 中 的 积分 ,就 可 以 在 极 坐 标 下 降 为 一 维 积分 。 

对 下 摧 拉 出 的 问题 彰 蝴 各 完全 水 国 欧 解 次 小 法 : 阿 题 是 : 租 分 区 坯 边 界 的 过 状 是 向 单 
的 .还 基 贫 杂 的 ? 沪 区 域 遇 , 破 积 症 灼 是 简单 平滑 的 ,还 是 复 集 的 .或 者 是 局 部 所 显著 峰 俏 的 ? 
中 求 精度 高 本 剖 . 划 求 结 末 的 精度 是 淮 通 到 百 分 之 - 还 许 再 分 之 儿 * 

芳和 过 界 复兴 . 钙 积 乓 数 在 林 小 es 蛤 著 . 计 和 饼 省 相对 较 低 的 精度 , 划 串 捍 艇 蛙 
上 本田 (Monte Carlp) 积 分 方法 并 而 广 法 换 程 简单 :特别 是 车 粗 政 的 形式 .站 开 : 须 知道 “个 

“134。 





区 域 , 其 边界 是 包含 积分 区 域 的 徐 单 的 边 办 ;还 须 有 :种 算法 ,能 判别 随机 点 是 落 在 积分 区 
环 的 内 部 还 是 外 部 . 演 特 卡 罗 方 法 先 或 随机 点 处 的 本 数值 ,然后 由 这 些 随 读 值 来 后 算 各 分， 
第 七 瘟 殖 十 化 更 详细 的 细节 攻 较 复杂 的 方法 . 

若 边 界 简单 , 晃 数 很 于 滑 . 则 用 残 贸 道 近 , 将 多 维 积分 分 成 多 重 一 维 积分 ,或 并 乡 重 商 期 
求 积分 ,这 样 做 黎 果 好 而 旦 速度 比较 快 …, 徊 粘度 要 求 较 高 , 岂 无 沦 如 何 这 种 道 近 方 法 其 唯 
一 的 选择 。 内 为 蒙特 罗 方法 本 质 上 渐 近 地 收 伍 和 速 疫 较 唱 。 

精度 要 求 椒 离 时 , 若 被 积 国 数 灾 化 胃 慢 .在 积分 到 域 央 又 很 牛 滑 : 则 用 多 重 : 维 积分 . 契 
被 积 喇 数 振荡 或 不 连续 ,但 在 小 区 域内 峰值 不 地 昔 时 , 则 有 尝 特 卡 罗 方 法 

若 被 各 函数 在 小 区 域内 峰 仁 显著, 许 且 已 知 这 些 反 域 , 则 可 将 条 (分 分 成 在 凡 个 底 域 喇 分 
别 进 行 ,使 其 在 每 个 区 域内 都 连续 。 着 这 些 区 域 不 可 知 , 厚 就 没有 什么 沐 法 了 (在 本 人 得 庶 范 
围 内 ).- 不 能 指望 积分 程序 会 搜索 到 六 维 空间 内 某 种 对 积分 影响 较 大 的 末 知 小 块 ( 但 可 参考 
第 7.5 广 ) 。 

读 了 上 面 的 内 容 , 读 译 可 能 想 了 解 多 重 一 维 积 分 的 道 近 方 法 .下 面谈 谈 其 原理 .我 们 的 
考察 限定 在 .yz 空间 的 二 绯 积分 .二 准 或 尚 于 三 维 的 情况 完全 类 似 。 

第 “ 步 ,确定 积分 区 域 :(i)z 的 鞋 下 限 , 记 为 vvzzr(Ga) 在 傅 定 的 过 值 处 y 的 上 下 限 , 记 
Coyaz5) 在 确定 的 r,y 处 z 的 上 下 轨 , 记 为 zwCryy)sr(zyy)。 换 言 之 .找到 .rivas 
秆 及 上 久 数 (zy 人 zszi(ay) 和 zs(zyy) 使 得 

了 -|| [arcvdzFcrsvvz) 
2 es (二 -站 2) 
可 运 六 4 ”detryns ) 


例如 ,单位 图 上 的 一 维 积分 为 


| az | 2 QyFCry) (于 人. 3) 
划一 
韦 将 最 内 必 各 分 定 时 为 frCzyy) 
0 
Cry) 一 | CD)cte (4.6.42 


”af1r1 


对 Gxry) 的 积分 记 为 嘎 数 再 (z) 
FT(z) 三 六 ccepay (6.5) 
最 后 ,对 娓 (z? 的 积分 即 为 所 求 ， 
7 =- 谍 。 (et (4.6.6) 
可 递归 地 调用 一 些 基 本 的 一 一 准 积分 程序 ， 来 实现 方程 式 (4.6.4) 一 (4.6,.6)( 媳 下 面 程 序 


中 的 ggaus) : 求 外 层 积分 了 只 须 调 .次 , 求 中 间 积 分 则 需 调 用 多 次 , 求 内 层 积 分 调用 次 数 就 
揭 多 三 ( 见 贺 4. 6. 1)， 


当前 的 xy 值 和 指 同 郴 数 fune 的 指针 ,通过 草 态 的 顶端 变量 传递 给 中 间 的 每 次 谢 采 . 


Static fcatf xsav，vsavs 
staric jioar《a# rirfunc?ffloat，flcar、flonr) 





foaf draqd3d(filoat 必 关 和 nc)rhoaty foaty 划 oat)，floar xi fjoat X2) 
重 译 版 回 二 维 区 域 上 上 消 数 furc 的 积 分 ,所 二 维 区 地 由 x:x2 的 征 和 世人 全 所 定 炎 的 畏 数 yylsyy2s2E 交 障 定 , 玫 
此 导数 由 用 户 提 疏 ,( 这 尼 函 柳 71 .72 人 为 192. 必 护 与 生 些 (而 数 本 中 训 塞 尔 国 娄 荔 之 疆 洲 1 积分 汪汪 1 直 让 3 
:enues 本 得 
于 
float qgausgtfloat 《9%func)i(flont)，iLoat 8，f1oat b)3 
1oat 了 1ff1oat 了 ) ， 





Dzfunceyunc 
Yatitirz qEaugr(LT ,xx1,X2) 1; 


交 


float f1(float zx) 这 是 (4.6 .5) 式 的 旦 王 数 

荆 
Loat Qgausf 闻 Loat 《afomnr)》 (Loat)》，loat 怀 ，f1oaT 口 ) 
TlLoat f2 人 FLoat 了 ) 
了 loat yy1Cfloat) ,yy2(f1oat1， 


工 间 在 W 玉 了 
Fettrn qgatta(2，yYyY1(X) ,yy72[z]); 
下 
float ?2(float 了 ) 这 是 (1.6.4) 冰 的 C 函 数 
式 
fl1oat qgats (了 Loat (func] tloat)，fTloat 血 float D) 
了 float ?3[fioat Z) 1 
YLoat 21(f1oat float] ,2Z2f7Y1Oat,Tloat) 1 
saawrmy， 
上 return dgaue[t3:Z1(raav,y) ，Z2(Xsa 了 了)》) 7 
】 
float f3[float z) xv 处 被 积 函 米 A xz). 
{ 
etuTD {w*ozrTunCy(xsayvySbyY:Z) 1; 
》 


外 二 积 分 








造 是 站 之 特 绽 上 本 和 根 全 民 革 遇 从 理 刘 演 明 散在 处 散人 往 
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总 1 本 规 障 扰乱 二 十 行 “维和 名 全 改道 得 商 束 棕 
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出 户 必 须 提 供 的 琢 数 如 以 下 范例 ， 
floal [usauctficac x。，float y、float 2z); 竺 积 从 的 于 缠 明 娄 
floar ywv- (float xs 
fear yy2ffiloat xX)3 
下 oat zl fnoat xsoat yy) 


float z2itoat xfoat y)4 


参考 义 献 和 进一步 读物 : 
Stroud ,点 , H1971， Ap 因 roripptate Cetealangn Uple Ttr8raatEnklewood Cliffs，NJ:Prencice Hal-)， 
[1- 


第 五 章 ”函数 求 值 


s.0 引言 


项 数 求 伟 方 法 很 多 ,本 章 讨 论 如 何 选 笠 一 种 合适 的 方法 .第 六 章 将 通过 给 出 一 些 特 殊 函 
数 的 子 程序 ,来 解释 并 应 用 这 些 方法 。 章 目的 是 一 致 的 ,不 过 还 是 有 些 区 别 : 本 
章 羡 述 得 最 清晰 明了 的 ~ 般 方 法 ,下 一 章 … 些 奇特 的 特殊 函数 却 不 一 定 选 用 .比较 这 顶 章 ， 
我 们 会 看 到 所 谓 * 一般" 与 "特殊 ， 方法 之 间 的 协调 关系 

本 章 将 讨论 一 般 方法 及 如 何 编写 子 程序 来 估计 函数 值 , 这 些 琴 数 也 许 是 “特殊 "的 ,但 还 
没有 特殊 到 包括 全 第 六 章 或 标准 程序 库 中 。 


5.1 级 数 和 其 收 义 性 


大 家 知道 ,解析 范 数 可 在 某 点 ze 的 邻 域 内 展开 成 级 数 ， 
7(Cz) 一 wdz 一 7 站 《5.1.1) 


用 这 个 级 数 可 直 接 估 值 . 当 然 没有 必要 每 次 都 计算 出 六 一 To 的 天 次 等 ,只 需 记 下 & 1 次 
苦 再 作 一 次 乘法 .同样 ,系数 a 的 形式 适 常 也 可 利用 前 面 的 工作 :2 或 (25)1 项 都 可 以 用 一 次 
或 两 次 乘法 求 得 。 

如 何 知道 加 项 已 是 够 多 了 呢 ? 实 际 应 用 时 ,级 数 的 高 次 项 最 好 能 快速 减 小 ,不 然 级 数 方 
法 就 不 是 最 好 的 方法 ,通常 做 法 是 , 当 新 增加 的 一 项 的 数值 小 于 前 匣 和 的 s( 一 个 小 正 数 ) 倍 
时 ,就 不 再 加 项 。 这 样 做 ,有 时 数学 上 是 不 太 严 格 的 。( 注 意 , 吓 能 有 wx 一 0 的 极端 情况 。) 

级 数 表示 的 缺点 之 一 是 ,在 复 平 面 上 远离 处 遇 到 奇 拭 性 ,此 等 级 数 保证 不 收 敏 .不 过 
这 也 不 太 要 紧 : 书 上 找 的 级 数 ( 或 白 己 设计 的 ) ,一 般 可 郑 其 收 合 半 生 。 人 
义 上 ;的 级 数 有 一 个 严重 问题 ,就 是 在 任何 处 收 笋 得 都 不 够 快 ,不 能 用 数值 计算 方法 。sine 函 
数 和 第 -类 Bessel 函数 就 是 两 个 熟悉 的 例子 








SIlnf) 一 羡 和 二 订 624 二) 《5.1.2) 
本 (一 并 
nz) 一 (到 7 经 站 人 十 丰 ! 《5. 1,3) 


“都 要 到 & 六 17 时 才 开 始 收 煞 ,在 此 之 前 ,项 值 一 直 增 
3 价值 。 


了 和 前 邦 列 收 策 ) 。 对 于 像 式 (5. 1.27 和 (5， 


2. 3) 那 种 进项 希 一 直 增 加 的 级 糙 , 这 些 方法 作用 不 大 .而 对 于 通 项 的 视 直 递减 的 汰 数 . 茜 些 
加 速 收 剑 的 数 玉 是 惊人 地 好 .Aitken 时 过程 是 :个 近 航 几何 收 笋 的 、 对 级 获 部 分 程式 进行 外 
推 的 简单 公式 . 设 SSaessy， :为 二 个 相 串 的 部 分 和 和, 量 好 的 估计 是 
No 

0 

使 用 式 (5.1.4? 时 ,对 任意 上 数 请 可 用 人 ， 分 别 韶 换 呈 1 和 4 一 1 ,得 齐 、， 
列 后 ,再 次 使 用 式 (5.1. 和 ,如 此 类 推 小 六 区 ( 宗 于 二 :经 过 第 一 次 选 代 后 已 太 部 分 收 伊 ， 让 
选 代 收 策 已 很 公 ) 证 意 , 式 (5, 1， 亿 必 须 接 所 给 式 计划 、 代数 上 ,有 :种 等 价 的 息 合 入 涝 益 更 
敏感 此 形式 。 

对 交错 级 数 \ 具 和 式 中 丈 的 符 生 父 达 变化 ) ,Euler 变换 足 有 册 的 工 且 . 通 诈 天 下 红 引 和 寻 
少 划 一 1 项 的 村 .然后 对 从 第 项 开始 级 数 的 其 余 阅 分 年 变换 ,公民 司 为 展 数 5 


和 





公 j6e 下 人 [Ya 区 
这 里 呈 是 前 向 差分 算 子 ,例如 ， 
Can 一 zi 一 1 En 
一 3 1269 
加 


自然 不 必 算 出 武 (5.1,5? 右 边 无 穷 磺 之 和 ,可 只 计算 前 户 戎 和 ,用 式 (5.1.5 及 mr 下 始 
得 到 前 产 个 差分 。 

欧 拉 鹤 换 不 仪 串 用 于 交错 级 数 ， 有 时 某 个 形式 上 发 散 的 级 灼 ， 仅 根 据 前 儿 项 站 可 得 区 精 
确 的 求 和 结果 . 它 也 被 大 量 用 于 渐 近 级 数 求 和 ,比较 明智 的 方法 是 ,只 计算 到 该 古 钓 工 值 不 
再 增加 为 二 :加 时 做 : 些 独立 的 数 锁 检验 工作 ,确保 得 到 的 结果 寺 有 意义 的 ， 

沙 . 维 余 机 登 (Van 砚 jjngaarden) 发 现 欧 拉 灾 换 的 :个 精 蕊 的 实现 方式 , 邮 孟 多 按 晤 古 
台 并 原 父 错 级 数 的 一 项 .每 次 台 并 时 ,或 是 将 疡 增 1, 即 再 做 次 况 次 盖 分 ;或 是 例 行 地 * 秆 半 
加 1 ,此 时 不 必 在 诛 ” 值 上 ,和 冉 重 做 : 遍 所 有 的 人 部 分 运算 .根据 使 级 数 收 艾 最 快 来 测定 旦 增加 
呈 还 是 增加 疡 。Van Wiingaarden 方法 仅 需 一 个 向 直 来 存放 部 分 差分 .算法 如 下 : 


年 tuelude Diath,b> 


voidl eulsum [ftoat * sutt。， float term，int jterm -fioat wksb: ]) 
人 式 - 丈 值 为 term.sum 址 输入 印 光 区 计算 出 的 部 分 和 , 井 直 着 的 姜 分 入 的 输 产 T 奖 汉 同 汪 克 
序 . 令 juron 一 上 输入 级 数 痛 硕 .第 “次 调用 时 ,ao 置 为 级 数 第 .项 ,其 律 刁 与 首次 谢 几 时 树 有 全 此 
富生 圈 盯 各 让 上 提 谍 的 于 作 空 癌 的 数 强 .其 统 黎 全 少 坚 天 二 沸 合 并 球 的 员 太 数 ， 
iat j) 


B 盛 & 记 4C int 万 eIm; 
了 Loat tnp ,dunm; 


if 《jtarm me 413 攻 初 蚂 化 : 
Dtermn1， wkep 中 存放 差 信 数 
让 Ba ， (wep [term): 返回 声 次 估计 
》 186 工 
tmp=ukeBpfl]i 
xsP[1l]=termai 
Tor (〔j=1;j<=ntera-1;j++) 《 用 Ivan Wijngaarden 算 法 更 新 当前 存 改 值 


”| 证。 


dum=sksp[j+l]: 
Wap[j+tz]=0O,S*fwxsp[j]+tap): 
Ymp*dum; 
》 
VBp [nterm+lj=0.5w(uvksp[ntarm]+tap) 
if 〔fabsfwkgp[ntere+1]) < 丰 abetfwxsp[nteroj)yy 丧 恕 2 
*Btm = 《0.Snwksp[++oterm]) 1; 表 加 长 
司 荆 3 嫩 增加 
"UL + xsP[ncerm+1] 琢 不 加长 
】 
了 


这 种 欧 控 技巧 很 有 效 ,但 不 能 直接 用 于 下 项 级 数 。 有 时 将 正 项 级 数 转换 成 交错 级 效 , 展 川 焉 
拉 变 换 。 为 此 ,Van Wijngaarden 投 到 一 个 转换 公式 


人 > 一 人 > 一 1 (5.1. 7)》 
Y 一 | 上 
其 中 
2 《0 1 六) 


式 (5.1.7? 和 (5.1 8 用 一 维和 代替 一 维和 , 式 (5.1. 7 中 每 一 项 是 式 (5. 1.8) 的 一 个 区 
穷 和 .这 种 方法 能 节省 下 作 量 ,看 上 去 比较 奇怪 ! 这 是 由 于 式 65.1. 38) 式 下 标 指 数 按 2 的 窗 典 
长 很 长 , 仅 需 很 少 几 项 就 能 收 和 敛 得 很 精 和 , 只 变 对 “ 蝴 机 " 数 > 肥效 地 算出 由。 对于， 这 卫生 
准 的 “最 新 ” 决 容 , 上 述 由 式 (2, 1. 1) 导 出 的 方法 . 忆 不 能 上 再 使 用 ， 

事实 上 , 欧 拉 变 换 是 一 个 更 为 一 般 的 级 数 灾 换 的 特例 . 设 某 已 知 盟 数 g(z) 的 级 数 


ECz) 一 之 bs (5 
疯 在 对 另 未知 级 数 求 和 
(gz)] 一 >， Cs | 全 全 
不 难看 出 ( 见 [2]) 式 5.1. 10) 可 写 为 
(xz) 一 这 [ar 寻 m 《5.1.31) 
通常 它 收 全 要 快 得 才 . 其 中 的 A” .是 阶 有 限 差 分 算 子 式 (5. 1. 6) 4Aew 王 ce 和 则 
为 gz) 的 关 阶 导数 。 
用 &(z) 蔡 代 , 即 可 得 到 通常 的 区 拉 变 模 方 程 (5.1.5) 并 2 一 0, 例 如 
后 (Cg = 了 开 =1 一 =1| 呈 《CT 


代入 式 (5.1.I1), 并 令 *=1，。 

有 时 虽然 计算 效果 不 好 ,也 膛 得 用 级 数 米 计算 困 数 .例如 ,我 们 可 以 利用 所 得 到 的 获 亿 
通 近 为 函数 的 近似 形式 , 亡 在 后 面 将 要 用 到 (参见 第 5. 8 六) .在 计算 缓 侧 收 敏 级 数 的 许多 藉 
之 和 时 ,应 注意 舍 入 误 益 ! 浮 点 数 表示 时 , 按 顺 序 求 一 列 数 之 征 , 从 最 小 项 并 和 始 比 从 最 大 让 
开始 的 结果 更 为 准确 .将 项 两 两 合成 对 ,再 两 两 合成 :ii 的 效果 更 好 .这 样 在 加 法 小 斌 包 
含 了 比较 大 小 的 探 作 。 


参考 文献 和 进一步 读物 : 
Goodwin。 下- T fed 190。dyottern CDipatpag Wedy 2nc ed、 1TNew Torg: Philosopkical 上 ra 


1490。 


Chapbter 13 ran 风 ijngaarden's rransfotntatiens]. [1 
Mathevws  J. 。and Walker，、R.IL. 1570、aValfennaaticetl 于 prhaods oF PR 2rd eu， 《Reauing、MA ，W- 


和 由、BenjaminyaAddison-Weslevy)， 人 2.3、 221 


5.2 连 分 式 求 值 


通常 , 连 分 式 可 作为 科学 计算 中 米 盟 数值 的 有 效 了 上 具 ， 
连 分 式 如 下 面 形 式 ， 
Ar) :而 ,十 一 25.2.1) 





印刷 时 当成 
Ga Ci 莹 8 


Fr) 一 上 十 二 公干 











号 


式 55.2.1)》 和 (5.2.2) 中 必 和 多 可 以 及 之 的 因数 ,- 般 为 线性 的 ,或 最 坏 的 为 上 的 二 次 单 
项 式 ( 如 工 或 妆 的 常数 倍 ) 。 傅 如 ,正切 函数 连 分 式 表 示 为 ， 


次 ， 
tdam( 人) 一 = 3 二 8 7 二 …， 15.2. 二 
连 分 式 通常 比 级 数 展 利 收 笋 要 快 得 多 ,并 且 收 剑 区 域 更 大 (但 不 是 总 是 包括 级 数 的 收 策 
域 ).。 有 时 级 数 收 误 最 坏 的 地 方 却 连 分 式 收 敏和 最 好 ,虽然 不 总 是 这 样 的 .Blanch'…: 给 出 了 有 有 关 
连 分 式 最 有 用 的 收 敏 测试 的 详细 介绍 。 
有 一些 标 准 技术 ,包括 重要 的 商 一 差 算 法 在 内 ,都 不 外 乎 是 连 分 式 通 近 , 还 是 寡 级 数 通 
近 和 有 理 届 数 通 近 . 有 关 这 方 而 内 容 参 见 AetonE- ,更 详细 的 讨论 见 Fike = 
当 计 算 连 分 式 何 时 能 停止 呢 ? 跟 级 数 不 同 , 不 能 从 左 到 右 估 计 式 (5. 2. 1), 当 变化 很 小 寺 
就 停 下 来 .而 写成 式 (5. 2 1) 的 风 式 后 ,计算 连 分 式 唯一 办 法 是 从 右 到 左 , 首 先 估计 (次 目 ' 
从 哪里 井 始 .然而 ,正确 方法 不 是 如 此 .。 
正确 的 方法 是 ,应 用 一 个 联系 连 分 式 和 有 理 数 通 近 的 结果 ,并 给 出 一 个 从 左 到 右 估 计 式 
(5,. 2. 1) 或 (5.2. 2) 的 方法 。 设 六 表示 由 ua 和 乌 估计 式 (5. 2.2) 的 结果 ,那么 


， 4 
一 一 一 个 
了 一 瓦 (5. 2.4》 





其 中 4 山下 列 递 推 式 给 出 : 
4 一 号 .1 三 0 
4 二 办 有 .三 1 (5.2 5 
4 一 4 :十 所 有 ， 加 ;| 一 二 召 :十 扣 且 ， 了 一 1,2.、...。: 
这 方法 是 在 1655 年 中 ], Wallis 发 明 ,并 讨论 在 他 的 Arithoetica Infinitorum 一 书 中 : .该 若 
能 很 容易 地 证 明 心 。 
实际 上 ,这 算法 有 某 些 三 味 的 性 质 , 由 区 (5. 2. 5 经 常 参 递 推 出 些 下 澡 大 过 非常 小 的 


“id4l* 


部 分 分 子 4, 得 分 三 咏 :这样 用 淫 点 数 表 不 相 :可 能 有 上 工 滋 和 下 溢 的 危险 . 然 府 递 排 式 , 辣 敏 
5 对 半 和 和 号 基线 性 的 ,因此 千 次 夺 代 时 ,都 可 重新 整定 当前 存放 的 递 推 结 果 , 例 如 .本 将 
本 4 和 天 .了 除 以 号 .合生 一 六 :还 可 拱 判 断 芭 政 还 需 递 推 下 去 :只 须 看 最 新 迁 代 出 的 
所 和 六 是 林 是 如 所 期 理 那 样 接近 ， 若 有 时 局 恰好 为 专 , 则 跳出 本 次 循 坏 ,重新 上 一 瑟 :更 
好 的 优化 方法 足 . 仅 当 洪 出 即将 发 生 叶 才 重 某 整 定 , 以 着 去 不 必 蜂 的 除法 .但 这 伴 会 剧 章 法 
虹 杂 化 )。 
自 两 种 新 的 求 连 分 式 的 方法 . 拓 蒂 特 (Sieed) 的 方法 不 用 号 员 兴 用 了 比 俏 疡 - 
六 07 只 旨 递 扒 也 用 下 式 计 算 万 和 和 习 广 和 一方 
站 1 《2 
A1 -DTDaA 人 
由 带 特 法 [5 避免 了 重新 调整 闪 前 结果 . 们 对 基 此 注 分 致 中 能 会 带 到 这 冲 情 阅 .名 :2. 
有 起 由 后 分 三 拒 平 为 大 ,DG 方 就 很 天 -个 人 芋 佐 拖 消 这 种 恋 化 ,但 在 计算 才 下 趟 
秆 和 时 俩 类 度 降 低 : 比 时 程序 运行 不 及 大 音 ,条 以 让 断 落 特 方法 只 在 子 先 苦 道 耸 由 和 从 
很 小 的 情况 下 才 排 存 使 用 .人 在 第 6. 7 他 bessik 程序 中 .此 方法 将 出 于 某 个 控 球 日 的 ， 
求 连 分 式 最 - 冀 的 方法 大 板 要 算 版 进 移 [Lenrz 大 法 和 利 中 下 席 睛 个 比 伍 坛 治 忆 关 它 : 
对 当前 结果 整定 : 
已 一 4474 万 一 及 /及 (5 3) 


冉 由 下 式 计算 广 


让 t5 2 9) 
引 式 (5. 2. 5) 知 ,显然 这 两 比 衣 法 足 饮 推 关系 式 ， 
站 ,12700 ec ) Ca 人 


此 算法 中 万 表达 式 的 分 苹 或 (水 身 丰 要 近 去 的 马队 .这 样式 5.2. 310) 就 浇 有 用 了 
对 此 Thombson 和 Barnenc- 提 出 由 正 Lentz 外 流 米 向 决 这 个 问题 : 它 将 为 零 的 项 用 -个 很 
小 的 其 代替 ,如 10 ”。 只 需 用 这 种 方法 试 着 将 算法 运行 - -个 循环 -就 参 发 现 /， 可 精确 地 证 
下 面 详 细 列 出 改进 的 Lentz 算法 . 
人 邻 一 上 3 黄 和 -0 则 全 六 一 pay 
:人 邻 (一 大 
*“ 令 万 =0 
， 四 一 12 
用 ,一 起 一 如 厂 六 
忆 Dr==0， 令 了 一 123 
《 ,一 六 二 47 1 
《0， 念 (MnY 
咯 一 1 胡 ， 
ji 人 
人 
基 Lee 唱 个 由 
城中 ep 为 泽 点 精 这 什 . 品 放 是 16 或 10 和 枯 族 1 必须 小 于 ps 让 芭 10 和 


,ii 


心心 冤 旦 窑 拱 侠 


于 面 算法 是 假定 | 六 - 六 足够 小 时 ,可 以 结束 连 耸 式 求 值 。 通 常情 况 下 止 是 好 . 相 
不 能 保证 总 是 这 样 .Jenes 为 判断 求 各 种 连 分 数值 的 结束 条 件 , 让 明了 -系列 定 球 . 
Lintz 算法 出 前 尚 尤 误 善 扩散 的 一 般 分 析 ., 不 过 凑 双 好 此 算法 笃 公 不 比 其 二 筑 法 条， 


5.2.] 连 分 式 处 理 
利用 连 分 式 的 履 质 可 将 连 分 数 写 成 开外 的 形式 :以 加 迷 数 值 运算 和 过 全 等 价 和 作 流 


Gy 二 妆 妥 区 人 二 


它 不 会 改变 连 分 式 的 值 . 选 择 合 适 的 收 整 因子 站 可 以 简化 < 和 思 的 形式 .当然 过 可 以 作 连 绪 
的 等 价 变换 , 连 分 式 的 相 邻 连续 项 可 町 不 导 的 14 值 : 

连 分 式 的 奇 部 分 和 俏 部 分 也 是 连 分 式 , 其 分 别 各 自 连 续 收 误 到 /和 六 这 于 所 利 上 
的 ,主要 是 由 为 它们 收 笋 比 诛 来 连 分 式 快 瑟 倍 .如 果 它 们 各 部 分 中 的 项 并 不 比 序 分 式 复 休 获 
少 ., 则 可 以 节省 很 多 计算 ,(5.2.5) 避 部 分 公式 为 : 


友 二 也 下 元 0 人 





其 中 很 据 当前 变 基 得 


ci 
如 | = 大 
(2 13》 
8 ss 
下 
”下 : 


我 们 有 


人 


7 


co ss cd 人 二 


在 Blanch 著作 中 可 以 找到 奇 部 分 的 类 似 公 式 . 通 常 联合 利用 (5. 2. 11) 式 和 (5.2. 14) 趟 是 
最 佳 数 侦 计 算 方法 。 
下 : 章 , 我 们 将 要 经 常 运用 连 分 式 ， 
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5.3 多 项 式 和 有 理 函 数 


AN 深 多 项 式 在 数值 上 ,可 月 一 个 硅 储 的 系数 数组 cl jj0.….N 来 表示 ,下 中 心 r 电 
多 项 式 中 常数 预 .cl 六] 为 心 系 数 , 当 然 兵 作 习 惯 表示 法 也 是 可 以 的 .多项式 有 呵 悉 处理 方 
法 ， -是 数值 处 理 ! 如 求 值 ) ,此 时 应 给 定 自 变量 的 数值 . 另 :种 方法 是 代数 处 弄 . 世 是 咏 共和 评 
方式 变换 系数 数组 ,而 不 需要 某 个 特定 的 自 变 量 , 首 先 讨 论 数值 处 理 方 法。 

首先 ,假定 读者 已 知道 永 证 不 能 用 如 下 方式 求 多 项 式 的 值 ， 
p= eln] 十 eL1J > 二 el 2 关 六 基 以 二 CL3 和 入 并 史 其 六 一 人 条 基 汪 史 半 和 基 必 
或 者 (更 情 糕 ! ) 
pb 一 c[9] 二 ece[L1] > x 十 c[2]>* pewtxy2,.0) 十 c[31* powCx 0 ~-c =powCxed4.0); 
计算 机 革命 已 经 来 临 ,还 犯 这 种 错误 的 人 真是 不 应 该 ! 至 于 是 写成 
pelD]+ 上 xx*ke[l 二 x+fe[2]+xxfcL3]+xrwceCi])y); 

还 是 写成 
p 一 [fcL4 <X 二 ceL3j 7)+*x+el2xx 二 ce[127<x 二 eol: 
就 册 挟 习惯 问题 了 。 

若 系 数 ceL0…n] 数 量 很 多 ,程序 应 为 : 
pb=ce[n- 
for(= 一 mn 一 15> 一 0 一 一 1 一 bxx 一 e[j: 

或 
bp 一 ceU 一 mn] 
while 《Pr0) pb 一 pxrxccef- 


另外 .还 有 - -个 同时 计算 多 项 式 瑚 (z) 及 其 导数 dPCrisrar 之 值 的 方法 : 


pP 一 cLn Ji 
dp 一 4. 0; 
fiorfj=n--1j 六 一 0 村 -dp:=dp*X 一 DBPmDrxXe ii 


或 


hh 一 cj 一 n2i 
dh=0 tn 
while 0 人 0 人 pbp 一 性 关 xx 十 byb 一 pP+x 十 ec[-- 一 说 : 
程序 结果 是 计算 多 项 式 值 ， 及 其 导数 值 dp。 
以 土方 法 基本 上 为 综合 除法 , 研 以 推广 到 一 般 地 同时 求 多 项 式 及 其 关 阶 导数 值 。 
vod ddpoly (fleat c[]， in ne flear x， float pd[ inr nd) 
刍 定 ng 次 多 项 成 以 数 绝 e ne 长 示 的 rm 十 1 什 系 孝 ,c50] 为 党 教训 .x 条 给 证- 给 定 nd > 1 程序 在 JI 站 这 加 
才 咕 式 在 x 处 的 上 让 :PPdnd] 趾 下 思 各 阶 导 致 . 
input nnd ji; 


floar cnst+ 一 1. 人: 


MI[o] 一 chne 3 
jeor 人 13i 一 和》 [人 


。 144 


for 站 ss ne 101 三 OH ) 1 
nnd 一 fnd < fn 一 人 2 ad :me 一 1 


for (=nadsi2> 1 ) 
ea bd[i wx!pd0 3 
pd[n; -bd zx 一 cf 
for 下 一 250 二 一 nd 一 一 ) … 阶 导数 与 ,出 现 防 来 忆 子 


CSE 二 一 和 
pd[ +# 一 cnsti 


渎 考 可 能 奇 茎 并 想 知 道 , "3 次 多 项 式 却 用 少 于 壮 次 的 滋 法 就 能 求 得 结果 ,为 此 , 须 先 
算出 一 些 辅助 系数 ,并 再 做 些 加 法 .例如 多 项 区 





并 8G 人 十 0 十 cc 十 art (3.3.]) 
串 由 3 次 乘法 5 次 加 法 算出 .其 中 心 0 
Pr 一 [(4r ~ Bi 十 az 二 Car 二 二 ) 十 石 十 所 (5. 3.2) 
这 里 4.B,C.D. 王 由 下 未 给 小: 
4 一 (ai 
_ 4 一 上 
441 
厂 一 382: + 8B3 十 2 45. 3. 3) 


C= 尝 一 2 一 68: 一 万 


克 = 一 一 C++D) 一 CD 
五 次 多 需 式 可 上 由 4 次 和 法 ,5 次 犯法 得 出 ,六 次 多 项 式 可 几 4 次 乘法 ,7 次 加 法 求 出 。 
孝 的 话 ,可 参阅 [3] 一 [5 这 个 主题 虽说 不 很 实用 .但 也 是 很 有 意思 的 , 它 带 有 点 第 2. 1 
中 快速 矩阵 乘法 的 味道 ， 


现在 讨论 代数 处 理 ，- 个 ”一 1 次 多 项 式 ( 范 围 在 [0,.n 一 1] 的 数组 ) 乘 个 多 项 式 因 千 
x a* 可 用 下 面 - 段 程序 : 
<[ 1 一 co- 一 1， 


far (一 n 一 1 全 一 1jj ) <c[ 门 = 一 1 一 c[C 让 as 
ce 一 (一 a)l 


同样 地 ,= 次 多 项 式 除 以 多 项 式 因 子 > -<( 又 是 综合 除法 ) 可 用 下 述 程序 


rem 一 c[n]' 

c[n -一 0.D 

Jorfi 一 n 一 ] 一 0 一) 
swapv-cfi-i 
cc 中 =remy 
Fem 一 SwWap 十 zenm xxali 


磷 后 得 到 一 个 业 的 多 项 式 和 一 个 数值 余数 rem 。 
两 个 一 般 多 项 此 相 乘 . 抒 次 从 于 个 多 项 式 也 一 个 系数 楷 ,然后 直接 求 和 ,机 个 : 股 苑 
* 【45。 


需 起 相 除 ,可 以 周 笔 和 纸 千 折 地 鲍 缀 算出 来 , 直 使 用 不 同 优化 和 法 影响 却 很 大 ,注意 , 而 的 
在 译 此 于 参考 天 中 的 算法 : 
void Poldisffloat _],int ny iloatv impr hosotgE flort rr) 

党 让 m 交 允 质 区 的 mn. 1 十 条 六 [in 攻 遇 -个 ns 次 多 项 虑 加 nv 1 个 季 数 v[0..nvr] 出 多 年 并 ， 寺院 和 多 . 训 噩 
0 诬 的 多项式 天 整 亚 上 到 由 光 . 中 、 祭 数 考 开 民 系数 返 症 天 下.n] 中 , 数 给 下 起 半 new.n 1 和 1 
0] 反串 堆 靖 . 








in 长 .4 


jor Cilj<< mn 一 一 ) 
r-j 一 ui]; 
如 | 一 站 


[or ko av 
才 k 一 rLny 十 k 2 
[or (一 tv 十 k 





dk v[D 一 9]， 


Jor 富 PS 一 Di》 


s.3.1 有 理 函 数 
类 一个 如 个 所 未 有 理 挟 数 之 依 
下 


CT 加 本 
显然 :有 具 须 芬 列 炒 两 个 多 项 式 利 后 再 相 队 .通常 为 方 伟 起 岂 , 计 择 光一 1 只 需 分 厨 分 于 上 | 
民 际 区 二 邯 可 ,此 外 可 榴 厢 组 条 数 存 人 “不 效 如 .调用 下 而 求 信 扩 要 准 珊 : 


double yatval double x. ctpub:e eof ini mnirn int kky 
举 室 mankk 机 olLo net+ ks 计算 音 进 回 是 数 teof24 eof 1 Treof rn xf num -1 -入 


民 () 一 








0 





caifrnm xx Txt 


EL 1; 
中 cuhle >uoat .stnnni 证 置 桔 章 5 哲 尊 野 可 改变 成 


世 ， 





1 六 





fr sunn eofLmnin not Li 一 jj- )》 sunm 一 stmnun * X 十 co 扎 j; 
[far snmce 一 站 0 一 nm 二 kk nn 1 sunud--tsutnd 一 rol > X 
rear smn nsumd); 





其 攻 区 陕 们 圭一 步 读 物 : 
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本 生生 用 将 下 生生 和 下 交 和 








[人 


S$.4 复数 运算 


正如 第 1. 2 节 中 指出 :C 中 没有 复数 运算 ,这 :点 对 数 扯 计算 工作 的 确 很 直到 :由 本 在 
FORTRAN -类 有 复数 数据 类 型 的 高 级 语言 中 ,有 时 也 会 通 公 , 虽 复 数 操 作 娄 入 结 采 二 可 
很 好 地 表 玉 ,但 运 算 过 程 中 出 坝 上 溢 和 下 溢 之 类 令 人 很 及 烦 的 事 。 这 种 情况 之 所 以 发 条, 人 
概 是 因为 软件 会 司 把 实 铀 复数 运算 这 类 他 们 汰 为 很 九 小 的 事 , 分 派 给 经 验 相 让 的 班 序 负 去 
完成 的 缘故 。 

事实 上 ,复数 运算 一 点 也 不 是 件 山 小 的 事 . 外 、 减 自 然 很 容易 做 ,只 须 对 运算 数 称 实 剖 全 
虚 部 分 别 作 运算 。 乘 法 也 不 难 , 只 要 做 1 次 乘法 .-- 次 加 法 和 一 次 减法 ， 


【ae 十 ic 二 td) (ac 一 ed) 一 Tc 二 2ctl) 区 


(符号 ; 前 的 加 法 不 能 算 , 它 只 是 显 式 地 分 开 实 部 和 虚 部 ) .但 有 时 如 下 乘 起 来 更 六 
(小 7 人 十 大) = 人 cr) 十 十 fc 十 人 一 疏 一 2 《> 


它 只 有 三 次 乘法 (ac,5d(a 十 0(c+e)i ,加 上 两 次 如 法 和 一 次 减法 .总 的 操作 次 笋 增 刘 了 两 
次 ,但 是 许多 机 器 上 乘法 是 很 旭 的 ， 

。 的确. 有 时 候 式 (5. 4. 1 和 (5. 4. 2) 的 最 后 结果 是 可 表示 的 ,而 中 间 过 程 却 发 后 溢 出 .这 
种 情况 仅 会 在 最 后 结果 揭 强 可 表示 时 才 会 产 和 后, 求 复 数 模 时 ,不 要 按 下 式 计算 

上 十 动 | = Ver 十 到 (不 好 心 (5. .3)》 

当 “ 吉 5 大 到 最 大 本 表示 数 的 平方 根 时 (如 等 于 10* ,其 平方 根 为 10*) ,中 间 结 果 会 洪 | 
确 的 方法 是 
[el va el 


le 十 动 | -| 国 
pv 十 ta 和 le 二] 


(3 二) 


复数 作 除法 时 ,应 用 类 似 的 方法 以 避免 上 滥 、. 下 谥 或 失去 精度 ， 
[La 二 aketpey] 十 i[ 放 一 ecyc)] < 袜 &d 











六 。 十 atdpc) 了》 
“十 说 | Eee 十 全 十 jetcyel) 一 如] < al 四 
< 二 了 人 


当然 其 中 的 子 表达 式 , 如 crasarc ,只 需要 计算 -次 。 
复数 平方 根 就 更 复杂 了 ,因为 除了 必须 监视 中 间 结 果 外 .还 得 讨论 选择 求 很 的 绑 果 (发 
生 到 和 从 实 轴 上 )。 求 一 过 的 平方 根 , 先 计算 


[ 0 “一 忱 三 0 
j RS | 牌 dd| 
三 We 


eye 上 十 Ce 





ee 
求 得 结果 为 


| 避 和 二- 








二 
| 820 
十 刘 一 二 | ， 《3 
】 @| 二 72 2 着 Dec 
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实现 这 些 算 法 的 程序 列 于 附录 C 中 。 


5.5 递 推 关 系 及 殉 伦 肖 递 推 公式 


评 多 有 用 的 图 数 满足 递 锥 关系 .如 : 


《十 1)P CC2n 十 ] 2) 一 Pd 人) 让 | 汉 
cz) 一 名 (5 52 
下 一 人 

Cos 有 一 2cosost 一 1 了 一 Cosf 一 0) 《5- 
sinzl 一 2co5tibt 1 iD 一 2) 有 (CS 





前 三 个 函数 分 办 为 勒 让 德 多 项 式 ,第 一 类 贝 塞 尔 相 数 和 指数 积分 …。 当 从 两 个 相 邻 “二 
的 倩 往 大 或 小 的 方向 扩展 计算 序列 项 时 ,这 些 关系 区 很 有 用 。 

这 里 关于 -和 角 区 数 式 (5.5.4) 和 (5. 5.5) 插 几 句 话 .: 如 理 说 程序 运行 的 : 1 是 
在 计算 三 角 困 数 , 那 一 定 是 什么 地 方 有 问题 .对 于 自 变 量 为 线性 赃 列 9 名 二 内 人 9 二 人 1 
的 三 角 甬 数 ,使 用 上 而 递 推 关系 很 有 有效: 

cost 十 9) 一 cos- [acos 日 sing] 


(0 
sin{ 有 十) 一 sing 一 [asxing 一 cosg] 
其 中 .如 是 医 先 计算 的 系数 
& 2sin: (2 昌 二 sin6@ (5 二? 


不 用 通常 方法 ! 等 价 地 ) 求 角度 而 采 明 这 种 方 法 的 淖 久 是 , 当 增 乔 人 很 小 时 ,a,232 仿 在 二 
州 。 同 样 , 式 (5. 5. 6) 中 加 法 应 按 方 括号 中 的 顺序 求 和 .我 们 在 第 1? 章 中 .处 理 傅 立时 变换 时 、 
将 反复 利用 式 (5.5. 6)。 

耕 时 ,另外 -种 决 窗 也 很 有 用 .就 是 注意 列 sing 和 cos 部 可 以 通过 Tan 计算 


六。 - 
和 一 tan(7) ost 一 sintg 一 一 一 一 3. 





2 
工 十 引 1 一 站 
当 求 sing 和 cos 时 孝 必须 求 一 次 tan .另外 还 有 两 次 乘法 ,2 深 除法 帮 2 次 加 法 。 当 在 机 器 | 
求 二 针 昂 数 已 较 慢 时 ,这 样 散 能 节省 计算 。 但 当 纺 =* 士 rz 时 , 费 求 蛋 号 处 埋 。 另外 也 这 江 具 :地 
在 许多 机 器 上 求 三 角 明 数 也 各 快 , 可 上 机 试 一 试 才能 知道 并 (5. 5 8) 基 机 提 志 此 


5.S.1 递 推 式 的 稳定 性 


在 诞 推 方 癌 下 (2 增 亚 或 瑟 小 让 椎 式 下 了 全 入 诬 藉 六 不 总 是 歼 定 的 ， 个 项 演 旺 证 
推 关 东 式 We 启 于 宇 ] 宝 旺 ai 和 


1。 


有 郑 组 线性 独立 的 根 六 ,ess 其 中 只 有 一 组 根 瞩 的 序列 才 是 我 们 要 求 的 : 另 一 组 ge 可 能 消 
指定 方向 是 指数 增长 ,或 指数 小 降 ,或 指数 中 性 { 妈 按 某 种 客 规 律 增长 或 卜 几 ) 。 若 为 指数 增 
长 , 则 在 指定 方向 上 兹 递 推 式 汪 有 实际 出 处 , 便 如 式 (5. 5. 2 在 二 增 二 方向 上 , 当 .r<z2 时 就 


是 这 种 精 况 。 故 在 二 很 大 时 ,不 能 用 式 (5. 5.2)? 前 向 递 推出 由 塞 尔 函 数 . 
上 丘 格 - :点 讽 , 若 太 g0O 当 Po 45. 5 10) 


则 记 称 为 递 推 关 系 式 (5. 5.9) 的 最 小 解 . 非 最 小 解 加 ex 称 为 强 解 . 最 小 解 攻 存在 , 则 是 上 堆 - 
的 ; 强 解 则 不 然 一 一 例如 可 以 在 名 上 增加 A 的 任意 倍数 .利用 前 向 递 排 可 以 求 任意 强 解 
值 ,但 不 中 最 小 和 解 ( 遗 岩 的 是 最 小 解 怡 恰 就 是 我 们 要 求 的 解 。) 

隔 布 拉 莫 维 旋 (Abrantowitz) 和 斯 特 根 {Stegun) 一 给 出 了 一 列 在 na 增 大 尸 减 小 方 河 上 
者 稳定 的 递 推 关 系 式 。 ee 给 定 某 个 函数 六 Cr) 的 递 推 关系 ,该 
者 花 五 分 钟 就 吕 以 疾 己 检 验 一 全 :在 感 兴趣 范围 内 收 一 个 固定 ,不 要 从 亡 (Cr7 机 广 ，) 
的 实际 作 Is 0 值 ,然后 青 分 别 贱 6,1 值 .对 此 两 种 不 同 的 初始 
情况 . 华 递 推 方向 上 (其 了 开始 增 大 或 碱 小 ), 作 出 递归 序 刚 10 全 20 项 ,注意 , 贞 个 序列 对 应 
项 之 善 , 若 关 贷 小 于 允许 值 [ 如 锡 对 值 八 10), 则 递 椎 是 稳定 的 . 若 增长 组 慢 , 递 推 吕 能 轻微 
不 稳定 但 可 以 忍受 。 若 快速 增长 . 则 存世 指数 增长 的 解 .如 果 已 知 所 求 函 数 是 与 增长 的 解 对 
应 , 则 可 保留 递 推 公式 ,例如 二 增长 时 的 册 塞 东 评 数 ,参见 第 6. 5 节 。 如 果 不 知 道 这 个 解 蚌 所 
求 函 数 对 应 的 解 ,此 时 永 舍 弃 递 推 公式 。 应 沪 注 意 , 为 计算 两 起 始 函 数 方 (z) 和 方 - Cr) 而 如 
找 数值 方法 之 甬 , 立 先 作 这 些 检验 工作 : 稳 滞 性 基 递 推 关系 本 身 的 属性 ,与 初始 值 无 关 ， 

还 有 一 种 很 有 局 发 性 的 检验 稳定 性 的 方法 ,就 是 把 具有 常 系数 的 线性 递 推 其 系 代替 原 
有 的 递 推 关系 . 例 丰 (5. 5. 2) 式 圳 写成 : 


Jr 一 .一 2Yy。 十 癌 《5 
其 中 ， 三 “ 视 为 带 姓 . 设 解 的 形式 为 * 一 2 米 求解 递 推 关系 式 , 代 入 二 面 得 凤 : 
民 一 27k 十 1]=0 或 =7yY 一 vv 亚 一 《35. 5.1 2) 


对 所 有 解 v,， 当 le| 坟 1 时 , 递 推 是 稳定 的 .此 式 成 立 ( 可 验证 ) 应 有 Y| 所 1 或 入 < 盾 以 
当 半 很 大 时 .不 能 用 式 (5. 5. 2) 从 产 (z 和 赂 (z) 起 始 来 计算 .六 (z)。 

在 这 个 问题 上 , 若 能 有 某 些 实际 的 定理 作 保证 ,就 可 能 会 更 好 些 (虽然 我 们 - - 直 米 取 -- 
中 试探 性 的 方法 ) .下面 两 个 定理 是 由 Perron[23 给 出 的 ; 

定理 4 式 15.5.9) 中 若 gao 一 加 江 当 nc 上 且 有 Bo 时)， 则 

go UVHo 一 一 0 一 Cajr6 (5.35. 13) 
万 就 是 式 (5. 5.9) 的 最 小 解 。 
定理 中 与 定 届 4 的 条 件 相 阿 ,只 是 =. 2x, 考 察 上 面 特征 和 多项式 


必 AL 一 太 0 (35. 5. 147 
若 式 (5.5. 14) 的 根 6 数值 不 等 ,不 妨 设 和 | 则 
1 15, 5.15) 


所 也 是 式 45 5. 9) 的 最 小 解 。 芒 不 具备 上 述 两 定理 的 茶 件 , 则 不 存在 暴 示 解 。( 关 十 着 推 覆 定 
性 更 详细 的 讨 人 . 参 见 文 献 13]， 
背 求 得 的 解 就 是 最 小 解 , 邯 么 下 面 该 接着 怎 录 昵 ?正如 -名 而 老 的 湾 诸 所 涪 的 ， 上 悄 总 
全 是 有 好 月 坏 : 在 某 一 方向 上 这 椎 关 系 亚 重 不 候 定 , 晶 在 下 过 大 向 于 厅 希 昌 的 ? 骨 总 是 及 
站 生生 汪 


仅 间 常 快 : 这 意味 着 避 以 用 连续 项 六 彬 广 :的 佬 总 福子 们 开始 ,在 夏 定 方 启 上 遂 扒 足够 多 
步 后 ) 收 但 到 所 求 的 听 数 与 一 个 未 知 的 规 一 化 头子 之 丰 。 基 还 存在 其 他 对 序列 进行 规 一 北 的 
方法 (如 通过 /的 求 和 公式 ), 刚 它 确 实 十 求 图 数 伟 的 一 种 实用 的 方法 .这 方法 种 为 洲 勒 
Ciler) 算 法 .通常 式 (5.5. 2 的 应 用 示例 算是 川 这 种 方法 .其 规 一 化 公式 为 


] 一 .jz 直 271207) 十 24.0z) 一 2002) 十 … (5.16) 
正好 沽 项 遂 椎 式 和 有 连 分 式 之 加 有 :个 重要 的 关系 。(3.5.9) 递 推 关 系 可 写 臧 ， 
1 (5.7.17) 


从 部 于 始 丰 上 式 反 复 送 代 , 得 到 ， 

hr 了 人 信 去 
由 Pineherle 定理 2 当 旦 仅 当 式 (5. 5.9) 存 在 最 小 解 六 时 , 则 式 (5. .18) 收 策 , 此 时 收 伊 到 
万 /1 :通常 对 了 a -3 时 的 情况 ,还 需 结 合 . - 些 其 它 方法 求解 上 凡 . 这 些 结果 部 是 下 一 章 计 


算 各 种 特殊 允 数 值 的 各 种 实 月 方法 的 基础 。 
s.5.2 克 伦 肖 的 递 推 公式 


克 伦 尚 4Clenshaw) 的 递 推 公式 是 计算 求 可 式 的 一 种 氏 秀 而 有 效 的 方法 ,该 和 式 是 系数 
乘 上 演 循 递 推 公式 的 十 数 之 内 ,例如 ， 
(0) > ecosCg) 或 ”xz) = 全-PaCz) 
矶 一生 办 一 作 
其 序 理 如 下 :假设 求 和 为 


7 一 人 yet7) (5.5 13》 
十 
Fx 满足 甫 推 基 系 
下 QH 《5. 35, 22)》 
al 和 相 癌 (nr 为 图 数 ,再 出 以 下 递 推 式 定 义 加 人 =NN--1 1): 


xy 一 yw 一 D 
二 二) 
《5.5,.21》 
为 求 ce 解 方 程式 (5. 5. 21) ,然后 烙 理 和 式 (5. 5. 19) ,得 到 如 下 形式 (部 分 )， 
人 
十 一 08 vi 一 有 9rjy， ET) 


上 [as: 一 07 3 ) 号 妥 [8.e)ye 天) 


(6 7 CD) 
一 GD33] 天 rr) (5.22) 
十 ev 


十 es 一 CO2r)y 一 站 3.y(r) 
十 一 cs 一 站 2 (CD) 


0 (riyFCry)》 


注意 ,最 后 一 行 增加 又 减 去 一 项 901.)3 :认真 考察 式 (5,5, 22)? 中 含有 兴国 子 的 项 ,po 
以 发 现 按 式 (5.5. 20) 的 递 推 其 系 代 其 中 和 为 零 ,其它 w 类 似 , 直 到 凡 * 最 后 式 (5. .22 所 于 
项 为 ， 
rr) 一 闻 (] rr) 下)3s 二 下 (Ce | ReCryen 2) 
式 (5. 5.21) 和 (5. 5. 23? 是 计算 式 (5. 5. 19? 的 clemshaw 递 推 公式 . 先 用 式 (5.5.21) 递 拓 
计算 %* 求 得 % 和 思 后 ,用 式 (5. 5. 23) 求 得 所 求 之 和 。 
clenshaw 递 排 方法 是 按 不 的 递减 顺 膏 合并 系数 cs, 每 - 步 , 所 有 溢 前 心 的 效果 作为 耳 
个 系数 “记忆 ?下 来 ,然后 用 它们 乘 因 数 F ,和 ( 最 后 为 玉 和 局 )。 当 夫 很 大 币 是 数 记 很 
小 ,并 且 天 很 小 而 ce 也 很 小 时 ,和 式 主 要 由 小 的 瑟 决 定 . 此 时 ,被 记忆 的 系数 将 被 消去 让 失 
去 重 村 性。 例如 求 -个 级 数 和 
Js 一 0XGD 十 0DX7CD 二 :十 0OXxwiDD 十 EX (5 3534) 
其 中 六: 很 小 .最 终 表 示 为 消去 ju 和 7 的 线性 组 合 ,其 六 和 交 都 是 单位 阶 的 ， 
这 种 情况 下 , 解 央 办 法 是 用 跟 一 种 (Cienshaw 着 推 方式 . 即 按 上 升 顺序 合并 心 . 相 应 的 
方程 是 ， 


-一 21 一 0 (CO 
】 
了 一 万) 和 :一 9( 娄 ,TD)34 1 一] 


(人 一 0,1. .AN 一 1) 《5.5. 26) 
JIz) 一 cv) 一 有 Ne)F ICr)n it 一目 w(z)yx (5. 5. 27 
与 动 验证 式 (5. 5. 23) 的 第 一 个 求 和 和 运算 项 ,是 否 符号 相反 ,并且 数值 是 否 基 本 相等 ,从 
而 判断 是 否 应 该 采用 式 (5. 5. 23) 至 (5. 5. 27) ,而 不 能 采用 式 (5.5. 21) 和 (5. 5. 23) ,但 这 种 情 
沈 比 较 少 见 . 除 了 这 种 特殊 情况 外 ,Cleoshaw 递 扒 总 是 稳定 的 .并 且 与 函数 六 的 递 推 是 在 
上 升 方向 还 是 下 降 方向 上 的 稳定 性 无 关 。 
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5s.6 二 次 方程 和 三 次 方程 


简单 代数 方程 的 报 可 视 为 该 方 种 系数 的 函数 ,这 些 霄 数 我 们 在 初等 代数 中 学 过 ,但 斌 慰 
的 是 ,很 多 人 不 知道 如 和 何 求解 有 两 个 实 根 的 二 次 方程 ,或 者 如 何 求 -个 三 次 方程 的 实数 解 ， 
二 次 方 称 


0 一 由 二 六 


Loshc 为 实数 , 它 的 解 有 陆 科 法、 好 
一 1 YY 


小 后 


1 


2 


EEC 二 = 人 


一 5 十 Y 刺 二 处 
如 果 用 式 (5. 6.2) 或 (5. 6. 3) 求 根 . 则 将 自 找 县 烦 : 共 .或 (和 jc 很 小 , 则 其 中 -- 委 站 出 4 
去 减 一 个 非常 援 近 的 量 ( 即 判 阁 式 ); 这 样 得 到 的 结 昌 很 不 蕉 哆 。 正 锯 的 求解 方式 是 让 漳 


三 去 部 16 十 品 n(O) v 人 dc 人 


则 两 根 为 
2 一 和 下 3 :- 


把 人 
和 
若 系 数 a.2,c 为 复数 而 不 是 实效, 上面 公 式 仍然 有 效 , 只 是 趟 (5. 6.4) 中 平方 根 的 御 号 
必须 使 ， 
Re(p vv- dac) 袜 提 056.61 
其 由 Re 表示 实 部 ,时 号 表示 共 罗 复 数 ， 
大 于 一 次 方程 ,首先 回忆 一 下 反 双 册 阴 数 ,实际 七 它 就 是 此 方程 解 的 对 数 


sinh Lrc 一 Intzr | vc TD) - (6.?， 
cosh !z) 一 土 ln( 二 wwAr 二) 人 


+ 之 0 时 , 式 (5.6.7) 是 稳健 的 , 当 > 为 负数 时 ,利用 对 称 性 smb 上 x) 一 sinh Ce 而 亚 
然 式 (5. 6.8) 仅 对 z 芝 1 时 才 有 效 。 
二 次 方程 


十 ci 一 骨 十 一 人 6. 
avi 为 实 系数 或 复 系数 ,首先 计算 
上 一双 2 一 0 十 27 巷 汪 ， 
二 和 人 六 .看 10， 
包 三 一 9 和 天 三 5 《5 有 有. 1 


攻 满 足 驴 .只 是 实数 ( 当 abie 为 实数 时 通常 满足 } 梓 司 << 仿 . 则 :次 方程 有 . :个 实 恨 : 
求 根 时 先 计算 





中 一 arcenst 民 和 VQ1) (50, 人 1) 
由 此 得 一 个 根 为 ; 
En vGeos( 卫 ) 四 加 
3 3 
一 -2 VGeos( 二 于 ) 一 本 《5 世 。|2》 
过 人 和 习 
3 : 


这 些 方程 成 中 在 1 与 年 出 版 的 ,Freansois Viete 购 宕 作 ” De oncerionac” 第 中 意 中 第 
次 出 再 . 再 朵 .让 他 


其 中 们 方 良 的 入 号 应 满足 


Re(tR vv 证) 六 让 3. Ed 
〈 星 二 赤 丰 区划 豆 效 。) 芒 和 R 均 为 实数 ,大 (5.6. 13)~ 05.6.147 等 价 于 : 
上 | 一 一 sdn(R)[ RR | Re 喇 | ” (3 ti 15) 


其 中 假设 平方 根 为 正 。 下 一 步 计算 
| 《4 天 人 ) 





尼 一 ， (5, 6 16G) 
10 { 刀 一 0) 
由 此 可 知 二 个 要 为 
.一 (4 十 吾 ) 人 (6.17) 
(st 为 实数 时 唑 -的 实 要 ) 
一 一 了 (4 十 且 一 关上 十 ; 4 刀 》 
(5 8 
rs 一 ， 3 (4 十 轧 ) 生 二 二 要 训 ， - 百 ) 


《同样 为 一 对 上 共 印 复数 .) 基 (5.6.13) 一 (3.6. 16) 的 排列 形式 可 将 舍 人 误差 降 至 最 小 ,而 Hi 
如 A,JGlassman 所 指出 的 ,还 串 以 保证 所 选择 计算 立方 根 的 方法 ,不 会 导致 根 的 去 失 . 基 
要 解 一 纽 仅 系数 克 有 不 同 的 二 次 方程 组 时 , 则 册 牛 顿 法 (第 9.4 节 ?更 有 效 。 


参考 文献 和 进 消 读 物 ， 
Pachner，] 1983， 丽 cacfpooK OF anerreal netfasrs Uppipeair 【New York:， MeGrtw- 和 il 、 六 和 |， 
Nickelvey，JT pb。1984 ， 有 paerieama .Jokrrzatl 0 PAY vol，52pPp，289 一 270; see ilso vol，53，D。，773。ang 


Yol，55，pDD。、374 ~-375.。 


s.7 数值 求 导 


若 已 求 得 -函数 fr) ,现在 欲求 上 基 导数 广 (z)。 很 容易 是 不 是 ? 根 奖 导数 定义 ,=0 村 
求 极限 
0 Cr 一 - 和 ( 末 ) 
上 式 表 明 ， ne zc) 值 很 可 能 已经 有 了 , 敬 还 没有 , 世 汶 上 斑 : 最 
后 运用 式 (5.7.1) 就 可 计算 出 导数 .还 有 什么 东 相 值得 计 论 的 呢 ? 

Re 很 多 方法 :直接 按 上 商 过 程 求 导数 , 几 平 肯定 得 到 的 足 不 精确 的 钻 果 .内 有 
当 函 数 了 了 和 值 的 计算 极其 费 守 ,而 又 已 经 计算 了 Az 并且 只 要 悉 多 所 求 一 次 图 数值 就 可 有 求 
得 导数 计 . 上 述 让 法 术 订 考虑 使 用 .在 这 种 情况 上下: 利 下 的 任务 就 是 寻找 合适 的 上 .下 耐 下 始 
讨论 ， 

式 (5. 7 1) 上 所 有 着 个 误 莽 源 . 蕉 尼 谱 藉 和 人 和合 入 误 共 , 截 谋 庶 共 来源 二 从 勒 级 数 扩 限 式 沟 


(5-.7.1) 


] 


1 1 ee 人 
CE 认 


即 他 
帮 袜 二 遇 二 天) 
用 

而 舍 人 误 卷 来 源 较 多 .首先 4 中 有 仿 入 误 闫 : 役 定 在 “一 10.3 处 随便 选 定 一 小 000. 7 
10. 3 及 十 A=10. 30001 都 不 关 避 有 能 出 精确 “ 进 制 表示 的 数 . 内 此 ,都 具有 机 器 浮 扣 格式 
eu( 单 精度 时 可 达 10-7) 的 某 些 相对 误 兰 , 的 有 效 值 误 差 , 也 就 是 机 器 表示 茧 z 十 由 和 了 之 
间 药 莽 值 ,其 数量 级 为 swzr' 其 中 隐 合 贡 级 为 ee 10 的 于 的 相对 误 荐 。 由 式 45. 7 ，: 即 
香 出 ,导数 中 也 存在 同样 太 小 的 相对 误 莽 。 

结论 1: 选择 5, 使 得 > 一 由 和 并 能 被 … 个 可 表示 的 数 精确 地 区 分 .通常 用 下 面 的 程序 步 
驻 实 现 : 


三 二 本 让 昌 芝 1 .34 


tecmtb 一 了 十 力 = _ 
90. 1) 
真一 temD 工 

某 些 优化 的 编译 器 条 … 些 带 浮 点 处 理 芯 片 的 机 器 其 内 部 精度 高 ,这 种 方法 就 失效 ,此 时 . 通 
常 在 式 (5.7.4) 的 两 式 之 间 调 用 :次 空 国 数 donothing(temh)。 强 制 fempb 位 于 并 超出 襄 当 
址 存 情 器 范围 。 

当 广 为 精确 数 时 , 式 (5.7. 1) 舍 人 让 差 为 一 后 1 77) 站, 其 中 s 为 计算 了 的 妆 分 类 
度 . 对 于 简单 的 画 数 6 的 等 于 机 器 精 庆 ,ersss3 介 对 十 计算 复杂 而 且 有 具有 不 至 一 个 蜂 差 源 
的 情况 ,误差 可 能 比较 大 。 式 (5. 7. 3? 的 截 是 误 差 数 最 级 为 wm 一 | 只 zi 变化 六 使 得 和 和 倘 一 
一 6 为 最 小 ,这 时 六 息 优 值 ， 


AAS Ver 人 


其 中 蕊 三 人 AAA 为 函数 了 的 曲率 尺度 ,或 陈 其 为 变化 的 特性 尺度 , 若 无 其 它 提示 信息 , 史 
通常 假定 之 一 x( 除 了 在 -=8 附 近 , 此 时 应 使 腊 它 zx 尺度 的 典型 估计 值 .》 

全 用 式 65.7.5) 后 ,计算 导数 的 相对 误差 为 

(e 一 6 | 一 Vs 《人 Vs 《5 2 3) 

上 式 中 最 后 等 式 假定 凡 . 广 . 广 都 具有 相册 的 特性 长 度 尺 度 ,通常 也 正 是 如 此 .可 见 看 出 , 简 
单 的 有 限 差 分 方程 式 65. 7. 1), 最 多 能 精确 到 机 器 精度 *. 的 平方 人 要， 

如 果 每 次 米 导 数 时 可 以 求 两 个 函数 值 , 运 用 下 甸 的 村 陈 开 式 效果 会 好 得 多 ， 
下 六 十 让 一 Pr- 由 

2 及 

此 时 由 式 55.7.2) 得 , 截 尾 误差 为 w 一 庆 六 . 售 人 误差 与 前 面 … 样 ,由 类 似 关 而 的 简 算 计 这 ， 
莽 优 的 六 值 为 





了 


| 5 ee (5. 7.8) 
相对 这 芝 为 
(| (3.7. 91 
皇 蕊 与 忒 65 了 525 比 . 一 般 清 先 引 较 精 确 一 个 数 季 级 ( 单 畏 度 )? 或 2 个 数 蝇 级 ( 友 精 度 ; :中 此 
得 噩 : 宕 论 2 所 择 大 等 于 ss 或 cs 的 正确 次 寡 乘 以 的 特征 失 虚 .，， ， 
十 革 它 情况 很 窜 基 导出 正确 的 宪 次 :何如 对 一 绯 渡 获 , 汇 人 台 导 数 公 式 为 ; 
、154， 


本 2 一 es 二 Jr 1 7 109 
他 小叶 了 E 9 


正确 尺度 是 上 ~-ej zx， 。 

没有 简单 的 有 限 差 分 公式 .如 式 (5. 7.1) 或 65.7.7) 能 给 出 机 器 的 精度 es 的 公式 ,或 者 
甚至 比 求 了 值 的 估算 精度 s, 更 差 的 精度 公式 ,这 -点 很 令 人 失 记 ,有 没有 更 好 的 心 法 喀 ? 

有 的 .不 过 要 涉及 到 考察 相对 上 … 尺度 上 吨 数 的 行为 .还 得 假定 下 数 平河. 或 可 解 信 
的 ,这 样 泰勒 展开 式 (6. 7. 2) 中 的 高 次 项 才 有 意义 ,同时 还 涉及 求 函数 适 的 多 种 广 法 .所 以 精 
度 的 内 锅 是 以 计算 的 费用 增 大 为 代价 的 。 

Richarqsoen 的 延 运 极限 通 近 思想 很 有 虑 中 力 , 数 利 积 分 中 龙 贝 格 积 分 就 来 目 这 向 思 
想 ,( 见 第 4. 3 节 ) 。 求 导数 时 ,可 将 由 越 来 越 小 的 内 逢 求 得 的 结果 外 推 全 盖 0, 由 已 维 沙 算法 
(第 3, ! 节 ), 应 用 每 人 次 有 限 差 分 新 的 计算 结果 求 得 高 阶 的 外 排 -Ridders ”漂亮 地 实现 了 福利 
思 想 ,下 面 的 程序 dfridr 就 是 某 于 他 的 算法 ,只 是 修改 了 终 下 北 件 .程序 的 输入 是 国 数 产 称 
func)* 正 数 *: 最 大 步 长 上 (与 疡 相 比 它 更 象 新 曾 称 为 … 的 芋 ), 答 明 为 翌 数 的 返回 展 及 识 蔡 
估计 值 err 。 
六 Include 所 .math. h -> 
节 inelude "nrutil,h” 
苹 defineCON 1.1 每 次 夺 代 上 长 减 小 CON 


六 dhne CON2 COONCON) 
并 xlefine BIG 二 0cs30 


并 define NTASB 上 设置 类 的 最 大凡 度 
节 tlejine SAFHE 2 当 误 送 SAFE 12 肯 前 米 重 撕 好 红果 还 坏 时 赵 癌 


人 oag tfrklrCiioat Ex funcotioary，floar xy，tloat hy float rw err)》 
有 返 呈 上 赴 Ridders 多 项 忒 外 推 法 求 得 的 函数 funk 在 点 x 处 的 水 获 值 . 町 入 hh 当 位 让 补 斩 引发 ,上 你 业 - 站 作息 汰 能 
够 全 func 是 善 改变 蛮 景 x 的 增 景 ,导数 的 误 状 省 让 值 的 运 问 但 为 ecr- 
tnl ii 
fiori Crrt 。，fac ，3b、 关 入 刀 RDSS 


让 -一 0.0) nrerrorf"h must he nanzero in dfridr-”) 
a=-matrtxt1] 入 守 册 对 ,1NT NA 是) 
hh 一 hi; 


江上 [ICUx Eurggx 一 hh -xfunctx--bby37f2. 号 关 hh)+ 
Ye 一 BIG; 





for 0i 一 23:1< 一 NTAEB4HiT+ 站 全 这 忆 锥 沁 表 中 的 连结 刘 于 进入 更 全 的 步 氏 有 和 洪 虑 育 癌 全 人 
al1 ifCxfnonc)txA+hh (xfonctxz 一 bhyy (2.0xrhhi; 试验 董 的 利于 步 汪 
fac 一 COUN2: 
for 5 一 2 和 一 1 一 ) 不 稍 册 米 氏 起 让 人 算 禁 辐 阶 的 外 堆 


5LILU=taj) Diskfac z0 1 095Clar 1; 
face COxN2sfacy 
ktzl-FERNAXtfabsta ji al 器 LEiabsta[i Da 三 上 
让 天 策 糙 吓 关系 玫 条 的 外 泛 捕 刘 与 狼 阶 站 果 引 较 , 也 括 当前 未 民 基 前 和 宝 全 
iferrt s = 二 etcy 葵 民 关头 小 . 保 丰 改进 门 结 毕 


人 








ans 一 a[i[-; 


车 Dabsa FE Pieaki 莹 着 讲 囊 时 由 SSE 人 开 


Tree nnXfn NTAH TSNTAUD: 


rsS3 


是 afridr 下 求 郴 数 func 值 的 次数 一 般 足 6 到 12 次 .但 可 大 到 2xNTAE 次 为 流入 
量 ,h 城 人 求 得 精度 也 较 好 ,直至 在 某 资 变 点 任 - 下 意义 要 外 惧 导 致 :个 很 大 的 谋 差 返回 供 ， 
所 以 必须 选择 适当 大 小 的 hh, 注意 下 加 和 值 crr, 若 这 个 北 司 但 本 名 小 时 减 小 hs 果 的 特 第 
扩 度 为 单位 数量 级 时 ,一 般 典型 地 选 h 为 上 分 之 儿 。 

除 Ridders 方法 外 还 有 其 它 一 些 方法 , 芒 丽 数 很 平滑 .并 出 在 菜 区 辣 内 任意 所 处 要 多 次 
计算 本 数 的 导数 ,此 时 最 好 在 此 区 了 辣 内 构 丫 师 效 隐 切 比 当 夫 多 顺 式 遂 近 臣 , 雪 接 几 求 篆 交 切 
出 雪 天 系数 求 导 数 ,下 面 第 5.38~~-5. 9 节 将 讨论 这 种 方法 。 

另外 还 有 一 种 方法 ,适用 于 在 区 问 的 等 分 点 上 的 数据 形 组 成 (可 能 有 吕 声 ?的 函数 .全 每 
个 所 求 点 了 和 值 处 ,用 表 中 该 点 在 过 症 个 点 及 右 过 严 个 点 ,由 最 小 一 冬 方 拟 侣 好 阶 多 项 这 ， 
导数 佑 计 值 基 为 求 得 的 拟 合 多 项 式 的 导数 .Savirzky-Golay 平滑 滤波 器 用 二 构造 多 项 式 时 
很 有 效 ,第 14.8 节 中 再 讨论 .那里 将 给 出 :个 蛆 序 求 凄 波 器 系数 ,这 些 系 数 不 仅 可 以 焰 千 氢 
全 多项式 ,而 且 还 可 用 来 计算 数据 点 乘 滤波 器 系数 利 的 累积 什 : 给 定 的 程序 saygol 有 
个 参数 为 ld. 它 表示 交 氟 合 多 项 式 的 哪 一 阶 导 数 - 求 第 : 防 导 数 时 兽 1q 一 1] . 续 数 值 菏 轩 丰 
和 除 以 采样 区 间 h。 
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s.8 切 比 雪 夫 通 近 


和 阶 切 比 否 去 多 项 发 用 了 (Gzr) 表 示 , 写 成 公式 为 
了 (7) 一 cos(natrccos2) (5, 8. ]) 
看 上 去 它 像 三 角 函 数 公式 ( 事 人 关上, 切 比 否 夫 多 项 式 和 离散 傅 里 叶 变换 有 紧密 腾 系 ). 结 
全 三 间 人 恒等式 由 式 (5.8. 1 可 得 T,(z) 的 显 式 为 ( 见 图 5.8. 1)， 


Yn(zr)》 一 1 

了 .(<)》 一 水 

了 

了 5) 一 4314 一 3 人 


了 4 一 8 一 8 十 工 


7 了 (rz) 一 2r7(z) 一 研 (zx) | 
(也 存在 上 式 反 变换 公式 , 即 用 了 ,Cr) 项 表示 的 寡 次 公式 , 见 公 式 (5.11.27 一 [5.11.2。 
切 出 雪夫 多 项 式 在 [一 1,1] 区 同上 对 权 人 一 r2) 天 是 正 交 的 ,特别 是 








了 (了 ) 
1 了 了 《3 区 
人 7 (333 
RH /| 要 本 | . 
1 人 昌 三 了 



















注意 ,7 在 [一 1 所 反问 上 上 有 个 起 .只 多 项 式 介 介 上 十 1 之 加 。 
图 5.8,1 切 比 下 大 多 项 趟 了 :Cr)? 到 了 er)。 


多 项 式 Ttz) 在 [一 1,1] 拭 间 上 上 有 > 个 零点 ,分 布 在 如 下 的 点 上 
Tr( 玉 广 ) 


好 


| 天 2 全 思 证 冯 二 全 训 【5, 吕 :1) 


在 同样 的 区 亲 - 上 ,有 ”1 个 恨 信 ( 极 大 值 和 极 小 值 ), 其 分 布 在 如 下 的 点 上 





全 二 cos( 下 ) 让 [a. 曙 .51) 
所 有 极 大 值 处 阅 ,(z)=1, 所 有 极 小 处 Tu(zy= 1, 正 是 这 种 性 质 使 切 比 孙 夫 多 项 此 在 
表 数 多 项 式 通 近 中 非常 有 用 。 


切 比 雪夫 多 项 式 不 仅 满 足 连续 正 交 关系 式 (5. 3. 3) ,而 且 满 足 离散 正 交 关系 : 若 (他 一 
1 为 由 世 15.8.4) 给 出 的 了 Cr 的 况 个 零 上 , 且 站 ji) 则 
时 纺 天 
Tina0TTCm) 一 4 一 ; 天 0 (5.8.6) 
本 “一 了 一 10 

综 台 式 55.8.1)1.(5.8.4) 和 (5,. 8.6)，, 不 礁 证 明王 面 的 定理 : 设 太 2) 为 L[- 1.] 区 闻 上 上任 
意 丽 数 ,定义 福 个 系数 cj 一 0 一 1 为 : 


.157 。 


2 忆 、 、 
6 一 站 志 ACreT Cre) 
人 





2 过] xc- 工 | ar 一 二 ) 0 
一 六 之 六 en 2 COS 7 | 
“ it=l [L 上 3 下 
那么 逝 近 公式 为 
1 
了 (Ts | >， ciTutz) 一 过 (3 
二 -1 


在 Tvtz) 的 六 个 零点 处 ,上 式 精确 相等 : 

N 峭 定 时: 式 (5.8.8) 就 是 [一 1.1] 区 闻 内 道 辽 六 xz 的 多 瑚 式 人 TsGz) 的 所 有 橙 点 也 大 
此 区 间 内 ) :为 什么 说 这 种 特殊 黎 上 项 式 道 近 比 在 此 区 间 内 其 攻 任何 严格 的 道 近 丽 数 要 好 嘱 ? 
这 并 不 是 因为 式 (5. 8. 8) 比 其 它 2 阶 多 项 式 更 精确 (对 特定 意义 上 的 精确 性 来 说 ) ,而 足 同 为 
式 (5. 8.8) 订 非常 源 亮 地 截 为 医 阶 (加 伴 呈 ) 才 项 式 ,能 得 到 丑 阶 最 好 的 吉 近 (在 基 太 许 湖 洗 
的 定义 意义 上 来 说 ), 设 N 很 大 :以 致 可 认为 东 (5.8.8) 是 Fr 的 完全 通 近 。 现 考察 截 思 着 
近 


如 | 
CC》 科 | >， CTRCz) | 2 末 (， 《人 
是 下 总 


cj 同样 由 式 53.g. 礼 得 到 。 央 (cz) 限 定 在 工 上 之 问 . 故 式 (3.8.9) 与 5.8.8 之 着 不 可 能 
大 于 舍 奔 的 上 仆 一 ieyN- 1 之 和 , 苦 cf 次 减 很 快 ( 通 常 如 此 ), 则 误差 主 要 由 才思) 鲍 
定 :cen7wkz) 为 “ 据 葛 函数 ,在 区 闻 [ 1,1] 上 平滑 地 分 布 着 空 十 1 个 相同 的 慨 值 。 这 苹 误 差 
的 平滑 扩散 性 质 很 重要 ,这 样式 (5. 8.9) 的 切 比 要 大 风 项 代 就 是 我 们 想得到 的 通 志 多 项 二 
-一 一 极 小 极 人 多 项 式 , 它 在 所 有 相同 阶 数 的 多 项 式 中 ,与 原 函 数 Ar 的 最 大 向 差 达到 最 小 ， 
极 小 极 藉 多 项 式 很 奸 找 ;而 切 比 雪夫 才 近 多 项 式 几 平 是 恒 等 而 且 很 容易 计算 . 

给 定 计算 函数 头 x)y 值 的 些 方法 后 , 须 找到 算法 以 实现 式 55. 8. 7), 机 (检验 得 到 的 必 
和 规 尾 值 六 后 ) 求 式 (5. 8.9) 之 值 .以 后 用 此 式 求 扩 的 值 就 很 方便 了 。 

第 - :项 任务 可 直接 计算 .这 里 用 式 (5.8.7? 的 -一般 推广 形式 , 即 人 允许 在 任意 是 个 数 s 和 
少 范 围 内 通 近 . 阿 不 仅仅 限于 一 1 到 1 之 间 。 对 此 可 按 上 遇 进 行 变量 变换 








三 要 《1 


以 及 实现 对 的 大 zx 的 切 比 否 夫 风 项 八道 近 ， 


好 incluqde 二 math.h> 
共 include "prutil.h7 
fdefine PI 3, 14139265358974 汪 


void chebftftloatr as Hoat by, foas c[ intny floar tyrfuncyfloati 
切 比 要 大羽 侣 :给 定 闻 数 fume . 攻 吉 上 上 生 屋 荫 -a.b… 技 大 阶 数 半球 程序 完 让 算 一 个 革 喜 全 ore 
> 3 一， 和 .其 日 宁 关系 由 式 (4133 网 定 通用 时 大 水 短 取 应 适当 (如 30 到 5 . 然 呈 让 绞 小 
的 中 值 处 哉 雯 < 数组 ,使 加 芝 共 以 后 元 柴 均 可 忽略 
tar 丘 ,jv 
和 oaf [ac vdhasbmnazt，* 耳 : 


"158 。 


[vectulitn |1)3 
| 人 二 让 tb 一 3)1 
上 :一 小 (ba 
LT 人 K 一 SEE 十 十 3 出 上 蕊 司 .六 7 了? 下 靖 获 在 下 个 点 了 上 的 全 
floant y 一 cosfP] sr 疏 十 0 DT 
fnelfyv bnay bpa) 
下 
了 
fac 一 2,07nD4 
Jor (人 < 一 一 ) 
QGnihe sum -0.0 按 双 梢 度 昌 所 上 ，: 皮 慌 糙 庶 可 忽略 
for kk 一 kmnsk 十 十 》 
Stm 人 人 Lecos(PIx 二 0.S77m31s 
鄙人 facyxsums 
free _ vectortun 1》 


人 
1 


若 发 现 程序 chebft 执行 大 部 分 时 间 是 在 计算 六 次 余弦 , 砚 不 是 求 名 次 函数 值 , 此 时 应 参 允 
第 12.3 节 ,尤其 是 式 (12. 3.22), 寺 论 如 什 [用 快速 余 东 变 换 方 法 求 式 (5. 8.7) 值 ， 
和 有 有 了 切 比 雪 太 系数 直 后 .又 如 何 求 造 近 条 呢 ? 育 人 可 能 会 用 式 (5. 8. 2) 递 挫 关 系 从 全 一 
1 和 Ti 一 工 来 求 国 (六 再 求 式 (5.8. 9) 之 和 。 更 好 的 办 法 是 用 切 比 下 去 递 推 公式 (第 世 4 芒 )， 
园 时 党 成 两 个 过 程 , 应 用 于 切 比 咎 夫 级 数 (5. 8. 9) 的 递 椎 为 
zw 1 二 人 0 
中 一 22 一 却 +8 | ce， 一 蛋 1 办 一 2 .1 


AD) 王 小 一 xl 一 四 十 半 c， 
filoat chebev (tloos ay tloat b. Jioat c[1，int m .float x) 
切 比 息 赤 浇 旋 :条 数 内 罚 纵 入 ,craemn 一 下 为 贡 引 省 大 条 数 数 弛 和 首 mm 二 天 素 ,应 出 cheifet 油 蜡 由 2 庆 机 二， 


条 出: 看 > 一 [一 人 一 s7 人 上 b 一 a 守 处 写 俏 妇 比 震 志 多 项 民 人， at ] -ce 汉族 国 的 线 玫 语 明 数 信 


(3 有. 11) 


一 


void nrerrorCehar error text[ ]): 
ftost 几 一 人 0 .dd 一 0 Dosvyy2i 
imt j; 


计 了 一 aa 人 一 b) 00 brerrorG"x notr in range in routne chebev" 1 


VD 有 --d))i 变 莽 蔡 履 
for 和 一 -一 1 一 13 一 一 划 比 气 夫 逆 批 式 
sv 一 0 


qd 一 y2*d de 
dd -:s8i 


Petuaa Vx 中 dd 二 心 5xrclg] 有 生生 一 贞 野 天 本 了 牛 


蔡 区 了 闻 [ 一 1.]]1 的 扣 近 因 数 为 偶 函 数 ,其 屡 开 忒 只 包含 偶 次 切 比 否 夫 多 下 式 . 奇 系数 
全 为 霉 时 ,调用 程序 chebey 是 没 用 的 天 ,对 式 (5.8, 1) 应 用 半角 民 等 式 , 得 到 关系 式 
Ta 2 (5.8. 12) 
这 样 ,可 将 据 系 数 连 续 存 放 在 效 组 ec 中 ,而 变 基 > 由 222-1 代 替 . 然 后 调用 chebev 清 数 洒 ， 
就 可 求 得 -系列 偶 切 比 开 去 多 原 忒 的 值 . 
奇 函 数 的 展 片 式 则 具有 奇 芭 比 雪 专 多 项 式 。 鼠 好 是 将 其 改写 为 函数 放生 的 扩展 民 ， 
这 样 仅 合 偶 切 此 下 去 多 项 发。 在 .20 附和 过 可 求 得 精 换 值 。.ACeyAzr 的 系数 可 绒 Fe 的 芭 


ao。 


数 按 直 苛 递 推 式 凑 得 : 
CAs1 一 刘 
人 1 一 NAN 
式 (5.8. 13) 服 从 式 (5. 8. 2) 的 递 推 关 系 式 。 
着 ' 定 要 求 奇 切 比 否 夫 级 数 的 利 , 较 好 的 方法 基 再 用 % 一 2 和 一 1 符 换 ,并 和 将 奇 系 站 已 
绪 存 放 在 数组 c 中 , 现 将 (5.8. 11) 中 最 后 一 个 公式 改 为 
Fr 一 交 CC23 一 1 一 中 十 ci 0 
并 收 改 程序 ehehbey 中 相应 的 行 。 





参考 文献 和 进一步 读物 ; 
UDCtenshasw 己 . 友 1962，84atFpPaatrced ptry vol， Natiotral Physical Laboratory，fLondon， 品 . .Stn- 


tiomery (jjfiecey。[1 


s.9 切 比 雪夫 带 近 函数 的 微分 和 积分 


如 果 得 世 某 一 范围 内 还 近 “个 项 数 的 切 比 丰 夫 系数 之 后 (如 由 第 5. 8 节 的 chehft) ,把 亿 
们 变换 成 与 该 鸭 数 微分 和 积分 相对 应 的 切 比 雪 赤 系数 就 是 件 简单 的 宴 了 。 完 成 这 种 变换 生 ， 
就 可 以 计算 其 导数 与 积分 值 ,犹如 一 开始 就 在 做 拟 合 切 比 要 夫 函 数 似 的 。 

相应 的 公式 为 ; 设 避 0 一 1] 为 式 45.8.9) 中 司 近 画 数 了 的 系 效 ,为 允 这 7 的 
不 定 积分 的 系数 ,c: 为 各 近 子 的 导数 的 系数 , 则 有 


人 了 = 
1 一 一 一 一 一 一 人 5 人 
长 5 丈 全》 1 1 
Ci 一 6 | 260- 1)c， 人 一 六 一 ] :一 2 7) 《9 


相应 十 积分 常数 的 任意 性 ,扩展 式 (5.9. 上) 中 6 选择 也 是 任意 的 . 递 推 式 (5. 9. 2) 起 税 
项: =e =0, 这 些 值 表示 关于 折 遂 数 的 第 着 十 1 项 切 比 当 去 多项式 系数 没有 信息 . 
下 面 是 实现 式 (5. 9, 1) 与 5. 9.2) 的 子 程序 
eajid chqcrffloat ay fioat b .float e[ 了 float cder[L 3 int n) 
be[t. .an 一 口 为 第 5.8 节 路 chebtt 了 程序 的 糖 出 站 冶 定 , 它 是 设计 的 通 近 阶 数 ( 即 s 的 长 度 ). 友 程 些 政 电 禾 训 
cqer[e. ,mn 一 上 . 是 系数 为 < 的 荆 数 导数 的 芭比 雪夫 系数 ， 


ID01 上 
?Loant coni 


cder[n 一 11- 0.0; n 一 1] 二 一 2 站 持续 情况 
nder[n 一 时 一 2* 人 n…1)xen 一 ]] 
Jor (=n 一 3 一 0 一 一 ) 

ederEj 让 一 cder[j 十 2j 一 2xk (一 1)xebj 十 1 小 方程 过 (5.9,2)》 
con 一 2. (Mb 一 a31 
ioy 司 一 sn 十 证 》 区 各 | p 一 * 汉 规 化 


cedr[j] * = con 


void ebpatffloaa aa [loat bD、foat ce[]1、phoar cinc[ 门 ,int mn) 
苍 定 3-b-ce[o. .nm 一 ] 为 第 5.8 节 得 下 shebtt 的 边 出 , 症 杀 定 m 为 鉴 开 庆 近 阶 茹 习 则 四 的 长 度 桂 钳 让 后 关于 姓 考 
的 扎 表 科 从 的 下 比 竺 蕉 系 获 贤 红 sintf00 一 1 过 性 各 分 前 星 桌 利和 可 从 埋 二 锭 为 疏 . 


9 


int j 
[leat su 一 中 站 fa .Dee 






COF 一 遇 ， 2 bs 芝 站 和 -2 因 的 论 “ 化 因子 
[or 1 Fa 一 2324 一， 3 
0 口 一 cony TeDj 一 1 0 1])9 9.1) 
sUm 一 一 fae*ein 革 ij; 富 积 积分 常数 
fac 一 acs 对 等 十 上 1 
。 
RiDt[ 一 上 一 con xx <[--22700 123 引 于 盖 103.9 0 民 的 活 珠 坟 疯 
so 一 一 fac * cint:ni-- 
cint[n 一 2.0xsxuoai 设 几 各 全 此 获 


5S.9.1 Cienshaw-Curtis 积分 

中 邦和 作 省 晒 获 的 划 半 当天 系数 e 一般 祝 指 娄 壕 速 城 全 , 履 (5.9. 1) 式 通常 是 种 高 黎 求 起 企 方法 的 基 
础 . 若 才 在 & 等 了 芝 忆 范 册 中 , 双 ， 的 许 老 不 习 全 六 两 数 的 各 分 住 , 浊 可 接 路 序 合 出 得 茜 chebft 和 eint . 护 
次 芭 拓 再 几 chebey - 

攻 尽 类 单 个 定 积分 代 frac 由 (5. 9 1) 址 虹 导 出 ,此 时 chint 和 ehehev 需 几 小 面向 单 公 丰 替换 : 





FE LS 1 1 
| reow 一 他 | 一 


正中 的 所 由 程序 ehepft 示 出 。 当 ec 可 起 略 时 . 规 断 级 数 , 并 由 第 -个 他 曲 项 为 汕 计 误 活 。 
这 和 列 方 法 称 为 Clenshaw Curtis 积分 方法 ; 11. 遂 浓 还 能 户 酒 应 选 插 K, 它 是 并 人 7 证 算 光 加 放生 


夫 系 糙 的 个 数 , 匠 时 也 下 区 数 7C) 的 求 伟 次 数 若 六 的 选择 便 得 志 05.9. 3 中 -不 是 是 够 小. 则 恬 研 
上 AN 大 一 点 的 供 ， 此 时 更 好 的 方法 乞 、 ww 人 5 各)? 宏 晤 来 等 换 民 05.&. 


上 式 中 的 丁 格 表 于 条 式 ， 1 的 等 -时 种 最 后 天 ww 长 并 以 1 人 和 二 (9 生生 本 二 几 1 认 , 亚 求 玛 数 红 隐 
点 有 … 尝 与 前 :次 二 :这 种 特性 , 邮 加 上 拭 福 党 标的 解 术 性 5 址 和 
5 和 中 的 余 驴 曙 数 》 使 得 Clenshaw Cartis 求 各 方法 比 高 阶 目 适 诺 癌 斯 求生 方法 ( 玫 第 和 二 二 和 梢 好 : 些 . 

共 问 题 中 要 求 六 估 委 大: 比 叶 焉 江 如 刘 蛤 对 所 有 jj 人 乱 : 计 证 要 束 你 荡 变 换 林 贞 很 本 下 得 二 
之 值 .( 见 第 12, 3 六 ,区 其 十 牙 1442.3.1777 二 讨论 过 二 和 .外交 的 磊 樟 形 几 下 也 可 以 出 捧 迷 从 骂 广 法 
出 ,人 允 气 式 (12,. 3, 22).) 





从 考 文献 和 进一步 该 物 : 


Clenshawy 0 WandaTsS 册 - 民 1960、Raneriscap 92209001 


5. 10 ， 切 比 雪夫 系数 的 多 项 式 下 近 


读 过 前 面 两 节 . 我 们 可 能 会 问 性 是否 对 灾 换 后 的 变 是 必 逢 存 畏 和 计算 这 全 河 汇 大 
系数 数组 的 切 比 雪夫 首 近 武 . 难 章 不 能 糙 ee 转 搞 成 原 灾 莽 二 的 实际 区 式 的 系 下 .而 得 全 

下 列 的 多 项 式 通 近 堪 式 呢 3” 
1 之 网 有 


其 将 .可 以 这 了 振 拉 4 为 比 . 帮 们 还 将 旋 莽 放 中 和 人 二手 


(其 由 系数 点 隐 念 了 切 比 宕 大 通 近 ?通常 比 直 接 对 闭 比 夫 和 式 求 俏 需 要 更 多 的 有 光 数 字 
( 昂 振 序 chehey) ,这 是 由 于 切 比 古 夫 多 项 式 立 续 有 -种 很 巧妙 的 消去 性 质 ;: 如 富 人 7) 的 上 项 
条 数 为 2 一 190o) 的 其 它 系 数 献 至 更 大 ;但 经 们 组 合 而 成 的 多 项 式 界 于 上 1 之 间 ， 忆 当 于 
在 大 十 ?或 8 村 .才能 考虑 将 切 比 寄 灾 道 近 式 写成 直 技 多项式 形式 .即使 这 祥 .也 还 必 有 荔 能 容 
许 精度 比 机 器 的 舍 入 极 眼 低 2 个 左右 的 有 效 数 字 

在 式 (5.10. 3) 中 由 Chebtt( 在 愉 当 的 六 值 处 话 当地 截 所) 输出 的 来 求 得 s ,这 并 项 顺 
序 地 凋 用 下 贞 帅 个 函数 : 


荆 Inelude ”nrutil h” 


vod ShepPeCfloat [Boat 下 外， int D) 三 
也 比 雪 失 铝 硕 式 系 娄 : 给 定 条 数 数 的 n 一 1 本 种 序 生成 -全 系数 数组 六 得 定语 


kr] 一 cz2e 方法 是 克 纶 下 甫 挫 信 65.8. :1 只 是 代 竹 地 而 不 是 算 术 地 应 二 。 





int KK, j， 
fioal sv，* dd 


daq 一 vectotK0sn 1): 
for (jj 5jsnnj 十 十 ) dj]=ddq[ 门 一 0.0; 
dL0 一 cn 一 1 : 
for0j 一 n 一 2siv 一 1 ?| 
Jor 让 一 nm 一 有 E 一 1 一 ) 
sv 一 kk]; 
dk 一 20xdLk 1 adlk 
dq[k] 一 sv; 
sy 一 d[0]; 
di 一 aldf 一 ci 
dd[5j=svi 


for 届 一 nn 一 1 之 一 1 一 ) 

di VD 一 二 一 ad 和 
d[0 一 一 ddlLG_ 十 汪 关 ecLOji 
free vecttrtdd ,mn 一 1); 


voi beshbytfloat afioat bfloat dl intny 
攻 项 式 系数 转 关 :给 宗 杀 数组 do. .nm 上 ,本 称 膏 生 纹 系数 数组 本 0 一 条 ,使 得 信人 de 一 全 和 上 
YY 将 关系 用人 358 10 确定 . 印 将 一 1 二 荆 [上 攻 王 响 射 到 .xc 六 亲 上 -数列 攻 洗 四 刘 下 中 - 


if ki; 
Tloat Jacvensl3 


CSL 2.07(b 一 3 

Te 一 cns1; 

fr Ti 一 1 ni 一 一 ) 记 用 上 轩 广 eerst 曲 攻 人 倒 
由 一 在 cs 
fac = 一 cnst: 





CnSL-- 和 《mn 一 hh) 
] 人 一 站 

for 疏 一 mn 人 
c[k 一 cnsty>dk 一 1 






机 昌 用 信 





凤 办 换 ， 各 除法 赴 由 营 斥 数 课 内 容 - 
该 背 , 公 可 以 归 此 估 丰 类 -不 出 发 杰 





5. 11 办 级 数 化 简 


团 比 雪夫 方法 的 比较 特 狐 的 炭 用 例 了 十 需 明 数 化 简 ,这 足 -一 种 很 有 用 人 的 方法 , 委 二 去 有 有 点 开 中 和 和; 
恨 定 用 收 敏 医 级 数 求 因 数值 ,例如 


天 二 计生 三 下 5 和 《二 估 d 


《这 函数 实际 上 就 是 sin w r / Y ,不 过 我 们 还 是 假定 不 知道 ). 读 首 可 能 要 求 在 某 特 宁 区 问 如 Ts 
内 ,多 次 求 此 级 数值 -那么 ,现在 就 更 找到 级 数 中 某 : -项 ,使 得 在 此 项 之 航 的 有 限 级 煞 引 起 的 谨 葡 ( 开 岂 等 
于 忽略 项 的 第 -项 ?是 允许 的 .在 上 而 并 例 中 . 苦 工 《2 第 一 个 水 上 0 的 项 为 27027 此 此 融和 近 
似 等 于 最 后 -一 天 为 es725: 的 有 限 级 数 的 误 益 ， 

注意 . 叫 为 2 的 指数 很 大 ,因此 在 特定 区 问 中 除了 在 r 护 太 的 十 方 外 , 课 差 羡 处 比 10 一 小 得 和 多 ,此 特 
性 便 地 * 负 化 " ;车 我 们 让 区 癌 内 误 益 大 则 等 于 第 “个 忽略 项 在 此 人 民间 端点 处 的 傅 * 那 么 就 可 以 用 ”个 很 短 
的 级 数 噬 代 13 项 级 数 了 . 

分 下 面 儿 步 莽 成， 

1. 将 x 变 欣 划 变 址 y, 如 (5.8.10) 式 ,将 了 区 问 映 射 至 -1 运 > 所 1。 

2. 求 正好 等 于 截 居 级 数 ( 项 数 足 人 够 多 可 满足 精度 ) 的 切 比 村 大 和 式 ( 如 (5. 8.8) 式 ) 的 系数. 

3. 将 切 比 雪夫 级 数 截 成 硕 数 少 的 级 歼 , 用 第 … 个 被 忽略 的 切 比 轨 去 多 项 式 的 系数 作为 估计 误差 , 

4. 转换 成 了 的 多 项 式 。 

5. 必 重 再 转换 回 x。 

当 给 定 顺 级 数 展 开 式 的 系数 ,上 调 各 步 都 可 以 数值 计算 。 第 -一步 正 好 是 程序 peshft( 第 5. 司 的 道 过 程 ， 
幸 里 是 将 y 的 多 项 式 ( 芭 间 [一 1,1]) 映 射 为 的 冤 项 式 ( 区 间 [La,p.) .因为 式 (5. 8, 10) 为 了 和 2 的 线 心 关 
系 式 ,所 以 也 可 将 pcshft 用 于 此 闻 过 程 。 


pcshft (asbydny) 
的 道 过 程 是 (可 以 验证 一 下 ): 


peshft | 二 2 一 一“ ,2 二 一 < 


人 ER 4 二， zz| 


第 一 步 是 求 台 序 chebpe( 将 切 比 赫 天 系数 用 于 多 项 式 系数 ) 的 逆 操 作 .下 面 给 出 的 程序 pecheb 电 是 完 
成 此 过 程 , 应 用 公式 并 


『 起 ， ,上 
于 = 进 |mo +| re 十 | 站 Tec? -…] 人 
上 式 中 最 后 “ 需 依 夫 是 奇效 还 基 侦 数 而 定 ， 
人 让 格 
十 | aer 他 价 数 )， * 刘 | je 全 奇数 ) 5511 汪 


void pcehebkfloat d[ float ec[ -int n) 
程序 rhkebpe 的 道 过 开 ; 给 定 多 项 式 系 数 纪 do..n 一 1 返回 等 估 切 此 雪 大 系数 数 统 "0..n 一 1 


int jjmjp :ks 
feat facypows 


Dow:1.ni 2 的 糙 次 


cn 一 20xcdo 
ior k 一 15kcmnsk 431 
4 6] 人 0 





fgcet 才 kj pows 
jnm -ki 
了 一 1 


for CO=kj > 一 0 = 一 2jm 二 过关 惩 孙 :已 求 其 有 组 语系 数 
当 以 :能 辕 臣 天 的 低 庆 项. 风 文江 全 起 
ci 十 = fars 
fi < 一 (foatjhn3y2cfloacyip); 


bo 一 一 POP 


第 四 步 利 第 五 步 分 淮山 cehehpe 和 pcshft 沱 成 , 司 个 这 程 点 述 为 小 南 形 式 : 


区 detme NFEW .. 
2blDe NMANY ,， 


fleat exawxevds 在 区 谭 Sa 将 系 营 赴 PNYIANT 中 的 等 织 数 


(一 vccterfOv NMANY 一 1); 化 简 成 NEFE 懈 个 名 束 G NT- 
vectort0 NEEW 一 13; 

f 一 Yectorg NMANY 一 1); 

DesiEtff -2 一 hb 一 aba 2 bebo NANY 
Deehebfcye:NMARNY 


过 昌 … 般 守 检 吉 茹 出 当 去 系数 0 NMANY 一 1 以 这 定 NFEM 该 多 小 
conbhpefc: dd NEFEW)， 
pcshft(ab ,d:NETW); 


| 沿 调 题 中 ,第 从 全 尝 直 个 雪 洲 用 赤 系数 算 且 数 最 级 分 别 光 -7 810 一 0 这 时 种 
后 埠 尾 后 多 许诺 六 落 在 1 一 范 搬 之 汪 ( 音 精度 计算 ) ,得 到 的 明光--15 芒 的 多 珊 式 .而 不 起 原来 的 13 出 

届 的 多 项 上 二 可 果 个 19 时 多 项 式 攻 换 市 肖 有 减少 精度 震 工 必 栈 实 有 点 光 中 年 有 -有 什么 蓝 法 
f 直 有 .下定 畏 数 帮 站 时 13 措 多 硕 式 :而 所 伴 入 级 数 等 价 的 其 ,我 们 可 忆 在 感 兴 手 的 这 辕 贞 , 咱 第 : 
多 丰 法 :在 下 够 多 战 上 下风 造 同 比 生 大通 近 虔 来往 横 冰 靖 鉴 产 汪 7 但。 这 站 也 特 得 所 柯 翌 从 阶 锋 下 
苹 后 因 : 国 比 扫 炎 系 数 的 收 笋 过 上 与 笑 级 数 系 争 数 的 政委 速 率 无 关 而 玫 府 辣 开 定 多 下 开通 演示 从 野 
的 需 数 , 垃 数 在 其 感 兴 趣 的 区 域 贞 可 能 和 发 散 级 数 ,但 若 了 网 数 酝 身 平 潭 ,加 证 宛 在 粒 能 优良 的 多 站 二 丰 
这 式 . 可 员 第 5 8 节 的 方法 找 出 ,不 要 由 绕 娄 化 简 法 找 












参 疡 文献 和 进步 污 物 ， 

贞 rfken。(7，1970，47Genalicerdl 有 Ne Jr Rsipa， 2od (New York ，Aeadentic Press1， P， 251。 
门 “ 
L”- 


s. 12 Pade 逼近 


称 为 Pade 逼近 是 一 在 (特定 阶 的 有理 是 数 . 线 罕 级 阁 谍 于 与 莉 定 王 数 的 贡 规 可 能 和 宁国 ， 基 了 汗 
酒 星 为 


人 "一 -一 二 
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电 父 玫 C7)? 为 下 面 避 数 


下 (5 12, 2 
9 
的 Pade 通 记 并 
站 
玉 (D) 一 0) 9 
可 
机 寺 
cl- 后 foDi-i， 大 1 1 


式 (5.12.3) 及 [5. 12. 1 组 成 惠 盖 六 下 1 个 方程 可 以 求 林 基数 wyew 和 襄 ， 有 : 得 到 这 些 姜 科 最 子音 
的 方法 龙 , 将 下 (5 12.17 和 式 (5.12.2)? 等 起 来 , 曲 边 同时 姜 以 式 15. 12.1)? 的 分 二. 租 对 系数 合 交 和 二 天 
次 项 列 成 等 式 。 我 们 考察 财 = 一 的 戏 和 角 有 戎 通 近 的 特 呈 情况 (和 侈 见 第 3. 2 , 则 有 = 和 剩 下 2 光 满 几 


可 
brm 一 一 co 815， :2 3 
四 -1 
惠 
了 once 0 (2 
现 = 


(注意 式 55. 12, 中西 < 1) , 解 方程 时 从 式 565, -2. 5? 解 起 :因为 它 是 -组 对 所 有 本 知 数 玉 的 线性 方 低 .及 管 
广 穆 组 为 托 普 甫 葡 邱 阵 护 帮 形 式 (做 见 式 (2.8.8)) ,但 经 验 表 阴 方 程 通常 表现 为 洪 化 二 式 ,四 下 不 此 用 第 
2.8 节 方法 求解 .而 用 77 分 解法 .此 处 , 州 迷 代 改 进 黎 下 解 是 -个 好 主意 (第 3. 5 节 中 程序 mpprovyey 
-已 总 忆 知 , 则 由 式 (5. 12. 6) 得 到 求解 未 知 数 。 的 明晰 公式 ,就 可 完成 求解 。 

Patle 各 近 式 典 恶 地 用 十 求 某 本 知 基础 图 效 乒 z)。 假 定 可 计算 F) 及 Fr) 在 了 一 0 的 导 诈 归 ， 放 6， 
(0 0) 等 等 ,而 且 可 能 必须 由 繁 玉 的 解析 展开 式 计 算得 到 .当然 ,这 些 只 是 记 宕 组 数 撒 下 式 谨 拓 
而 几 项 这些 项 数 不 必 杰 变 少 , 因 为 也 不 知道 每 纵 数 在 旺 里 (是 否 会 ] 收 康 。 

号 团 比 扫地 着 近 式 (第 5-.8 节 ,或 才 寡 级 数 化 简 ( 第 5. 11 车 ), 这 类 仅 已 知 的 函 灼 信 息 的 方法 相 比 .Pde 
道 近 式 能 给 出 关于 邱 数 贷 新 的 信息 .这 … 点 看 起 来 很 神秘 .下 面 举 鲍 说 时 。 

假定 经 过 从 懈 努力 ,已 求 得 某 本 邢 频 数 Ar) 的 特级 数 展开 式 的 的 前 二 项 ， 


了 175 
吐 8748” ”78732- 


5 当然 不 必 将 系数 写成 精 左 的 有 理 形 式 当成 数值 的 值 就 够 了 。 这 里 好 成 有 理 风 式 是 为 了 提醒 读 省 这些 
系数 是 踪 过 分 析 计 竺 得 到 的 。? 痢 5, 12.1 中 将 式 (5,. 12. 7) 描 给 成 标 有 " 营 级 数 “的 曲线 , 研 以 看 出 了 之 4 时 ， 玉 
要 是 最 大 的 四 次 方 项 支配 者 。 

取 式 55. 12, ?) 中 的 五 人 系数 ,并 输入 给 下 面 的 程 褒 bade 中 运行 . 返 各 一 个 有 理 系 数 ,3 个 值 种 2 个 % 
值 , 它 是 将 彤 = 六 =2 代 入 式 45. 12,1) 中 得 到 。 图 5.12,1 中 斌 有 *Pade" 的 曲线 嫁 出 所 得 到 的 有 理 邱 数 , 江 
站 ;, 图 中 两 条 实 线 静 直 十 并 个 相同 的 原始 系数 亿 导 出 的 。 

为 求 得 结果 ,我们 锻 归 用 Dous ex 机 :结果 告诉 武信 式 55. 12.7) 实 际 上 就 是 上 面 区 数 的 侍 级 区 展开 式 


rzy= 2 7 十 (一 2] (3 12.8) 





8 | 写 2 


Pr) sx 十 羡 > 十 





见 疼 中 给 出 居 稚 线 - 此 冰 数 在 一 一 :处 存在 分 核 点 , 故 圾 数 只 在 “1<x<! 范 围 内 收 笋 .在 辐 5. :2.1 中 天 部 
分 区 各 ,级 数 …… 千 , 央 此 六 第 后 磺 的 截 尾 项 就 没有 意义 了 ,和 醒 是 , 问 磋 五 涡 , 转 换 成 Pade 遂 近 式 后 ,得 到 的 


磺 数 竺 全 少 在 :10 处 仍 开 机 省 好 的 发 下 怀 ， 

为 利 么 ? 有 这 有 其 它 在 项 茹 级 若 柑 阿 的 遇 牙 .从 在 2<reG 范 畏 内 具有 有 宕 全 天 问 的 伍 和 贡 ? 傅 实 右 
Padqe 才 近 蕊 县 在 一 种 其 想 得 刘 的 各 种 可 能 性 中 挑 下 侣 通 洛 数 的 坟 秘 切 能 .Pade 进 江 式 的 缺点 是 姑 上 和 控 
戎 。 具 无 度 曾 过 下 二 生 用 多 向 ,天 省 紫 有 站 好 拉 中 馈 、 的 时 个 浊 站 <- 庆 时 种 存 笋 阅 介 入 基 汗 蕊 的 方法 


汪汪 






TS | 









AD=D+0+Da 


槛 级 娄 !5 项 ) 一 、、 






人) 


上 LU: 


Padk 授 近 (二 个 系 各 ) 








你 级 数 仪 对 <1 玫 吾 . 注 总 Pade 道 近 羽 在 远 授 相 过 琶 姓 收 答 于 入 的 听 民 用 保 站 业 让 必 
图 35, 12.1 五 项 苗 级 数 展 并 式 帮 导出 的 何 一 泪 数 六 ?的 二 项 系 烙 Pade 遂 近 起 


让 晤 程 序 基 < 中 计算 出 程 思 汪 辣 , 穆 序 是 针对 闫 三 六 特殊 情况 ,市 用 铀 出 汪 丰 理 系 数 排放 成 使 于 类 
撒 程 主 ratyaj( 第 5. 3 节 ) 使 用 的 格式 (同样 加 保 让 得 序章 窒 性 .数组 : 攻 入 为 奴 精 度 :) 


aineiudec 之 math.h > 
世 Jjnelude "nruta. hy 
首 dcfine RTG 1.0e3 


void badetdeuhle caof[ jint ny floeat *Tesid) 
纤 定 明 数 的 盐 氏 数 展开 东 前 由 不 系数 cofit. ,2 v ni 解 线 镍 Pade 方 和 ,到 有 辣 出 -所 数 的 村 贡 有 理 两 数 贬 近 式 的 入 


数 , 画 数 尖 (eoffG 十 cof 站 ii eof es eoffn- es 1ecor2xnix) 士 resid 是 剩余 向 莉 的 范 
理 ! 莽 禁 很 小 点 明 为 路 委 呢 好 卜 蔚 .证 总 .为 保持 与 ratyal 寞 符 必 F eof 电站 精度 


Yoid 1ubksb(zLoaf + 5nt 3，ftnt indx，fzlcat bt]); 

vcotd ludcmnptflcatr ea int nn，dnt 站 indx， 节 Loat di) 

Yoid PrpvetT1LOat 8， 了 1032 alud，int D，tbt indx[] ，&1oat br] ， 
人 ioat XD); 

int jj,Kieindxi 

他 1Qat 丰 rTTTD]d EUIE ,站 让 人 ,中 中 QI ， 本 X ,站 了 ,中 ; 


iadzrmivectorg1in]:; 

号 mmatrizgin, 1 za) 

可 LUtDat 工 立 评 [11, 世 ) 
eaY6GCtOI[1L ID) 
yactoz(1l,n)i 
ZeVaCcteF(1L DJ， 


*。164。 





yor 《jz=1;jc=n;ij++》 为 过 解 设 帝 延 阵 
了 [jJ]=x[j]jeceoy [an+j]; 
for 《kalik<=aji+y) 
gr]] [kJ]=cog [j-E+D] 
qlurj] 必 ]wq[j]fx] ; 


1】 
ludcmpkqlu,n,indx ,kd); 由 已 妨 分解 和 回 代 法 求解 
lubkabtqlunvindx x); 
IT=BIG; 
Toxr (区 局 用 达 代 优化 很 重要 ， 因 为 Padk 方 法 有 病态 
FrOlLdmtri 
Tor 〈jel;j<=nij++) z[ 订 =<x[ 订 ; 
DRProyefq,9lun,jindxz, 了,x)， 
XoF (FFe0,0,js1ijc<a;j++) 计算 和 余 重 
TFT +m SQ9R(zfij]-r[]y; 
if (rr > frold) breaki 关 不 能 再 优化 ， 退 出 
】} 
中 工时 dd 二 《rz); 
zcor 人 { :计算 其 它 系 数 
for (tuarcog [k] ,j=1;j<=i;j++y um -= fjJ]wcof [k-J]; 
了 [k] rsu; 
输出 时 果 


Eor 《jailijc=n;j++y T 
cot[j]n7[j]; 
coz[j+a] = -xfrj]; 
】》 
Treeg_yectorfz:T,n); 
ree_veGctor( 节 ,1)); 
Tree-Yector[Xtn); 
Tree_-RatYLY(91IU TD, LED); 
Tree_matItE(9lon kio); 
free-lvector(tipdz,T,ay; 
、1】 
Ralston， 六 ，and 如 iT，H.S，1960，Maipatuticol jdethnats Jor DiRilel (CompuetrrrtNew York， Wiley)，p- 
] 寺 ， 
Coyr, 六. ，amnd Wuytack，TL，1987，Nontiaeur Jethnds 站 Marerical datatysfs 【由 msterdant，North- 
Holland?，Chapter 2， 
CTavea-Morris，P.RR。19709，in Padte Aproxiptutiona ed it ppticariopr，Lecture Nores in Mathemarics ， 


vol，?65， 工 . Wuytack，ed。，(EHerlin， Spbringer-Verlag)，[11 


5. 13 有 理 切 比 亏 夫 通 近 


在 第 5.8 节 和 第 5. 10 节 中 我 们 已 经 划 道 如 何 对 给 定 区 间 assz>s<e 内 的 给 定 函 数 PCr?, 求 出 共 较 好 的 多 
项 式 过 近 式 ,本 季 中 我 们 对 此 工作 作 一 般 化 推广 ,寻找 有 理 盟 数 的 迁 近 起 .这 样 敬 的 友 困 是 ,对 有 些 区 间 和 
有 些 郑 数 , 从 最 优 有 理 国 数 喜 近 式 能 比 具 丰 相 同系 数 个 数 的 扩 优 多 项 式 逼 近 式 得 烈 更 尖 的 情 :必须 祝 衔 
的 十 , 求 有 理 国 数 盘 近 式 不 如 求 多 项 式 通 近 求 来 得 简单 直接 .正如 我 们 已 知 的 * 册 切 比 雪 失 多 项 武 求 多 项 
式 的 逼近 式 很 方便 。 

设 有 埋 函 数 必 z) 的 分 子 为 由 次 ,分 开 为 有 次 , 则 有 


名 十 圳 站 十 ,十 志 em 


民 Cr) 一 -sz) (Sr 乓 恐 (5.18.1) 


1 一 gz 十 ... 一 2 
要 求 的 栗 知 尿 是 六 jp 和 四， 4 期 共存 户 十 古 1 个 昌明 (z)? 表 未 民 人 rz 与 了 (rzr) 之 益 , 旧 上 开拓 
共 绝 对 值 的 最 天 和信 


rr 三 愉 (r) 一 7(r) > 三 Zet | 六 工 )， 1， ) 


“167。 


同 起 的 最 优 解 就 是 汰 焉 当头 但 妆 打 全 得 关 用 未 :好 然 关 在 莫 求 茧 放 的 下 蜂 帮 党。 作 和 和合 大 未 覃 区 党 
媚 阿 合适 地 道 近 它 呢 ? 

首 时 可耻 直面 基 素 和 定理 屿 得 “: 些 括 晨 : 答 改 人 1 正 下 玉 和 于 站. 分 三 中 没 月 相关 的 区 项 直下 
得 得 - 报 小 的 训 4 的 值 基 玲 的 ;在 选择 此 最 优优 时 在 二 生生 在 由 十 业 2 个 展 全 :大 水 必 ， 江 
符 必 父 替 变化 区 定理 中 省 去 二 诈 多 根 讶 。 意 确 措 述 几 Ralson .由 示 可 德 , 有 理 苑 数 情 渴 导 最 水 区 六 乓 于 
训 磋 贡 相 似 , 在 第 5, 8 节 中 已 看 到 , 拓 有 交 二 1 全 芭比 汕 去 系数 基站 阶 遂 和 近 式 的 误 蓄 环 二 本 地 出 第 个 入 忽 
略 敬 切 比 第 类 项 构成 , 则 人 5 它 本 身 丰 aa 一 2 休 幅 虐 弄 等 的 披 点 ,让 符 号 企 桂 变化 ,时 此 ,这 日 有 利 冬 说 汐 
个 数 m 一 & 一 1 与 多 项 式 系 数 的 个 数 >1: 所 起 胸 作 用 是 柑 阿 的 . 

rz) 有 冰 十 十 2 个 极 值 的 另 一 严 解 释 方 法 起 ,可 使 得 民 Cr 御 作 意 六 十 8 十 1 个 点 天 处 模 确 把 计生 
yn 对 蕊 (5 13.1? 乘 以 它 的 分 母 得 到 方 各 


站 一 站 人 ri 5L 一 和 二 二 全) 








本 
下 


这 上 逢 -组 末 知 重 疡 和 和 了 的 加 1 个 线性 声称 组 ,可 出 慰 逢 方法 :如 7 分解 ) 消 镭 。 弟 选 定 所 有 人 柜 呈 蔷 
消 在 re 和 中 , 则 本 二 个 选 定 的 e 和 阅 之 问 在 个 权利 点 * 计 加 上 上 不 站 这 阅 的 中 的 概 什 点 ,总 片 二 R 
士 2 个 极 值 点 .对 > 的 任 台 极 值 并 不 总 是 在 刘 同 幅度 .定理 中 表明 渤 定 一 组 持 别 的 ,幅度 可 能 和 上 .等 
忆 最 小 仁 >， 

荐 不 用 在 :一 二 处 屋 zi 种 六 Le 机 罕 广 法 ,也 订 凡 通过 解 下 而 线 星 方程 使 到 全 晤 交 0 等 二 全 汪 发 
证 侦 


让 中 [Pre 0 四 四 rn 
人 
1 二 1.2、.,.， 几 一 火 一 ] 
末 实 下 , 营 交 选 定 为 最 水 解 的 槐 清点 5 划 震 点) 册 广 是 的 方程 为 
思 的 2 | 0 = 天 稚 直 之 1 一 和 yi W -一 0 
【1 
二 1:2，. ， .所 一 中 一 人 


续 中 士 符 革 随 灾 苇 根 傅 总 而 安 蒜 变 比 .注意 式 113 2) 在 站 -32 个 成 病 训 力 雇 共 量 式 人 1 
入 站 业 1 个 征 意 点 处 潢 趾 , 为 什么 会 这 伴 论 ? 原 畏 基 世 和 1 上 的， 症 赴 林 划 及 线 林 宕 数 其 有 和 
一 2 个 ,方程 组 有 点 非 线 性 (对 而 症 ) ,但 几 第 九 斑 介 癌 的 右 法 还 是 目 忒 解 的 ， 

这 境 , 只 柳 给 定 最 优 有 理 菌 莪 的 极点 位 凌 , 即 可 解 得 簿 监 及 委 天 人 篇 状 . 归 外 有 -- 条 可 导出 的 村 为 
Remes 算法 纺 的 定理 : 芝 江 论 如 何 通过 选 代 直 程 虹 兽 调 这 些 位 顷 . 例 如 ,下 曾 是 Kemes 第 二 算法 的 支 述 : 他 
微 有 些 简 化?:(D 求 有 普 二 十 2 个 极点 闻 的 初始 有 埋 国 数 5 情 基 才 : 问 )(02) 解 成 465.15,5) 求 得 新 的 右 音 条 
数 攻 r.(C3 优 算得 到 的 RE) 找 串 它 的 实际 缀 点 (与 猜测 这 不 - 竺 ):(C 肝 具有 相同 符号 最 接 坦 的 朗 记 二 皮 
全 稍 测 值 .5) 溃 到 第 一 步 并 达 代 直 坚 收 化 .在 复 多 假定 菜 件 上 , 比 太 法 驳 敏 。Ralson  - 详 风 站 论 细 生生 起 
如 人 霜 找 的 初始 集 。 

记 今 为 止 ,我 们 的 讨论 仍然 停 曾 在 纸 上 上 ,现在 让 我 们 脱离 常 战 .信用 很 漂亮 的 Remes 莫 法 .此 章法 吕 人治 
的 时 种 选 代 ( 非 线性 集 (5. 13.5) 的 > 和 新 得 到 的 集 ) 要 求 过 上 入 刻 , 而 且 对 上 退化 稍 况 要 类 贷 半 牛 笠 
几 逻 和 辑 设计 ,我 们 其 企 愿 意 惠 加 不 台 常 理 , 我 们 杯 终 采用 寻找 刚好 最 优 且 偏差 机 同 的 题 近 臣 . 呈 夏利 记 的 
努力 相 比 基 否 值得 ,除非 有 很 少 的 : 些 人 ,他 们 的 工作 就 是 鉴 找到 最 佳 解 ,并 将 它 置 入 编辑 跨 和 芯片 由 二， 

当 我 人 使 用 有 理 吨 阁 通 近 时 ,日 标明 党 非 芝 实际: 在 某 些 内 小 循 兵 中 极其 多 次 地 芭 复 求 摧 数 少 ni 所 
休 其 到 加 快 类 秆 速 度 。 我 们 有 几乎 从 来 不 要 求 峙 确 刘 机 加 精度 的 各 后 让。 轧 设 我 们 使 用 的 通 近 并 ,二 以 其 
有 由 十 类 十 2 个 极点 , 栅 益 为 对 于 2.Reries 算法 作 方 其 础 的 定理 保证 : 芭 优 解 的 仙 点 三 因子 半 范 轩 庆 中 
上 上 商 烧 点 下 区 :就 会 引起 下 而 斩 加 于 天 ,在 伴 孝 村 等 这 样 ,我 格 党 不 二 入 道 近 式 实际 主 全 步 大 秀 优 能 汉 
公有 绽 丰 的 荡 左上 店 

这 呈 兰 是 能 了 .和 加 二 二 找 村 示 不 天 桥 号 二 入 直列 关 过 国庆 号 下 寻 庆 天 即 关 直 证 直人 生 这 

卫生 









分 解 得 旺 前 起 年 2 三 丰 笨 向 服 小 配方 朋 5 岂 第 宇 5 贡 和 13.41 节 ). 接 下 面 半 程 泻 行 : 首先 , 解 ( 共 小 -条 
厅 ) 或 05.15. 20 不 二 水 区 于 一 和 了] 个 币值 : 硒 是 束 的 理 常 大 的 值 . 它 的 室 间 分 布 跟 高 茶 扯 比 作 天 多 
项 式 定点 分 布 棋 从 .这 就 是 开 0e) 的 裙 知 站 让 -入 二 步 ,对 站 果 的 往 禾 到 成 才 , 求 平均 绝对 俩 短 . 陈 为 天 做 与 
将 r 回 宕 ,并 对 矢 点 mw 的 偏 盖 量 的 符 马 分 别 选 定 放 二 ,以 求解 (让 次 在 拔 小 于 演 方 襄 义 请 丰 各 1 13. 5。 
第 一步 , 重 各 第 “ 睛 几 次 ， 

我 们 的 算法 隐 售 有 一些 Remes 的 正统 筑 法 :求解 记 程 不 王将 信 率 菜 有 有 堆 ,而 是 辕 减 :此 丝 性 的 优 。 
然 向 狼 们 没有 了 眼 踪 实际 疏 点 ,出 闷 尾 绿 次 求解 线 体 方 裕 . 偿 人 一个 方法 评 , 解 加 入 最 小 二 接 大 下 县， 中 权 
的 选择 是 合 最 大 妨 差 退 速 减 小 的 ， 

“ 击 是 一 段 朗 型 算法 的 样 序 . 注 意 ,只 在 柯 始 填写 帮会 时 才 大 用 -次 衣 数 各 ,很 容易 将 代 例 眉 改 
以 全 在 程序 外 而 二 写 形 -此 全 坐 评 xs 不 必 测 好 就 是 我 们 出 的 那些 ,虽然 ,在 最 党 艇 的 每 个 极 上 之 闻 玉 本 选 
得 机 够 多 夺 , 会 使 拟 合 质 最 受 玛 及 明 .注意 , 答 出 有 理 系数 的 属 式 适合 于 第 3 站 程 序 ratyal 的 通州 . 
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完 和 民 
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Power 一 wt[i 
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上 
} 
dsvdebhtb (usnpt :ncof :wyv); 这 异体 分 解 
dsvbksbku:wyynplyncof,bbico 妊 一 1); 在 奇 异 或 扎 难 的 情况 下 .这 里 修 止 奇 异 值 woce 站 ,用 准 全 
换 员 小 值 , 计 意 ,dsvbksb 函数 中 使 用 单位 偏 移 数组 ,所 以 零 依 移 数 绢 cofi 传 入 和 应 减 1 


devniax 一 stm =- 人 .Di 





for 和 -15j< 一 nprsj 二 十) 刀 久 离 值 下 表 , 儿 正 数 休 
ce[j 一 ratval(xsFj],coff.mntkk) [jj， 
wt[ 订 一 fabsCee[j]1 角 数 值 突出 县 久 离 的 点 


sum 一 二 wf[ 让 ， 
让 (wtL 门 > devmax) devmax 一 wc[i 


一 sutmymhtf 特 e 更 新 平均 绝对 值 偏 高 
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free dvecror(xs +]1.mnpf)3 

free dveerorfwr ,1,DhpT)i 

free dvectorfw lncof); 
free_-dntatrixtv lneof 1,ncof): 
free .dnaatrixtu1.npt lsncof)# 
free dvecter(fs ,1.pnpt)+ 

free dvectorCeey ,npt)i 

free. dvectorfceif ,0sncof 1); 
free dvector [bb ,1,.nbt); 


移 5.13.1 描述 了 在 区 了 各 (0:x)? 内 求 当 六 宇 8 一 4 寺 , 国 数 .Fr 一 cosrA1-=rz) 的 有 理 数 拟 合 , 田 积 序 


ratlsq 潜 代 前 卫 次 的 不 同情 说 ,可 看 出 经 过 第 “次 夺 代 ,结果 已 经 益 不 多 和 最 优 解 一 样 好 , 选 代 收 伺 秆 不 亿 
如 图 彤 显 孙 的 那样 :其实 收 伍 最 好 的 是 第 一 次 达 代 {( 偏 产 最 小 )。 程 这 ratlsq 白 然 返回 选 伐 最 好 的 拒 果 ,年 
非 茂 是 最 后 … 次 ,这 代 超 过 王 人 次 并 没有 多 大 好 处 。 
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哄 三 大 三 村 

所 站 三 cos(xX] 克 一 
人 < 与 六 







对 于 低 京 试验 问题 , 实 曲线 显示 程序 ratlsg 五 次 庆 续 选 代 的 痛 益 ”(.4 -计算 法 不 能 精 了 收 训 到 浇 
小 量 大 解 5 点 明 线 表示 ) ,个 中 ` 第 -次 迷 代 月 ,这 差 外 只 是 精度 的 最 澳 人 效 位 的 很 部 分 ， 


羡 5. 15. 1 


s$,. 14 ” 线 积 分 求 函 数值 


编写 计算 机 程序 时 ,选择 的 算法 并 非 必须 是 效率 最 贞 ,或 实现 最 漂亮 ,或 者 是 执行 束 度 
最 块 的 。 实 际 上 .可 能 选择 的 是 易于 实 坝 . 通 用 而 卫 便 于 检测 的 算法 ， 
有 时 可 能 需 些 求 几 次 或 几 王 次 其 个 特殊 数 值 , 也 许 是 复 变量 的 复数 函 妇 , 郑 获 可 月 在 
很 多 不 同 参数 或 渐 近 区 域 , 或 者 两 种 情况 都 存在 .用 通常 的 方法 (级 数 , 连 分 式 , 有 理 蚁 数 盟 
近 , 递 推 关 系 式 等 等 ) 设 计 出 的 程序 是 ,一 系列 条 件 测试 以 及 对 不 同情 况 分 支 的 大 剑 烩 : 程 订 
执行 时 可 能 效率 很 高 ,但 从 … 评 始 起 通常 不 是 最 简便 下 接 的 方法 。 
-种 极其 通用 但 又 不 同 的 方法 是 .对 一 个 郑 数 定义 的 微分 方程 直接 积分 一 一 下 妹 个 指 
定 函 数值 从 头 开 始 积分 ”必要 时 ,在 复 平 面 内 滑 一 条 路 径 积分 。 初 看 起 来 ,这 伴 散 似 平 址 
用 金 夸 拍 蚊 子 , 大 材 小 用 。 但 现在 情况 是 你 已 有 了 .一 块 金 苇 ,而 一 只 蚊子 正好 就 畏 在 下 面 .你 
要 做 的 只 要 松 王 放 掉 金 砖 而 己 。 
作为 一 个 特例 ,考察 复 超 几何 范 数 :Fapcisz) ,根据 超 儿 何 级 数 的 解 术 连续 性 定义 ， 
了 下 上 六 时 2(a 十 1) 冯 ( 由 一 ]) 寻 
和 | ftC 十 ]) 2 


ee | 1 人 (一 1 二 1) 十 了 一 1 ， 
站 ce 十 1 ]) 几 








级 数 仅 在 单 国信 这 | 内 才 收 伍 5 帮 癌 2 促 我 们 感 兴 却 的 不 只 秋 这 个 区 成 。 


超 几何 电 救 :天 ; 是 起 儿 何 芯 分 方程 , 写 
2z 人 一 写 下 一 ab 一 [eta 一 少 十 1 2 
的 … 个 解 4 存 原点 处 此 解 是 规则 的 ). 上 式 中 搬 呈 表示 dax .可 以 看 出 方程 在 > 一 0,1 和 六 处 
有 规则 奇异 点 。 因 为 所 求解 在 *=0 处 规则 .这 样 1 和 近 成 为 分 支点 。 若 相合 。 尼 让 为 单 值 到 
数 ， 则 必须 求 一 个 联系 两 个 点 的 切断 分 支 , 通 常 切 断 位 置 佳 正 实 般 从 1 到 = 之 问 , 虽 然 某 些 罚 
的 场合 下 ,可 能 需要 另外 的 处 理 方法 .。 

我 们 的 “ 金 硫 ? 是 ,包括 几 个 在 后 面 第 16 章 里 将 详细 介 痕 的 常 微分 方程 组 于 始 积 分 的 程 
序 集 .现在 只 需 一 个 高 级 “ 黑 盒子 ”程序 ,从 用 独立 变革 值 表示 的 初始 条 件 开始 积分 , 自 到 此 
变量 用 另 一 值 表 示 的 终止 条 件 为 止 .半自动 调整 宫 分 步 长 以 保证 结果 精度 .此 栏 序 为 
odleint ,程序 中 击 复杂 的 Balisch-Stoer 方法 计算 步 长 。 

假发 已 知 某 点 = 处 的 函数 下 及 其 导数 天 的 值 ,现在 需求 通 就 屎 在 复 平面 的 某 个 共 它 
点 处 的 值 .连接 两 点 的 直线 用 参数 表示 为 





efKS) 一 上" 十 SC2i &0 (5 14. 31) 
其 中 xs 为 实 参 数 ,微分 方程 (5. 14. 2) 可 改写 为 两 个 -和 阶 方 程 
人 一 (si 一 2 下 
: (5.14.4) 
上 生 - -1 二 | 全 放 二 攻 汪 直 放 S| 
二 | 2(1 一 Z). 起 


从 一 0 到 一 ! 的 积分 .到 利 严 被 视 为 两 个 独立 的 复 密 量 。 撤 号 表示 ddx 这 一 点 可 以 忽略 ， 
因为 它 可 以 呈现 为 式 (5. 14. 人 中 第 一 个 方程 的 结果 .此 外 , 式 (5. 14.4; 的 实 部 和 虚 部 决定 了 
凹 个 具有 和 独立 变量 * 的 实 微分 方程 。 式 中 右边 的 复数 运算 可 视 为 耦合 这 四 个 部 分 的 种 简 
便 写 法 .程序 odeint 输入 正 是 根据 这 种 思想 ,因为 它 既 不 知道 复姓 终 数 .也 不 知道 复 乔 立 变 
量 。 

剩 下 的 任务 是 确定 从 哪里 开始 , 滑 复 平 雷 内 的 哪 条 路 径 , 达 到 任 一 点 = 此 时 ,; 还 机 考虑 
函数 奇 点 以 及 采用 的 分 支 切 断 点 .图 5. 14. 1 表示 了 我 们 采 玫 的 策略 : 当 lz| 扩 计时 , 式 (5. 14， 
1) 的 级 数 一 般 收 敏 很 快 ,此 时 直接 使 用 它 就 可 以 了 .其它 情 况 下 , 则 沿 从 一 二 人 01 
或 (0, 士 172? 开 始 的 直线 进行 积分 , 选 前 一 个 起 点 分 别 对 应 二 0<Retzj<<1 及 Rekz)<<0 的 情 
沈 。 选 后 一 个 起 点 则 用 于 Re(z) 盖 1, 在 切断 分 支点 的 上 或 下 ;从 实 轴 开始 的 原因 是 为 了 避免 
太 过 于 香 近 z= 1 的 奇 点 ( 见 图 15.4. 1)。 分 支 切断 点 的 位 置 是 根据 ,所 来 朋 的 策略 在 ReCz)> 
1 时 从 不 越过 实 轴 进行 积分 ,这 一 事实 来 确定 的 。 

此 算法 的 实现 由 第 6. 12 节 中 的 程序 hypgeo 给 出 。 

基于 于 面 描述 过 程 的 实施 有 各 种 衍生 形式 ， 都 易于 编程 实现 。 若 成 功 调用 的 = 是 
近 (e ,be 值 相同 ), 则 在 每 次 调用 时 ,可 存储 状态 向 量 (PP ) 及 > 的 相应 值 ， 然后 在 二 次 
调用 时 ,用 这 些 值 作为 起 始 值 .增加 的 积分 可 能 只 需 一 至 两 步 ,应 当 4 各 免 无 意 中 磊 过 分 支 切 
断 线 进行 积分 ;函数 值 可 能 是 “正确 的 ", 但 不 是 所 求 的 。 

或 者 ,也 许 想 沿 越过 实 轴 Re z>1 的 折线 路 径 作 积分 ,把 它 作 为 种 移动 分 支 切 断 点 的 
方法 .例如 , 若 想 从 《0.172) 到 〈372.172) 积分 :然后 ,从 这 旦 到 任 伍 Re z>1 的 地 方 - 

To = 的 符号 正 负 均 可 .( 例 刻 : 才 机 用 达 代 方法 求 -- 个 岗 数 的 根 ,而 不 上 在 分 文 点 处 评 不 加 
路 径 的 附近 值 求 积分 . 匣 正 足 这 样 . 在 求 展 时 参 发 现 不 连续 是 数 什 ,不 屿 不 收 总 则 
， 172 





点 示 外 玫 公 疯 数 育 只 上 、 苍 大雪 世人 人 必 此 长 束 线 是 其 辐 妆 ， 计 5 这 由 级 数 收 总 很 让) 沁 
其 它 点 记 革 积分 路 径 的 复 平 面 。 


在 复 平 而 上 ,通过 对 微分 方程 积分 环 求 讽 数 值 的 方法 ,也 可 川 于 其 它 特 丈 函 铬 , 例 如, 复 
由 塞 尔 了 数 ,区 博 CAirg) 国 数 , 库 劳 婚 润 (Coulomb 波形 苇 数 以 及 韦伯 (Weber) 示 数 .这 些 
部 是 合流 超 几 和 何 国 数 的 特例 ,其 微分 方程 与 上 面 使 用 过 的 类 似 ( 和 网 参考 书 [1 中 第 13.5 节 的 
特例 嘉 )。 合 流 超 儿 何 函 数 在 有 限 : 值 处 设 有 坷 异 点 ,这 样 积分 就 容易 些 . 亿 是 ,无 穷 远 处 的 
本 质 奇异 性 ,意味 着 沿 某 些 路 径 对 某 些 参数 ,积分 上 基 有 很 强 的 振荡 性 或 指数 意 减 性 ,这样 积 
分 就 更 转 难 了 ,所 以 有 时 候 只 有 分 不 同情 况 讨 论 ( 或 试探 )。 


参考 文献 和 诽 -' 步 读物 : 
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第 六 章 “ 特殊 函数 


6.0 引言 


特殊 函数 并 没有 什么 特 跌 的 地 方 ,只 证 因为 某 些 权 威 人 十 或 教科 书 的 作者 这 么 称呼 的 . 
特殊 上 数 又 称 为 高 等 超越 函数 ( 比 什么 东西 商 ?) ,或 你 数 学 物理 获 数 (但 它们 也 经 常 出 规 在 
苹 它 领域 呆 ), 或 称 满足 某 种 频繁 发 生 的 二 阶 微分 方程 的 泊 数 (但 并 不 是 所 有 和 纤 半 冰 数 者 如 
此 ): 束 证 多 入 简单 地 称 为 "有 用 上 明 数 "而 不 作 深 究 。 太 关内 容 弃 包括 哪些 困 数 ,这 的 涌 只 汉 、 
个 党 波 牡 的 门 题 ， 

一 些 商 品 化 了 的 很 好 的 软 手 包 , 刘 NAG 或 3MSL 就 包含 诈 多 特殊 区 数 的 程序 -这 种 得 
序 只 对 那些 不 秀 知 汪 其 凤 部 运行 情况 的 用 卢 是 很 有 用 的 ,通常 这 种 黑 荐 二 面 状态 优 天 :程序 
中 分 续 很 多 .以 调 出 参数 的 不 恢 , 所 使 用 方法 也 不 完全 不 同 .黑箱 蓄 够 5 而且 也 学 该 能 汐 :F 
细 地 控制 精度 .以 使 在 谷 科 条 件 状况 下 达到 所 上 要求 的 精度 .我 们 给 出 的 示例 关公 太 计 窑 这 
些 . 一 则 因为 我 们 横 前 述 第 二 查 的 方法 ,一 则 内 为 我 们 起 主 污 者 能 理解 , 乓 其 人 世 程 厅 的 同 部 
运行 情况 .一 些 释 序 中 含有 精度 参数 .可 按 要 求 讶 置 其 大 小 ,其 它 : 些 程 序 中 ( 艺 其 是 多 弛 式 
拟 侣 叶 ), 只 给 出 某 种 一 般 可 行 (通常 6 位 左右 有 效 数 宁 ) 的 精度 ,我 们 不 能 保 让 程 衬 时 厢 尼 完 
关 的 ,只 硕 电 读者 在 程序 中 骨 到 问题 时 ,能 根据 我 们 提供 的 材料 ,诊断 并 能 禾 止 加 题 . 

秋 之, 本章 的 特殊 函数 子 称 序 串 直接 使 用 ”我们 也 是 :让 在 用 一 一 但 我 们 也 送 章 出 
娘 能 了 解 其 内 部 工作 情况 ， 


6.1 了 函数 ,g 函 数 ,阶乘 ,二 项 式 系数 


了 巩 数 (Guoame 本 数 ?定义 为 积分 形式 


Fn -| ee 个 (6.1. 8) 
< 若 为 整数 酚 数 就 是 熟知 的 阶 科 , 亿 必须 偏 亿 1, 即 
1 一 下 十) 《hp. 1. 23》 
FT 函数 满足 递 排 关系 式 
ECGx 一 1 := <ECs) 《6.3 


好人 参数 > 上 ,或 者 更 舱 地 在 复 半 羊 面 Retz) 关 1 两 数 已 姑 , 则 可 由 反射 公式 上告 到 > 
< 或 R 民 ctz)<19 


开 充 志 





TY 人 
注意 P(>) 在 == 0 及 所 有 有 负 整数 值 处 有 极点 - 


计算 遇 数 Fe) 苞 蜂 俏 方 法 有 多 种 -但 帮 不 如 示 半 科 斯 (Lanczos》 导 出 的 过 也 公式 表册 
条 症 利 洲 ， 攻 只 对 了 牛 数 窍 金 丰 收 , 依 平 基于 中 让 有 虑 这 中 不 打算 去 导出 近 要 会 式 、 红 深 


“1 


岂 其 结果 对 某 - “ 谴 定 的 了 和 AN 及 一 组 系 蚁 1 Cr 册 数 由 下 式 治 出 


Ts -一 人 二 Ye 





1 和 二 二 本 十 上 《> 
汉 于 [< 二 下 十 本 FT 二 [ 志 


CR. 1 3 
亲 以 看 出 上 式 员 路 类 似 于 斯 特 林 (Stirling) 近 似 公 式 , 只 是 考察 到 左 半 复 平 而 的 : 些 - 
阶 极 点 有 作 了 : 些 修 正 ,常数 避 很 显然 应 等 于 1., 误 区 项 用 E 表示. 驹 7Y=5N 0 及 让 < 
俏 , 澡 益 项 :sl| 过 210”。 行 印象 了 玛 ? 若 还 没有 ,读者 … 定 会 对 下 面 事实 留 下 许 刻 导 象 汐 ; 
即 ( 在 相同 参数 下 ) 公 趟 46.1.5) 划 < 的 上 下 限 在 Re(z)2>0 的 复 半 平 面 的 任何 地 方 疝 拌 适用 
十 复工 国 数 。 
计算 lnPcz)? 比 PCz) 更 好 :因为 后 者 在 许多 计算 机 泾 点 表示 中 ,对 一 般 > 值 也 从 发 生 溢 
出 ,通常 凡 计 算 忆 用 到 了 郴 数 处 ,一 般 总 足 用 下 (xz 去 除 以 区 个 很 大 的 数 ,这样 泊 得 结果 就 
是 普通 大 小 的 值 了 .这 种 运算 可 转化 为 对 数 减 法 运算 .条 了 式 (68.1.5) ,我 们 只 顷 曾 出 2 次 
对 数 函 数 , 和 25 次 频 右 的 算术 运算 ,立即 可 得 到 工 国 数 对 数值 .这 并 不 比 我 们 想像 的 蒜 些 
函数 ,如 近 或 sinCz) 的 计算 机 难 多 少 。 


攻 includqe <tnath.h 人 > 


flnat gsmnimintfloaf xx) 当 xx0 时 返回 值 InfTtcc。 
1 
qouble xsyvtmb set: 为 部 泛 算 将 用 双 精 度 , 若 五 吕 数 字 的 精确 度 已 足 臂 好 .那么 区 精度 加 略 


Stttie double cof 6 一 78 18005172947136， 86.50532032941677， 
24.01409824083091 ,一 1,.231739572155D155， 
0 1208650973866]79e 2, 一 小 5395839384955e 51 

in ji 

Y 一 X= XXi 

fr 一 和 | 中. 

tmly 一 《x 十 0. logCtmp2s 

ef 一 1.000000D001900153 

for 一 Op 雪 一 :十 十 1 ser 二 cofL 门 上 -一 ys 

refurn -一 tmb 一 log(2, 5066282746310005 * Seryx)i 


怎样 编写 求 阶乘 油 数 xz 的 程序 呢 ?: - 般 情 况 下 ,小 整数 去 调用 阶乘 函数 ( 数 审 大 后 总 是 
滋 出 ); 多 数 应 用 情况 下 .同一 个 整数 值 需 多 次 调用 .和 苦 每 次 需要 阶乘 都 调用 exp(gammtntn 
十 1.0)) ,这样 就 太 浪 费 册 时 了 .最 好 返 术 求 源 , 韭 必要 时 不 要 调用 gammln。 


去 incjurle <marh.h 全 
flost factrjltint ny) 接 溢 点 鉴 碧 局 中 


float &amimlrtCfloat XX)1; 

void mterrorfrhar erroT .YexX[_  )i 

STatic tnt ntop 一 3: 

tatic 有 re 5L33 一 和 .01 全 1 人 1 仅 棒 登 填 去 
int 3 


订 fn mrerrori egrse 于 etortll Du route [aetrl ”3 
放 2 Pern exbtgammlcr5 一 ] no 此 鉴 下 于 二 交 疏 理 : 束 实 于 和 黎 计 笨 也 二 生生 人 大作 “ 驴 


"。 17) 


会 六 出 - 习 并 申 - 试 
wiie 《Dion 21 填 表 厅 到 这 慎 的 他 
一 Tb 一 一 了 
a ULohb 一 由 门 < atobi 


Terurn an 


允 值 较 小 时 ,faetrl 结果 将 是 精 现 的 ,内 为 在 任何 计算 机 上 , 浮 点 数 乘 以 一 个 小 异 数 的 站 
各 是 精确 的 . 若 要 用 阶 滋 对 数 , 则 这 种 精 克 性 就 不 能 保 让 了 . 俱 对 于 二 项 式 系数 ,必须 巾 放 
地 求 得 荣 滋 ,因为 在 一 项 式 系 数 本 身 溢 出 以 前 ,二 项 式 中 的 阶乘 早 就 已 溢 出 了 。 
二 项 式 系数 定义 为 


和 二 此 过 .用 (| .6 


王 ncludqe <miath,hD> 


foar bice inr ny int k) 。 技 浮 点 数 浅 提 一 项 式 系数 | 7 ] 


fleat factlngint ro， 


rclurn 和 sorcn- sexpfactnfay .factntk) 一 factlntn 一 K))， nk 较 小 时 ,locr 丽 数 主队 人 和合 人 误 益 


使 用 
flost [factlatint n) 返 思 JIn(n4y 


了 Joatf gammlntfjloat xx)3 
void hrerror(char error .texl[L_); 
static float a[1921]: 静 坊 数 红 有 笑 动 林 始 化 为 零 


Cn < 和》 rerrort Negativye factorial in routine factlnw )# 

in 扫 == 1) return 0. 9; 

ii tn <= 100) return an am] :ao]=gammln(n 十 1.0)); 在 表 内 
e:se yeturn gnmtimlnfn 十 上 .人 )3 超出 老 内 


世 
1 


求解 问题 时 常 需 用 到 一 项 式 系数 ， 比较 好 的 方法 是 利用 递 推 公 代 ,例如 








| 一 =- 十 1 | 1 人 二 | 
六 上 下 一 点 十 外 一 】， 
《6 了) 
| 加 和 
1 一 
知 时 放下 整 值 变 基 的 组 人 台 困 数 ,最 后 我 们 讨论 -- 下 Beta 是 数 (B 丽 数 ， 
BGzyty》 … 了 Coszy》 一 靶 -2 1 《1.8 
由 
开 (str ) 
忆 1 一 一 ~ 一 f 
与 工 函 数 的 关系 为 Bze) 一 下 人 Ti (6.3.9) 
因此 


"170， 


和 1be]uec 全 rr- ji 
floal hostfloat 2 font ww1 皮 冲 癌 所 数 应 3:s 


iloatc earmnlnrtloal xx) 2 
Fetarn cxpfgammlnizy 一 &tmnlniw -zarnrn orz 一 w) 4 


黎 划 广 献 和 进 “ 步 读物 


1Laneczos、(，1964 ， 人 人 4 辣 Grain Aerorsrs RE， 蕙 .vol]、1.、pb。8H-- 9 上， 


6.2 不 完全 上 了 函数 .误差 函数 .概率 函数 .累积 泊 松 函数 


外 殉 爹 了 拓 数 定义 为 








YI TO : 
(ai 三 一 -三 rr2 1 想 :和 ] 7 
忆 (a:) Ci 天 5 |， Pt 16. 2.1) 
已 有 极 腿 值 
Pa0y =0 和 Pa 一 1 《6 2 了 


大 完全 了 消 数 二 (ay 门 是 单调 的 , 当 < 大 二 1 左右 时 ,在 大约 以 ea 一 1 为 中 心音 为 wa 
的 区 戚 内 ,从 “接近 堆 " 上 升 列 “接近 1?( 见 图 6. 2. 1) 。 
fa 的 互补 形式 也 统称 为 不 完全 工 明 数 ， 


ay) 二 


证 一 _ 风 2 1 上 人 
fetal 三 一 了 (asr) 一 Fo = | te Ca (8.2.31 








TO T 








不 完全 下 示 数 P(a.3) 





Lilihrlinilna 


人 
站 二 6 ] 10 ]2 14 





友和 .21 四 个 > 人 情 的 厅 完 企 Carma 孙 数 五 (ar) 


其 极 眼 依 为 
Qte:0) 一 1 和 和 ta 一 0 46. 2. 40 
上 岂 旭 taryYtezr 利 Pieyz) 是 标准 记录 - 南 志 如 入 (ezr) 是 本 节 专 用 记 呈 
0 如 下 级 数 展 于 式 


人 工 (Ce ) 
人 


不 必得 次 对 重新 计算 -次 Ta 一 1 十 站 ,最 好 利用 式 06.1.3) 及 以 前 的 系数 ， 
Tie ,rz) 的 连 分 式 展 开 为 


光 0 


二 二 让- 站 一 人 


Ta) 二 二 2 光 人 2 的 (0 
用 式 65. 2- 5) 偶 项 部 分 计算 较 好 、 它 收 伍 恢 一 们 人 多 第 5. 2 节 ) 
[ez ) 一 Re 5 有 7 





1 站 于 一 和 一 于 | 

可 以 发 现 式 (8. 2.5)? 当 浆 小 于 c 十 1 时 收效 很 快 ,而 式 (6.2.6) 或 (6.2.7)?。 当 了 大 于 ce 
时 收获 很 快 .每 种 情况 下 , 均 须 到 几 倍 va 的 项 数 后 才 收 葡 . 在 zx 一 “附近 ,不 完全 工 丽 数 让 
化 最 剧 列 .因此 , 式 C6. 2. 5) 及 式 (6. 2,7) 一 起 可 对 任何 数 = 及 x 求 天 数 值 - 附 吉 的 收益 就 是 
我 们 和 朋 也 不 必 通 过 随 个 几乎 相 等 的 数 相 减 来 求 谈 附近 的 着 数值 ,返回 已 (es 条 利 全 (ee 的 
高 阶 径 序 是 


flosr 和 mmjy [float a，flaaf x) 扑 如 不 完全 下 图 数 天 Ca 人 


void 二 开 人 oa *RanumcT tloa: sa， Feat xy float * gln)， 
yoid Ksett[oat 关 RaFiser， 了 oat a，Hloat X. Hoc gm); 
void nrerrorfchar error_texi[C 了) 

floal gamtscr armmcT gtns 


秆 (六 0 | 一 0 nrerrertrInvalig argunmcnts in rourine gatmyrdh hy: 
本 (x < Sa 十 1.0)1: 出 级 数 走 球 

Ser{ 萄 吕 HmSeT YX 记名 Im 

TetaIn gamseri 


2 else 1 
Ref( 芝 区 nacia yx 攻 人 ni 肥 互 相形 式 
retuxn ] .人 一 gammefi 下 连 分 数 起 下 


[loat aasnatodfloat a，flcat x) 捞 叫 六 完全 了 省 数 忆 (er 二 [一 由 co) 


void gcftflonr >* garmme、 flont a， 和 Gaf x。 flont <gln)i 
void gsertiloat * gamseT， jloat a，tloatr x，flnoal * glm)， 
void nrerrerfehar erroT -text[j)， 

float Bamser Rat Blrti 


可 (xs 1a 二 站》 nrerrorg Davidid acaguolemnts ID TOUline Rammq”)3 


让 (X < (9 一 1 人 >》 司 级 数 到 下 
Se 7 
return 站、 如 ganlser1 取 下 从 及 计 
ese 于 这 生 妓 基 志 


RISEneT ax 区 焉 1074 
FetUITD Su 村; 


里 
一 3 
郝 

和 


级 数 和 连 分 式 都 将 变量 gln 置 为 jnF(e), 训 因 是 使 用 户 方 使 地 将 上面 丙 个 程序 各 忆 成 
有 求 Yayr 和 Tazr) ,而 不 只 是 求 Pear 和 印 Lasz) (区 见 式 (6, 2. 了) 刑 [(6. 2. 3 
实现 式 (6.2.5) 及 (6.2.7) 的 函数 gser .Bef 为 
区 include <matrh.h 全 


妆 define IITMAX 100 
划 deiine 王 PS 3.0e 一 了 


void gser(float * gamser , 划 oat a, jloat xy，fcat x 名 lm) 
咱 级 虎 水 忒 如 mser 具 不 学 全 工 邱 数 销 -并 反问 . 司 时 由 Rn 返 困 ]nPte)- 


{ 
1ca< gama1ln(Cf1Dat IE) 1 
vaild prerIor(Char @rTOT_twxt[])i 
int Di 
1Lcat 3uD del api 
* 帮 InegamalD(a&) ; 
好 kz 位 0.0) 工 
18 (zz < 0,0) nraTTOT["X 1933 了 Than D iD youcina gser") 1; 
中 区 oog 坟 FwO .0O3 
着 4 
] alae 工 
外 P 下 ; 
delestUn=1 .OAai 
for (mn=1iD<=ITTHALID++) 工 
十 二 者 提 ii 
del wm xyapi 
3 + 一 de]i 
1 【zabsKdel) “ 了 abE(sua)*EPS) 1 
环 各 利加 扣 帮 让 几 朋 训 醒 地 帮工 站 【 一 工 十 给 申 】 避 避 { 瑟 ) 《中 区 1 了) 
returai ， 
】 
) 
DYyarrorfra 七 0 1az 区 人，TTHA 蕊 总 68&z1 in routinge 区 aar"》j 
”returDi 
了 
了 


共 inelude <math.h 全 


车 dfine ITMAX 100 遇 估 允许 迁 代 次 交 
计 define EPS 3. Je 一 ? 相对 精度 
世 define FPMIN 1.0e 一 30 员 小 可 去 示 的 洋 点 数 的 邻 记 数 


volqd geECiloatr *# gathntncft、ioat ny 旨 oat xy floxt ”glny》 

让 诗人 玫 衣 天 形式 Rammef 尿 不 宇 全 Cermmton 癌 鉴 值 首 运 辐 , 友 时 出 glm 运 思 Fa7， 
{ 

了 1 .DRt 区 3 由 ( 节 1 人 和 XXX) 了 

Yold TeITOF(char @TTOI_tgzt[])， 

3mt 垃 

?lcat apib,c,d,del,bi 


区 1LDmEadD 1I{E) 
bz+i,O-a; 这 些 设置 为 了 用 ,i = 0 的 由 正 Lentz 方 法 
Ce1, OAFPNI8; (85.2} 来 计算 连 分 式 
del1.0Ab; " 
bmdj 
for {ie1ii<<ITMAXIi++) { 迭代 到 收 总 
aD 至 ii 如 ) 7 
b + 2.0; 


dean4d+bi 
if 〔《fabg(d) < FPMINW) dr=gPMIN; 


Ceb+anrci 

主 《tabs[c) < FpMTN)》 c=PFPKIN; 

sl1.Dra; 

delnd4ci 

h wm deli 

这 〔fabs[dal-1.0) < EFS) break; 
if 《ii > ITMAX) nrerrorf"a 七 oo 1arge，]TMAX too Bal1l in gcf")i 
二 区 aIIDC 站 PK 一 工 +8] OZE(I 【区 lnD)Jehi 将 因子 放 在 向 面 


] 


6.2.1 误差 函数 


误差 芽 数 及 上 世 补 形 式 是 不 完全 工 圾 数 和 将 料 例 . 丰 可由 而 寺 过 程 方 估 泪 摸 谷 :共生 这 


忒 为 
arft7l 一 一 | r 
0 
及 
ntfeftzy 三 1 er = 了 -| 1 
Y 回 -.， 
它们 和 如 下 极限 值 和 对 栎 性 版: 
erfg) 六 erf( 一 1 crfFC  r) Erff) 
ee 一 | erfef) 一 Derfet- 0 :2 -erfctr) 


与 个 完全 了 甬 数 的 关系 


af 人》 一- 三 2 (7 


erfcr[m) = Qt 计 1 


为 了 避免 与 扎 语 内 库 中 二 数 名 计 突 ,所 以 我 们 的 程序 名 中 多 加 进 一 个 六。 


jleat erffcfleat xy》 返回 误差 省 枚 erfuz) 值 


faat ganamptiloat a， 于 oat < 


FTCtUIR SS 00? 了 一 gamTiD1O. 5 < X) :gamC4 5 XXX)Y 
float erFr(fEoafr x) 返 加 笠 补 慢 旺 也 数 etfx 看 

float gatnmaprIlozt fioat X)1 

fioat garnlgCfloay zz，float X)1 


FETUID X 宝 0. 人 四 民 十 gmITPCU 5 人 二) RDIDGCD 5 SS 民 )4 


《有 2 
{ ui， 外 1 
[6s 王 小 骆 
【6. 2 1]1 


[全 汪 人 


如 果 三 总 ee 人 本 企业 下 的 网 尝 5 关 之 处 . 司 凋 用 gammp 中 
Rammgq 后 ,FT(0.5) 一 ”也 就 不 必 计 算 了 . 首 填 , 沿 要 考虑 下 诺 :: 段 得 序 , 它 是 基于 -对 汐 奴 


丧 式 猜 ; 测 的 攻守 2 LI e 


-1386 。 





芽 influde 拓 mmarh ph 


Tiosl erfeeIloat x) 返回 工 补 误差 国 数 erfc(z) ,其 相对 误 关 处 处 小 于 1 2X1C 


float + 7sansi 

z 一 则 bstXy; 

一 1 有 | 05 

ans 一 [# expf 一 zz 一 1.26]51223 十 tx [1. 90002358 上 tw 0. 37409195 十 Fa 《0. 0967843 呈 -… 
tx 【一 和 18628808 十 HU v 《0.27886867 二 tx (一 1.13520398 十 t* 《1.48851587 十 
tw{ 一 六 82215223 下 tx 0 17087277)))7))7)25 


Teturn X 六 一 0.D ?Rns : 2.0…ansi 
还 有 - 些 不 完全 工 函数 的 特例 , 蕊 们 带 有 两 个 变量 .。 


6.2.2 暴 积 泊 松 (Possion ) 摄 率 函 数 


7z(<) 才 示 累 积 泊 松 概率 函数 ,其 中 z 为 正 数 , 整 数 * 之 1。 若 期 望 均 信 为 >, 则 此 函数 
定义 为 泊 松 随机 事件 发 生 次 数 介 于 0 到 上 - 1( 包 括 0 和 上 -1 在 内 ) 的 概率 .其 极限 值 为 


Pr(c1) 一 6 Pue(<eooe) 一 1 《6 2 1 二 》 
国 不 完全 工 酌 数 简单 关系 为 
Paefc) 一 站 (zr) 一 Sammsgq( 皮 .z) 《6.2, 15) 


6. 2.3 X: 概率 函数 


P(X | 几 定 义 为 正确 模型 下 观察 c 护 平方 值 小 于 值 刀 的 概率 (我 们 将 在 第 十 五 章 讨论 这 
一 肯 数 的 用 处 ? :其 互补 驴 ( 芒 | 为 正确 模型 下 观察 chi 平方 值 随机 超过 友 值 的 概率 .两 式 中 
"为 整数 ,表示 自由 度数 。 晤 数 有 极限 值 





忆 (0lD =0 Prfeclo)y 一】 《6,. 2. 16) 
奶 (0 =1 息 (eo| 风 二 0 《6. 2.17》 

与 不 完全 下 函数 有 如 下 关系 ; 
有 (15 一 P| 半 ,六 ] = gammp| 壮 | {6. 2.18) 
鲜 ( 科 ji =-Q 二 , 己 | -gammp| 二 , 疙 | 《6.2.19) 

6.3 指数 积分 

指数 积分 钓 标准 定义 为 : 
ECxz) 一 区 和 0， 012，..， (6. 3.1) 

于 面 用 积分 的 主 值 定 义 的 函数 
Eidz) 开 和 dt 一 | < 性 xn0 (6. 3. 23 








“1181 


也 称 为 指数 积分 。 注 意 , 由 于 解析 连续 性 ,Ei( 一 z) 等 于 一 无 (>) 。 
再 数 后,(zr) 是 不 完全 下 函数 的 特例 ， 
环 af) 一 TBT -一 次 《ES 


这 样 可 用 类 似 的 方法 求 其 值 .整理 (6, 2. 6) 式 写成 连 分 过 形 武 ， 下 xz20 者 收效: 


王 nf() 一 已 | ET 《0 3 42) 
它 的 偶 项 形式 收 合 更 快 : 
已 .(z) = e- 人 全 in 和 出 (6. 3.5) 





了 十 天 一 六 十 交 十 2 一 工 十 见于 4 一 | 
仅 当 > 区 1 时 , 连 分 式 形式 才 很 快 收 伍 ,这 时 十 有 实用 价值 .对 0<x 过 1, 则 用 级 数 表 示 








ECz) = 亿 罗 和 -nz 十 和 oo5] 一 人 
参量 思 (n) 为 双 了 两 数 ,对 整数 必 量 定义 为 ; 四 
更 (1) 一 一 7， 更 (ne) 一 一 7 (6.s.7) 
其 中 Y=0.5772156649…, 即 欧 拉 (Euler) 常 数 . 按 z 的 圭 次 递增 顺序 东 式 (6,. 3. 6) 的 值 ; 
和 于] 


(6. 3.8) 
2 一 1 时 则 省 去 第 一 个 方 括号 ,这 种 方法 的 优点 是 ,2 很 人 时 级 数 项 在 到 达 含 凿 Cn 项 之 前 就 
开始 收敛 .这 样 就 只 须 对 较 小 的 呈 如 20< ”二 40 找 一 个 算法 求 格 (z) 虽然 查找 表 方 法 效 
率 稍 高 些 ,但 我 们 仍 用 工 (6. 3. 7) 
Amos 汪 详细 讨论 了 求 式 (6, 3. 8) 时 截 尾 误差 的 影响 ,并 旦 给 出 一 个 相当 精巧 的 嫩 束 条 
件 , 但 我 们 发 现 , 若 仅仅 在 加 的 最 后 一 项 小 于 允许 值 时 停止 ,效果 也 不 错 。 
两 种 特殊 情况 需 分 别处 理 ， 
Exz) 一 生 - 
四 (6.3.9) 
瑟 。(0) -二 ， xz 1 
下 面 给 出 的 程序 效 数 expint, 它 允许 以 精度 EPS 快速 计算 妃 ,(z),EPS 达到 机 器 浮 点 
数 允 许 的 字 长 范围 内 。 若 仍 想 更 精确 的 结果 , 则 只 能 存 侈 拉 常 数 后 而 再 增添 几 位 数字 了 . 
Wreheht :给 出 了 前 328 位 数字 。 


基 jnclnde <math.h> 


共 deline MAXIT ]00 多 许 乔 大 近代 数 

六 deiine EUTER 0.5772156649 欧 挖 常数 ? 

存 define FEFPMIN 1.Ce 一 20 琅 近 有 最小 所 下 示 的 闻 点 数 

藉 define EPS 1.0e 一 了 期 望 的 相 玉 误差 不 小 丕 机 器 精度 


fieat cxpintfint D，float x) 求 指数 外 分 本 fx) 


人 2 


vodd nrarror(char BITCGT_tezrt[]》; 
nt 车, inmL; 
float abcd,del,fact,b,Ppsi,anBi 


了 用] 一 1 
if tp<0ilxra:01I (xz<0.0 比 《nm | | ae=1))) 
Drerror("bad arKuneantE in axpint"》3 


如 15 避 苹 
11 (n =<= 0) angmgxp(-K)AXi 特殊 情况 
@l13e@ { 
if [xz mm 站 .0) ansel.0/amii 另 -- 种 特殊 情况 
919e T 
if (z > 1.0) 1《 Lentz 算 法 (85.2) 
bmX+D 
Ced.DOAFPNMINXN ; 
d=1.07b; 
ma; 
了 ok 【imTi1L<mMAXIT;1++)》 
本 洒 一 并 水 [Dm 工 十 让) 
b +s 人 2.0i; 
OAThed+b)》 i 分 母 址 能 为 等 
oa 世 二 各 了 C 
友 丰 1 一 ed; 
了 
44 [fabsfdel-1.0) < EPS) 1{ 
了 RD 名 志和 人 RPRC -天 ) 
ZetUID DB 1 
小 
mrarTor('"Continued ZITactioma fsiled io 9XPintn7 
] else { 求 级 数值 
ang 一 《prilir0 ? 1.07nal : -1ogfx)-EILER); 设置 前 几 项 
Yacte1 .Dj 
Tor 【ie313tc=MNAXITii+y) 
act mm -Xii 
1 《1 1 aol) del = -facty[i-nml)i 
| 
Pail ae -EULER; 计算 my) 
半 or 【ite1L;1ii<senml;iii++) psi + 工 .Oriii 
de efact*{ 一 Log(z)+PEiI) 
】 
ans + 917 
ii (zaba[tdel》 < fab5s(an35)#EPS)》 ratutn Rn i 
】 
TSYTOFC 二 Fi 和 SB 于 和 1 Ted 二 PiDt”》 
} 
】 
】 
zektuUID anD3i 


求 百 值 较 好 的 方法 是 ,z 比较 小 时 用 每 级 数 .而 zx 较 大 时 用 渐 近 级 数 , 知 级 数 为 ， 
Eitz) =Y 一 nr+i 十 寺 十. (6. 3. :0) 


! 2。21 
其 中 ?7 为 欧 拉 常 数 。 浙 近 级 数 是 ， 


ex | ] 二 
丙 人 7 二 06. 3, 11) 


”1]33， 


全 ineDtdle <mafh.h 人 > 

芝 dsfine EULEKR 人 57721566 其 拉 党 狐 了 
革 definae MAAXIT 100 双 半 的 荫 二 关 
计 define FFPYIN TOe 一 30 接 交 最 小 串 表 去 鸭 浮 点 衣 

计 define EPS 6 De 一 相对 庆 益 , 皮 者 不 x--9.3725 处 .Fi 接近 零 的 绝对 误 盖 








floar siffloat x) 2 时 计算 指数 息 分 EiCey 
{ 

void mrerrortchar rror_taxt[]); 

int ki; 共 

loat Tact,PreV :StE taormi 


证 (Se 8.0) nrerTor("8ad argumaent im eairy》; 
让 《z《“ FPIN) retura log(x)+EULER ; 特 珠 情况， 防止 因 为 下 党 导致 收 姓 判断 夫 角 
if (xz =,-10&g(EPS)) 【《 
tmnO.0; 用 署 级 数 
Yactml -Qi 
YoOT 【=1iK<=RAXIT;K++) 1 
fact em XAK; 
蕊 BTE 一 了 acCtyAXi; 
SUD + 七 9T 了 ; 
”if (ter “ EPSeaum》 break; 
} 
if 《k > MAXIT) nrerror{nSeriesg ?ailed in ein"): 
TeturD 3uzn+1og(r)+EULER; 
二 else 用 肖 近 级 数 
sm0O-0) 从 第 “项 开始 


trime1 .7 
far 〔《k=-1;K<=NAXKTT;k++) 攻 
PreretaIm 
targ 本 王 K 工 ; 
if (ternm < PPS) break; 
办 为 遇 后 一 项 大 于 lvterm 本 身 约 等 于 FEPS 
放 【tgTD 《 Piey) tm + 土 BFTRi 还 收效 ， 加 六 新 的 口 项 
全 1ae 万 
Sm = pre ， 发 散 ， 玻 去 前 一 项 并 退出 
breaki 
】 
】 
TetitrR Xp(I]nf1.D+SUD)AX Y 
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6.4 不 完全 B 函 数 . 学 生 分 布 .F 分 布 .累积 二 项 式 分 布 


址 完全 也 丽 数 (beta 范 数 ) 定 义 为 


呈 -(ap) 1 | 


(o8 二 RD (6.4.1) 


了 (了 ) = 


存 限定 值 为 
、184 


了 了 ta 
及 旭 陈 关于 
Je 【六 .证 六 


和 蔡 环 0 泛 太 于 | 喷 关 (es 人 在 约 ac) 处 从 该 近 零 快速 增长 到 接 1 .图 $ 4. 1 新 放下 


中 对 居 翅 ) 辽 路 数 曲 线 ， 












je vir - 


0.5.5-0) 


~ 
古人 和 
过 3 大 = 


不 帘 全 的 B 函数 Tc 有 


1005) 


= 





LEELALELALSLTLULTLi 
这 | 


具 


注意 5052493 和 (站 5 其 订 贡 背 组 反 竺 站 称 5 蔡 记 忒 人 33。 
画 和 .1 卫 对 不 同人 a, 放 的 不 完全 只 蝴 数 已 (ay 有 


不 完全 忆 范 数 级 数 展开 式 为 


一 人 -AN Be 十 1 二 和 二 吾 汉 
了 es6) 一 0 人 寺 之 BT 太守 区 和 《8 44) 





此 式 淡 育 证 明 , 惧 它 > 在 数值 计算 过 程 中 巧 护 有 用 的 .不 直 , 能 够 注意 这 用 起 (5.1. 8 和 (6 1. 
3) ,对 每 个 ” 伟 由 前 五 果 和 一 些 乘 法 后 ,就 可 求 得 系数 中 的 及 驮 数 惜 )。 


连 分 式 表 示 已 证 明 是 更 为 有 用 ， 


如 
we 
1 
1 
到 
ER 


2 条 4 二 本 冯 
六 Ca ee) = WwW | 的 


下 
二 tl 二 2ootua 二 po 十 了) 


于 汪汪 


了 (直人 人 
E _ 到 [646 
dx (十 2 一 1)fa 一 27) 0 





连 分 式 当 zx<ta 十 UZta 十 8 十 2 时 收敛 很 快 , 最 坏 的 情况 是 OU Cnartay :次 迁 代 。 当 小 
人 (十 1) 二 2 一 2 时 ,可 利用 式 56.1.3? 的 对 称 关 系 获得 等 价 的 计算 , 那 时 连 分 式 也 快速 
收 葡 .内 此 有 


4inslude <math.h- > 


float betaiffleat af moat bb， ftoat x) 捞 叮 不 演 企 也 看 数 赴 La.b) 


1 


1 


站 ioat betacfffloat s。， foaf h、fioat x) 
foat gatnmln(flcat xx)， 

vGla nrerror(ehar arTrOT. textL j)+ 
iloat bt 


这 人 < 拉 001x>>1.0)nrerrorf*Dad Xinroulirte betai)y 


fx 二 一 00 ，x 一 一 1.0)br 一 站 0; 
else 连 分 式 前 的 因子 
bt=:exbfgarnmlnokta 二 b)- 训 amrmln(a) 一 gammtn(b) 一 a < leg (xy +byrlogtl.0 一 x)74 
让 人 (x < (a 一 1.0)7(8 一 b 十 2.0)) 直接 使 用 过 分 式 
ITeturn bt# betacft(Kasb, xy7zal 
else 千 对 称 变换 以 后 他 用 连 分 式 


retarn 1 ,0 一 bt * beracffb ,al1,0 一 x)xb; 


上 而 稳 序 用 连 分 式 求 值 


##include < math,h> 

共 define MAXIT 100 

六 define PS 3.0e 一 7 

并 dejine FPMIN 1.0e 一 30 


floatl betacJCfloat av fioat b, iloar xy》 用 修正 lentz 法 对 不 完全 日 函数 的 连 分 式 求 值 .被 betal 调用 


void nrerror(Char error_text[]); 
it 口 ,D2; 
Loat aa:cid,deal,h,qabqaon,oapbi 


Qabmaybi 这 些 口 用 在 (6.1.6; 式 系 娄 的 因子 中 
可 本 了 P 二 和 二 了 0; 
Qqaubma -1.0; 
Cal.Oi Lentz 瞩 法 的 第 : . 步 
geti,DO-qab+xrqapi 
iT (〔fabafa) 《 FPHIN) dz=FPHINi 
qdnl1.07di 
De=d 
for (me=1;imcmMAXIT;m++) 并 
卫 2v23; 
忆 丰 = 用人 ~ 台 )* 工 ATf (9am+ 本 2)9( 了 Ha2]) ; 
d=1.0raaed; 递 推 式 的 -- 步 (但 数 步 ) 
if 【fabs(d) < FPHIN) d=FPMITN; 
Ce 下 1.O+8aAci 
if 【fabg[c) < FPMIN) CaFPMIN3 
des1.07di; 
卫 mm 车 *ci 
Ba = -~〔(a+ 下 )*(qab+ 四 ) 中 和 A[ (入 +a2) 9(qap+m2)) ; 
d=1.04aaedi 党 
if 〔fzabs(d) < Fp 和 IJ》 deFPNIR， 人 人 
Cn1L.O+aanci 


“186。 


zz 《zabstc》“ FPMIN) ce=FPMIN; 

ge1.0/di 

del=ayc' 

b *= deli 

+ 【tabafdel-t.0) < EP3) breaki 完了 吗 


计 【中 > JIAXTT)》 nrerIorf"a Or b +oo bjg， or MAXIJT too small in betac 了 "yi 
了 QT 卫 ; 


】 


”6.4.1 学 生 分 布 概率 函数 


学 生 分 布 用 4 台风 训 未 , 它 在 统计 学 中 很 有 蛋 , 特 别 是 用 于 恰 验 两 个 观察 分 布 关 和 否 有 
相同 均值 .Ai 为 有 ”> 重 自由 度 的 概率 , 若 两 均值 相等 , 则 某 统计 量 上 ( 必 于 度量 均值 益 ) 小 
于 观测 值 。( 详 见 第 十 四 章 ) .如 果 400.99, 则 两 均值 相差 很 大 ,换言之 ,1 就 
很 小 ,说 明 均 值 相 等 的 假设 不 成 立 。 


焉 数 的 数学 定义 为 
人 2) 上 
4dtlo) = 1 | i++ 开 | “人 (6. 4.7] 
0 
3 
限定 值 为 
4 人 0 =0 4 一 1 (6.4.8)》 
4 人 to 与 不 完全 也 函数 六 (a: 本 关系 为 
芝 1 
CD 1 一 7 23 了 | (6. 生 9) 


这 样 ,可 上 用 式 (6. 4. 9) 及 上 述 程序 Betai 来 求 本 数 值 。 
6.4.2 忆 分 布 概率 函数 


此 上 是 数 用 地 统计 中 检验 两 个 观察 样本 是 否 有 同样 的 方 益 .统计 量 王 定义 为 ,第 .个 样 
本 的 观测 离 差 与 第 二 个 样本 的 观测 离 盖 之 比 , 它 不 难 计算 得 到 。( 详 见 第 十 四 章 ). 徊 第 一 个 
样本 分 布 方 痊 小 于 第 二 个 伴 本 分 布 方差 , 则 与 开 一 样 大 小 的 概率 , 记 为 和 @( 严 |: .) ,其 中 
wa 分 别 为 第 一 个 和 第 一 个 样本 的 自由 度数 .换言之 ,Q 人 Fa yo) 是 表示 假设 "第 -个 方 着 
小 于 第 二 个 方差 ?被 否决 的 显著 性 水 平 .其 数 人 很 小 ,表明 被 否决 的 可 能 糙 很 大 ,和 而 其 反 过 来 
的 含义 就 是 ,假设 “第 一 个 方差 大 于 等 于 第 二 个 方差 "的 置信 和 度 很 大 。 

和 Q 人 la2) 有 限定 值 





BO 一 1 Qtec|0n 5) 一 0 (6.4. 10) 
与 不 完全 B 晰 数 (ao 六 关系 (7 (ay 由 前 面 betai 得 到 )， 
QCPly so) 一 | 《6. 4, :17? 


4 4.3 票 积 二 项 式 概率 分 布 


假 受 每 次 弃 验 中 革 一 事件 发 生 概率 为 总则 ?次 试验 中 它 发 生 次 数 超过 上 (或 等 片 有 的 
袜 率 三 称 为 累积 二 项 式 概率 ,与 不 完全 总 函数 关系 如 下 : 
。 187 ， 


1 
人 | 六 (1 一 站 《NT 
一 二 


当 六 大 于 12 左 右 时 :最 好 用 betai 永世 (4 12) 中 的 和 ,而 林 用 计算 戎 开 系数 捏 让 接 寺 但， 
《 汉 研 小 十 12 时 ,两 种 方法 均 品 ) 


6.5 整数 阶 贝 塞 尔 函 数 


本 节 及 二 一 节 将 给 二 计算 各 种 整数 阶 丰 罕 尔 明 数 及 一 些 实 出 算法 :第 6.? 节 装 论 个 起 | 瑚 
情 完 . 实 际 上 计算 分 数 阶 和 情况 的 程序 对 整数 阶 情况 也 能 很 好 法 行 .不 过 ,本 节 计 算 整 起 呈 
中 数 要 更 简单 快速 .唯一 的 木 足 必 :受到 以 有 理 道 近 为 基础 的 精度 的 限制 . 双 精 虚 情 虹 了 和 
好 币 第 6.7 节 中 分 数 阶 图 数 ， 

由 寄 尔 上 因数 对 任何 实数 ， , 山 级 数 表 示 十 义 为 








昌 


1 人 【 写 1 
省 四 5 一 RrRt 和 1) ] ) 
比 线 数 邓 任何 都 收 化 ,但 * 六 1 时, 计算 上 不 足 很 有 由 的 ， 
当 * 不 是 整数 时 : 贝 寨 尔 图 数 由 下 式 给 出 
Fn -Jeose 四 了 -ee 8 


Sru 元 ) 
> 趋 近 特 数 时 ,二 式 右边 不 近 十 止 傅 限定 值 六 0 但 在 实用 村 没有 多 大 用处 、 
芦 蛮 量 zx<r ,定性 地 看 .上 所 机 类 贝 塞 尔 抬 数 表 未 简单 的 医 英 妆 , 对 07r<z 的 测 近 彤 
式 为 


本 这 
TU 7z| 六 .公民 
Yo(7) 一 “ ln(r) [| 
开 
人 
让 


此 :c>7 :定性 地 看 ,上 面 西 类 山寨 尔 珊 数 象 正 入 或 余 尽 波 ,其 幅度 技 z 衰减 .7 汪 > 的 削 


] 


2 | 1 
7 一 志 cos| 轴 二 二 和 1 





| 
全 
了 | 二 sin| 交 )， 三 x| 
在 zx 的 过 渡 区 间 内 ,页 塞 尔 数 的 典型 帆 度 按 
人 


人 > 
3 IC3 ) 


【3 





有 2 


区 2 5 到 
3 3 ) 


从 这 六 了 
庆 97748 


+ 188、 


> 生 大 肛 , 上 式 凑 近 式 有 效 - 辐 让 .5 1 夯 机 了 每 类 帆 窄 泵 了 国 数 前 二 个 网 尺 


| | 5 WE 


贝 寨 尔 函 刺 





网 6. 35. 1 .74zr) 到 Jr retr) 到 Yicr) 的 由 宕 尔 果 娄 


册 塞 朱 是 数 满足 递 推 关 系 


2 国 
人 (有 .二 .的 ) 
二 
及 
2 
一 (7) 一 了 nx) (6.5 了 7》 


如 第 5.5 节 已 指出 , 当 r<m 时 , 沿 增 加 的 方向 只 有 式 (6.5.7) 的 第 二 部 分 是 稳定 的 .。 
沿 ” 增 加 的 方 问 式 (6. 5. 6) 是 不 稳定 的 ,其 原因 旦 它 与 式 (6. 5.7)? 的 递 推 和 关系. 一样: 由 舍 入 误 
差 引 入 的 少量 “污染 "了 的 Y* 很 快 就 使 求 .mm 遇 到 彩 烦 , 见 式 46.5.3)。 

计算 整数 阶 贝 塞 尔 函 数 的 实用 策略 分 成 两 小 :第 -- 步 ,如 何 计 算 六 及 YY .第 - 
步 , 如 和 何 使 用 稳定 递 推 关 系 找 到 其 它 了 和 了 了。 首先 论述 第 一 步 的 任务 ， 

对 落 在 0 至 任 音 值 ( 取 为 8) 之 间 的 :用 的 有 理 函 数 通 近 uCz) 和 不 (z)。 同 样 地 .用 有 
理 函 数 去 逼近 了 u(z) 和 Y,(z? 的 “正则 部 分 ,此 部 分 定义 为 


了 一 达 Jay)ln(z) 此 2 一 关 | 了 CDlnce) 去 | (5.8) 
当 8<-z<<eo 时 ,用 通 近 式 人 一 0,1) 





FE < ， 
Jr) = 二 [局 ||costx) 一 en| sincx)] 《6.5.9) 
站 = 去 | 呈 jsin 隔 一 名 | 赤 jeos( 光 到 (6. .0 


其 中 


肯 


0< 要 < 去 1 时 ,PaeyPiQ,,Q: 是 其 变量 的 多 项 式 。7 为 偶 多 项 起,@ 为 癌 风 项 式 。 
哈 特 … 对 不 同 的 精度 要 求 ,给 出 了 不 同 有 理 函 数 和 多 项 式 的 系数 .直接 实现 为 


include 过 matt hh 


站 bsv ioat x) 对 什 意 实数 x 抬 品 所 守 处 数 疙 tx 
{ 
和 1ogt ax 之 ; 
double xzr,y;ans,ansl,ans2; 以 妈 和 畏 上 度 果 积 多 项 式 
jf ((ax=gabs(x)) < 3.0) 1 直接 有 风电 数 遇 近 
Xe 


ansla57568490574.0+yw [~13362690354.0+yq [065661619640.7 
+y*[-11214424.18+ywf77392.33017+ygf-164.9052456)7)71 
an52=67568490411 .0+yr (1029532985.0+yr (393494680.718 
+ywf59272.64853+y4(267 .8532712+y4 主 . 吕 )) 7) 1 
an5=anst/3ang2i 
》 el1se { 执 合 函数 :6.5.91 式 
2=8.07axi 
yzyzi 
XXmax-0.785398164; 
anet=l.0r7n(-0O,:098628627e-2+yT(0.2734510407B-4 
+y#(- 人 .2073370639Se-5yw0.20936687211e-5))) 35 
ans2 = -0.1562499995e-1+yy [0.14304338765e-3 
+yef( 0.691114765198-5+yw(O.7621095161e-6 
-ye*0.9349351528-7))7) 
DSS 可 It (0 .6366:97727ar)efcos(X)sarSs 荆 -ZaSiDK 工 ) waRS 人 ) ; 
】 


IatuUIIT ansi 


jneluce 所 tmath, 上 盖 


刘 Dnf nessyCffloat xX) 对 正 孝 xx 返回 大 蹇 尔 消 数 了 af) 


{ 
float basgkf0Off1oat X) 
下 -9at 工 ; 
double xx,yyans,angl.ans2; 按 双 精度 累积 多 项 沐 
if tr 8.0) 《 th .1 8?y 式 丰 理 辆 数 逼 近 
了 =X* 工 


ansl mr -2957821389 .Ory*(T7062834065 .04ywt-512359803 .6 
+y* (10879881.29+yw(-86327 .92757+yx228.4622733)))) ; 

ang2=40076544269 .0+y*(T45249964.8+yw(7199466 ,438 
+y (47447 ,25470+yw (226.1030244+ys1.0))))》5 

ansas (angl/ans2)40 .636619772*+bessj0txjw1og(0) 

}el1se { 拟 合 此 数 (6.5 1027 式 

Z=Ba.DOAXi 

=ZeZi 

FFx-0.785398164 1 

anglal .0+7+(-0-1098628827e-~2+7r(0.27345104076-4 
+ykL-0 -2073370639e-5+y*0.20938872119-6)))1; 

ans2 = -0.1562499995e-1+yz(0,14304887656-3 
+yw(-Q.69111476518-5+yr(0.7521095151e-6 
+y9(-0.9349451526-7)777》 

amngsgqrt( 丫 .6366197727xye[s1z(X) 中 an31+ZyCOSCXS)? 本 8DBZ) 


*190， 


放 证 地 二 衬 革 一 x (二 


了 
XetuIn aus; 
上 


Beiude -mach, > 





1 2 


实 蝎 并 区 回 丰 寨 尔 局 数 俏 , 辣 fx) 


float ax,Z1; 

double xry,ans,ansl .ans2; 按 丸 精 变 果 积 多 基 疏 

if 〔【(ax=fabs(x)) < 8-0) 《 直接 有 理 运 近 
=XeX; 


ansl=Xst72362614232.0* 了 +[【-7895059235 ,0+ywf242396853.1 
+y#{-2972611.439+yyt15704,482604y+[-30.16036606)) 377; 
ans2=14472522 上 442.0+y*(2300535178 .043*t18583304 .74 
+y9 99447 .43394+y74[376.9991397479#1 .0))7) 
an5s=ansl/ang2; 
} else { 气 侣 痢 数 .5.9 世 
Z=8.D7axi 
yY=Ze*Zi 
ZXsaX-2.3561934191 ; 
ansl=t .O+yeko.1831056-24y4(-0.3516396496a-4 
+ys 0.2467520174e~5*y*f-0.240337019e-6)))); 
ans2=0.04687499995+yaf-0.2002690873e-3 
+Yw(D.8449199096e-5+ya(-0.88228987e-6 
+yv*O-1057874126-6)) > ; 
Snhs=sqrtt0.6366197727ar)s(cos[xxX)*anSE-ZSithixx)wanS2) : 
if tr< 0.0) as = -ansi; 


eturn ans; 


不 inciude 习 matb.Dh>> 


了 oa: hessyl(float x) 对 忆 数 x 返 同 贝 秦 尔 交 数 俏 Y:Cx) 


{ 
floatr bessjl(Ciloat 并 ) 了 
float Zi 
double xx,yvansvansl.an32; 技 如 精度 轩 积 多 顶 式 
if (xz < 8B.0) 荆 弛 司 .) 式 丰 理 函数 宫 近 
了 = 和 4X7 


anslzx4(-0.4900604943e13+ywtO,1275274390De13 
+ye【-0.5153438139ell+ywrf0.7349264551a9 
+ynt-D.4237922726e7+ye0.8511937935e4)》))))， 
ans2=0.2499580570e14+yrgO.4244419664e12 
+y 本 (站 .3733650367elO+ysf0 ,2245904002e8 
+ywD.1020426050e6+y*(0.3549632885e3+ 了 ))]))) ; 
ans={ansi/ans2)+0.6366197729(bessjl1(x)y1og(x)-1.0OAzr)i 
} else { 氢 澡 项 数 16,.3, fi 趟 
ZemB .OAX1 
了 =ZsZi 
XX=X~2.356194491; 
Rans1=T.O+yktO.1831059-2+yx[-0,35163964966- 半 
+y4(0 .245?75201749-5+yw -0D.2403370D198-6)))) ， 
an52=-0.D4687499995+73( -0 .20026908736-3 
+y 中 0O.B449199D96e-S5+ywt-0.88228987e- 厂 
+y*O-t05787412e-6))) ， 
an5=Sqrt(0.636619772/x)*(fSin(Xxr)*ransl+ZyCOSrxX] 中 SanS2) 


*，19]。 


LetUIT azSi 
了 


现在 讨 沦 第 二 步 , 即 如 何 由 递 推 关系 (6. 5. 86) 和 (86. 57) 得 到 江 塞 尔 末 数 (和 
(ra 关 2)ozntz) 可 直接 算 , 因 其 向 前 递 推 总 是 稳定 的 。 


floal bessykint nflecat xy 村 下 数 x 及 关 2 返回 丰 球 尔 函 数 俏 rtx) 
feat bessyQ(Kfloat x)]y 
fteatr bessy1(floar x); 
void nrerror(Cchar error_text[ -); 
Int ]# 
float by*bym ,byp:tox; 


ia 之 2) nferrort"Index mn less than 2 tn bessy") 
LOx 一 2.07X; 
by 一 bessyl(x); 递 扒 式 的 超 始 值 
bym 一 Dessym(xyi 
for 一 15j<cnjj 十 十 ] 了 通 推 式 (5, 5- 7) 
byp 一 jx* tox % by- 一 Uvm， 
hym 一 by 
by 一 byp: 


tetuxrTr by: 


本 算法 的 代价 是 调用 hessy1 和 bessy6( 导 致 调用 各 自 的 bessjl 和 bessj0), 再 加 上 递 扒 
中 心 (2) 次 运算 。 

至 于 ,jnkr) ,就 有 点 复杂 了 ,可 以 从 .7 和 六 开 始 , 技 ”向 上 递 推 ,但 仅 当 = 不 超过 * 时 ， 
递 推 保持 稳定 .这 样 仅 当 > 很 大 而 二 较 小 时 才 适 侣 ,不 过 实际 经 常 正 是 如 此 。 

困难 的 是 当 x<=, 这 时 最 好 用 米 勤 (Miller) 算 法 ( 见 前 式 (5. 5. 16) 的 讨论 ), 从 什 意 起 始 
值 开始 向 后 递 推 ,利用 递 推 式 的 向 前 不 稳定 性 而 到 达 正 确 解 ,最 后 得 到 疙 和 六 时 ,再 用 过 程 
中 的 累积 和 式 (5. 5.16) 规 一 化 所 得 到 的 解 。 
. 唯 “的 问题 是 ,应 从 卿 大 的 ” 处 开始 向 后 递 推 , 使 达到 希望 的 上 值 时 能 得 到 要 求 的 精 

度 。 考 察 渐 近 式 (6. 6. 3) 和 (6. 5. 5?, 可 以 得 出 结论 ,应 从 比 期 望 的 值 大 一 个 增 量 [常数 

器 ”的 地 方 开始 ,其 中 常数 的 平方 根 粗 略 地 等 于 精度 的 有 效 位 位 数 . 

由 上 面 讨 论 得 出 下 面 程序 函数 。 
证 inelude <math.h>> 
妆 define ACKC 40.0 
fdefine BIGNO 1, nela .吉大 恨 提高 精度 
共 define BIGNI 1. De 一 10 
flezr bessi (inl nv fosr x) 对 任意 宣教 > 及 nm 全 2 返回 贝 赛 尔 允 数 值 疡 (x) 


人 
floact baggjott1caz 玉 ) : 
foat basEjtCflnat ?1 
void mxerrorfchbhar erYrOY_Eext[]) 1 
int jjsvum,ai 
节 1oat axXvbjsbjomvbjp,sunm tox,ans; 


"192 ， 


ji 人 < 2) nrerIork"Inder 口 less than 2 19 besSj”): 


axXzatfabs(x) ; 
zf (az == 0.0) 
return 0.0i; 
alsoe if [ar > 《float) n) 1 
toxe2.O7axi 
bjmasbassjnD(ax) ; 
bj=bessjl(axr) 
for 《ji3yj<myj++y》 苹 
bjpP=j*tox*rbj-bjom， 
bjm=bj ; 
bj-bjp: 
ans=bj : 


》 blea 
toX=a.DOraxi 


ms2*(Knating) 3SqrtraACCyD)TA2)7 1 


jsum=O 
bjp=ane=sum=D .0: 
bj=1.0; 
for (j=a;j>0ij--) 
bjJaejs*toxyb]-bjp; 
bjp=hj 
bj=bjm; 
iT (fabsa 人 bj) > 日 ITGND) 《 
bj *=< BIGNI 
bjpP *= BIGNI; 
amns == BIORII 
Sm *= 有 ICKIIi 
》 
if 〈jsum) sum += bj; 
Jsun=!jsumi 
if (] =<= n) ans=bjpi 
Annm=2-Owstm-bj ; 
amng ye &Doi 


】 


TetUrn xDODA (网 1) 7 了 -ans ， 


欢 考 文献 和 进一步 读物 : 


Hart, 由 F. 、et a 


从 思 , 几 开 始 癌 前 递 扒 


从 这 儿 算得 的 旷 四 开始 向 后 递 扒 

um 取 村 尹 或 1 当 服 | 时 ， 求 :5 和 63 或 中 惕 数 
项 之 称 

应 后 递 挫 


重新 归 - -化 以 防 溢出 


冰 累 各 和 

把 0 变 为 1 或 把 1 变 为 上 
在 情 未 规 化 的 结果 
计算 15-5。 it 

用 寺 竺 案 的 骨 - :化 
DE 


1988，Compauier pprpzrmations(New York: Wiley)，86.8， P。141.【] ， 


6.6 修正 的 整数 阶 矶 塞 尔 函 数 


修正 贝 塞 尔 琐 数 mr) 和 天 。(z) 对 纯 虚 数 变量 与 一 般 由 塞 尔 函 数 /。 和 Y， 等 价 .详细 


地 说 , 其 关系 式 为 : 


Tt) 一 (一 Drugir)》 


天 (zy》 一 也 P: [aizy) 十 zw(tz7 


仔细 选择 特殊 前 因子 和 组 成 Kv* 的 mm 和 芭 的 线性 组 合 , 使 得 变量 r 为 实数 时 , 皮 数 值 


zz 很 小 (zc 时 克 Gz) 和 大 (Cr) 都 逐渐 逼近 其 自 变量 的 简单 圭 函 数 


Pr(z) se 攻 ( 王 ) 


兵 of) Ar 


六 10 


一 ]nfz) 


Re 人 放 2 (6 2 

| 而 去 法 式 宝 质 上 与 万 人 za 在 此 区 不 内 的 潮 近 式 村 奈 , 兵 是 吕 (zz 和 天 wz) 相 在 
已 

个 下 六 

全 时 一 二 


二 站 区 域内 , 咎 目 妃 塞 各 匡 数 具有 旺 员 讲 尔 冰 数 完全 不 同 的 性 质 ， 


了 全 如 XbCri 
2 


【和 有 
下 充 
天 让 P1 xs 一 二 EXBDK 六] 
vv 2XT 


自 变 增 很 太 时 , 修 目 函数 明显 共有 指 克 而 不 是 正 闽 性 质 { 见 图 6.6. 1) : 











TEST 站 ETTTTY T 本 
本 1 | 
人 1 1 
1 1 
上 1 1 
上 ! 1 
1 1 1/ | 
3 1 4 
1 L 1 
1 1 
【 
中 1 
人 ， 
二 1 1 A 于 
说 作 1 ， 相 
到 大 0 大 Ka> 及 
F 人 A 
汐 A A 
上 \ AN \ 大 
生 二 
N AN AN 
AN 
] 汪 \ \ 上 
\ 志 
\ AnA 、% 
和 o 
Au 只 吧 
nr 六 人 
~ cc ， 
0 Le CT 上 二 一 一 1 1 1 一 二 下 
用 1 3 了 | 
8 


次 6.6.1 饮 下 区 案 尔 六 数 六 (rr Ge) Ttr 天 (天 2 

鼻 去 披 指 数 因 了 则 修 王 贝 寨 从 响 数 较 平 清 , 这 -点 使 只 含有 于 项 的 简单 多 项 式 力道 和 近 ， 
很 适用 十 天 坟 . 民 :; 及 天 -下面 委 序 基于 由 Ahbramowitz 和 Stegun 7 给 出 的 才 硕 式 系 教 . 计 
算 了 此 由 个 儿 数 值 , 同 时 可 用 二 羡 关 半 时 ,对 21 的 问 前 递 推 。 


icladec -ranth-h > 


lessing3ontf < 对 佬 亮 实 效 x 返 加 做 后 忠 密 和 尔 二 数值 fx 
上 

王 1oat ax,ana， 

ouble y; 撤 所 精度 困 丙 多 硕 式 


。 94 。 


诗 【[ax=fabsfxr)) < 3.75] T 攻 需 蕊 氢 合 
yx/A3-75; 
了 中 了 
ans=l ,0+y?f3.5156229+ys (3.0999424*y9f1 ,2067492 
+y#10 .2669732+y*+fD,36076Be-l+yeu.458136-2))))) 7 
J elee 1{ 
y=3.767azi 
anBmte9xXPfKax)/sqrt(az)yw[D,39894228+y*fD ,132B592e-1 
+Yy 中 (用 .2253198-2+Y4f-0.1675659-2+?*{T,9152910-2 
+ys(-0.20577066-1+ywf0.263553?e-1+7*[-0.156476338 .1 
+ywD.392377e-2) 3?))3)2)5 
】 


TBtrUID BRDS1I 


立 include <math.h> 





黎 直 贝 寨 尔 网 数值 大，x) 


Join besskrrhmoct X， 隐 庆 : 实 歼 xx: 
工 
float basalioftfloat 克 ) ; 
doub1e y,ana; 按 昼 精度 困 忆 ;多 项 下 
if (xz <= 32.0) 工 多 项 式 执 合 
yeXyXy 人 .Di 
amnsr<(-1Log(I/2.0)*bessi0(r))+(-D,S7721566+y* (0 .42273420 
+y3 (0D.23069756+ywtO.34885908-1+ywgD.2626996-2 
+yaKD-107508-3+yeD-748-5)》)》)》))) 
} else { 
y=2.07z; 
ansm(arprf-x)yaqrtfxr))w(1.25331414+yt-0,7B32358e-1 
+y+(0 .2199568a-1+y+f-0O.1052446@-1+7w (CO-5378726-2 
+ywK-0.2516406-2+y#DO.53208Ba-3)))7》》; 


IetUrnR an3S | 


jneluce <math. h>> 





和 oa1 beossjj ftilonar x) 娠 民间 守 禾 和 泛 加 位 汪 有 1 讲 东 两 玫 值 了 fx 
{《 
于 LOat axXarsi 
double 7; 按 议 精度 累积 多 项 式 
if (axsfabsfzy) 《 3.75) 1{ 多 绒 式 拔 合 
Y=xA3.75; 
了 = 了 
anSeaxyrt0O.5+yw(D ,BE7890594+7#(D .5t1498869ry+ ID .15084934 
+3*+(0.2658733B~1+y9f.301532e-2rye0.324:1e-3))))))， 
}》el1sge 1{ 
y=3.757aX; 
ang=0.22829676-1+ye( -0,2995312d-1+yw [0.1787654e-1 
-ya0 .420059a-2)); 
BRS0.39894228+7*(0.39880246@-1+y+(-D.362018e-2 
+3y (0.163B0O1a-2+yw[-0.1031555e-1+ywams)))) 1; 
an8 = 一 〔9XxpfaxX]y7aqrtiax]) ; 
】 
TStUTI X < 0.0 ? -ang : anai 
} 


芋 inclane <:math.] > 


floaat sossktgtloar x) 时 由 裤 匣 < 挨 下 入 让 严守 尔 蜀 闸 天 天 5 


{ 
loat bassil(float Xx)5 
double y ,ans;i 按 取 精度 累积 多 项 式 
if {xz ca 2.9) 多 项 式 拟 合 
ymxeIr4.D; 
ange(10 人 gg(XA2, 旭 +bessiltx)]+(L.OA)wC1.O+yw(D，15443244 
+y7Ht-D.67278579+y+{-B.18156897+y4(f-D.19194028-1 
+73{-0.1104046-2+7*[-D.4686e-4)))371); 
3 elae 萎 
y”2.97Fxi 
ans=(expf-~X)7sqrttx))*[1.25331414+ya (0.23498619 
+yng-0,36556206-1+ywtO, 1504268g-t1+yw(- 人 .7803636-2 
+ywk0,3256146-2+y9(-0.56824566-3)7)7))))7 
】 
TUITD angi 
] 


六 人 Ce 天 st) 的 递 拓 关 系 与 .7 人 Fa 由 后 , 江 是 出 和 r 代 栋 基 :这样 齐 关系 式 中 就 需 
改变 符 民 ， 
27 


了 了 1) PE | 了 (2 一 3 1 
9 4 hi， 1 
2 Ke 

天 * 13)》 一 十 | 二 | nz) 二 


向 前 递 推 时 ,这 些 关 系 式 常常 是 不 陷 定 的 .但 对 天 ,本 身 增 长 没有 问题 ,对 环 : 需 所 次 
几 向 后 递 推 的 方法 ,并 按 bessj 程序 相同 的 方法 选择 递 推 起 始点 。 根 本 的 区 别 就 生 于 ,六 2， 
的 规 一 化 公式 中 连续 项 交 蔬 出 现 减 革 , 这 也 是 因为 在 先前 对 几 使 用 的 会 式 中 ,用 惰 代 然 二 
的 缘故 。 
上 -- 了 5 一 2 2 2 《全 人， 了 
实际 上 ,简单 地 调 町 bessi0j 进 行规 一 化 更 好 
递 椎 程序 bessj 和 bessy 经 过 简单 修 疏 后 就 成 为 靳 程序 bessi 和 bessk : 


了 leat Dessk(int niloar x) 对 匡 数 x 及 n 汪 2 返回 笠 正 贝 塞 钞 国 数 宪 天 =(x) 


和 oaf besskGffloaf x)7 

jloat besskltfiloat x?; 

yoid nrerrorktehar error _text[]); 
Int 1; 


foar bk ,bkm,bkb vtox; 


让 nn < 所 罗 nrerror 人 [ndex n less than 2 in bcssk”); 
tox 一 2.0D7X3 


bkro --Uessk0(x); 驴 所 有 x 可 前 阐 推 
for 0 一 1<nij 一 一 ) 1 这 主创 递 扒 
bkp 一 bkm 十 j* tox #+ [bk， 
bkm 一 bk 
ER 


return bk， 


##ineude < 天 Dath. 
时 dejtine 上 CC 400 增 大 以 束 重 精度 
妇 define BIGNGO 1.neln 


.196 ， 


并 define BIGA11.0e 一 1 


?loal bessfint my :toat xy》 戏 尾 意 实 数 x 及 b 字 2 返回 黎 于 册 塞 尔 清 数值 世 Cx) 


{ 
Y10at bes3i0(E1oat 工 ) ; 
Volid nrerYot(char erTor_tezt[]); 
int j; 
Loat bi,bta,bip,toxv,an3i 
这 (D < 2) nrerrorfIndez 了 1es3 than 2 ia beggi")， 
ii KE mm 疾 .0) 
Teturn 昌 .0; 
人 13ge 并 
toXne2.OATabar( 工 ) 1 
bipe=ang<=D.Di 
bie1.0; 
for 【j=-2+r{tn+kint) sqrt(kCCrn)jij>0;j--》 刀 从 一 个 个 数 mm 起 向 后 递 推 
也 immbip+jwtoxnwbi 
bip=bi; 
Di=bigt 
ii 〔fabarbil > BIGHND) 并 重新 规 化 以 防 溢 出 
Bun 折 中 四 日 了 右 N 工 ; 
bi *= BIGNMI; 
bdlp sm BIGNII 
话 【j = 也) angs=bjip; 。 
》 
ang wm beagiO(X)Abii 用 bessi0 进行 规 一 化 
Te@turD X“ 站.Dgk (na 二 1) 7 了 -ang : apa; 
上 


参考 文献 和 进 “ 步 读物 ， 
册 Uramowitz，M. : and Siegun，1. 入 1964。Janddppo 有 or Mothermiatcel 上 nctions 点 pplied Mathomatins Se- 
riesy vol. 55、， 人 9.8. [1 
Carrier， 0. 上 . ， 长 rook ，M，and Pearson， 虽 , 王 、1966， 上 wpncttors or aa Compiez VarfatietNew York，Nlc- 
Graw-Hl) ，pP，220f. 


6.7 分 数 阶 贝 塞 尔 函 数 .Airy 函数 .球面 贝 塞 尔 函 数 


数值 地 计算 分 数 阶 由 宫 尔 两 数 有 很 多 方法 ,只 是 大 多 数 算法 并 不 实用 -本 节 给 出 的 程 享 号 然 比 较 复 
条 ,但 确 值得 推崇 


6,.7.1 一 般 贝 讲 尔 函数 
基本 思想 是 斯 蒂 特 (Steed) 法 ,此 方法 来 源 十 求 Coulomb 波形 郴 数 轨 .这 方法 必须 回 时 求 记 Fr 和 和 
Yr ,这样 必然 涉及 四 音 之 间 的 关系 ,有 三 个 关系 式 来 自 两 个 连 分 式 , 其 中 有 - 式 是 复数 .第 四 个 关系 式 满 中 
Wrongskian 关系 : 
开 三 赂 Tv 一 所 一 《6.7.1》 


第 一 个 连 分 式 CF1 定 义 为 


， 
加 了 Ji bp 


丰 区 江 


] 
工 + 二 2 于 
此 式 重 容 易 册 儿 寓 水 肯 瑙 的 三 项 递 推 式 导 出 :从 式 (6.5.6) 开 始 并 利用 式 (5.5.18)。 第 5. 2 节 连 分 式 的 前 向 
"1]197。 











《6.7 2 


求 值 ,本 岳 上 与 入 推 英 委 起 的 放 河 递 推 等 八 .CFE1 的 收藏 过 宫 山 转折 点 ce Yat 一 s 的 僻 肖 出 守 
此 以 外 贝 赛 尔 沽 数 为 振 汝 性 ,r 专 fts 时 :收藏 很 惧 ,敬之 了 于 次 > 有 1, 选 代 连 分 式 直 到 全 生生 
政和 伊 若 眉 : 国 些 很 大 针 ,CFI 的 法 代 次 数 汪 -rr 隆 除 ,程序 bessiy 中 , 设 定 多 许 选 代 次 要 交 900 和 下 
时, 则 使 用 沁 窜 尔 所 数 的 一 般 新 和 近 赤 达 式 ， 

可 以 看 说 一 玫 RF1 妆 人 , 它 的 分 母 估 末 产 的 符 生 了 政 、 

如 连 分 式 CH2 惩 义 为 





了 


本 i 2 
大 一 各 一 0 二 


is 二 十 
(在 下 “小 此 中 ,讨论 如 何 按 类 位 修 主 记 塞 尔 国 数 睛 式 导 出 CCF2:77 交 -rs 叶 、. 连 分 式 收 八 根 发 > 人 小 
必 敏 :r 狠 小 时 ,必须 采用 一 种 特殊 方法 ,下 面 将 要 介绍: 不 是 很 小 下 侵 证 .了 之 0 则 将 天 和 交 秘 定 间 届 
刁 递 推 促 ，-- ge 过 了, 村 碟 较 小 > 看 处 得 芭比 全 疡 . 甫 朴 关 系 开 在 此 方向 上 上 稳定 的 . 递 淮 入 从 慎 是: 

山 一 作 意 ， 一 7 [Re 
注意 ,三 香 接 始 值 的 符 台 与 CF1I 数 的 分 基 的 符 导 要略 - 闫 的 友 笠 值 生 很 在, 以 免 在 惠 推 想 幸 宇 游 二 了 果品 
匡 . 台 挫 式 为 : 





和 


环 一 败 一 由 
略 二 1 
， "一 
局 


. 芽 求 得 CF2 在 >， 一 2 处 让, 刚 利用 到 ronsxin 蕊 人 6. 1 ,我 条 就 在 呈 散 的 美 系 起来 溢 征 星矢 展 归 入 而 
变 昌 可 简化 公式 ， 





17 
2 十 


| 二 


式 (6.7,.7) 中 心 的 符 弓 度 与 式 (6 7. 15 的 态 的 初始 倩 的 符 台 丰 门 ， 

-也 得 到 5 一 关 处 四 个 函数 ,就 串 以 求 得 初 巡 入 处 的 两 数值 , 必 和 人 大 :只 需 腹 式 和 86. 7. 了) 与 佑 刁 六 
16.7. 535 递 失 后 特 审 的 便 , 代 入 式 46, ?7.4) 就 可 简单 征 米 得。 闵 订 二 5 9 和 和 1631oorp 的 伪 泽 站 并 化 山 
剖 定 向 前 说 推 式 , 则 可 得 六 和 殉 


问 时 应 丹 关系 式 
7; 一 二 FF, 一， 5 
唐 


现在 讨 伦 工 较 汪 时 CF2 不 合适 的 情 珊 .Temnznei 找到 一 种 爱好 的 广泛, 即 通 过 精 吴 和 处理 5 时 二 时 所 的 
级 烙 层 开 , 来 求 六 行 区 然后 出 式 16.712 神 竹 并 开 去 公 旭 4132 时 太 效 ,上 政 在 局 党 问 忆 在 滑 立 
捧 式 人 f?. 5), 求 六 在 > 一 < 处 的 横 : 护 着 由 下 式 残 ye 
二 有 
0 


由 式 56.7,8). 得 到 : 凡 。 在 > 初始 入 处 的 罩 关 种 :天 可 潭 厅 前 折 过 方法 求 得 蕊 如 的 后 述 汀 递 掩 求 齐 
Tetmnnmte 衣 娄 为 
398， 





Se 





ZE 8 ?人 
大 一 ) 砷 到 
其 1 
(一 7 沁 Re 
人 【6. 7 了 .15 
数 避 和 总 由 pssext 吉大 按 兹 排 式 定义 
2 
入 一 大 十 二 sint 8 
和 一 BA 一 户 8 
十 上 二 上 
内 一 16. 7. 16? 
名 全 
十 各， Fei 
有 上 2 -2 
递 推 起 始 值 为 : 
六 ~ 过 TO 十 号 
二 1 = | 
乍 一元: 王 | 下 Cl [本 Re 
和 二 定 和 2 
方 一 去 证 cosha 上 (0 十 和 ln ( 生 jm o9] 
其 中 
可 =>| | 
广 
一 寺 1 这 
(07 二 [FL Fi FT 5 18) 


| _ 1 ] 
2 2 二 到 于 >) 


公式 这 种 对 法 的 优越 性 是 ,通过 小 心计 竹 wxysinvxysinay 及 叫 的 什 , 能 控制 5 时 可 能 呈现 的 问题 . 特 
出 旦 ,Temme 给 则 了 了 三 本 (的 切 比 省 去 展开 式 。 我 们 在 这 蛙 奖 五 的 展 并 式 重 靳 排 成 外 晰 的 "的 偶 
级 数 形 式 ,以 便 可 以 泣 用 第 5.8 节 中 的 程序 Chehev， 

程序 中 假定 rc 字 9。 其 > 为 负数 , 则 可 使 用 反射 公式 


省- 一 cosyz1 -sinyrry 


To 一 


8.7. 19) 
YY :> 一 Sinyr 一 cosyry 


程序 还 假定 z0。z<0 时 一 般 冰 数 很 其 休 , 们 可 由 z 关 0 时 的 甬 数 来 形 示 ,z 一 0HjY。 圣 奇 结 性， 
程序 中 兽 法 使 用 双 精 诬 ,复数 运算 遥 过 详 灾 有 虽 计 算 ， 


六 Include < 所 miarh.h>> 

世 include “nrutil.h” 

并 defiine 上 PS 1,De 一 10 

蕊 qefine 上 PMIN 1.9e 33 

天 de MAXIE Heao0 

下 define XMIN 2.0 

开 qefine PI 4.141592653589783 


YC 庆 bessjy [float x，Hloatr xnu， flos:s <Trj，floar <*ry，float 关 rjpy flact x*ryp) 
对 正装 x 和 xnu 一 "=:0 返 目 贝 赛 尔 区 数 j 一 Ar 一 六 及 其 导 柳 rip 一 .Aryp 一 了 . 除 在 某 - 珊 数 鹤 卢 附近 处 .相对 
精度 在 EPSfEPS 基 锭 佣 线 对 精度 ;的 …- 己 网 它 有 效 数 字 范 本 二 办,FPMIN 是 接近 机 器 最 小 衣 点 数 尼 某 - 数 汉 癌 


- i59 。 


算 洲 均 为 及 精度 . 答 疼 整个 程序 设 贮 为 双 精 庶 , 只 需 将 上 班 的 变量 泽 兴 类 天 说 虹 改 为 发 精度 类 型 总 明 .FS rt 3 


作 


于 黎 改 床 数 heschb 


vaid beschb(doublg x，doubl8 *wgamE，doub1e 4%gam2，double *gampl1， 
dounb1a Bammji) 

int ivisign,i,Dl; 

double aybbrbivccrci,d,del.dell,den,didlz,dli,dr,e,fi,fTact,fact2， 
fact3yffi,gam,gamt ,Kau2,garmmIi Eapl,b,P.pinupinu2,9q,zyrjl， 
xjllFrjmurjpl,rjapl.rjteap,ryl,xrymu ,zymup,ryteop ,sun,sual， 
emp ,wzr2,XiiKXi2 xmuy Xu2i; 


if (xz <=- 0.0 1| xznu sc 0.0) nrerror["bad arguments ia bessjy"); 
nlskx< XMIN ? 〔int)KxnuyD.5) ; IMAX(O,(int)fxnmu-z+1.5》)》; 

al 是 /的 向 后 递 推 数 及 的 向 前 递 推 数 。 当 x… XMIN.xriu 处 于 …1;2 至 1L72 之 间 ， 
而 当 x>XMIN,xmu 可 选择 , 以 使 x 大 于 转折 点 


xmus<XDu-Dl ， 
工 mDU2Z=mkukxmui 
Ximdl .OAxi 
xi2m2.Gewxii 
Wexi2API; Wironskran 关系 式 
IRTgne 1 出 才 正 Lenlz 尘 (和 21 求 CF1 和 区， 
hxznusrii 15S1gn 指 示 分 组 符号 的 变化 
FE 《h “ FPMIN) h=FPMIXH ; 
bxi2eXxnuy 
daoO.D3 
Cahi 
Tor 【is=l:i<=MAXITI1++] { 
b += TY12， 
d=b-di 
if (fabs(d) < FPNHIN) d=FPMIR; 
Cnb-1,DOrci 
这 《fabafc) < 了 PNHIR) c=FPMIN: 
ds1.0/d; 
delectdi 
hedel9h 
if tdq 《0.0) iaign 二 -isigobj 
if 《fabs(del-1.09) < EPS)》 breax; 
了 
if t+ > MAKIT) mrerrorK"X too large in bes3jy; try aymptotic ezpansiom') 1) 
IJlL<eied 克 onwFPNI: 初始 化 -和 帆 准备 问 后 递 捧 
天]pPLmhwzjl; 
rjll=rjl13 存 销 值 以 便 以 后 调整 
Yjptzjpli 
节 act=XRUESXii 
Tor (1l=n1;1>xm1;:1--) 《 
工 }temgp=iActaTjr+IjPli 
fact -= Xi 
TjpPl=factsrjtemp~Trjai 
TjI=rjteomp; 
J 
这 (zj sa 0.0) jl=EFPS; 
fg=rjplyrfj1; 得 到 未 规 一 化 的 几 和 1 
iE (< XIM) { 使 用 缀 数 
Z2m0 .5y 工 ; 
PiauPIwzauUi 
act 一 《Taba(pjlen) < PPS ?3 1.0 : plnuyaimnafpigu)); 
dm -~1og(z2); 
人 Xdatl 中 dd ; 
Tact2 一 《faba(a)y < EPS ? 1.0 : sinhke)yra)7 
haschb{xmu , 业 区 aaD1T ,主攻 本 四 ， 昨 名 生 用 因 】 ,区区 am ) TI 2 比 雪 夫 计 算 值 


了 了 二 2 . 上 D P 了 中 芝 aC 蕊 坝 区 划 因 工 中 CO 全》 十 区 本 mn 了 中 全 呈 世人 中 可》 0， 
五 于 和 了 PT) 

P=ey (gamplePT) ; Po- 

qm -OAKCe 直 PIT 中 Rni) ; 90- 


”， 200。 





Pimu2=0.5wpimui; 
fact3 = 《fabsfpiml2》 < EPS ? 1.0 ;sinakpinu2)Apimun2) ; 
IT=PIe*pimuz+fact3sfact3i 
c=1.0; 
d = ~X2%X23 
UsfEf+Tzoi 
Sunl=pi 
for 〈ji=1ii<=<MAXTIT;i4+4) 并 
了 =《ineff+p+q)ACiri~Zmu2)i 
CS 《dyi)y3 
P /= 【〔i-xmu) 1; 
可 Ya 《i+xmuy ; 
de]lmcmttf+ryq) i 
stm +z= deli 
del1<c+yp-irdel， 
Suml +mw delli 
1 《fabs(deli) <〈1.0+fabs(sutt))*EPS)》 break; 
二 
这 (i > MAXIT) nrerror("bessy series failed to CanVeI 区 8" ; 
FymRU = 一 Stm; 
Iy1L = -SUD1=Xi2; 
YYpmup=Xmu+ 广 1*iymu~Ty1; 
xjmu=wAfr7mup-fsTrymu) : 方程 16.7. 131 式 
了 else {f 由 修正 Celltz 法 ( 求 8 5.21 求 CF2 值 
ae0,25-xmu2; 
P = -0.5*xii 
qd1.0i 
br=2.0wi 
bi=2.0; 
芋 &C 七 3 天 LACPeP+qwq) 1; 
从 贡 二 D 基 位 品 本 下 SCt 
Cd=31+peyacti 
densbrsbxr+b4yrpbii 
Qrsbrrdan; 
qi = -birdeni 
品 LFmCIedIT-Cyedi; 
d]i<credi+ciwdr3 
二 empsPzdlI-qsd1ii 
Q=Prdli+qgwdlI; 
Petemp ; 
了 of 【1 人 1I<=MAXITity+ 娘 - 
+ 2 本 (ii 一 1) 7 
bi +w 2.0i 
drsazdr+br i 
dis=asdi+bii 
if 【taba(dr)+faba(di) < FPMIN)?》 dr=-FPNHIN; 
于 CamBA (CE 由 CYACityCI) 
CabDXTCE* 了 玫 CT 
习 立 mb 斌 ~CiwfaCz ; 
if 〔fabe(cr)+ftabsfciy》 < FPMIN) creFPMIN; 
densdrwdr+ydiedii 
dr /= deni 
di 7/m -dean; 
JELccredr-cisdii 
diecrwdi+ciexr i 
temp=p#dlr-Gsdlii 
qeprdli+qzdlr7 
P=temp 
i〔fabg(dlr-1.0)+fabg(Kdli) < EPS) break; 
小 
诈 (全 > MAXTT) DrerTorK"cft2 jailed ia beaajy"); 
gam=tP-~ft)7q; 方程 r6.7.6) 一 16.7.101 式 
ZJmuesqrt (urf (PP- 工 )9&am+q) ) ; 
jau=SIGNtrjmu,rjl1); 
TYZU=T jatz 中 襄 A 下 ， 
xymuprrymu4(p+qAEam) 
TI=JXODD 中 并 让 yzYmuUP: 


目 
facterjmuArjli 
+ 人 j =z 了 L1+facti 尊 吏 心 和 有 天 的 起 始 什 
w 工 JPmrjD1*+ 节 acCt 3 
for {i=tii<<nli;ii++》 1 kr 的 向 前 递 淮 
ytemP=(Xmuri)uXI 人 ecy1-Iymui 
zymu=ry1i 
Tylsrytempi 


ECYeTyOU; 
TYP=FnuerieTymu-zYYy1i 
》 


#dehne NUSE] 5 
并 Gefine NUSE2 5 


void bescbb(deuble x，donble “gaml，double * 8ani2.dnuble * gampl，double * gsmmi) 
对 于 5ssl22 用 团 客 大 展开 式 计 算 四 利 产 .也 返回 Cl 十 起 向 ] PE- <) . 若 收 犁 到 双 精 度 , 则 设置 As) 


To 
权 

地 Loat chehev(ffloat a，float b，float cf[]，int 四 ，float xy): 

站 Loat XI; 

Bthtic float,cl[] =s【 
-1T.14202268037:172e0,6.516511267076e-3， 
3.06709017308a-4,-3.4706269646-5 ,6. 943764e-9， 
3.6789De-1l,-1.36e-13] ; 

sgtatic ?10at c2[] = 二 
1.843740587300905e0 ,0.076852840844786e0 四 
1.2719271366556-3,-4.971736704e- 量 ,-3.3126120De-8 
2.423109e-10,-1.70s-13,-i1,0e-15}; 

xxzm 呈 .DO*xsI-1 .0 xX 乘 以 2 改变 范 力 为 - 1 到 1 

*gamlnchebevr-1l,0,1.D,ci.NUSE1,xz)， 热 后 使 用 变 红 求 得 切 比 雪夫 级 数 倩 

wgam2mchebavt-1.0,]1.0,c2,NUSE2.xx) ， 

二 区 amP]m 本 区 am 人 -fw 区 am1) ; 

站 名 am 了 王 中 区 3 思 了 十 艾 二 【 阐 攻 2 二) 

了 


6.7.2 修正 贝 察 尔 函数 


Steed 方法 不 能 月 于 修正 中 塞 尔 丽 数 , 振 为 此 时 CF2 为 部 上 交 ,四 个 表 数 中 只 有 三 个 关系 武 .Temms : 
给 出 “个 正则 条 件 得 到 第 四 个 关系 式 、 





Wronskian 关系 式 为 
本。 一 大 -一 上 十 (5.7 209 
连 分 式 CF: 变 成 为 
因 每 运 加 让 元 让- 人 321》 
为 方 使 地 得 到 CF2 员 下 不 杀 件 . 考 察 合流 越 几何 毅 数 应 列 ， 
2 一 P2 十 172 二 my 2 13) (6 7， 221 
* 固定 , 风 
攻 RT) 一 30 《7 23 


。202 。 


师 HTEr> 1 |， 1 1 村 1 | ] 3 过 癌 


天 且 
式 (6, 7.233) 是 合流 超 由 们 机 数 K, 区 标 准 表 孙 式 ,而 式 (0 7. 24) 则 其 相信 逐 续 越 帮 位 天 数 之 司 区 关系 式 得 
虽 ,( 和 村 点 bramowitz 有利 Stegun 中 的 式 513. 1 0 和 (13.1 18)。) 气 数 zw 满足 -成 递 关 关系 成 (Ahrantowirz 
和 Steagun 中 方 强 式 (13.4.15)) 

和 《8 70 
其 小 


-一 
一 2 


品 和 
os 一 一 -13722332 一 "9 
按照 得 式 (5.5.18) 的 步骤 ,得 到 分 式 CF2 
RE 时 
把 人 | 
站 此 肥 戒 56.7- 24) 给 让 天 17R 下 天 KR。 
Tenmame 的 正 化 条 件 为 
cr 1 728 
其 中 
MT 二 1 十 责 
Co 一 十 12 一 人 全 se 
注意 C 可 由 下 面 递 推 式 决 定 : 
这 
人 一 1，(ndt = 写 于 40.7.303 


出 式 66.7.28? 条 位 求 


连同 式 56.7.2317 得 到 帮 ，。 
Thompson 和 Barnelte 当 找到 “个 委 耻 明 的 方法 , 户 时 求 和 (8 7 81) 及 前 问 求 本 分 式 CF2 值 .假定 连 
分 式 求 值 时 得 到 


LM4， 
尼 


人 in DR 
史 一 让 


其 中 赠 鼠 ah 可 由 Stced 算法 或 第 5.2 竹 修正 Lentz 算法 得 到 ， | 5 的 前 和 硕 和 的 通 近 式 为， 


二 二 16. 7 3 
IE 一] 
其 中 
QQ, 一 S; 让 5 :6.7. 435) 
1 
8 则 由 下 商 递 推 式 得 到 
和 ， 一 《8k -1 一 外 94607og 6. 3.36) 


起 始 值 6e=0,e, 一 - :对 现在 情况 ,8 收敛 所 需 的 项 太 约 嘴 使 Cl 收效 所 需 项 数 的 二 位。 
工 较 小 时 , 求 瓦 , 和 天 :+ 可 同类 个 式 49.7.14) 的 级 数 
，203 。 


“ 世 1 
下 二 1 大 -1 一 于 人 es [ i 
中 U 中 
站 中 
2 和 
了 友 
六 一 一 大 有 十 总 
加 & 1 
一 天 人 记 
一 生 上 
4 和 
人 本 县 一 必 
递 推 式 的 初始 值 为 
轧 ) 宙 | 可 | 
本 区 3 AR 
| 四 后 
9 一 也 | 2 | PFC .> 
br 人 
一 SRLcOx9 1 -- 3 tr 二 1 


xz 较 小 时 的 级 数 !CF2 玉 正则 关系 式 56.7. 28) 部 需 |y| 过 1 所 以 在 此 范围 内 可 将 二 递 蕉 有 到。 一 庆生 ,于 
得 Ke 再 将 去 反 向 递 推 至 "的 初始 值 。 
程序 假定 > 衬 0,y 为 负数 时 朵 用 反射 公式 
了 一 玉 二 sintrr 二 入 
不 ， 一 兵 v 
洲 意 , 当 z 很 大 时 ,ex 用 ~err， 这样 该 力 数 会 下 浇 或 上 浇 。 较 好 的 办 法 是 说 整 变 最 为 。 :六 利 
et 在 式 (6.7.23) 略 去 e 因子 可 保证 四 个 量 册 有 合适 的 调整 范围 . 若 使 用 式 (6.7. 37) 的 级 数 ,让 很 小 
时 要 想 调 整 四 个 量 , 则 仪 需 对 等 个 级 数 乘 以 ev， 


六 incluqe <math. h 人 > 

并 defhine EPS ],0e 一 10 

共 define FPMIJIN 1,De 一 30 

女 define MAXIT 10000 

女 qefine XMIN 2.0 

并 define PI 3.141592653589793 


void bessik (float x，float xhu, float *riy float “srk, foat *rp，fioar *Tykp) 
对 正 数 x 币 xnu 基 0, 返回 禾 正 贝 塞 尔 通 表 末 = 也 ,路 一 天 及 其 避 数 rip -天 :rkp 一 天 相对 精度 诺 上 PS 箱 … 于 了 困 己 


有 效 数字 范围 之 内 ,FPMIN 接近 机 哟 最 小 可 表示 泽 点 数 ,内 部 算法 为 双 精 度 . 只 需 将 上 面 的 浮 点 数 说 明 改 居 戏 精度 
浊 明 及 和 将 FPS 改 为 10-*, 就 可 将 整个 程序 式 为 双 精 度 . 同 时 需要 姨 下 函数 beschb， 


Yotd beschbkdoubie E，dopuble ?gaml，dotubjie wgan2，doubl1e ganmpl， 
doub1a wBRtini ) z 

void TerroXrchar arror_ktexEP): 

iot 工 工 ml1; 

toub1a aial,bicd ,de1,delldelh,de18,a, fact ,fact2 ,tr ,gaml,gam2， 
gbmmi gamPpl,hip,plou,Q,qtl,q2,qnew.ril,riit,riot,ripl.ripl， 
上 开 上 人 miP ,TXT IIXmU IIUP ,于 XXBRD ,BE SURLTX2.ZE XI22mntt rmi2; 


， 204。 


让 (rr < 用 .0 11 nu < 0) Drerrort"bad urgument 上 in be6Sixn)i 

nl=(jnty[xnu+0.5) ; ni 为 的 后 向 递 准 次 数 和 K 的 前 向 递 扒 

xmu=xnu-nl; 次 数 .x mu 表 在 - 142 全 172 之 问 

XIUZ2mTmarXmU 

xie1.0/X; 

Xi2m2.DOwXii 

heXnuz+xii 出 蜂 让 Jeniz 太 法 求 CTF1 俏 

if (h <《 FPMIN] hs=FPMIN; 

bm 工 工人 TPR 

dr=0.0i 

Ce 拉 六 

for (it1;i<sMAXIT;i++) 【 

b 4 了 i2Z; 

d=1.07(b+d) 分 苹 不 能 为 零 ， 但 不 必 让 于 机 心 
Ceb+1 .0O7C; 

del=crdi 

hmdelwbi 

41 (yabs(del~1,0) 《 EPS) break; 

if ( 守 > MAXIT》 nrerrcr("z rcD 1a7ge iD beasix; try azymbtotic 6zPansion" >， 

It=FPNIN 1: 切 始 化 瑟 , 疙 ,准备 阿 后 递 准 

ipbplehewrili 

Tiltz=rir; 在 包 芒 准 备 以 品 调 整 

Tiplseripli; 

天 act=xDnue 克 Li 

for (lz=n1li1>1i1L--) T{ 
ritemb=tactsril+ripl3 
fact -一 开 i) 
rikpl=factsritemp+rili 
TilnTIteap5 

了 

fe=rtPl/Aril: 得 末末 规 一 化 的 了 天 

if (xz < XIN) 1{ 使 用 级 数 
X2emD.Szx; 

FizusPI*xEU; 
zact = 《fabs(pimuy《 EPS 7 1.0 : piouysinCpimu]) ; 
q = -10g{X2) 
=XDU 中 攻 : 
fact2 = 《ftabg(ey <“ EPS 了 1.0 : qinhge)ya); 
beschb(xmu,tgam1, 才 5a02 ,二 Eampl ,gammai)， 。 求 太 ) ,Tz 二 比 雪夫 数值 
Ytf=factetgamnlrcoshfa]+gamn23fact2wd] ; 了 加. 
汉 详 上 二 他 王 ; 
meXPTfs) 
了 P“0,5*e7gampI; ppD- 
q=0.5S7(a+EgEamnmi) 1 go0， 
cC=1 .DOi 
dm 工人 中 于 了 
SI1=P: 
or 《ivwTii<=<NAXIT;i++) 1 
工 fm (iewftz+p+O) Aisi-xmu2) 1 
尼 $ 昌 《 昌 / 王 》 
pp Am 【1i-xmu); 
已 /mm 《ix 7 
del=crfr， 
St 如 +“ deli 
dallscewrp-iezf)i 
S0D1L + del1; 
4 (fabs(del) < faba(aua)sEPS》 braak， 
这 {1 > MAXIT) Drerrortntbeeak 8eriea failad tc ConVerge") ; 
jcomumsum 
Tk&k1=sumlsIl2; 

】 曙 13 本 : 节 C 上 
be2.0w(1.04xy; 因 分 母 不 能 为 零 、 
dm1 .07b; 
h=delh=di; 
qt=0.0; TVR 了 3 
q2n1 9; 6.7.35) 遂 推 式 加 始 化 


所 1 凡 -25-XPUDZ; 
qucnadi (人 了 和 全 第 - 各 
吕 -ati 
ss1 -DO+qsdelb: 
Eor 〔i=2;i<=MAXIT;i++)】 攻 
Q -= 2wfi-1) ) 
= 一 二 本 CPii 
Qqnewsm[ql-bzq2)7ai 
刀 1=q2; 
q2=Gqmnaw 
9 += CrqDneE 
b +e 2.0; 
d=1.07(b+asrdj 
delh=[b+dqd-1,D)wdelr 
h += delhi 
els=q*delbi 
S += da6l13 | 
if (fabg(dels7s) 《 EPS) breax ; 
上 央 为 CF2 本 身 晴 快 地 收 笋 ,所 以 此 需 测 试 和 摧 的 收 租 性 


让 
if (1 > NAXIT) rerTOF("bessik: failure to convekege in Cr2"); 
上 =al9hi 
Tkmu=-sqrt(PI/ (2.0*x)}=axpf x)ysi 赂 去 包 和 exnhe -xi 当 xsXMIN 时 - 
rzKk1=rkmuy fxmuex+O -5-h)*xil 用 SP Yi 周到 所 有 扳 回 沁 孝 
} 
Ikmup=xmtueXieTrKDU-rKL1i 
Timu=ziAf(fsrjocu-Ikmup) ; 几 Wirenskian 得 刑 了 
4ri=(rimusrilt)Aril) 调 融 初 从 六 不 天 
*TiPpe《TImueIiPL) AZ21 1 
for {i=1:icenlii++) 品 前 递 相 上 
Tkteamp=(xXmu+i)jexi2arki+rkmui 
ImusTKk1， 
IK1=Tktemp ， 
} 
rm 


#TkPp= 工 DUmXierymu-rkli 
二 


6.7.3 Airy 函数 


了 正 数 raAirg 呵 数 定义 为 





16. ?34 
1 二 
BC 一 A/ 3 3) 一 了 -3(z) 《人 了 .42 
其 中 
的 
g 一 和 《0 
应 用 反射 公式 6. 7. 401 .可 将 (6.7.42) 转 换 成 更 有 用 的 可 让 算 形 式 : 
Bitr) = > 本 ss te ] fi 了 


故 Ai,Si 只 需 册 用 一 次 bessik 邯 可 或 出 侦 ， 
导数 不 能 用 上 面 去 达 s 式 进行 简单 地 锋 分 求 得 , 导 因 在 Y 一 0 隆 泊 所 能 会 相 消 .可 以 伟 几 下 斌 等 价 彤 趟 : 





=- -人 :3K>) 


写 


Ai (zy 一 一 


5 - 
oa =z[ - 主 驴 2 Ke 
| 


对 负 变 量 相应 公 趟 为 
206 。 











2 上 Y 3 
长 汪 三 二 十 十 之 | 二 se) 十 yw] 
2 W 3 
网 1 
人 -到 | 7) 于 -六 2 |] 
2 Y 3 
区 
生生 全 机 人 
HL 《一 工 ) 2 2 B 


划 include <imath.h-> 

林 defins PUTL3. 1415927 

共 define THIRD 1. 9073.) 

共 define 工 WODTHR (2.0*THIRPDY》 
大 defines ONOVRT 0 57735027 


vojd airyffloat xy iloat kaiy float +biy float #aip。flont #hbib》 
泌 和 Wire 靖 数 .Wi HNir 及 其 寺 数 Aij tr). Bi rz 


void begs1X[f1oat 又 ，f1oat Xau，Z1oat er fl1o8t sx， 了 LOSt TIP， 
floakt zkp) : 

Volig bassjy[float x，E103at xznu，f1o8t TI，f19aC wry， 站 LOaT wj ， 
loDat wITyP) 

人 Laat ab3 交 iTipx],jPTK,rIP,TOOtz 7EYP，Z; 


和 DBXefaD3(X7; 

TootXxmBqrt(absE) 

ZaTWHOTHR>abezeraotXi 

证 (>D.0)T《 
b 妆 四 交 世 《 工 ， 了 人 了 RD ,此 工 工 ,交工 这, 二 LTP , 业 TXP)》: 
县 斌 m 工 OO 工本 站 MOVRT 了 erKZPT 
bisyOOTY (YiAPIT+2 ,COwDNDVFRTaxdzt) ， 
baseigfzZ,TWOTRHR , 志 ri,rx 押 riP, 记 Fxp) ; 
中 aip 王 -XeDNDVRT*+ckAPX7 
*bip=znexrAPTI+.OsONOYRTwriy》: 

} else if (X< D,D) T 
bgsejy(Z,TRTRD ,本 zj,c7 ,二 [jpP ,和 FYP) ; 
中 admO.5*#TOctEry(Ij-ONOYRTeIy); 
中 bi 一 -0.5#TOGXzfz7yDNOVRTzTJ) ; 
bag8jy[z ,TWOTHR ,用 Fr] ,tr7， 友 工 ]P, 业 r7P] ; 
机 和 开口. 三省 各 基 本 【 站 半 OWRT 间 工 y 4 区 了 》 人 
9bf1p=D ,59abexegDNOVRT4rj-ry)》 1 

}》 elae 并 Case 荆 一 0. 
91rD.35502805; 
bimtyad)IAONDOVRT; 
salp w -0.25881940; 
*blp = (aipyrONOVRT : 


6.7.4 球面 页 塞 尔 孵 数 
- 对 牙 数 ”球面 贝 塞 尔 函 炒 定义 为 


加 (zy 一 A/ 芝 Jn+ Cl72) (站 ) 


《6.7 了 ,46) 


:207。 


1 下 辐 
yn = 以 过 Portz) SR 


只 融 调 用 一 次 hessjy 外 可 求 其 值 , 导 数 也 可 山 式 (6.7- 47? 的 微分 求 上 出， 

注意 ,(6.7, 3) 式 的 连 分 式 CF2 当 > = 172 时 仅 存在 第 一 项 .这 样 对 球 面 函 数 , 按 程序 bessjy 可 找 汉 良 
简便 的 算法 .常常 只 需 对 轧 递 推 到 #==0, 由 CF2? 的 第 一 项 珀 定 户 和 8, 乓 后 对 > 向 前 肖 失 .在 z 一 0 让 ,不 需 
另外 特殊 的 级 琢 . 椒 序 bessjy 已 经 完全 有 效 ,没有 必 竖 劳 神 费力 地 为 球面 由 塞 尔 函 数 再 去 设计 一 个 独立 的 
称 序 。 


看 inel]uqde <<Inarh.h>> 
共 detine RTPIO2 1.2533141 


yoid sphbes (int ,fioa- xy float < sj float #syy ftoat wsjp， Host xsyp) 
对 划 数 n 已 回 球 面 贝 塞 尔 西数 j(z),ye(z) 及 其 导数 (rz), 加 (z)。 


Void bessjy(float xy oat xnu ,float < ffioat *Tyy floar #rjpy float <*typ); 
void nrerror(ehar eror_text[]); 
float farforyorderyrjyrjprytyp; 


tn<O ix< 一 0.0) nrerrorf*bad arguments in sphbes“ ); 
Drdetr 一 站 十 0. 5; 

bessjy(xorderyRgerj, gryykgripyg&ryp)) 

tector 一 RTP]O27sartfxy)+ 

# sj 一 factor 外 上 3 

# Sy 一 factOor # TYY 

上 5 各 一 faetorxTip 一 (#sgj)Af2.0X) 

# Syp 一 faetor #IT 加 一 (#SY)A (2. 牛 站 区 ) 


上 
了 


参考 文献 和 进一步 读物 ， 
Bartett， 和 丰 .R,，Feng, D, RH, ，Steed， 本 W.，and Goldfarb ，T..J.B。 1974，Compspsiter 己 Pystcs Comptrmanica- 
Hong，vD]，8，pp，377 一 395. 【1] 
Temme，N,. M.， 1976，jJaurnatl or Corzprtittional Phystcs，vol，21 ，pp. 343 一 350. [2?]:，1975， ct、ecef, ， 
Yol，19，pp.， 324 一 337，[3] 
Thompson，I,J. ，and Barnett ，A- 及。 1987 ，Comzpater Physicr，comzprttaicattoxtsy， vol 47，pp。 245-……257， 
1] 


6.8 球面 调和 函数 


球面 调和 函数 步 现 在 大 量 物理 问题 中 ,例如 , 波动 方程 或 拉 普 拉 斯 (Laplace) 方 程 ,就 是 
通过 在 球面 坐标 下 用 变量 分 离 法 解决 的 .球面 调和 函 救 Ye,P) ,一 上 Sm<!, 是 球面 上 两 个 
坐标 9,9 的 函数 。 

对 于 不 同 局 xm 球面 调和 函数 是 正 交 的 , 且 经 过 规 一 化 ,使 之 在 球面 上 的 平方 积分 为 单 
位 1 


了 下 ? 
| ez | 可 (cos 有 TD, 由 了 (7 一 信人 《6.8.1) 
再 一 


其 中 星 号 (* ) 表 示 复 巷 。 
数学 上 ,联系 球面 调和 函数 与 连带 的 勒 让 逢 (Legendre 多 项 式 的 关系 式 为 ， 


2 十 1 人 一 )1 
48 人 十)1! 





了 we，o) 一 PP (cosBJepf 《6. 8. 2) 


afg9) (1] "Ye (2 内 《3.8. 3)》 

我 们 总 能 将 一 个 球面 调用 利 函 数 ,与 一 个 芝 0 的 连带 的 靳 让 德 多 贰 式 联系 起 来 , 电 . 一 
cosb, 这 种 多 项 式 由 普通 勒 让 德 多 项 式 定义 成 (参见 第 4 5 节 及 第 5.4 节 ) 

KZ 《一 17L 一头 人 Pi) (6.5.4) 


前 面 几 奈 连 带 的 勒 让 德 多 项 式 及 与 其 对 空 的 规 一 化 后 的 球面 调和 表 数 ,如 表 6. 8& 所 





四 


表 6.8. 1 连带 勒 让 入 多 项 式 和 球面 调和 函数 的 对 应 关系 











Pi(z) 一 1 yw== 人 
开 
1 2 
1(Z) (一 2 )  _- 总 sinber 
f 3 
PIT(Y) 一 全 TS / dxco58 
PICz) 一 361 志 ) 1 站 5 
了 :一 二 寺 sin be” 
Pi(z7 一 一 3 一 阅 DJ Ta= 一 人 | 二 singcosber 
开 
1 
PE(z) 一 斑 (3z? 一 1 Ya 一 忆 (3cossg 一 六 ) 


46. 8.5) 
数值 计算 连带 勒 让 德 多 项 方法 很 多 ,但 许多 方法 都 不 很 好 。 例 如 ,有 显 式 表 达 式 如 








虑 《1 十 到 ) 本 人 一 六 )( 十 ! 十 1 1~~ 工 ; 
TREE | 
十 和 人们 二 二 全 | 二 站 
24( 菩 十 1 有 十 2) 呈 到 


《6.8.6) 

其 中 多 项 式 只 到 含有 (1 一 z) "的 项 。( 关 于 此 式 及 相关 公式 参见 L1])。 这 种 方法 不 能 叫 人 满 
总 ,因为 逐 项 符号 交替 ,因此 求 多 项 式 值 时 ,符号 相反 的 连续 项 可 巧妙 地 消去 .! 很 大 时 ,多 
项 式 中 单独 项 却 比 和 式 大 得 多 ,而 且 精 度 很 差 ， 

实用 中 , 依 精 度 要 求 ,7 达到 6 或 8 时 式 (6. 8. 6) 按 单 精 度 (32 位 ?使 用 ,2 达到 15 或 18 时 , 按 
双 精 度 (64 位 ?使 用 .因而 希望 能 找到 一 种 更 有 力 的 计算 方法 ,如 下 述 ， 

连带 勒 让 德 多 项 式 满足 很 多 递 推 关 系 吕 3 。 有 和 反对 1 递 推 的 ,有 仅 对 关 递 椎 的 ,也 有 同 
时 对 1 和 mm 递 推 的 ,大 和 多数 对 关 的 遂 推 不 稳定 ,不 适 于 数值 计算 .下 面 这 个 递 推 式 对 1 的 递 
推 却 是 稳定 的 ( 试 与 式 (5. 5. 1) 比 较 )， 


公 一 台 )P7 一 工 (2 一 PT 一 民 十 如 一 1)PF， 《6.8.7) 
这 个 式 子 很 有 用 ,因为 对 初始 值 存在 闭 形 表 达 式 : 
有 一 (一 DC2m 一 1)11(1 一 220"7 (6.8.8) 


“209。 


《 沁 号 241 表示 小 于 等 于 的 所 有 奇 整数 的 习 积 。) 对 式 (6. 8.7), 令 !=m 十 1 及 P2 .一 0. 得 
到 

P2- 一 立 (21z 十 1)PY (6.8.9) 
式 (6. 8.7) 中 对 “ 般 ! 所 要 求 的 两 个 初始 值 吕 由 式 (6.8. 8) 和 (6.8. 9) 给 出 -实现 该 算法 的 程 
序 函 数 为 


共 Enclude <.math,h 盖 


float pgndr(int 1，int mv float x) 
计算 连带 盘 直 德 多 项 式 P?(z) ,其 中 四 秃 1 为 临 数 , 歌 足 5smssl,x 满足 一 1<x<1。 


Yoid nrerror (char erCr_teXzE[]); 
于 1oat factp11L,Pom ,Famp1 .SODX2; 
int 二 ,上 1: 


if tma<0llm>1l1ll fabstx >1.0) 
mrerrort"Bad arEgumentSs in Zoutine P1LgDndr')i 


Prmz=1.0; 计算 叫 双 

if tm > 0)《 
3Dmx2m8Qqrttf1.0-x)efL,O+IT); 
act=l.0; 


TOoT 【i=1;i<= 凶 ;i++) 芽 
Jp 一半 actrsoDX21: 


Tact + 2.0) 
} 
} 
if (1 == 切 ) 
TetuIn Pen ) 
else { 计算 天 吕 3 
pmampl=xrf2rm+l1)epmmi 
jz {L = (ma+l)) 
TBCUrD Pampli 
else 革 计算 吨 ” ,7， > 到 二 1 
for (11=me2;311<=1;11++) 苹 
?1L1l= (zt2811~1)》*Prmmp1~(114om-t) Pi) (1L1-z) 
pam=<Pampl; 
PamPt=pPl1; 
了 
Tetuxzzn PP1L15 
】 
寺 
参考 文献 和 进一步 读 艾 : 


Magnus， 人 W.，and ()berhettinger，F，1949，Formatias azacl TReoreon5 万 r the atpcifony of HaiRepeaficed 
Payiics(New Yark : Chelsea)，pp. 54tf，[1 了 
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6.9 菲 涅 耳 积分 .余弦 和 正弦 积分 


6.9.1 菲 涅 耳 CFresnely 积 分 


定义 两 个 菲 诅 年 积 为 
210。 


Cez) = | sos 有 zjae， SC = | sin| 于 | (6.5.1 


z 较 小 时 ,对 任 童 精度 可 求 , 计 算 函 数值 最 方便 的 方法 是 材 级 上 数 :z 较 估 时 , 则 出 连 分 
式 。 级 数 为 


荆 汪 ? 








页 开 | 开交 
| 
1 和 《6 9. 2) 
开 下 1 开 这 | 开 | 本 
(| 证 
存在 一 种 复 连 分 式 , 可 癌 时 求 出 CCz) 和 SCz)。 
CD + 19(Gz) 一 eerf =， = 0 一 Dx 《6.9,3) 
其 中 
erfey 一 | 1 LU2 1 32 2 | 
二 二 
《6.9.4) 


_ 2z | 1 1 3? 人 | 

VT1 2 十 1 一 2e 十 5 一 282 十 9 一 人 
上 式 第 一 行 中 将 连 分 式 由 适 常 形式 转换 为 偶 次 形式 ( 见 第 5. 2 节 ), 这 样 收 伍 快 两 倍 ,必须 小 
心 ! 不 要 在 工 太 大 时 , 求 交错 级 数 式 (6. 9. 2) 的 值 . 从 级 数 项 中 可 以 看 出 ,z 一 1. 5 是 切换 到 使 








用 连 分 式 比较 合适 的 点 。 
注意 , 当 z 很 大 时 
C(z) ~ 半 十 页 sin| 于 广 xz， S(z) 一 二 一 去 cosi 三 (6. 9.5》 


这 样 ,程序 frenei 的 精度 可 能 会 受到 = 较 大 时 库 函 数 中 正弦 和 余弦 精度 的 影响 。 


林 include <math,h>> 
#jnelude "cotmplex. hy 


#define PS 6. 0e 一 8 相对 误 盐 

六 defijine MAXIT 100 允许 最 大 送 代 次 数 

并 define FPMIN 1. 0e 一 3 景 小 可 表示 的 浮 点 数 的 邻近 数 
##define XMIN ]1.5 使 用 级 数 各 连 分 式 之 间 的 过 分 线 


共 define P] 3. 1415927 

共 define PIBY2 (PI72.0) 
#define TRUE 1 

间 dejine ONE Comblexft1.0,0.0) 


Yotd frencltfloat x。hoar rs。floal xl 对 所 厂 实 茹 < 计算 菲 涅 耳 积 分 SCz7 和 C(zy 
VYOitd Dre@kror(char @FYOT_ 人 人 次 [] ) 

ipt Xin,oddi; 

广 10&T 自 ; 各 工 ,王八 Ct 也 开工 4 ， 风 1 ,3UILC ,用 1 只 攻 ,十 有 ,七 四 B; 

cogmP18X bccvdbhdel cei 


xmYabs(X) 1; 
好 (ax < 9re OPPMTID ) { 特殊 情况 ， 柄 免 因 为 让 谥 而 使 收 笋 测试 失 履 
玫 本 OO) 
中 愉 本 各 及 
} else if (ax <= XNHTN》 工 同时 求 两 级 数值 
号 LIEm 攻 必 罚 生 w 癌 , 吕 ; 
3 UDC 可 攻 
siED=IL, 疙 ; 
了 时 站 攻 二 PP 站 Y 了 2a 工 站 发 工 ; 
dd=TRUEI; 


+21]1。 


term=8Z; 
了 na 
forY (km1;X<c=MAXIT;K++) 1 
BIE w= 六 aCcrxi 
Sum += 习 1gDIKCSrmAn 3 
testezabs(SU) 中 EPS; 
放 〔〈odd) 区 
3ign 一 - 立 Ign) 
SUDSsStD 
SumesUDC; 
} alse 工 
有 DOCeBUD 1 
aumansumgs ; 
】 
if (term “787) breaki 
cdqd=1cddi 
卫 + 立 ; 





(E > MAXYT) arerrort"sarigs failed in frenel"); 


可 3 王 有 NDS )， 
4CmaUDC: 
] elaa 
PiX2mPIeaxeaI; 
b=ComPlexzti .0,-pizr2) ; 
CCumComp]ez(1.OAFPNIN ,D.0)， 
da=h=gCaiv(ONR,b); 
了 二 4; 
下 OZ 《Km2 ;KmHAXIT;K++》 1 
口 4 2; 
遇 mv~DeCn+1) ; 
b=Ccaddrb,Complex(4.0.0.0)); 
drCdiv(ONE,CaddtRGaulta,d),b)); 


出 修 止 Lent z 站 潜 求 连 盆 式 值 


分 母 不 能 为 零 


cceCaddrb ,Cdiv(Complax(sa,0.0) cc)y)i; 


del=Cmulftcc,e); 
h=Cnulth,del) ; 


if《fabs (del.r-1,0)+faba(dal.1) < PPS) break) 


放 全 > MATIT) hrerror(rct ?ailad in ?renel") 


hb=Caul(tCompleztax,-aX) ,b) ; 
casCoultComplLertD.5,0.5)， 


Csub(0NE,Corll (Couplerfcos(D,5epiz2) ,sinf0.54pix2)) ,h]))) 


昌 必 本 必 瑟 ,了 ) 
立 熏 号 C 攻 , 工 i 

】} 

ii (zz<0-0) 区 
CC 到 《8) 
和 二 一 (家 ] ) 


4.9.2 余弦 和 严 苞 积分 


应 用 反 村 称 性 


会 弦 和 止 蓄积 分 定义 为 
Ci(z) =Y 二 Inaz 一 su 
六 
Si(z) 一 | Su 


其 中 >y s 0,.5772… 为 欧 拉 常数 , 因 
Si( 一 .rz) 一 一 Si )， 
。212。 


Ce 





《9. 9 昌 ) 


《6.9. 7) 


故 仅 需 对 * 盖 0 找 出 求 函 数 的 方法 。 
我 们 还 是 小 以 用 , 麦 级 数 和 复 连 分 式 相 结合 的 方法 求 此 通 数值 .级 数 为 


3 风 5 
Si(z) 一 3 十 有 
， ， | (6. 9.8) 
1 人 
iez) 十 nz 十 | 2 二 | 
指数 积分 下 ,Ciz) 的 连 分 式 为 
了 (zz) 一 一 Ci(z) 十 iLSiCz) 一 a/2] 
二 |] 
过 二 IT 二 这 干 IT 干 赤 二 (6.9,9) 
要 1 2 | 
人 | 


411 十 和 之 一 3 十 和 一 5 十 这 一 
上 式 中 最 后 一 行 是 连 分 式 的 偶 形 式 , 对 辐 样 计算 量 它 收敛 可 快 是 倍 。 现 在 从 交错 级 数 到 连 分 
式 的 转换 点 为 一 2。 当 工 很 大 时 , 非 混 耳 积分 的 精度 会 受到 sine 和 cosine 的 程序 精度 的 
限制 。 


并 include 所 math.h>> 
共 include "cotmnplex.hy 


共 define EPS 6. 5e 一 8 相对 误差 或 ciKz) 接 近 寺 时 的 纯 对 误差 
共 define EUHER 0. 57721566 ” 欧 拉 常数 ? 

其 define MAXIT 100 允许 最 大 选 代数 

并 definhe PIBY2 1, 5707063 72 

孙 define FPMIN 1.0e 一 30 最 小 可 表示 的 浮 点 数 的 邻近 救 

并 define TMIN 2.0 采用 女 数 和 连 分 式 之 间 的 划分 线 


村 define TRUR 上 
# 并 define ONE Complex(t1.0,0,.0) 


vaid cisi(tloat xi floeat *ci, iloat *si) 
计算 余 避 和 正 荡 积 分 Ci(z) 和 Si(z)。Ci(0) 返 加 一 个 大 负 烤 ,不 给 出 错 说 信息 .z<-0 时 程序 返 区 Cif- 上 必须 用 户 
自己 另 妇 (一 i? 央 子 。 


void nreITO5CCbaz ETIOT_tSXEST)， 

iat 1 xy,oddi 

了 7O 和 丰 直 ， 直 工 丰 了 各 人 友 ， 让 下 区 L 让 WU ， 条 县 C ， 县 吕 且 外 ,万 | 切 外 工 理 7 
fcoaplez bbc,dodel3 


上 上 m 卫 血 委 当天 》 
it tt am .0) 特殊 情况 
让 条 并 申 .让 
Ci 二 -1.9AFPKIN; 
和 丰 但 企 钞 丘 用 
if (> THMIW) { 让 作 正 Lenrz 方 法 求 连 分 式 
bmComplezC1-0,t)i 、 
CeCoapP1ez[1-OAFFPNI3 .7 
dbeCdtvVIDNE,D) ; 
for (im2;iKaMaKIT; I++) 荆 
有 到 ~K(i-1)d(i-1); 
DCaddrb ComPpIert2.0,0.0)); 
dmCdtrtDONE ,Caddthcaulta ,dl,b))i 分 得 不 能 为 等 
CCaddfb,Cdav(ComPp1axtr 和 ,人 -De))》; 
dalepDaultc:d) i 
上 =Cauilkh,deal)i 
1 《zabafaal .r-1.0)4+faba(dael.i) < EPS) breex; 


守 《1 > NAXITJ mrGrEOX (CE failadl iD ciesi) 
h<CuulKComplezrcasgt) ,-sin(t)),h) ， 
Cl 四 一 
生日 imPIBY24P .二 1; 
》 el186 { 同时 求 两 级 数值 
if 必 < sqrg(FPHIN7》T 特殊 情况 ， 半 和 免 贞 为 上 妆 出 现 河 使 收 委 
ausc=D.ODi; 检 主 失 数 
BunSet 7 
}》else 并 
SUmEnDdan3UDC=D,O: 
3iLgDafacZe1.O0: 
cddaTRUE ; 
Xor (k=1;XSwKAXITiX++] 荆 
fact *m 菩 /E) 
七 STRC 记 AN 
5URL 4 中 区 避 中 蕊 且 FR; 
自 北 下 二 七 趟 于 双子 是 bS《 SU) 
让 〔odd) 《 
8ign 三 = 
USm=BURi 
当 UP= 直 0BC 
》 1 和 
昌 计 亡 本 蕊 用 ; 
四 三 世 t 玫 是 


If (〔sTT 《 EP3S3) braaxi 
Daddu padd 


让 让 《让 > 乔 册 了 了 T)》 户 守 帮 XT 六 妇 《9 加 反正 寺 蕊 加 会 工 二 中 d@d im 蕊 1 区 3 》 


志 四 了 二 BR 
本 CC 雪人 C++ 工人 有 全] + 太 tLZR ， 
和 (z < DO wa m 一 (93i) 
6. 10 ”道生 积分 
道生 (Pawson) 积 分 定义 为 
Ptz) 一 站 ed 《6. 10.1) 
此 国 数 与 复 识 差 蚁 数 关 系 为 
五 (z) 一 1 一 ecfc( 一 zi) (6. 10. 2) 
Rybickic 找到 一 个 极其 接近 的 表达 
， 1 四 6 一 叶 ) 
产 (s) 一 lm -~ 一- 一 -一 一 《68. 10, 3》 


Ar YY bdd 
式 (6, 10, 3) 惊 人 之 处 在 于 ,其 精度 在 六 较 小 时 旺 指 煞 增 长 ,所 以 一 般 的 六 值 ( 级 数 有 相当 快 
的 收 妆 速 度 ) 就 能 得 到 相当 精确 的 这 近 结果 。 
稍 后 在 第 13. 11 节 中 我 们 将 讨论 导出 武 (6. 10, 3) 的 理论 , 它 作为 傅 里 叶 方法 个 有 趣 的 
应用 .这 里 仅 给 出 基于 公式 的 实现 程序 。 
将 和 式 的 下 标 移 至 指数 项 的 最 大 项 附近 ,是 最 为 方便 .所 以 定义 az 为 最 接近 * 澡 的 偶 
站 数 ,，xzosn 下 ，2: 二 了 一 go 7 开 一 扣 0 则 育 


1 一 人 一 只? _ 
Prz) xs 一 了 一 一 一 (6.10. 4) 
/TS 十 ?0 
寺 


“214。， 


下 足够 小 并 六 充分 大 时 ,这 个 近似 等 号 是 足 角 精 确 的 , 若 注 意 到 下 式 


人 一 6e Te 6. 193. 5) 


则 式 (6. 10. 4) 的 计算 速度 还 可 以 大 大 如 快 。 第 一 个 因子 只 需 计 算 一 次 ,第 二 项 则 为 可 存储 的 
常数 数组 ,第 三 项 可 递 推 地 计算 ,因此 只 需 计算 两 个 指数 项 .另外 还 有 一 个 优点 就 是 ,将 求 和 
号 按 半 分 成 正 值 和 负 值 两 部 分 时 ,系数 e -所 生 具有 对 称 性 。 

下 面 程序 中 选 定 久 一 0.4, 一 11。 因 为 求 和 的 对 称 性 及 呈 卫 定 为 奇数 ,所 以 de 循环 有 定 
为 1 一 6。 在 浮 点 型 版 本 中 ,此 程序 计算 结果 的 精度 大 约 为 2X10“。z=0 附近 , 忆 (z) 不 存在 。 
为 保证 精度 ,程序 中 在 lz|<0.2 时 ,用 天 (z) 的 震级 数 己 求 值 。 - 


林 include <tmath.h>> 

花 include ”nrutil, hy 

坟 define NMAX 6 

共 defmne HL 0. 

#define 入 1 《2,.073.0) 
并 define 上 从 2 0.4 

共 define 上 3 《2.077.0) 


和 at 中 pwsnnfflnat x) 对 人 硅 何 实 痕 返 同 道 牛 积分 天 Cr) 一 exRt 一 2 全 exhpKta)ett 
5 


{ 
lnat in0i; 
tloat dl,d2,61:92,sU0.X2,TPXX ARnSE; 
才 tatiC 了 了 193t CCXNMAX+T1] 
atatic iat init = 0i 车 涡 初始 化 , 标志 为 0, 否则 为 1 


it (iptt sm 0) 于 
inpitml; 
了 D5F 《ie15I<mNMRA 对 ] ++》 c[ 土 ] mxpP(~-SQR(2.Oai<d.0)s9)7) 1; 


} 
证 (fabs(r) < 0.2) 《 利用 令 数 扩展 ， 
基 人 2 枯 江 机 于 ;1 
也 严 买 9 六 二 .个 -二 中 工交 4《 了. 口 一 由 富 申 入 2 世间 -站 3 区 人] ) ) ; 
}》 else { 利用 又 样 定理 表达 式 
开工 m 站 了 bg ( 工 ) ， 
zOm24ftint)(O.5eXXAR4O .51) 1; 
Xp=IX-RDaeH; 
二 1mSXPT2-0DeXpe 瓦 ) ; 
生 了 mm 全 了 本 本 了 
dl=n0s13 
d2=di-2.0; 
司 全 二 亚 亡 , 曲 ; 
了 or 【ie1;t<=NMAX ;TY++ , 寺 1+m2.0,d2-m2.0,91em62) 
SUG +e 上 [is(elrd1+1,.D77d3e81)》 
5 Sns=0 .65641855835+STGN (exRp(-EPwXP) .x)wSumi 常数 为 17v 厅 


TetOFn angi 


还 有 其 它 一 些 计 算 道生 积分 的 方法 , 见 [2,3]。 


参考 文献 和 进一步 读物 : 

Rybicki，G.B，1989，Coznzteterr in 已 hystcsy，vol]，83，no, 2， pBb、85 一 87. 1] 

Cody, 允 .] ，Pociorek , K, 入、，and Thatcher， HE.C，1970，RMHatherzmratzcs oF OPiiatioi， YO]，24，pP，171 
~ 178. [23 


”315 。 


MeCabe，J,H，19741，3MHarpenzaticy OF (Compatationmry vbl]、28，pp、8i1-~5810，[3] 


6.11 椭圆 积分 和 鸦 可 比 风 加 函数 


在 很 兆 庶 用 中 要 用 到 梢 圆 积分 ,因为 任何 形式 如 (6. 11. 1) 式 的 积分 都 可 由 圆 积分 求 
得 ， 
Re (6.51.1) 
其 中 民 为 2is 的 有 理 函 数 ,* 为 上 的 三 次 或 四 次 多 项 式 的 平方 根 . -- 般 文献 上 中 摘 述 了 如 何 
进行 简化 ,这 个 最 初 工作 是 贰 让 德 完 碘 的. 勒 让 德 证 明了 只 需要 二 个 基本 懈 圆通 数 .其 中 最 
简单 的 一 种 是 








| (6.11. 2) 
We 十 Ce 一 人 aas 一 Ba 十) 

上 式 中 , 特 半 的 四 次 方 写成 国 子 相 巧 形式 .标准 积分 表 中 ,积分 限 总 有 一 个 是 四 次 方 的 零点 ， 

只 外 一 个 积分 限 则 是 靠近 下 一 个 零点 ,这 样 在 积分 区 间 内 没有 奇 措 点 , 求 积 分 也 ,可 将 积分 

区 闻 [3，z] 分 成 子 区 则 ,每 个 区 了 民 的 起 点 和 终点 痢 基 奇 红 点 这样 ,只 需 区 分 将 下 个 从 点 ( 按 

归队 的 大 小 ) 分 别 作为 积分 上 上 下限 的 人 种 情况 .此 外 , 当 式 (6. 11. 2? 中 有 一 个 疡 为 零 时 ,四 次 

方 简化 变 为 三 次 方 ,最 大 或 最 小 奇异 点 移 侈 士 cc 处 ,这 样 会 产生 多 于 八 种 情况 (实际 上 上 ,有些 

为 前 八 种 情况 的 特例 .根据 第 … 类 勒 让 德 标准 椭圆 积分 (下 面 将 要 定义 ) ,一 般 将 16 和 情况 

制 成 表 . 积 分 变量 上 改变 时 ,四 次 方 的 零 点 映射 钊 实 轴 上 的 标准 位 置 . 这 样 只 需 两 个 无 量 纲 

的 参量 就 可 为 勒 让 德 积分 制 表 。 然 而 勒 让 憩 的 表示 形式 德 盖 了 在 根 兽 换 下 点 积分 式 41. 11， 

2) 的 对 称 性 .以 后 我 们 还 会 同 过 头 来 讨论 蔓 让 德 弄 示 。 首 先 ,还 是 先 做 卜 面 事 : 

卡尔 森 (Carlson) 六 给 出 一 种 新 的 第 “党 椭圆 标准 积分 的 定义 

于 起 

2 9 VDC 寺 人 人 十 区 

其 中 zy 非 负 且 最 多 有 -个 鹤 点 通过 移 积分 区 间 标 准 化 ,可 避 留 零点 的 置换 对 奈 性 。(WWeirstrass 的 正则 

形式 也 具有 此 性 质 。) 卡 尔 森 首先 证 明了 ,和 齿 x 或 > 是 式 (6. 1.2) 四 次 多 项 式 的 一 个 替 点, 则 积分 卫 可 根据 

Rr 写成 在 剩余 三 个 零点 置 横 下 仍 对 称 的 形式 -一般 情况 下 若 x 或 都 不 为 零点 , 则 两 个 这 样 的 六 图 数 可 

由 加 法 定理 合成 … 个 ,导出 下 面 的 基本 公式 ， 

了 一 2RFCUi TD 《0. 11. 4) 





忍 rryyz) 一 《6. 1. 3 





其 由 
(5 一 (XXXEYm 十 YiY)XAXw)ACz 一 y) 《6.11.5) 
和 一 (ii 十 页 (6 1.6) 


7 由 1,2.3, 4 置换 。 一 个 简 使 些 的 计算 方法 赵 ; 
Ti 一 DR (ela -aa4 加 (asbs 一 2435) 
1 一 (一 (et 一 Qi 雹 (at 一 - 2) 
其 中 各 个 局 分 别 对 应 十 ,将 四 个 零点 分 成 一 对 …- 对 的 二 种 方式 ,所 以 五 在 霍 点 置换 下 有 明显 的 对 称 性 。 因 
此 , 当 有 一 个 积分 限 为 零 时 , 式 {6. 11.4? 重 新 产生 所 有 16 种 情况 ,也 包括 了 上 下 根 都 不 为 零 的 和 情况。 
这 样 卡尔 森 函 数 允 许 有 任何 积分 区 间 ,并 自 对 于 积分 区 岂 中 ,被 积 函 数 的 分 支点 的 位 置 也 是 任意 的 ， 
为 了 处 理 第 二 和 第 三 类 构 圆 积分 ,卡尔 厌 定 义 第 二 类 标准 积分 为 
4 216，。 


6. 1i1.72) 





Rirtrisssip 一 | - 一 46.11.8) 
十 站) YY 让 村 式 ) 人 十 3 人 十 天 ) 
它 对 于 xyz 对 村 , 当 两 信 参 量 址 等 半 的 很 化 形式 可 圾 条 汶 
有 :Coyssl 一 民 ( 人 royssss) 《6,， 1. 9) 
它 对 <,yz 对 称 . 品 用 曲 数 尽 ;: 取代 第 -类 惠 让 擂 积 分 .Rr 的 进化 形式 表示 为 : 
开 rz 3] 一 (ri yy3 《上 上 已 ) 


其 中 包含 对 数 , 友 二 和 角 和 反 双 曲线 沐 数 。 
卡尔 森 :-m 根 据 成 (6. 11. [中 ,四 你 项 的 线性 因子 指 数 给 出 了 积分 表 , 例 如 ,指数 为 (去 卫 ，， 3 和 


六 ) 的 积分 ,可 表 了 为 民 np 的 一 个 单 积 分 , 它 说 时 Gradshteyn 和 Ryzhig 王 列举 的 144 种 情况 : 


将 椭圆 积分 降 为 标准 型 时 的 -… 些 实用 性 细节, 如 处 理 复 共 匈 霍 点 ,可 参见 卡尔 森 的 论文 全 ”-。 

现在 ,讨论 风 圆 积分 的 数值 算法 .通常 使 用 高 斯 或 兰 登 (Landen) 变 换 - 降 阶 安 换 可 特 勒 让 德 积 分 的 模 
数 “ 减 少 而 趋 于 零 , 人 而 增 阶 变换 由 可 弹 大 而 趋 于 1- 在 这 些 极限 记 置 , 哨 数 可 解析 地 珍 达 ,这些 方 法 以 四 次 
方 收 毅 ,对 第 一 类 和 第 二 类 求 积分 很 有 效 , 布 对 第 三 类 积分 的 某 些 情况 可 能 不 胡 精 确 . 卡 尔 森 算法 扩 关 则 对 
三 类 积分 握 供 一 种 统一 的 方法 ,而 没有 明显 的 消 去 律 . 


算法 的 关键 屁 加 倍 定理 
FrfTyysz) 一 2RF(r 一 My 二 Atz 十 让. 
还 [TY 一 4 三 十 人 | 1. 11, 1]) 
4 | 
其 中 
丈 一 《xy 十 (zz 二 (37 (6. 11. ]2) 


仅 须 变换 积分 变量 即 可 证 明 此 定理 -. 式 (6.11, 11? 可 反复 迭代 ,直到 Rr 中 的 变量 几乎 相等 为 止 ,变量 由 
等 时 有 : 
民 EC 一 16.11.13》 
若 变 量 足 够 接近 , 则 可 由 式 (6.11, 13) 夯 定 的 泰勒 (Taylor? 展 开 式 中 ,第 五 次 项 来 求 函数 值 。. 算 法 中 送 找 部 
分 只 是 线性 地 收 各 ,误差 在 每 次 选 代 中 最 红 按 办 子 45=4096 减少 .一 般 只 需 选 代 两 到 三 次 , 若 变 量 初 始 值 
相差 殷 大 , 则 可 能 需要 选 代 6 一 7 次 。 下 面 别 出 Rr 的 算法 ,其 它 情况 可 参阅 卡尔 森 的 文章 器， 
第 一 步 :对 za- 0,1;2 … 计 算 

生 一 (rn 十 3 十 za)73 

Xa =1 一 (Zujpio)，J 一 1] 一 (yp Zou 一 1 一 (zjrw) 

ES 一 ref|Xn|，Ynr Zr) 
若 s< tol 到 第 二 步 ,否则 计算 

Ar 一 (Fn3w12 《Fnzp)i 一 《nz 


Za 一 {xXa | Ana)7d， 3rrl 一 《3 一 MA zz-1 一 《zn 人 4 
并 在 此 步 内 逢 环 。 
第 二 步 :计算 
五 : 一 以 nrynr 一 4 王 3 一 其 synZm 
心 一 和 一 可 忆 十 直到 十 下 辜 一 项 本 本 27(as2n7 


有 时 候 只 中 的 变量 请 或 太 中 的 变量 > 为 负数 ,而 且 需 要 积分 的 柯 西 主 入. 这 时 可 由 下 面 公式 很 容易 求 
得 ” 
民 rCzyy+ 志 ?入 ) 二 
[7 一 3RrCrayrzyy) 一 3Rr(z yz) 十 3Rce(rzpypyAyy]rry 力 ) 
“217。 
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共 中 





二 站 吝 (和 1.151 
光 27 直 
六 为 负数 时 上 式 为 正 数 , 且 
2 
Rricsy) = [ 二 二 加 Rer 一 3 一 3 《下 ] 3。 上 7) 


2<n 的 某 些 地方 ,Ryr 的 柯 西 主 值 可 能 为 零 , 因 此 式 (6. 11, 1 和 在 零 附 近 可 能 不 精确 。 


相 inrlude <math.h 全 

苯 inelude ”nrutiL, h2 

甘 define RRTOL 0.08 

并 qdejihe TINY 1.5e 一 38 

他 define BIG 3.0e37 

并 defjme THIRD (1.073.07 
并 define C1 〈1.0724.9) 
并 define 人 2 0.1 

并 defineC3 《3.07 杜 .0 
并 detine C4 《1.0714,D 


有 eat rfgftloat 大 ,有 oat y，float z) 


计算 第 一 类 Carlson 梢 加 积分 Retzvyz)ozy:z 必须 为 非 负 , 持 至 志 只 能 有 一 -个 为 办 ,TINY 必须 至 少 为 机 器 干流 
段 隐 的 五 倍 .BIG 见 必 须 最 多 省 机 器 上 筑 极 组 的 开 分 之 一 ， 


下 LORY 玫 二 站 划 口 , EEV 生 ,dj 站] 左 人 d 牛 1y ,dd 由 】 己 , 司 卫 ， 白 3， 电 四 区 七 页 ，BQI 蕊 了 ， 吕 全 I 工 ， 世 蕊 ，y 雪 Z 人 ; 


11 (PNINCFMIN(x,y) ,Z) 《< 0.0 11 FMINUFMIWKx+y,x+Z) y+z) < 了 INY 11 
RMAXKCFHAX (zy) ,Z) > 了 ITG) 
nrerror("invalid argument5 in 工 E")) 
tm 一 1 
?ty 了 
ZtmZi 
do 工 
BTXSGTFt 人 RE》 
sqrtyegqrtCYyt) ; 
qztzmsqztfzt] 
击 】 朋 图 上 bm 革 了 七 开赴 《及 全 七 了 十 机 台 工 世子) 二 条 q 工 寺中 EqFTZ 
七 = 人 .了 Sw(《 工 上 十 和 1 amb) 7 
7 了 tn”0.25Ft3C+&18DDb) ; 
工作 .25 中 (Zt+BLaeb) ; 
和 YGeTHIRDw( 工 +yt+zt) 1 
全 间 1 Xe (和 YG- 以 ] 7 
91L7=(ave-yt] /ayei 
de1Z=(aY 直 -ZC) 7aV 全 ; 
]} whtle 【FIUAXCFHAXITabs(delX) ,tabstdely)) ,fabas(dalz》) > ERRTDL); 
2mdSGJLE#deLy~delzFdel; 
直 3 一 dd 本 中 人 9 了 中 训 1Z 
Yetur 《1 .0+(Cteeg2-C2-C3r63)*924CS+6377BQTY CaV 由 ) 


对 单 精 底 要 求 (? 位 有 效 数 字 ) 的 情况 ,允许 的 误 善 精度 参数 取 为 0, 08 已 经 足 驶 了 。 因 汽 误 差 尺 订 为 
6 H 以 看 出 0.0025 将 产 牛 双 精 度 (16 位 有 效 数 字 ) ,并 下 数 多 慌 要 两 到 三 次 选 代 , 因 为 对 于 其 它 生 圆通 
数 ,第 六 和 阶 堆 属 误差 的 系数 是 不同 的 ,所 以 Rr 算法 中 区 许 的 误 卷 值 改 为 0.04 和 0,.0012 ,有 n 中 分 别 政 
为 0%.05 和 0.0015 .Rec 的 扯 法 除了 用 于 结合 某 些 基 本 画 数 外 ,也 反复 用 于 计算 叉 中 

在 C 语 闯 持 详 现 程 亨 中 ,根据 两 个 依赖 于 机 器 的 常数 (TINY 和 BIG) 来 榨 测 输入 变量 ,以 防止 计算 中 ， 
出 规 上 浇 和 下 北 , 对 应 于 机 器 的 最 小 值 为 3Sx 10-” 和 最 大 值 为 1.7Xx10”, 我 们 较 保 守 地 交 取 下 INY 和 BIG 
值 . 遍 骨 于 面 给 出 的 齐 次 性 关系 式 (6. 11. 22) 可 以 扩大 多 许 的 变量 值 的 范围 。 

*， 218，* 


间 jincluqe <math.h> 

并 jncludie “nrut 让 .hh 

站 define RRTOL 0.05 
共 deftne TINY 1.9e 一 25 
并 define BIG 4.5e21 

症 define C1 (3,.0714.D1) 
共 defineC2 (1,076.0) 
关 define C3【〔9.0722.0) 
车 dfine Cd (3,.0726,0) 
症 define C5《0.25+#C3) 
站 defiine 和 6 5i ,与 #C4) 


float rd(float 克昌 oat y，float z1 
计算 第 二 类 卡 尔 森 柚 圆 积分 下 55:yz)r3 迷 须 非 负 , 且 最 多 一 个 为 畦 ,sz 必须 为 正人 ,TINY 几 夭 至 上 是 宙 器 土 


洲 极 限 的 负 273 次 竹 的 2 季 1 人 红 好 多 是 0.1xERROT 再 绞 以 机 器 下 湛 极 抽 负 273 次 埋 。 


区】 加 县 丰 昌 了 下 口 ， 昌 YY 图 ) 过 本 于 ) 昌 生 】》) 叶 本 | 乙 ， 司 亚 ， 志 局， 生 C ,本 过， 学 上 ， 半 且 CE ,Qt 工 ,于 Tt ， 
和 QT 不 名 让 LRLXtE 3 Et 


了 (FNHIRCXyY) < D.O |1 FMIN(x+y,zZ) < TINY 11 FMAXKCFNAXC 7),Z) > BIG) 
QTSrTOT( "Invalid FEguDGanES in 工 二 1 
次 契 其 》 
ytey 
ZteZi 
Stims0,0; 
Tace1.0; 
do 苹 
3qF 忒 民 田 世人 FTCXt) 
aqT 世 YeSdqztfyt) 
泪 GI 七 己 玫 马 中 开 志 (2 七 ) 了 
所 1amibm 吉 qztxyfaqrty+aqrtZ)+aqrty4sqrtZi 
朋 LIN 十 开具 们 /《 妇 人 世 式 由 《Z 评 中 刀 1 3 对 避 ] ) ; 
T8Ce0 ,25*tacCi 
XY=Q .25*4《 碎 (+ 和 Lamb) 1; 
7V=0.253(0yYZ+alanby; 
2Zte0.25*(zt+alanb)i 
QVemD .了 (t+y+3 ,OO 本 工 世 ) 
dm1Xxm (avVa~ZT) ANY 
delys (ave-yt) /ave; 
de91Lzm (ave-ztjAavei 
}》 while 《FMHAX (FHAX (fabsfdelx) ,zabstdely)) ,fabsfdelz]) > ERRTOL); 
丰 和 人 全 1X#delLYy ; 
ebedeIiZ*delZi 
司 避 四 斑 -如 口 ; 
ds93- 扣 .0*eb; 
人 中 一 有 人 + 全 C+BCi 
和 fiITL 号 ,站 站 BUID4 了 BCh{I ,0 和 和 s 【CI1+C54ed-CGG6+ 寻 全 ] 代 呈 三] 
+de12*(C2?66+del12wf-C3wec+delIZeC496a))》)AK[ave*sSqrtravE) ) ; 


并 include <tmath.h 全 

丰 include "nrutil. h” 

共 define 下 RRRTOI. 0.05 
划 define TINY 2.0e 一 13 
#define BIG 9.0eli 

并 define C1 (3. 0714.0) 
并 defipe CC2 (1 073,. 0C) 
fdefine C3 13.0722.0》 


共 (efine C4 (3.07256,0D) 
芯 Qefine (5 (DO 735# 人 3) 
站 define (6 (5# 人 4 
菇 define C7 (505 CC2 
切中 efine (8《C3 十 CS) 


float rjffiloar x, ioat y，float z* floatby) _ 本 
计算 第 三 兴 卡 尔 森 梢 较 积 分 ,RiCzc yz prsvz 岂 纸 为 非 负 ,至 洛 “ 个 为 守 , 记 履 须 不 为 宁 。 查 声 守 山上 暇 同上 二 


俏 :TINY 笃 少 须 为 机 器 下 滥 极 限 的 立方 根 的 2 悦 .RIG 不 能 超过 志 器 上 洒 王 限 的 立方 根 的 蕊 分 之 一 - 


fl1oat rcttloat X，fLoat y); 

float rf[float X， TY10at y，11oat Zi; 

tl1oat 8 ,alamb,alpha,sns,aveaibibera ,aelp ,delx,dely,qelzZ,ea,eb,ec， 
ed ,eg,tac,pt,TCXrbho,sqrtx,sqzty ,sqItZ:3SUm ,ttt IT。Z 立 5 


if (PNMIN(FMTN(z,7),z) < 0.0 11 FMINCFHITNCxz+y,z+z) ,FMIN(y+zsfaba(p))) < TINY 
1 FMAKCEFNMAXCx,y) ,FMAXCZ ,fabsfpy)) > 8I9) 
TITerror(*invalid arguments :mn TYj"); 


3uamO,O) 

facm1.D; 

if (P > 0.0) { 
工 七 四 无 ; 
ytT=y1) 
2ZTVs=Z1: 
Pt*pi 

} slse 并 


xteFHINKFNINCx,y》 2] ; 
了 七 = 下 NAA 克 《FM 只 大 《区 ) ， 工 》， 
=X+y+ 工 - 革 刀 -ZZ 世 ; 
a=1-OA7t-P73 

Da (zt-yt)#{yt~Iz) 1 
Ptsyt+bi 

了 homxXt 志 工 蕊 /YY 蕊 1 
ampwptr7t: 
TCXTCtLbo :七 au 


do { 
SQqrtYesqFt{It)》 ; 
sqrty=aqrtfyt) 
sqrTZ=B9rt(zZt)》 1 
旭 二 amb=S 昌 交工 二 《8qTE7+3GTTtZ)+SQITLya3 可 5 七 工 ; 
3Lpha=SgR《PE4 (3GrtX+6qFty+SQILZ)+SQITL 基 8qE 世 了 中 区 本 TYZ) ; 
beta=pteSQR(Pt+alsmb) ; 
Su += 于 aCarc(alphaa Deta)3 
T&c=D ,25faci 
XteO .25 二 ( 工 目 +a1a9D) 
了 ta0.25*(yL+alamb); 
Zt= 人 -25+(Zt+a1antD》; 
Pt<D .254 (Pt+&LaEb) : 
aVGrD.28《 和 t+yt+Z 二 APt+Pt) 
deLywerave-Xft ja 
delye (ava-yt}Aaw 人 和) 
delz=fave-zt]yayai 
delp=etave-Pt)yavei 
whil 邓 《FMHATCFNAX(fabstdelx) ,fabsKdely)) ， 
FMAX fabstdelz),tabstdelp))) > ERRTOL) ， 
9awdalxyrdel1y+rel7zj+delyrdelzi 
abmdalxdelyede] 工 ; 
cmde1P+HdG]lDbi 
da-3.09eci 
人 所 + 之 .09de1Pe【S-8C)] 
ab=3,0w3Un+facnrl.0+fedr(-C1+rC5eed-C5=<ee)+ebsftC7+delpy(-CB+dalpac4)) 


“220。 


+delpneae(C2-deLp*C3)-C2ede1Peecytavewaqrttave)) 1; 
it 人 {P <= 0.0) ang=artbyarns43.0Oe(TCX-TE(Xt，y 蕊 ,zt))]) 1 
工人 二 UID &DB1; 


} 


节 ircluqe 二 math, h 

人 inelude ”yut 让 h” 

共 defihe ERRTOL 0. 04 

共 dcfine TINY 1.69e--38 

井 definc SQRTNY 1. 3c 一 18 

并 define BIG 3,e37 

并 define TNRPG (TINY < BIGy》 

并 dejine COMP1 (2. 2367SQRTNY 
并 define COMP2 ITNBG +，* TNBG725.D) 
计 define THIRD (1 073. 5) 

共 define C1 0. 3 

并 defipe C2 01.9077. 50) 

芽 Hefine C3 0. 375 

并 te[ine Cd (9.0722.07 


float rc fjoat x，8oat yy》 
计算 卡尔 森 退 化 查 圆 通 数 Retz :必须 非 责 ,y 必须 非 稚 ,项 ?所 0, 返 回 柯 西 士 值 oTINY 必须 全 少 大 机 器 上 溢 极 


限 的 五 倍 :BIG 对 多 为 机 器 最 大 上 浇 极 限 的 五 分 之 “， 


了 Loat 呈 1A0Db,aVYe .swXL， 了 
if (rzr<0.011ywe=0.0 1| (rrfabsty)) < TIRNY 1| 《ztgabsty))》>9IG |] 1 
(yx -COMP1 kx >DO.OtEz< COoHP2)) 
nrerrort"invalid arBnimentB in Tc] i 
if (y > 0.0) { 
4 
ty: 
名 1 .0; 
7 else 上 
Xte 工 -了 i 
7 
weSQqzt(X) ASQTLCXL] 1 
} 
do 
所 Lamb<2 . 提 #q 工 世 【 天 让 有 可 工 t 上 《YY 蕊 ) 十 7 证 
xt=0 .25w(IC+&1Smbyi 
tamO . 25 和 (了 蕊 + 生 】 息 划 后] 
aVeeTHIRDe 《+yE+Yy 盛 ) 
种 赤 《了 七 一 AY 牛 ) /前 本 各; 
}》 while 《fabsfs) > ERRTOL3 ; 
retnmra W+(1.0+aaw[Cl+as[C2+g5w(C3+B*rC4) 》) ) /sqrt (ave) ji 


有 时 候 可 能 希望 以 勤 让 德 记号 来 表示 答案 .或 者 也 许 是 ,已 有 了 以 这 种 方法 表示 的 结 
果 , 而 希望 用 上 面 给 出 的 程序 计算 其 值 .这 种 来 回转 换 并 不 难 .第 一 类 勒 让 循 撕 圈 积分 定义 
为 





中 0 
所 《0 天 ) 三 一 一 人 下 
? | 人 (6.11.17) 
第 一 类 完全 柚 圆 积分 由 下 式 给 定 
下 (并 ) 半天 (TrA 2 大 ) 《6, 11.18) 


根据 Rr 有 
.221 。 


王 (9, 克 ) 一 Sin 尺 FKcos 了 1 一 大 sin2p 1) 
天 ( 呈 )》 一 妨 rCOy 1 一 起 1) 
第 二 类 勒 让 德 椭圆 积分 及 第 二 类 完全 椭圆 积分 由 下 式 给 定 


(人 11. ]9) 








可 (9 外 = vT 
一 Sin 多 开 (Cebssp 一旦 sinsp 1) 
1 训 《6. 11 .20 
一 本 双 sin 甸 恨 n(Ccessp ,1 一 到 ssinzp 1) 
正 (到 ) 于 百 (77 2 一 开 FCO 一 嫩 人 1) 一 羡 MeRo(0，1 一 上 ;1) 
最 后 给 出 第 三 类 勤 让 德 桶 加 积分 
1 
[Km ) = 
2 《1 十 msin28) Y] 一 sin2B 
一 Sin6R 民 rcosep ,1 一 天 sin2py|) 《6. ]1. 21》 


一 sing 展 rfrostsg ] 一 起 sinip 1 1 | sin2gp) 


(注意 ,这 里 > 的 符 导 习惯 与 和 bramowtz 和 Stegunt 居 的 记号 相反 ,他们 记 叶 中 sinx 即 光 这 
里 的 天。) 


#imclude <math. h 伍 
并 inclode ”nruiil,h” 


fleat eltfCfiioar phi，float ak) 用 卡尔 森 函 数 Rr 求 鞭 让 乱 第 一 兴业 图 积 分 PCP, 呈 ) 


了 
1 


foat cliiloat x、Jloat y，floar 2 
foat si 


s 一 sinfphi) + 
Teturn s +#+TESQRIosCphi)) 10 一 sS#akyx( 10 二 srak) 10); 


##inelude < 忆 math.h 全 
共 inclunde ”nrutil. hy 


fcat elle(float phi, float ak) 用 卡尔 森 函 数 Ro 各 及 求 第 二 类 动 让 区 棋 圆 丙 分 EdP) 


! 
zloat rdkfloat xy float y。 float z)3 
loat rf fboar xy fioat y，float z) 1 
float ce- 日 "3 


s 一 sinkpPhii 

ee 一 SQRIeosftphj))1 

Q 一 (1. 必 sxrak)x(]1.0 一 S 基 ak)+ 

Teturn srffecyp .1.0) 一 (SQRKS ax)) <tdfcec qd ln)73.075 
上 


让 include < 扫 math,h > 

天 inciuqde "Hpruogil. hr 

iloat ellpitfloat phiy float eny float ak) 
用 卡尔 森 果 数 RRr 种 只 区 第 一 类 惑 让 盆 梢 圆 积分 [LiP.at) 《注意 呈 的 记号 习惯 与 Abramowity 和 Stegun 贞 柜 友 ， 
*，222 。 





float rffrloat xx， hascyy jloat 2 
fleat rjffloat xflea= 9 ozt zs 拉 D5al bb) 
fleat sc venss ,disk 


s 一 Sinftphi); 

enss 一 en 与 炒 5 号 | 

of 一 SQR(costphi) >， 

Q=-(].D SFk)xfl 0--sxax) 

returnsgx ICceyqyl 0 -enssg< rcerq DTTenss)r3.0)1 


卡尔 森 函 数 是 一 172 阶 和 -372 阶 的 齐 次 图 数 ,所 以 


及 FA 用 站 和 )》 一 入 2 及 PT yyZ) 
民生 丰 )》 一 大 术语， YY xi 为 》 


这 样 , 按 勤 让 德 记 纪 表示 Carlson 浮 数 ,就 将 变量 兽 换 成 升 阶 形式 ,利用 齐 次 忻 将 第 王 个 变 


量 映射 到 ] ,然后 应 用 起 (6. 11. 19)~ (6.11.21) 。 
4. 11.1 雅 可 比 棋 多 函数 


定义 雅 可 比 GJaccobi) 闪 圆 函 数 sa 时 , 木 是 考察 桶 圆 积分 
My) 王 下 江天 (六 下) 
而 是 考察 其 反 扼 数 
也 一 Sin 多 一 SnKtE 此 ) 
等 价 地 
这 全 ay 
5 YIT 二 (一 不 y 
下 一 0 时 sn 即 为 王 弦 函数 .函数 cn,dn 由 以 下 关系 式 定 义 : 


sn 一 cn 一 1，Azsnz 十 dn: = 





《6. 1 ， 


1. 25) 


261》 


下 面 给 的 程序 实际 上 取 输 入 参数 ze 一 居 = 1 -如同 时 计算 出 所 有 三 个 函数 sn,cn ,dn , 玉 为 


计算 三 个 并 不 比 计算 其 中 任何 一 个 更 困难 ,详细 的 方法 见 f8]。 


世 include <maatlh,h>> 
灯 definc 驻 太 0. 9003 CA 平方 的 畏 度 


void sncndntfipat uuy Tipat =*mmec， float xsnyfioat tcuy bost >dn) 
返回 雅 可 比 精 癌 函 数 sfoe 光 1cnta)dntz 才 其 中 u=wvemnme 一 有 


节 LIoat aib,c,d,eomc, ai 
float emll14] ,ern[14] ， 
int 1i,ii,1I,bo; 


mcmeemmCi 
有 = 
if 《emwc) 1 
bomfterc < 0.0) 1 
证 《bao)y 
=1 .OO-emc i 
BC = -1.07d， 
= (desqrttd)) 


了 = ,; 
证 dn1 .Di 


: 223， 





#or (i=lii<=13i1v+)》Tf 
Jaii 
6m0[=al 
e9[t]=(amc=SsQxtfomc)) 
CO.5rfayemc)》i 
if 【Tabs[(a~emc》<= CAYa) Dreaki 


PC 机 四 罗 1 
aci 

} 

市 = 性 


本 了 到 3 iD 人 7) ; 
放 Ch=cD3[ 站 ) ; 
计 Er 【95n) 工 
Remf4eDJ AT 
人 中 四 马 ; 
for (ilzliii>=a1;ii--)] { 
b=amfjii]; 
已 在 亚 
C ws 【edn)yi; 
GD=(eD [ii]+Ba]7fhb+a) ， 
am 
】} 
a=31.076qrtfcec+1.0); 
*S 们 王 ( 中 BED > 二 DO 人 了 日 ~) 
香 女 症 严 记 申 【时 芭 驴 ) 
} 
if 《bo) 
aafedn) 
hm ycnu)i 
站 C 站 配色 
证 BED Am di; 


} 
else 1 
Cnal .Orcoehtu) : 
an=m(wcn) ; 
音 症 人 四 上 RDTU)] > 


和 
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5. 12 ”超凡 和 何 函数 


正 妇 第 5. 14 节 讨 论 过 的 那样 ,要 技 到 :个 计算 复 超 几何 羡 数 ;天 (cspyciz) 的 快速 的 各 几 
程序 ,如 果 不 是 不 可 能 的 ,也 是 非常 困难 的 。 该 函数 定义 为 下 面 超 几 何 级 数 的 解析 延 拓 : 
GP 尺 at2 一 1)8( 训 十 ] 》 之 








eeseis》 一 十 二 1 二 1 和 
E 全 间 
ctefTll .ce 二 1) 7 
2 


此 级 数 襄 在 单位 较 1z<1 内 效 误 5( 见 [1 六, 伍 我 们 感 兴趣 的 不 内 是 该 区 咸 。 

第 5. 14 节 讨 论 过 用 在 复 平 面 .上 ,直接 线 积分 求 此 范 数 值 的 方法 .这 里 仅 列 总 得 色 的 结 
果 程 序 ， 

施 数 hypgeo 的 实现 ,正如 程序 中 济 解 描述 的 那样 ,是 很 直接 显然 的 .16 章 中 对 微分 的 
程序 odeint 很 好 用 ,甚至 不 必 完 全 搞 清 楚 :使 用 odeint 需要 个 为 堆 的 金程 变量 .次 上 打数 
的 调 用 、 以 及 对 求 导 程序 bypdry 预先 设 定格 式 。 

当然 , 当 > 值 太 靠 近 奇 异 点 18* 苯 数 hypgeo 会 失效 。( 若 想 靠 近 此 奇异 点 ,或 在 王 处 的 
奇异 点 ,可 用 [1] 中 第 15. 3 节 " 线 性 转 接 公式 ”), 若 远离 x 一 1, 且 aoe'ce 值 适 当 , 则 积分 往往 
只 需要 令 人 吃惊 的 很 少 下 步 即 可 完成 ,一般 为 6 步 . 

林 include <math.h 六 


及 include "cemplex. h” 
芷 ineludqe“nruril-h7” 


此 中 efine 背 PS 1.Pe -5 精 疏 参数 
fcomblex aa hhescy20vrdz; 传递 给 hyrpdrv 
inr kmaxykount 由 adeit 使 用 


float xpy ke #ypydxsar1 


fcohtpiex hypgeoffeomplex 4，Fontbplex b，Komplexey fomplex z) 
通过 直接 对 秒 平 面 革 超 几 何 片 程 积分 ,对 复数 ,2:cv* 计算 复 超 几何 因数 > 严 ，: 分 支 切 换 点 取 寿 洛 实 轴 ,Re x>1 
处 


{ 

void bsstepfflcat 7[] ，flaat dydx[] ，int nv， fl1oat xx，10at htry， 
了 lat ap&，float yeCal[] ，f]1oat #hdid，1oat shnext， 
Yoid 《wderivs)(flcat，float [] ，tloat 中 )); 

void hypdrv(fIcat &，ftloat 了 了 [] ，ftloat dyyds[])); 

Vodd ypP3aer(fcomplexz aa，ftfcomplexz b，complax C，fcomplez 工 ， 
fcomplaz *aezrfbg，fcotp1ex deriv)] i 

Yoid odeint(zlopat ystart[] ，int mvar ，1oat ZL1，f1oat Z2， 
float 6p8，f19at hl，fl1oat bbiDn，iznt nok，int hbad。 
weid (〔*daritvsJftfloar，float 门 ，float [])， 
yeid (*TKqB)(T1oat [，float []，int，fl1oat ?， 三 loat， 节 loat ， 
float []，?1oat ，ftloat ww，Yoid (v)(float，float [] ，flcat [YY，， 

int Dbad ,ack ; 

Tcowplez apae,yf[3]1 

1oat # 了 77; 


maxe0i 
1 (zcezZ.F+Ziwrz2.i < 0,25)《 使 用 级 数 .…， 


"225。 


ee 


ypaer[fab,c,zkansky[2}); 
IdtWID anSi 
】 
else if 【z-T “0.0) z0=Complex{t-0.5.0.0) ; -或 为 线 积分 选择 起 占 
else if (z.T “= 1.0) z0O=Complaxt0.5.0.0) 1) 
else Zz0mConpIer(0.0.z.i >=083?30.5 1; -0.5); 


aa=ai 通过 对 oaeint 削 面 的 全 程 变量 冉 值 ， 
bbeb; 给 hypdrv 传 递 参 数 

Cc=c; 

dz=geub [zz0) 

hypaer(aa,bb ,ce,zO,&y[i] ,sy[2] ) ; 求 起 始 蝗 数 和 导数 


Jy=vectorfl ,4) ; 

到 [ 菩 =y[ti1.7; 

J?[2]=y[l] .ii 

只 [3]=y [2] .r; 

y7 [和 = [2] .i 

odeinartyy,4,0.0:1.0,EPS,0.1,0.0001 ,bnok ,knbadhypdrv,bsekep); odein1 的 参数 见 16 .2 节 
y[1]=ComplLex(yyFl] ,y7T2]) ， 

free_Yectortyy。l ,4); 

retuzra y[1] ; 


开 inrlude ”complex.hn 
站 define ONE Cotmpjexc1.0,10) 


vod hybser(feomiplex 65，fcompjex b，fcomptex c，jeonplex 2，fcomplex < series ，fcombplex * deriv1 
这 各 超 儿 何 级 数 ;5 及 其 导数 :过 代 到 礼 普 精度 ,和 过 1252 时 收 贫 很 失 - 


vodd nrerxYor(chazr error_text[]); 
iot Dj3 
Tcompl1ex aavbb:ccvfaccenpi 


deriv->rs0.0i 

detrtivV~>in0.0i 

ac=Complext1.0.0.0) ; 

七 旨 四 PP 工 下 CC 

aanai 

如 beb， 

CC=C 

for (psiincsl0O00;n+t+) 于 
acsCmulkfaccnul(aasCdivtbbicc)))， 
deriv->T+siac-Ti 
deTriV->1+atac.i， 
下 acmCm]lrEacRCoolKt.DAn,z))， 
*SaTjiessCadd( 世 emp ,Pac)i 
If 《serjies->T sx LTGDP.I 业 尼 Sexigs->i == teBmp,I) TezurDi 
Yemp= *aGrieai 
aa=Cadd(aa,ONE); 
bb=fCaddtbb ,ONE) ， 
ccmCadd(cc,ONE) ; 


】} 


mnzSrTOT [ConVeLtEence Failure in h7paetn) ; 


阐 include ”complex.bhy 
站 define ONE Cemplex DG D) 


cxTIerr fcormbiex aavbbhyeevztrdazs 看 hypgcc 由 这 习 


“226， 


void hypdrw (tloat s，8loat yy[， float dyyds[L]) 计算 超 见 笨 构 的 导数 , 疯 交 中 式 人 5. 14， 人 7 


{ 
fceompblex zy[3 ,dyds[3 


y[1] 一 Comp-ex(yy 1 yyy[2]) 

y[2] 一 Cormb:ex(yyL3_:y[41)4 

z 一 人 add(z0,RCmulfs.dz))1 

dyds[]] 一 Cmulty[2]:dz)， 

dyda[ 2 一 Cmnl(CsuhcCmultCmulCaa,bb):y[1]),Cmul(Csub(cc， 
Cmul(Cadd(Cadd(aavbb)， DDN 了)，z))，yL2]))， 
Cdiv(dz,Cmulfz,CsubIONE ,z))))， 

dyyds[1]=dyds[1].rs 

dyyds[L2] 一 qyds[1].is 

dyyds[3] 王 dyds[2].ry 

gyydqs[44=dyds[2].i) 

} 


参考 文献 和 进步 该 物 : 
和 由 bramnowita，M. ，anqd StegUD，1. 和 、1964， 瑚 aztpoo 上 nz AHatjentateatl Panctfor5， 上 pplied Miathermmatics 


Seriesm ，val. 55.【1] 





第 七 章 ”随机 数 


7.0 引言 


利用 计算 机 ,这 种 人 烽 所 设计 的 各 种 机 将 中 最 精确 .最 能 诈 出 确切 判断 的 机 器 , 膝 产 和 
“随机 数 ”, 这 看 上 去 似 平 有 些 自 相 予 盾 。 基 至 在 概念 睛 花 齐 木 通 的 .任何 香 序 恬 特此 生 出 续 
全 可 久 预 计 的 结果 ,因而 不 是 真正 的 “随从 " 数 ， 

然而 ,计算 机 的 实用 “随机 数 牛 成 程序 " 邯 得 王 广 沪 的 使 腊 。 国 此 这 个 所 相 了 予 厢 的 问题 计 
是 留 给 哲学 家 们 去 深刻 的 解释 吧 !( 参 见 KNUTH 的 第 3. 5 节 的 讨论 和 文 贞 ， 入 站 有 后 把 计 
算 机 生成 的 序列 称 作伪 确 机 ,而 将 随机 -- 词 专用 洲 带 内 在 的 随机 先 理 过 程 氛 产生 的 输 记 , 倒 
如 ， 放 在 放射 性 元 素 祥 铝 旁 ,Geiger 计数 器 的 卡 弄 声 之 回 所 消逝 的 时 间 . 在 此 我 们 不 准备 帮 
切 随 机 和 随机 做 严格 的 区 分 ， 

随机 竹 的 定 交 虽 不 精 罗 , 但 在 计算 机 生 惰 序列 的 用 述 中 指 是 ,产生 随机 序列 的 各 序 这 沪 
在 癌 二 使 用 其 输出 的 计算 机 程序 ,并 有 (在 所 有 可 测量 的 方 而 ?与 后 一 程序 在 统计 上 上 是 本 树 
关 的 。 换 言 之 ,任何 两 个 不 同 的 随机 数 生 或 程 鹿 , 当 它们 与 髓 户 的 特定 应 用 程序 机 结合 时 , 几 
应 该 产生 统计 上 相同 的 结果 .如 果 不 是 这 样 ,( 按 用 户 的 观点 ) 笠 少 其 申 - -个 本 是 好 的 将 机 禾 

上 述 解 释 看 起 来 是 循环 的 ,因为 它 将 一 个 程序 与 基 “个 程序 相互 作 了 比较 ,然而 ,确实 
存在 -- 批 随机 数 生成 程序 ,这 些 程序 对 很 广泛 的 一 类 应 用 程序 都 能 满足 定义 .很 据 经 验 还 发 
现 ,出 物理 过 程 产生 的 随机 数 来 检验 ,能 获得 统计 上 相 岂 的 结果 -正四 为 存在 这 样 的 本 成 程 
治 , 所 以 ,我 们 可 以 把 下 是 义 的 问题 留 给 哲学 家 们 。 

那么 .从 实用 的 观点 来 看 ,随机 性 是 使 用 者 (或 应 用 程序 员 ) 自 己 认 可 的 事 , 对 其 -一 应 用 
问题 来 说 已 足够 随机 的 生成 程序 ,但 未 必 对 另 一 个 应 用 问题 也 具有 足够 的 随机 性 .当然 ,人 
习 不 会 国 那些 不 相 适 应 的 应 用 程序 而 完全 入 知 所 措 : 可 以 用 一 些 现 有 的 统计 测试 表 交 进行 
测试 ,这 类 表 中 某 些 束 是 实用 的 , 某 些 表 只 是 因为 历史 的 原因 隙 奉 若 神明 .得 总 的 米 记 .它们 
企 测 试 祖 关 性 方 曾 都 能 做 得 于 分 出 色 ,如 同 通过 应 用 程序 (用 户 的 应 用 程序 ?进行 册 蕊 … 翌 : 
好 的 随机 数 生成 程序 应 该 能 够 通过 所 有 这 些 测试 :或 者 使 用 者 至 少 能 够 知道 它们 路 导 个 
会 失败 ,所 以 使 用 者 应 该 有 能 力 判断 这 些 千 成 程序 是 机 与 所 探讨 的 情形 有 尖 ， 

关于 这 一 主题 的 参考 资料 ,首先 值得 阅读 的 是 Knuth 的 书 。 至 于 数 信 方法 的 标准 上 书 
籍 -5 中 ,只 有 很 少 几 本 是 将 随机 数 作为 主题 来 论述 的 ， 


参考 文献 和 进一步 的 读物 : 
Kontrrh 1). 开 ，1981，Semlinaeniericetl 凡 LorER zs 2nd ed ，Y5]，2 of YYRe re 9 六 人 rpUter ro 
了 


【 江 eatdiog。， MA， Addison-Wesley)》，Chapter 3，esbecially 3,.5，jii 
Tirutley， 忆 EDx， 民 THIS5hragey 上 上 ,1 ，1983，.3 Cafev iD SipzeletronyNe 加 York: Srinker eag1 


Dahldqtuist， 操 . ，and 瑟 jorck， 启 。1974 ，JYazzazertceaE Wethoddy(Englewood Cliffs、NJ Prentice-Ha4 Chzprcet 
lz 村 

Fersythe，G.E. ，Maleolm ，M, A, ，and Mulery CC. 芭 ，1977，Corrtpatter Methnpefi Jaihemctticarf Comtpa- 
tahenfy (Englewood Cliffs ，NJ;Prentice-Hall) ,Chabter 10.， [4] 


7.1 一 致 偏离 


- 致 偏离 就 是 在 一 特定 范围 内 (典型 为 0 至 1 之 间 ) 的 随机 数 。 在 这 人 入 范 围 内 , 仕 一 个 数 出 
现 的 可 能 性 号 等 同 的 ,换言之 ,一致 坊 离 大 概 就 是 人 们 所 认为 的 “随机 数 " .不 过 ,我 们 总 要 将 
一 致 偏离 与 其 他 种 类 的 “随机 数 " 区 分 开 来 ,例如 ,将 它 与 给 定 的 均值 和 标准 差 的 止 态 分 布 所 
产生 的 数 区 分 开 来 .正如 我 们 将 在 后 面 各 节 看 到 的 那样 ,这 些 其 它 种 类 的 帆 离 , 儿 乎 总 是 要 
通过 对 一 个 或 多 个 --- 致 信 腐 进行 适当 的 运算 而 牛 成 的 .所 以 ,这 一 节 的 主题 是 .随机 一 致 仿 
离 , 它 是 建立 任何 一 种 随机 模型 或 蒙特 卡 罗 (Monto Caolo ) 计 算 工作 的 基本 构造 异 块 、 


7.11 冬 统 提供 的 随机 数 生成 程序 
多 数 c 诸 言 内 部 歼 含 有 可 以 初始 化 并 能 生成 “随机 数 " 的 ANSI 库 下 数 .典型 程序 为 : 


世 inejnde 拓 sfqlih.h 全 
菇 define RAND_MAX 


vaiq srandfunsigred seed); 
int rand(voidl)# 


当 第 一 次 调用 srand (seed) 之 前 ,应 泳 给 seed 赋 一 个 任意 的 初始 值 . 每 个 初始 值 都 会 典 
型 地 返回 不 同 的 随机 序列 ,或 者 至 少 是 基 个 极 长 序列 的 不 同 的 子 序 列 .不 过 在 函数 seed 中 
相同 的 初始 值 总 是 返回 相间 的 随机 序列 。 

采用 连续 调用 rand() ,可 以 在 序列 中 得 到 连续 的 随机 数 . 这 个 衣 数 返回 一 个 整数 , 它 通 
常 处 于 0 至 最 大 的 可 表示 的 正 整数 之 间 ( 含 最 大 正 俏 整 数 ) .通常 ,作为 ANSI C 标准 ,这 一 最 
大 值 可 用 RAND-MAX 来 表示 ;有 时 则 需要 用 户 自 己 找 出 来 .如 果 需 在 0. 0( 仿 0. 0) 和 1.0 
(不 含 1. 0) 之 闻 得 钊 一 个 随机 浮 点 数 , 可 用 以 下 表示 方法 : 


x 一 rand()/(RANP_MAX 二 1.0) 


在 本 章 中 ,这 -- 节 最 重要 的 内 容 是 ,对 系统 提供 的 rand() 产 生 很 大 很 大 的 怀疑 ,因为 它 
同 我 们 刚刚 叙述 的 内 容 很 类 似 。 由 于 不 合理 的 函数 rand() 使 一 些 科学 论文 的 结果 值得 怀 
疑 ,如 果 将 这 些 科学 论文 从 图 书馆 的 书架 上 全 部 取 走 的 话 ,那么 在 每 个 书架 上 就 会 留 出 一 洗 
之 宽 空 阶 。 因 为 系统 提供 的 rand() 几 乎 总 是 线性 同 余生 成 程序 , 它 是 按 以 下 的 递 推 关系 生 
成 整数 序列 万 ,五 五 ，…… 每 个 数 都 在 0 和 闫 一 1 之 间 ( 例 如 ,RAND_MAX)。 
7 一 Ga 六 十 5 《tmod 茹 》 《7. 1, 1 
这 里 ”* 称 作 模 ,2 和 “是 正 整 数 ,分 别称 作 乘 子 和 增 量 . 递 推 式 (7. 1. 1) 一 直 反复 进行 ,其 周 
期 显然 不 超过 六 。 如 果 恰 当 的 选取 普 ,a 和 c，* 则 将 获得 最 大 周期 为 长 度 思 在 这 种 情况 下 ,0 
与 台 一 1 之 间 的 所 有 可 能 的 整数 都 在 某 点 出 现 ,因而 任何 初始 "种子 "7, 的 选择 都 与 其 他 选择 
一 样 :序列 恰好 从 该 点 产生 。 
尽管 这 种 “ 般 的 结构 已 足以 能 提供 相当 不 错 的 随机 数 ,但 它 的 实现 方法 也 很 多 .如 果 不 
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是 这 样 ,ANSIC 语言 库 基 相 当 有 缺陷 的 ;但 其 中 一 定数 些 的 实施 方法 只 能 " 抽 沙 不 洪 址 下 
作 ”. 这 个 责任 将 由 ANSIC 委员 会 和 他 们 的 实施 者 来 重担 ,典型 多 问题 如 下 

首先 ,由 ANSIC 标准 规定 rand() 返 加 “个 束 数 型 的 数值 ， 这 个 整数 在 许多 机 器 中 只有 
帅 个 宰 节 的 长 度 一 使 RAND_MAX 通常 不 是 很 大 .ANSIC 标准 要 求 RAND MAX 品 筷 号 
是 32767。 在 许多 情况 卜 , 这 可 能 是 灾 难 性 的 。 对 蒙特 证 罗 积 分 (第 7.6 节 ?和 (第 7.8 本 
大 概 居 要 对 19* 个 不 癌 点 进行 计算 求 值 . 于 荐 .根本 不 相反 的 每 一 次 计算 求全 ,实际 上 二 直 3 
同 祥 钓 32767 个 总 进行 30 次 运算 ! 央 此 ,必须 骨 确 地 丢弃 : 些 库 内 其 具有 了 两 个 字 节 肖 必 章 的 
随机 数 特 序 ， 

其 次 ,ANSI 委员 会 发 表 的 理论 说 明 中 包 售 了 以 下 有 害 的 “ 段 话 : "委员 会 规定 ,一 种 详 
施 方法 所 提供 的 rand 函数 , 它 能 在 该 实施 过 得 中 产生 最 好 的 随机 序列 ,那么 , 文 种 实 莫 产 法 
是 允许 的 .所 以 ,没有 规定 标准 的 算法 .这 就 是 承认 人 在 不 同 的 实施 方法 中 ,函数 能 产生 机 同 芍 
的 随 礼 序列 ,正如 已 发 表 的 实例 …”, 这 个 “例子 ?是 


unsigned long next 一 ]4 
in rand fvoidl) ”ax NGOT RECOMMENDED (see texry = 7 


hext=next# 1]103515245 十 12345# 
return 《unsigned int)y(nexty65536] 只 32768， 
} 


void srandtfunsigned int seed) 
， 
Text 一 Seed; 


相当 于 式 (7. 1. 1) 中 取 a=1103515245,c 一 12345 ,mm 一 22( 因 此 ,算法 在 无 符号 长 精 庶 数 
撕 类 型 下 计算 ,能 保证 返回 正确 的 低 阶 位 ) .在 该 例 中 。 和 * 虽 并 非 是 最 好 的 选择 ,但 总 的 来 
说 ,对 它们 的 选择 不 是 特别 复杂 .然而 .真正 弄 巧 成 指 的 是 ,执行 者 们 把 委员 会 的 上 述 陈 述 作 
为 依据 , 试 着 村 发 表 例 子 上 作 " 改 进 ”. 例 如 ,在 一 台 普 通 的 32 位 PC 兼容 机 上 , 装 上 -个 与 
上 述 相符 的 长 型 类 的 生成 程序 ,但 它 交换 了 返回 值 的 高 16 比特 位 和 低 16 比特 位 .有 人 认 
为 ,这 种 流行 的 额外 的 随机 数 实 际 上 在 破坏 程序 . 当 错 误 混 合 夺 一 起 时 .就 会 在 线性 同 余 生 
成 程序 中 :形成 原始 的 根本 错误 .这 就 是 我 们 规 在 正 要 讨论 的 门 题 。 

线性 同 余 的 方法 具有 速 庶 快 .每 次 调用 只 需 少 昌 运 算 等 优点 ,因此 几乎 是 通 肯 的 .但 它 
的 徐 点 是 在 连续 调用 时 ,不 能 避免 序列 的 相关 年. 如果 同时 使 用 点 个 随机 数 在 维 空间 中 朱 6 
点 作 图 (每 个 坐标 都 在 0 和 1 之 间 》 .这 些 点 不 会 出 现 “ 充 满 冯 维 空间 的 趋势 , 相 皮 地 将 位 于 大 
一 1 维 * 平 面 ?上 ,这 样 的 平面 最 多 大 的 有 个。 并 上 如 果 常 数 台 ,4 和 上 不 是 选 得 很 仔细 的 
话 , 则 平面 的 个 数 还 要 少许 多 .如 果 数 内 为 32768 ,那么 车 三 维 空间 中 ,三 重点 位 于 的 半 面 
数 将 不 超过 32768(2”) 的 立方 根 , 即 32 . 既 使 阅 接近 桃 器 所 表示 的 晨 大 整数 ,例如 一 22， 
那么 三 重点 所 位 于 的 平面 数 ,通常 不 超过 2 的 立方 根 , 约 为 1600 .那么 ,用 户 不 如 将 注 窟 力 
只 集中 在 总 体积 中 一 小 部 分 范围 内 发 生 的 物理 过 程 上 ,所 以 平 页 的 离散 性 非常 明 吕 . 

更 糟 的 是 ,读者 可 能 正在 使 用 个 程序 , 它 选 择 的 六 ,ea 和 上 往往 异世 成 拙 ,一 个 很 癌 幼 
的 这 种 程序 如 RANDU, 其 a=65539 和 2 ,在 38M 计算 机 上 流传 了 许多 年 ,并 被 广泛 复制 
在 其 他 系统 上。 我 们 中 的 一 位 检测 产生 了 了 只 其 有 11 个 平面 的 -个 “随机 ” 周 。 他 所 在 的 计算 
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机 中 心 程序 设计 顾问 告诉 他 ,这 是 误 用 了 旦 机 数 生 成 程序 因此 得 出 这 种 结论 :* 我 们 保证 丝 
一 个 数 单独 来 说 部 是 随机 的 , 拒 是 并 不 铝 证 一 个 以 上 的 数 也 是 随机 的 ”。 

开 维 空间 的 相关 性 并 非 是 线 些 同 余 生成 程序 的 唯 -缺陷 。 这 种 生成 穆 序 的 低 阶 位 (最 小 
有 效 位 ?党 常 比 它们 的 高 险 信 随机 吐 养 得 多 .如 果 想 在 : 和 10 之 问 生 蕊 -个 随机 整数 ,应 
j 一 1 十 (inty》 10.0*xrand0y7CRAND_MAX 十 1.0)33 
人 而 决 不 应 该 用 ， 
j 一 1 二 (randf) 基 10)4 


《 它 使 用 了 低 阶 位 ) .同样 , 决 不 能 将 *rand(>》" 数 分 成 儿 个 想像 的 随机 段 , 诗 是 尿 该 对 每 段 采 
取 不 同 的 调用 。 


7.1.2 可 移植 的 随机 数 生成 程序 


Park 和 M:ler 研究 出 大 量 的 随机 数 生成 径 序 .这 些 程序 迄今 为 止 已 被 使 用 了 近 30 多 
年 。 随 着 严格 的 理论 检验 ,他 们 指出 了 一 些 正在 被 广泛 使 用 的 不 适当 的 程序 实例 。 
这 里 有 一 个 很 好 的 经 过 理论 与 实际 检验 的 论证 ,这 就 是 简单 的 乘法 问 余 算法 ， 
+: 一 G (mod xz) 《7?. 1.2) 
如 果 乘 数 e 和 模 普 选择 得 仔细 精确 , 它 可 以 和 * 夭 0( 式 (7. 1.1)) 的 线性 同 余生 成 程序 … 样 
好 .Park 和 Miller 提出 了 :个 基于 以 下 选择 的 “最 低 标准 程序 ”， 
全 一 9 一 16807 
到 一 2 一 1 一 2147483647 
这 个 程序 在 1969 年 首先 由 Lewis ,Goodman 和 Miller 提出 ,这 个 程序 在 以 后 的 几 年 里 ,通过 
了 所 有 新 型 理论 的 检验 ,并 且 ( 也 许 更 重要 ) 积 累 了 大 量 成 功 的 应 用 经 验 .Park 和 Miller 从 
未 自称 这 一 程序 是 “完美 ?的 (在 下 而 我 们 可 看 到 它 并 非 完 美 ) ,但 是 与 其 他 称 序 相 比 较 ,经 监 
定 这 个 最 低 祭 准 程序 是 鼠 好 的 。 
在 高 级 语言 中 ,直接 实施 式 (7. 上 , 2) 和 (7. 1. 3) 是 不 可 能 的 ,因为 a 和 六 一 1 的 溢 积 趣 过 
了 32 位 整数 的 最 大 值 . 在 汇编 语言 的 执行 过 程 中 ,使 用 64 位 乘积 寄存 器 旦 很 简单 的 .但 用 
于 机 器 与 机 器 之 间 的 数据 传递 就 很 不 方便 。 当 两 个 32 位 整数 之 名 以 一 个 32 位 的 常数 为 模 
时 :不 用 借助 其 他 大 于 32 位 (包括 符号 位 ) 的 辅助 寄存 器 ,这 个 诀窍 应 归于 Schrage:23 , 寺 
此 非常 感 兴趣 的 是 :最 低 标准 程序 允许 在 所 有 机 器 中 ,用 任何 一 种 基本 的 程序 语言 来 执行 ， 
Schrage 的 算法 是 基于 和 的 近似 因子 分 解 


丙 一 9 十 > 即 byej，r 一 加 moda 【7 


和 让 


方 括号 表示 整 数 部 分 . 若 >- 很 小 ,特别 是 ><<g 且 o<z 扫 更 一 1 刚 可 以 看 出 wets urud g) 
和 zts/g] 都 处 在 0,…,zm 一 1 范围 内 , 且 
atz inod ud) 一 r[xzj9] 苦 它 盖 0， 下 
ax mod 尺 一 2 (7.] .57) 
takgz mod eg) -re] 十 训 其 它 
对 式 (7, 1. 3) 中 的 常数 ,Schrage 的 算法 取 g 一 127773， 一 2836.。 
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这 里 有 个 最 低 标准 程序 ， 


信 dcftne IA 16807 

并 dejine JIM :147483647 

刀 dejine 和 MI 1.D7IMD 

匡 define JI 127773 

花 define ]R 2336 

片 dcfinec MASK 123459878 


fioat ran9flong <* idumy) 


bar 却 Mitler 的 “最 低 * 泪 机 数 生 成 程序 - 汪 回 在 0 必 至 1.0 之 问 的 一 仇 随 棉 调 亢 。 设 补 这 un 为 江 莹 蛛 笋 下 际 -AAA 
外 ?用 于 初 始 评 和 倘 . 为 应 列 中 这 续 偏离 而 连续 调 出 和 ,idum 人 木 允许 尿 变 : 


]ong ks 
loat anss 
xidum ”一 MASKI 对 于 idum ,上 与 MASK 异 或 允许 使 用 零 或 其 他 简单 的 演 谨 这 


kk 一 (xidurmDyIQ; 

x idum 一 IAAx(Kxidum- kyJIQI 一 ]IRek; 所 Schtag 潜 计 算 idum 一 (= idutmy 凤 FM 不 会 汪 出 
让 《=idum < 0) xldum 十 一 JM; 

bmns 一 各 M 《< ionl); 变换 idum 为 序 点 到 结 吴 

#idum ”一 MASK:; 版 蔬 前 去 研 收 

Teitutn ansi 


Tan0 的 周期 为 2 一 2ss2.1X10. 在 (7.1.2) 形 忒 的 特殊 程序 中 , 心 值 是 雇 不 允许 做 为 时 
始 种 子 一 它 只 能 维持 它 本 身 一 它 决 不 可 能 出 现任 何 非 0 的 初始 种 子 。 然 而 经 验证 明 ,位 用 者 
总 是 设法 用 种 闻 idum=-0 来 调用 随机 数 生成 程序 ,原因 是:ran0 在 人 幻 和 出 口 处 都 用 任意 
常数 米 执行 它 的 蜡 或 .如 果 刑 户 能 指出 前 人 的 错误 ,就 可 以 把 用 ”操作 的 这 两 行 消去 ， 

Park 和 Miller 讨论 了 另外 两 个 乘 了 ea。 它 们 都 可 用 于 同一 个 产生 2 一 1 它们 是 字 
48271( 与 9 一 44488,r 一 3399) 利 Le 一 69621(J 9 一 30845 洲 一 23902)。 如 果 需 要 的 话 , 这 些 佳 
可 在 ran0 的 程序 中 圭 换 .它们 比 Lewis 等 所 采 甩 较 长 的 试验 值 略 有 所 强 , 除 汶 些 值 之 外 ,其 
他 的 值 都 不 能 用 。 

ran0 程序 是 一 个 最 低 标准 , 它 的 大 多 数 应 用 是 令 人 满意 的 。 但 我 们 并 不 把 它 作为 随机 
数 生成 程序 的 最 新 成 就 来 推荐 .我 们 的 理由 是 ,这 个 最 低 标准 尾 非 常 地 简单 ,不 难 想 象 这 础 
情况 ,在 需 司 用 连续 的 随机 数 处 , 它 与 生成 程序 的 算法 可 能 有 抵触 .例如 ,由 于 连续 数 与 2X 
108 的 模 数 只 相差 一 个 1.5X 10: 的 倍数 .因此 ,非常 小 的 随机 数 之 后 趋 于 跟 有 一 个 小 于 平 雹 
值 的 数 .例如 ,在 10' 的 范围 内 ,一 旦 有 一 个 小 于 10 的 值 返回 ,在 这 个 值 的 后 面 总 是 跟 有 有 
一 个 略 小 于 0. 0168 的 数 ,这 就 很 容易 炬 到 , 妇 果 把 这 些 参数 应 用 于 特殊 事件 ,就 会 导致 错误 
的 结果 。 ; 

还 有 更 难以 捉摸 的 一 系列 相关 性 出 现在 ran0 中 。 例 如 ,如 果 连 续 的 点 (六 7) 属于 
维 平 面 ,i=1,2，. ,AN 著 么 当 交 宵 比 10 大 一 点 , 且 远 小 于 天 一 2 周期 时 ,其 结果 使 空 榨 验 
兴 歼 。 因 为 低 阶 顺 序 相关 性 如 此 令 人 头痛 ,而且 , 现 有 的 消除 它们 的 方法 又 是 非常 简单 ,内 此 
我 们 认为 应 谨慎 地 使 用 它 。 

下 面 的 ran1 程 序 使 用 了 最 低 标准 产生 随机 值 , 但 它 为 消除 低 阶 顺 序 相关 性 而 搅 息 了 输 
出 随机 偏离 要 获取 序列 坊 中 的 第 7 个 值 , 它 不 是 取 在 第 7 次 调用 中 的 输出 值 , 而 是 到 在 谢 
用 平均 /+32 次 后 的 随机 值 .这 种 混乱 的 算法 ,往往 就 滞 Rays 和 Uarham 在 Kanrh 下 乓 

2532。 


描述 的 那样 ,如 网 7. 1. 1 中 所 冰 进 的 。 





图 中 加 圆 国 的 数 表 示 事 件 的 更 序 : 在 每 次 调用 中 ,y 中 的 随机 数 是 用 来 选择 落 组 * 
中 的 随机 元 壳 。 该 元 素 变 成 输出 陆 读 数 , 并 用 也 就 是 下 一 个 y, 它 在 * 中 佑 胃 由 景 钙 
标准 程序 重新 这 补 
图 7.1.1 用 于 ranl 的 混 浇 过 程 , 它 破 坏 了 在 最 低 标准 随机 数 生 成 程序 中 的 大 译 相关 性 


开 define J 内 16807 

巧 define lM 2147453647 

下 efine 上 站 M 107IMD) 

共 define ]Q 127773 

娄 站 efine TR 2836 

共 define NTAB 32 

林 define NDIV :1+IIM 一 1)7NTAB) 
区 define EPS 1. 2c--7 

其 lene RNMX (1.0-- 上 PS) 


了 ioat ranltlong * idum) 
barktt 和 Miher 的 " 匠 低 "随机 数 产 牛 程序 ,包括 Bays 一 Purham 的 混 旋 算法 昌吉 了 误 折 .把 回 0.0 一 1.0 之 间 蚊 一 致 


随机 人 悄 高 ,( 除 终 点 侍 甸 ) .以 idum 的 负 整 数 作 为 初 家 调用 :所 以 在 连续 损 腐 的 见 齐 中 idam 值 不 允许 改 恋 .:RNMKX 
近世 为 小 于 1 的 最 大 浮动 伪 、 


int j'; 

ong KX; 

Statdic Long iysOi 
at8Y1C Cn 训 ivY[WTAB] ; 


节 1oat temp: 
dz (sdanm << 0 11 4iy) 工 初始 巾 值 
三 《=- (iduma) < 1) idumnl; 本 等 防止 idum -0 


9139 #tdum = -~[*#jidum); 


for (j=NTAB4+7;j>=0;j--)》T 装载 混 洗 者 .8 以 后 递增 ， 
Je= fwidum)yIQ; 
于 iduuns<TAw (zidum-xXeTIQ)-IRwk， 
iz (wsidumn < 0) *idum += IN3; 
if (j < NTAB) iv[j] = sidum; 


iy=iv[0] ; 
k=ksidumy7I9; 非 茹 值 吕 动 
让 idumsIAwfs*idum-x*+IQ9)-IReki 用 Schrage 的 沪 法 计算 tdaume(IAszidum) 愉 
1 (+#+idum < 吕 ) *idum + IN IN 不 会 洪 出 
jniy/NDIV; 付 0，,NTAB-~1 若 半 内 
iyaiv[j]; 预先 俱 存 和 扯 后 输出 井 填 产 混 洗 圾 


ir[j] ”wzidum; 人 
2 〔{tamfmkM4iy] > RNMX) return RNNMX; 使 出 者 个 要 求 终点 全 
昌 13 日 ZGtixrn 了 tempi; 


) 
ran1 程 上 序 通过 了 ran0 没 能 通过 的 统计 测试 .事实 上 .我 们 并 不 知道 ran1 末 能 通过 代 吉 
统计 的 测试 ,除了 起 始 调用 的 次 数 变 成 周期 冲 的 阶 , 例 如 大 于 10*=mz/20。 
对 于 菜 些 场合 需要 更 长 的 随机 序列 时 ,1L.,Eeuyer5 给 出 了 可 将 两 个 不 同 凋 期 的 序列 组 
合 ,来 形成 一 个 新 序列 的 方法 : 沪 序 列 的 周期 是 这 号 个 周期 的 最 小 公 倍 。 基 本 原理 是 托 丙 序 
列 简单 地 相 加 ,它们 二 者 的 模 之 一 做 为 模 , 称 它 为 因为 避免 中 间 值 溢出 整数 值 范围 的 好 方 
法 是 相 减 而 不 是 相 加 ,然后 再 把 常数 说 1 加 回去 (如 果 结 果 近 0) ,这 样 就 把 数 限 制 在 所 期 望 
的 区 间 0，. ..， za 一 1 的 范围 内 。 
值得 注意 ,这 种 受 约束 的 减法 可 以 从 第 一 序列 的 每 一 个 值得 色 所 有 的 值 0，,. ,办 -…， 
但 这 并 不 是 必须 的 。 其 实 , 考 虑 到 不 合理 的 极端 情况 ,被 减 值 只 在 1 和 410 之 闻 ; 所 得 的 序列 在 
随机 性 方面 不 亚 于 它 自己 的 第 一 序列 .实际 上 ,第 二 个 序列 的 值 域 基本 上 才 盖 了 第 一 个 序列 
的 值 域 ,是 必 不 可 少 的 .LEeuyer 论述 了 两 个 程序 的 用 法 ,zz 一 2147483563(a; = 40014 ,wy 
二 53668,r: 一 12211) 和 jms 一 2147483399(es 一 40692,gs* 一 52774vr: 一 3791) 。 两 个 模 数 都 略 小 
于 23 ,周期 加 一 1 一 2X3X7X631X81031,m: 一 ] 一 2X]19x31X1019Xt789, 只 有 一 个 公 因 
子 2, 所 以 组 合 后 的 程 享 周期 为 2. 3X 105 .对 于 目前 的 计算 机 来 说 ,超出 这 个 周期 是 不 可 能 
的 事 ， 
两 个 程序 的 组 合 ,在 很 大 程度 上 破坏 了 顺序 相关 性 ,尽管 如 此 ,我 们 (在 下 面 ran2 的 程 
序 中 ) 将 介绍 相 加 混 洗 的 执行 过 程 。 我 们 认为 在 它 的 浮 点 精度 范围 内 ,ran2 提 供 了 很 好 的 随 
机 数 . 这 里 对 * 很 好 ?” 定 义 是 ,我 们 将 花 1000 美 元 奖励 给 第 一 个 找 出 它 错误 的 读者 (用 不 导 
常 的 方法 列 出 ran2 在 统计 测试 中 的 错误 ,机 器 浮 点 数 表示 的 “- 般 限制 除外 )， 
fdefine IMT1 2147483563 
闪 define IM2 2147483399 
并 define AM (1.07TM1 一 1) 
六 defins JIMM1I (IM1 1) 
共 define JIA]1 40014 
信 Gefine IA2 40692 
共 define IJQ1 53608 
##define 1]Q2 52774 
因 define IJIRR1 122]11 
共 define ]R2 3791 
才 define NTAB 32 
次 define NDIV (1 一 IMM1LZNTSB》 


共 qdefine EPS 1.3e…? 
间 definhe 有 RNRMX :1 ECPS) 
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iloar ran2[long > idqum) 时 
忆 枚 aoer 的 长 导 期 (2>2x 108) 随 岂 数 后 成 程序 包括 Bays 一 Durham 能 混 洗 算法 而 下 雪 了 多 护 。 这 国 00- 1 之 癌 


的 一 致 随机 偶 离 ,! 除 交点 值 外 ), 调 出 idutm 的 负 整 数 为 定 倩 .在 连续 幅 离 振 列 中 :dam 得 不 从 诈 改 业 ,RN 还 限 
为 小 于 ! 的 最 大 浮动 值 。 


inmt 

long ki 

stgtic long 记 utmn2 一 123456789， 
static jong 1yr 一 0; 

stztic ]ong iv[NTABj]; 

iloat tempiy 


证 (xidum 扫 一 0)1 河 始 赋 他 
if 一 Kx#idum7y<1》 ium 一 1: 二 准 陆 止 划 uaa 一 电 
else # 这 um 一 一 (+#+idumy)i 
jidum2 一 (# idum)# 
ior 人 一 NTAB 一 75j>> 一 0 六 紫 载 涯 洗 表 5 以 后 说 增 ) 


上 一 (ridumy7itQ1; 

#idum 一 IAly*(x*idum 一 ks=JIQ1) 一 k*IR1， 
这 (xidum<:0) idum + 一 IM1l 

这 《j<NTAB) iv 六 一 >*idumy 


} 
这 一 ivo] 
k=(xiaom)7IQli 症 补 始 值 忆 避 
#idum 一 IALkxidum -kxIQ1) 一 ktIR1 用 Sechrage 的 方法 计算 idum 一 (LA1L > uloy55IMI] 不 会 
省 出 
xidum<O) + idum 十 一 JM33 
kk 一 idaum37IQ2， 
idum2 一 IA2x [idum2 一 Kx TIQ2 一 ki TIR2: 计算 :dunt2 一 (TI 总 2* idumy[M2 不 会 洛 生 
于 《dum2<0) idumz 十 王 IM2; 
j 一 iy7NDTYV， 硅 0.. ,NTAE 一 :药力 内 


iy 一 iT 一 idum2+ 

ivljj 一 <*iqums 

ty 二 1) iv 十 = 一 IMM]1 这 里 jdum 已 被 混 洗 .idum 和 记 bm2 组 人 大 六 二 办 后 
下 (temp 一 AM kr 计 ) 人 >RNMX) retmurn RNMX; 使 用 者 大 归 求 终点 值 


else TetuID tempti 


J Beuyecrt 列 出 了 一 些 附 加 的 小 程序 ,这 些 程序 可 以 合并 为 一 个 大 程序 ,包括 可 以 执行 
16 位 整数 计算 ， 

最 后 ,我 们 把 Kaurh 建议 的 可 移 档 性 程序 提供 给 大 家 ,我 们 已 将 它 转换 成 为 班 在 的 
程序 , 称 作 ran3. 这 个 ran3 根本 不 是 基于 线性 同 余 的 方法 ,而 是 以 一 个 相 减 方法 为 基础 ( 殉 
[5]?。. 人 们 也 许 希 望 ,如 果 这 个 程 订 有 缺点 , 它 应 与 前 面 的 ranl 的 缺点 具有 截然 不 同 的 特 
征 .如 果 用 户 总 是 对 一 个 各 序 产生 怀疑 ,那么 一 个 好 的 办 法 是 ,在 同 -- 个 应 用 程序 路 坛 用 -- 
下 其 他 程序 ,ran3 具有 一 个 漂亮 的 功能 :如 果 所 用 的 机 呆 在 整数 算术 方面 (限于 16 位 的 整 
数 ? 很 差劲 ,你 可 以 加 注释 ,将 mj,mk 和 ma[] 遂 为 浮 点 数 ,并 且 定 义 mbig 和 mseed 分 别 为 
4000000 和 1618033 ,于 是 相应 这 个 程序 将 全 部 变 成 浮 点 型 程序 。 

并 defimne MBEIG 1009000000 福 据 Knrulny 任 何 很 太 范 MBIG 和 作 们 蒋 小 

共 Qefine MISEED 161803308 扩 ( 得 们 很 大 >MSEED 部 可 蔡 换 这 些 值 

坟 define MZT 

区 define FAC (1.07MBIG) 

float ran3(long * idumy) 返 同 0.0~i15 之 癌 的 ， 敏 匈 机 坑 离 ,必定 idam 为 任意 负 值 ,作风 字 江 的 向 妨 这 
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近 眶 更新 补 始 忠仁 
sthtic int jinextvinextp 
STatic long nial 56 德 56( 甚 芒 加 na 1 .356 加 -村 头 直 . 虹 丰 应 站 动 :参见 攻 nn 
Static jnt 二 全 
long mmjsmki 
inc iviitk; 


让 《= idum<0 |i 放 一 一 六 红 姑 蝶 血 
i 香 一 1; 
Dj 一 MSEED 一 fy idam<n23 +*igarm :> iimyi 使用 和 节 iigum 于 天数 MSFFTT 村 
mmj 站 一 MEIG 宁 奸 走 得 
Ia _ 35 一 
mk 一 1; 
for 4i=11i<54i 十 一 多 观 企 按 稍 微 随机 和 能 顺 绊 , 首 下 不 基 持 别 随 包 的 数 , 对 表 的 虑 余部 分 宁 冶 开 主 
ii 一 【2211 泊 3 
ma[i]- 一 mk; 
bmk 一 上 -一 mk， 
(mk < MZ) mk 一 一 MHNLG3 
mmj 一 ma[it]s 


ter (kk 一 1ik<< 一 4 十 十 》 我 们 用 ”的 癌 后 成 各 宁 的 沙 法 "来 随和 机 汪 它 和 入 


for(i 一 Ti 一 5 1 7 
ma[i] 一 一 ma 1 十 i 一 30) 吃 55 3 
这 (ms il < MZ) ma[i- 十 - MBIC， 
inexr 一 站 准备 第 一 个 竺 成 数 指 款 
inexrp 一 311 此 数 31 为 竺 殊 数 ,参见 Rnat 
# jiduz= 15 
》 
这 【十 十 inext 一 二 56) imext 一 1 增 量 iarext 和 inextp 在 56 至 1 间 锋 环 
主 《 十 十 inextp 一 一 56》 inextp 一 11) 
ij 一 ma[inext] 一 ma[Linextb]i 相 减 而 生成 新 随机 数 
并 (mnj < MZ) tmj 十 一 MBIG， 应 当 壕 信 它 亦 屯 回 之 内 
ima[inext 一 mjt 将 其 存 贮 
Yeturmm rs 下 AC4 并 输出 得 到 -- 致 航 机 司 高 


7.1.3 快速 而 略 有 缺陷 的 生成 程序 

人 们 经 常 需要 将 快速 而 略 有 缺陷 的 随机 数 生成 各 序 内 毫 在 程序 之 中 ,也 许 只 取 一 行 或 : 行 代 网 ,公公 
稍微 有 一 点 随机 的 意思 .例如 ,人 们 可 能 希望 在 并 示 始 辫 相 同 质 序 的 实 恰 中 处 再 数 据 ,所 以 ,要 求 第 - -个 条 
出 要 比 可 能 出 现 的 其 他 情形 更 "典型 "。 

对 于 这 种 应 用 ,实际 上 真正 需要 的 就 是 ,合理 "好 在 式 (7.3. 1 中 选择 一 组 ma 和 -, 刘 果 我 们 并 下 总 
要 一 个 比 10' 到 10 更 长 的 局 期 , 则 我 们 可 以 维持 (m 一 1)e 十 c 交 值 足够 小 ,使 其 小 到 足以 在 Schrage 的 姑 杂 
方法 中 能 各 免 勤 出 .我 们 可 以 很 容 妈 地 将 


unxigncd loopg jran yiayicvinmy 
jioat rany 


Jran 一 (jtan# 志 十 ic) 名 im 
rath 一 [float) jran (float》 im 


嵌入 我 们 的 程序 每 当 我 们 需要 一 个 快速 而 略 有 缺陷 的 一 至 偏离 时 ,或 杠 得 到 在 jn 利 jhi( 包 括 着 个 诺 点 在 
内 ) 之 问 的 一 个 整数 时 , 则 可 以 用 


jrahn 一 (ifan + ia 十 ic) 叫 im 
j 一 jlo 二 (hi 一 :Jo 十 1) xjran)yimy 
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(在 阿 笠 情况 下,jran 站 取 @ 利 im 一 ! 之 加 的 任何 神子 值 井 行 初始 化 .) 

应 当 确 认 , 当 im 很 小 时 , 它 的 第 上 次 根 , 即 为 才 绯 空间 平面 的 个 数 , 甚 至 会 更 小 .所 以 一 个 快速 却 略 4 
岂 陷 的 径 序 将 饮 对 不 能 几 来 选择 上 > 1 的 点 维 空间 的 点 ， 

有 了 以 革 的 说 啊 , 对 于 * 好 "的 常数 的 选 搓 庄 下 西 的 卖 ?. 1. 1 给 出 .这 世 常 数 全 给 出 最 大 蕉 并 ini 时 冲 


1 


期 ,于 且 更 重要 的 是 全 ?对 2 维 、3 维 、4 绯 .5 绯 ,6 维 的 情形 通过 了 Knuth 的 “ 潜 检 验 ”. 增 基 昆 一 个 接 运 ( 9 
一 言 V 3 ) 库 值 的 素数 ,实际 上 儿 乎 避 im 音素 的 ic 值 导 会 通过 这 一 检验, 不 这 有 些 "经 验 铅 训 "有 利 二 这 


种 谋 皂 ( 盆 见 [4],48 丰 )。 
表 7. 1. 1 用 于 快速 而 略 寿 缺陷 的 生成 程序 中 的 常数 


本. 油 出 ie 
607 86430 


121500 
鸡 呈 2509200 


7875 117128 
121500 
6075 312500 
6655 936 
11979 430 143800 
17S000 
14406 967 233280 
29282 419 244944 





53125 131 


139968 

12960 1741 214326 

14000 1541 了 14025 
21870 1291 

3 了 04 6525 134456 

139968 ”205 -259200 


29283 1255 233280 
&1000 421 714025 
134456 281 





7.1.4 更 快 的 程序 


在 C 语 襄 中 ,车 在 32 位 长 整 卉 表示 的 机 器 中 , 鉴 将 呐 个 励 符号 长 整 型 整数 相 乘 ,返回 值 只 是 64 位 乘 
积 中 的 低 32 位 .如果 我 们 选择 加 一 222, 则 式 (7, 1, 1) 中 的 这 个 * 柜 "是 任意 的 ,而且 我 们 有 简单 的 : 
141 一 QT 一 《7,， 1.) 


Knuth 建议 s 一 1664525, 做 为 m 的 一 个 适当 的 匀 子 ,H, W. Lewis 用 e 一 1013904223. 对 * 值 进行 了 大 
曹 测试 , 它 是 一 个 接近 ( Y 5 一 2)mm 值 的 素数 ,这 样 结果 的 牛 成 程序 (我 们 将 称 它 为 raaqal) 是 简单 的 ， 
unsigned long idums 
iaum 一 1664525L sidum 十 1013904223L; 


这 个 程序 和 任何 32 位 线性 同 余 程 序 一 样 有 效 , 基 本 上 满足 许多 应 用 的 需要 ,而且 只 有 一 个 单独 的 乘 
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法 和 如 法 ,速度 丁当 快 。 

为 了 恰 查 机 器 旋 否 具有 所 旧 求 的 整数 桩 能 ,就 紫 看 记 是 否 能 党 生 下 列 32 位 值 的 序列 (这 里 攻 以 十 二 
着 浴 呈 的 ):00000000，3C6EF35F ,175602932 DCCESE9S AAAF33334，0252P503、9F2E0C686，27TL 上 兴 D- 
和 3SD95FA8,8IFDBEE7,94FOAFIA,CBF633DB1L。 s 

如 果 需 要 的 是 羡 点 值 放 厅 32 位 整数 , 啊 昌 奖 辟 开 洋 点 数 除 329，- 个 简单 的 友 法 是 ,把 这 个 值 瘟 项 
企 某 一 个 野 指 数 中 ,使 其 处 于 ! 和 2 之 问 ,然后 减 1.0. 这 个 侣 或 的 程 剖 (至 们 阵 共 为 ranqg23 ,看 还 米 在 点 
掉 妈 下 程序 : 

Unsigned long idum siremp; 

fluat rand' 
节 计 def vax 

static unsigped long 刘 one 一 0x000034080; 

static unsigned lon8 计 msk 一 DOxffff007T; 
瑟 vlsr 

SUic NIsSigned Lona 过 one 一 0x3f800000; 

Staric unasigned long 计 msk 一 2xo07HIIEE， 
闪 end 


idum 1664525L x idum 直 10139642231， 

iemp 一 jflone | (fmsk &iqum); 

Tsnq 一 4 (float * Jitemp) 一 1.0; 

上 六 进 制 常数 3F800000 积 007FFEFEFF 适合 于 用 IEEE 表 上 的 计算机 的 32 位 评点 数 (如 TIBM -0 f 逢 
大 多 数 UN 下 工作站) .对 DEC VAX 机 ,正确 的 十 六 进 制 常数 分 别 凡 00094084 和 FFFFo07F ,标本 注 
意 'IEEEF 的 掩 藤 法 会 引起 构造 的 浮 点 数 超 出 殖 型 数 的 25 位 低 阶 六 ,这 不 是 理想 鸭 。( 作 者 己 凡 最 在 努力 ， 
力求 债 这 本 韦 的 全 部 内 容 独 这 于 机 器 及 兼 谷 机 ,甚至 与 程序 此 占 无关 , 当 试 验 中 ,有 时 出 异 实 在 奴 以 状 认 
的 结 寻 , 约 确 泡 可 到 发 。 这 :小 入 可 能 略 有 误 芒 ,请 诛 谅 。) 
7.41.s$ 相对 的 执行 时 间 和 建议 

执行 程序 的 时 间 必 然 取 决 于 机 器 。 然 而 下 面 的 表 7. 1. 2, 表 现 出 了 典 坦 机 手中 的 村 对 的 
执行 时 间 ,。 在 这 节 中 ,讨论 个 别 一 致 生成 程序 的 相对 执行 时 间 ,也 包括 第 7. 5 节 的 rand ,在 
表 7.1. 2 中 ,数值 较 小 的 表 时 程序 执行 速度 较 快 .程序 ranqd] 种 ranqd2 可 参考 上 面 介绍 的 忆 
速 程 谭 。 


表 ?7. 1.2 










相对 执行 寸 对 
上 -一 rr 
工 am 一 ].n 
Tanl 和 ]. 3 
ramn2 立 2.0 
Tanz 和 
randqdd1 衬 小 1 
90.25 
xx 40 








总 的 来 说 ,我 们 建 泊 一 般 情 况 使 用 ran1.。 基 于 Park 和 Miller 的 附加 混 洗 的 标准 生成 吾 
序 是 可 移 村 的 ,但 在 关 超出 周期 以 外 的 问题 ,我 们 还 没有 研究 ， 
如 果 在 单个 计算 中 章 产 生 大 于 100000000 的 随机 数 ( 即 ,大 于 ranl 周 期 的 5 吕 ), 则 我 站 
建议 用 ran2 舟 序 , 它 的 冰 期 要 长 得 多 . 
和 理 上 去 Knutrh 的 减法 程序 ran3 对 执行 时 间 而 言 ,在 可 移植 程序 中 是 佼佼 者, 遗 居 的 是 ， 
*，2348。 


这 种 方法 不 易学 握 ,而 旦 不 标准 .我 们 一 般 把 ran3 作 为 “第 二 位 的 建议 ”， 当 我 们 怀疑 其 个 称 
序 在 相关 计算 土 有 缺点 时 , 串 用 它 来 代 蔡 : 

ran4 程 序 是 非常 好 的 随机 偏离 程序 ,而 且 还 具有 其 他 : 些 优良 性 能 ,但 它 速度 慢 , 参 阅 
第 7. 5 节 、 

最 后 , 称 序 raaqd1 和 rangd2 的 速度 是 非常 快 的 ,从 它们 依赖 机 器 ,而 且 最 多 与 32 位 线性 
同 余生 成 程序 一 样 好 .但 以 我 们 的 观点 ,它们 在 很 多 场合 下 ,并 不 是 很 满意 的 。 我 们 只 在 速度 
受 限 制 的 特殊 狗 情 况 下 ,使 用 它们 ， 
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7.2 变换 方法 :指数 偏离 和 正 态 偏离 


前 一 节 中 ,我 们 学 习 了 如 何 用 ~- 致 概率 分 布 生成 随机 偏离 的 方法 ,所 以 在 x 和 dx 之 间 
生成 一 个 数 的 概率 ( 记 成 (xz)dz)? 可 由 下 式 给 出 ; 


dz < 二 
放 洒 其 |( 和 “全 


lo 其 它 
概率 分 布 p(z) 当 然 是 归 一 化 的 ,所 蝇 
| pcouz = 1 (7 2 2 


现任, 假设 我 们 生成 一 个 一 致 偏离 *, 然 后 取 z 的 某 个 指定 的 函数 y(>?。y 的 概率 分 布 
由 烽 率 的 基本 变换 定律 所 确定 , 箱 单 地 表示 为 : 


《0 


1 总 (25ady| 一 | 访 (Cz)dzi 《7.2.3) 
或 者 
《7y)》 一 (| 经 1 (7. 2.4》 
大 本 访 六 


7.2.1 指数 偏离 
例如 :假设 y(z) 反 一 In(z), 并 且 pz) 由 一 致 偏离 的 方程 (7. 2. 1) 给 出 .于 旺 
ty)ey 一 | 于 一 edy 《7.2.5) 
它 呈 指数 分 布 。 在 实际 问题 中 ， 这 种 指数 分 布 经 常 出 现 。. 通 常 ,独立 的 泊 松 《Poisson) 随 机 事 
件 之 间 的 等 待 时 间 的 分 布 就 是 这 种 分 布 ,例如 ,这 事件 可 以 是 核 放射 性 衰变 .还 可 以 很 容易 
地 (从 7.2.3? 看 出 , 基 > 和 具有 的 概率 分 布 为 1e-ity>。 
"239。* 


所 以 我 们 有 : 
和 include <<math.h> 
float expbdev (iong * 雪 umy》 利用 ranmlkiduc) 作 为 一 致 偏 康 的 来 病 . 返 同 :个 具 单 位 堆 值 .指数 分 在 的 正 随 汪 . 油 离 


float ranlflong * idumy?) 
float dum:; 


do 

dum 一 ranlfiqutn) 
while (dun 三 一 0.0) 
retttn -iog(dum)， 


在 使 用 上 面 的 变换 方法 ,生成 y 的 任意 某 个 所 期 望 的 分 布 过 程 中 ,例如 对 某 个 积分 等 丁 
1 的 正 函 数 岂 ,生成 兵 有 za(y) 一 FCy) 的 分 布 的 过 程 中 ,让 我 们 看 看 它 包 括 一 此 什么 内 容 ( 见 
图 7. 2.1) 。 








变换 后 的 偏离 


忆 (?)? 的 不 定 积分 必须 是 已 知 的 并 且 是 可 道 的 ,- 致 侈 离 < 在 0 和 1 之 钉 
进行 选择 , 它 在 和 定 的 积分 曲线 上 所 对 应 的 ?就 是 期 望 的 由 离 。 


图 ?7.2,1 申 己 知 轨 率 分 布 ty) 生成 随机 偏离 》 的 变换 方法 


根据 式 (7. 2.4) ,我 们 需要 求解 微分 方程 
至 = /on) (7.2.6) 
这 个 方程 的 解 正好 是 z 一 F(y) ,其 中 下 (是 乒 y) 的 不 定 积分 。 所 以 , 取 乒 y) 分 布 为 一 致 候 
离 , 它 所 期 望 的 变换 为 
yz) 一 天 -KZ) [全 
其 中 王 -: 是 下 的 反 冰 数 。 式 (7. 2. 7 是 否 可 行 , 取 次 于 fy) 积分 的 反 国 数 本 身 计 算 起 次 是 埋 
可 行 ,无 论 从 解析 方面 还 从 数值 方面 都 是 如 此 .计算 起来 有 时 候 是 可 行 的 ,有 时 则 不 可 行 ， 
顺便 给 式 (7. 2. 7) 一 个 直观 的 几何 解释 :既然 志 (y) 是 > 的 概率 曲线 下 从 0 至 y 的 面积 ， 
式 (7. 2.7) 就 可 按 这 样 规定 :选取 一 个 一 致 随机 的 >, 然 后 寻 捷 y 值 ,使 从 0 到 y 的 概率 面积 
对 应 于 zx, 即 y 为 所 求 之 值 。 
“。 240，。 


7.2,. 2 正太 (Gaussian ) 偏 离 
变换 方 活 是 以 堆 广 到 高 于 : 维 的 情形 .如 果 xyzz,， 尾 具 有 联合 概率 分 布 户 CiY 
-Dead ， .的 随机 朝 离 ,并 日 如 果 hi, 凡 ，， 每 个 部 是 所 有 xz 的 明 数 和 的 个 数 与 
0 六 , 刚 yy ， 的 联合 的 概率 / 分 布 为 ; 


忆 : ite 
户 (203yae EC， 一 站 Oriyzay Cr )] 


绾 yyya，， jj ed (元 克 光 5 
其 中 1 073 O1 为 了 关于 y 的 雅 可 比 行列 式 (或 者 是 y 关于 x 的 雅 可 比 行列 武 的 个 数 )。 

运用 从 (7.2. 8) 的 “个 重要 的 例子 是 ,生成 具有 正 态 分 布 的 随机 偏离 的 Hox -- Molier 方 
法 ， 


pody 一 后 dy (7.2.9) 
考虑 0,1) 内 柯 个 一 致 偏离 zz: 与 两 个 量 ,之 间 的 灾 换 
一 VY 一 2 ]nx， cos2rz: 


《7 2 10) 


Vs = 一 2 ]nz， sin2rxzy 








等 价 地 ,我 们 均 以 写成 
< =exp| 一 忆 二 (所 十 芒 )] 
2 
2 一 六 arctanm 宁 
1 
现在 的 雅 可 比 行列 式 可 以 很 容易 地 计算 (请 试 试 1 
|3z 号 工 1 
azz 32 32 [上 2 呈 ] 
人 0 
中 DJm YY 





因为 此 式 是 单个 ye 的 函数 与 单个 :函数 的 乘积 ,并 且 我 们 可 以 看 出 ， 每 个 y 都 是 服从 正 态 
分 布 式 (7. 2. 9) 的 独立 分 布 。 

在 应 用 式 (7. 2. 10) 时 ,一 个 进 … 步 的 决 穿 很 有 用 。 假 设 我 们 不 在 单位 正方 形 中 挑选 一 臻 
偏离 和 xs，* 而 代 之 用 以 原点 为 圆心 的 单位 辑 内 挑选 一 个 随机 点 ,wm 和 zw 作为 它 的 纵 坐 标 
和 杠 坐标 .于 是 ,它们 的 平方 和 严 生 地 十 要 是 一 个 一 致 偏离 , 它 吕 以 用 于 zi 而 由 (uv) 定 
义 的 ,关于 zx 药 夹 角 可 以 起 到 随机 角度 2rz: 的 作用 .这 有 什么 好 处 ? 正 是 因为 这 点 ,现在 式 
57. 2.10) 中 ,余弦 和 正弦 可 以 写作 习 /Y 天 和 zy Y 环 ,避免 了 对 三 角 函 数 的 调用 ， 

于 是 有 


闪 incude 所 mnarh,.h>> 


float gasdev(long *idumy》 使 用 ranlfidum) 作 为 一 致 情 离 的 来 源 ,返回 -一 个 具有 零 芍 值 和 
单位 方 状 的 正 态 分 布 售 离 

foat ranl(long * idun 

static int jset 一 0) 

static 划 onat gseti 

Doat facvrsqrvlv2; 


ne 


iiset 一 一 尼 ) 我 代 演 有 疾 外 上 败 偏 离 , 寺 以 
do1f 


Y] 一 2.0*#fraoltidurty 了 轴 全 个 方向 为 下 扩 色 布 成 划 下 才 巷 中选 贞 
vY2 一 .Dxran2fiduny .mi 两 个 “ 致 数 
+ 一 V#YL 一 ww WE 袜 丰 六 门 有 是否 在 单位 现 内 

1 whitetrsq 101rsqd 一 一 已 0; 如 果 漂 六 兰 字 区 内 ,再 试 -次 

fac=:sqrtf 了 .0Dy>logtrsqglzrrsq); 规 在 作 Bex Meiler 变换 , 趟 胆 到 曲 个 正 藉 调 谢 运 ， 

gset 一 了 xsaci 个 并 兴 下 浆 暴 人 存 个 

isetr-=-|: 设 芭 标 总 

Teturn v2 * aci 

jelsei 生 们 人 家 外 季候 离 
iset 0: 故 社 除 乐 记 
Tetur3 EScT; :并 涝 半 


1 
了 


参阅 Devroye51 和 Brstley : 中 许 洛 其 他 算法 ， 


Devroyc， 1 1086， Von-CNEAOr Ranacdorn Partate Crenrratron frw YOrk: Springer-Verlag]、 5 1 1 
Bratley ， 了 . ，Feox， 是 上， ，、and Schrage， 上 . ，]1983，4 Carele 1 Smviatol 【Necmw York，Sprinure- 


Ver'ag).， | 2 
7.3 拒绝 方法 :T 偏离 . 泊 松 偏离 .二 项 偏离 


拒绝 方法 是 牛 成 随 礼 侧 离 的 强 有 力 的 -` 般 技巧 ,这 些 随 机 篇 离 的 分 布 上 因数 czjdfw 在 
x 和 十 az 之 提 数 全 发 二 的 概 刻 ) 是 已 负 的 并 可 计算 的 .拒绝 方法 并 不 要 求 累 积分 布 慎 数 
《pz) 的 不 定 积分 ), 吓 容易 计算 的 ,并 且 它 比 该 焉 数 的 反 函 数 小 很 多 .- 这 是 前 节 上 的 变 
换 广 法 所 要 求 的 。 

拒绝 方法 是 以 简单 的 几何 依据 为 基础 的 : 

洗 绽 一 个 得 生成 的 概率 分 布 s(z) 的 医 形 ,使 得 在 任意 二 范围 内 遇 线 下 的 面积 ,对 裤 于 
在 该 范围 内 产生 一 个 上 所 期 单 的 概率 .如 果 我 们 有 某 种 方法 选择 全 二 维 傅 形 的 随机 点 ， 
使 其 在 曲线 下 的 面积 具有 “ 致 概 率 , 则 该 随 术 点 x 值 便 是 所 期 望 的 分 布 。 

在 这 一 图 上 丁 任 一 条 曲线 .AKCr) ,使 之 具有 (并 非 无 限 ? 有 限 的 面积 ,并 月 每 处 才 信 于 
原来 概率 分 布 之 上 。( 由 概率 的 定义 这 始终 是 可 能 的 ,因为 原来 的 曲线 只 围 件 单位 面积 ; 乱 
们 将 这 个 大 rz? 称 作 比较 函数 ,设想 下, 若 有 在 二 维 情形 中 选择 一 个 随机 点 的 某 种 方式 , 则 
污 随 机 点 在 芭 较 函数 下 面积 是 均匀 的 .每 当 该 点 位 于 点 概率 分 布 的 面积 以 外 ,我 们 就 拖 忽 它 
并 选 另 一 个 随机 点 -每 当 该 点 位 于 原 概 率 分 布 面积 乙 内 时 .我 们 就 接受 它 。 很 显然 ,接受 点 在 
被 接受 所 积 中 大 一 致 的 ,所 以 ,这 些 x 值 都 有 所 其 望 的 分 布 ,而 拒绝 点 的 部 分 取决 于 比较 责 
数 钓 南 积 与 她 率 分 布 范 数 的 面积 之 比 ,而 不 取决 于 这 上 个 函数 之 中 任 一 个 的 具体 形状。 例 
如 ,而 积 小 于 2 的 比较 蚌 数 将 拒绝 不 超过 “ 半 的 点 .即使 在 某 些 = 值 处 , 它 非常 差 地 有 避 近 概 
举 区 数 , 如 在 其 个 工 为 零 的 葡 域 中 ,被 拒绝 的 点 仍 保 技 有 限 。 

删 下 的 只 是 ,在 出 较 冰 数 .Fz) 下 如 何 选择 二 维 的 一 致 随机 点 的 方法 , 变 痪 方法 (第 ?, 2 
节 ) 的 变形 能 很 好 地 牌 决 这 一 问题 :应 当 确信 已 选择 了 -个 比较 函数 , 它 的 不 定 积分 是 解 桥 
可 知 的 ,并 县 还 是 解 优 可 前 的 .以 给 记 字 作为 "在 比较 后 数 面 祝 下 直到 z 左边 ”的 函数 , 规 在 


212。 


选 出 位 于 0 与 4 之 问 的 个- 致 俩 离 , 基 中 及 是 庆 z) 下 总 面积 ,并 凡生 这 个 “和 致 偏离 得 害 
个 对 应 的 x。 然 后 ,选择 0 与 /xz) 之 间 的 一 全 一 敏 偏 离 作 为 - 缠 点 的 值 . 必 流 确 们 ， 
(ryy) 在 比较 函数 .六 z) 的 面 和 下 为 均匀 分 布 。 

一 个 等 价 的 这 程 就 是 ,在 上 和 上 之 问 找 出 第 一 个 一 化 全 离 划 ,并 根据 它 是 厨 小 寺 或 大 
于 比率 放 (zxz)7(z) 来 决定 接 党 或 巷 绝 它 . 

综 上 所 述 ,对 某 个 给 定 的 a(z) ,拒绝 方法 要 求人 们 断然 地 投 到 某 个 合理 的 比较 轴 数 了 
(rz)。 此 后 每 生成 一 个 惕 离 值 , 雪 求 有 卜 个 … 致 随机 候 离 值 . 一 个 是 子 值 的 计算 ! 久 得 证 坐标 
7) ,一 个 是 绢 值 的 计算 (以 决定 是 否 接受 或 拒绝 点 >,y) .图 ?7. 3.1 表 明了 六 过程, 当然 这 个 
过 程 平 均 说 米 重 复 4 次 ,然后 才 黎 得 最 终 的 偏离 。 


第 -个 粥 梓 。 
侦 高 在 共 中 一 


人 rooax 一 -~ 光 


第 “个 随机 
仿 离 在 其 中 





其 中 px)7 处 处 小 主 其 信 其 它 的 靖 数 fx) 。 灾 接 方 活 首 先 甩 于 生成 分 布 找 zx 的 殖 机 坑 亢 > 
《比较 图 ?.2.]) ,第 一 个 一 致 伍 用 来 决定 是 否 接受 或 拒绝 该 x 妇 果 它 被 拖 笃 ,就 投 [ 黄 
-个 新 的 个 亢 :以 此 类 推 .接受 点 与 拒绝 点 的 比率 是 ,p 下 的 面积 与 p 和 工 之 问 夯 下 的 比 、 


图 ?7,3,: 由 已 知 概率 分 布 (zj 生成 随机 偏离 zx 的 拒 绝 方法 


7.3.1 TI(Gamma) 分 布 


整数 阶 (e>>0)7 的 了 分 布 是 ,具有 单位 均值 的 泊 松 随机 过 程 中 第 x 个 事件 的 等 待 时 间 ， 
例如 , 当 ae 一 1 时 , 它 就 是 第 7. 2 节 的 指数 分 布 , 即 第 一 个 事件 的 等 待 时 间 ， 

一 个 P 偏离 具有 在 过 和 +dzr 之 间 出 现 z 值 的 概率 请 (zjdz ,其中 
于 -Sndz zl (7 3 1) 

为 了 对 小 的 e 值 生成 式 (7. 3. 1) 的 偏离 ,最 好 加 上 x 个 指数 分 布 等 待 时 间 , 即 一 致 偏离 
的 对 数 。 因 为 对 数 之 和 就 是 乘积 的 对 数 , 人 们 实际 上 只 和 须 生成 < 个 一 致 总 离 的 乘积 ,然后 取 
对 数 。 

对 大 的 <“ 值 ,分 布 (7. 3, 1) 具 有 典型 的 * 钟 型 "形式 ,在 zx=a 处 有 峰值 ,并 且 半 宽度 人 约 
为 wa 。 

我 们 对 具有 同样 性 质 形式 的 几 个 概率 分 布 很 感 兴 趣 。 对 于 这 种 情况 的 一 个 有 用 的 已 较 
是 数 由 Lorentz 分 布 推出 。 





疡 (xzOdz = 


| 1 
dv 一 | -一 5 人 
&t30d3 本 郊 | ar (3 2? 


它 的 不 定 积分 的 反 畏 数 恰 好 是 正切 函数 .出 此 可 得 , 戏 任 何 约束 ae 和 辣 : 在 比较 所 


&n 


Ar) 一 0 ( 


1 十 一 和 人 
面积 下 ,… 致 随机 点 zx 的 坐标 可 由 以 下 公式 傅 定 ， 


沙 一 Catan( 克 7 ) 二 人 ， 


人 
其 中 心 是 0 和 1 之 间 的 一 致 俩 离 . 因 此 ,对 其 个 特殊 " 钟 型 ”Pr 概率 分 布 ,我们 2 
姑 : 


谓 数 anyco 和 re ,其 中 乘积 Coeef{ 它 闫 定 而 积 ) 应 尽 呈 能 ， 小 ,使 得 式 (7.34.3? 在 任 总 拼 怪 
疡 (Zr)。 

Ahrens 已 对 工分 布 解决 了 这 一 问题 ,得 出 了 如 下 委 法 (如 Knuth 书 中 描述 …)， 
和 部 include < 所 tmazth.h > 


float gamdev fint ia lenzg 关 idutm) 


使 用 raaifidum) 必 为 一 致 偏离 的 来 源 , 返 同一 个 昌 数 阶 遂 的 了 党 右 的 坊 离 , 即 关 相遇 碍 单 人 的 凋 革 下 和 窜 寺 
牛 , 对 第 让 个 事件 的 等 待 时 间 。 


loat xanlft1onE 中 dum) 1; 

void nretror(char error_text[]); 
dt j 

float am,e,3,V1I,V2EITi 


4 【1 下 < 1》 nrerFOT(C"ETTOT iD ToutiDa gamdev') 


if 《ia < 6 【《 使 用 吉 接 方法、 机 上 等 待 时 间 
Xel.0) 
for 《jz=1;j<eiaij++》 wm raml(idam)i 
并 一 ~Log(Ix)i 
}》 913e 1 使 用 拒绝 方法 
do 1 
do 1 
do { 这 耳 行 生成 戎 乓 角 的 正切 、 即 等 价 于 


Yils2,.0eFranltidum)-t.Di; 
TY2m2.0hranlfidum)-1,D， 
} while 〔[vl1evil+y2av2 > 1.0) 1 


7 = tan( 什 ranl(iduam)) 


了 =v27vIi 
一 一 工 ; 
BBSqITL(2.Omamn+1.0) ， 
开 汪 B 本 了 十 BD ” 我 们 决定 是 得 扩 钨 x， 

了 While (xX < 0.0); 在 党 概率 区 域内 横 绝 

有 概率 fn 与 比较 fn 的 比率 
避 ] 自 《Za um > 和 丰 人 
在 第 二 个 一 至 偏离 基础 上 的 拒绝 


Xeturm 工 ; 


7.3.2 泊 松 偏离 


必 直 汪 竹 


从 概念 上 讲 , 泊 松 (Poisson) 分 布 与 工分 布 有 关 。 泊 松 分 布 给 出 了 在 时 间 * 的 给 定 区 间 
内 ， 某 整数 普 个 单位 束 率 的 油 松 随机 事件 出 现 的 概率 ,而 P 分 布 是 在 z 和 > 十 dz 之 间 对 第 
za 个 事件 等 待 时 间 的 概率 :注意 王 只 取 整 数值 益 0, 所 以 将 泊 松 分 布 看 作 “个 连续 分 右 晤 数 
pz)adoa :除了 和 2 取 0 的 整数 之 外 , 泊 松 分 布 处 处 为 霉 。 在 这 样 的 区 域 里 , 它 是 无 穷 的 .而 


使 得 在 包含 整数 区 域 上 的 积分 概率 是 某 些 有 限 数 .在 整数 /上 的 总 概率 为 ， 


je 





Prob1( 六) = 记 omdo = 一 (7 3 


了 


初 有 上 去 , 它 未 必 是 拒绝 方法 的 候选 分 布 ,内 为 没有 任何 连续 比较 函数 能 够 大 十 这 个 无 
穷 高 且 又 无 限 罕 的 记 (z) 中 的 Dirae 5 函数 .不 过 我 们 有 这 样 一 个 技巧 :将 ; 处 尖峰 信号 的 
有 限 面 积 均 急 地 扩展 到 了 和 ;十 1 之 间 的 区 间 媚 。 这 就 定义 了 一 个 连续 分 布 gztm)edm ,表示 
为 : 


人 - 


日 二 生生 dm (7. 462) 
其 中 [bm ji 表示 小 平 严 的 最 大 整数 .如 果 我 们 现在 使 用 拒绝 方法 由 式 (7. 3. 6 生成 一 个 ( 非 整 


数 ) 仿 离 , 然 后 取 该 偏 腐 的 玫 数 部 分 , 它 好 象 是 由 所 求 的 分 布 式 (7. 3 5) 得 到 的 (参见 图 7. 3. 
2)。 这 一 技 七 对 和 任何 整 歼 概率 分 布 是 通用 的 。 





在 其 中 








Th 


直下 mm 


方法 是 在 表示 或 虚 吉 线 的 阶 闪 通 数 上 执行 ,产生 一 个 实 值 偏离 ,这 个 偏离 退 到 下 “个 较 低 的 整数 , 流 就 是 输 目 . 
图 7. 3. 2 ”作为 应 用 到 整数 值 分 布 的 拒绝 方法 


对 于 足够 大 的 ,分 布 式 (7. 3. 6) 可 定性 地 看 成 是 “ 钟 型 "的 (尽管 是 一 个 由 小 方 步 长 制 
成 的 钟 》, 我 们 就 可 以 采用 前 语 已 使 过 的 同样 类 型 的 Lorentz 变换 ,对 小 的 z, 我 们 可 以 生成 
独立 的 指数 偏离 (事件 之 间 的 等 待 时 间 ); 若 这 些 偏离 的 和 首次 超出 ,那么 ,在 等 待 时 间 
内 可 能 发 生 事件 的 个 数 就 成 为 已 知 , 井 且 它 等 于 此 和 式 的 项 数 减 --。 

这 些 概 念 产 生 如 下 程序 : 


区 include <<masth.h 盖 
并 define PI 3. 14159265 和 本 


flpat Poidevtfloar xmy， long * idum) 
用 ranl (idum) 作 为 一 至 随机 仿 离 的 来 源 , 技 羡 点 数 返 回 整数 值 , 它 是 从 具有 均值 xm 的 泊 惧 分 布 寻 出 的 随机 人 坊 亢 。 
{ 


ioat gammintfloat xx)， 


245 。 





float ranlkiong * idurmy， 
sTatic float sqgyaizmygvoldm 盖 […1.0)， 
foar ein Tvy# 


让 (xm < 12.0) : 
U [xm 1 一 oldm)i 
0OiGm Xml 
区 一 EXE 一 xm 


『 


er 一 一 1; 
t 一 1,04 
dn: 

em 十 一 1.0; 


tx 一 Tanltiduny; 
上 while (t 盖 g)3 


} elset 
让 (xm 一 oltqumyJf 
ojdim 一 xmil 
sg 一 sqttf2. 站 Xi 
alxm 一 log(xm); 
& 一 xm x alxm gammlnfxtn 十 1.0)5 
} 
dof 
doi 


y 一 tanfPI * ranl(idum)7; 
em 一 5q 关节 十 Xim# 

) while 《em < 0 3 

t 惑 一 Iloorkem yi 


cldm 是 疡 上 一 次 诗 出 后 ,xitn 是 百 有 扩 改 变 的 标 心 


读 用 直 科 思 法 


如果 xm 是 新 的 . 睹 算 搓 灶 


昔 换 登 加 指数 仿 亢 ,已 等 价 于 滋 -一致 俩 高 . 
实际 上 并 不 咒 要 取 对 数 .其 不 过 出 次 -下 玫 克 上 算 亚 的 拖 殖 


使 用 杯 牧 方法 
如 果 音 下 次 调用 后 ,xm 下 斯 改变 ， 
则 萄 先 计算 下 面 出 更 的 国 数 


摧 数 gammin 慰 媚 委 6.1 节 镍 所 驳 册 的 
P 攻 孝 的 门 然 作 若 


y 是 来 自 Lerenrziar 比较 师 数 的 偏离 
em 尾 进 行 了 位 攀 并 改 此 了 尺 庆 的 了 
若 在 堆 福 率 区 域 中 则 拒 抱 

上 值 分 市 的 技巧 


t 一 0.9#(].0 十 7#y) 关 eXP(em 关 alxm 一 gaItDiLnKema 十 1.0) 一 局 )3 
所 求 的 略 率 与 比较 函数 的 比比 较 它 种 曙 一 个 一 致 偏 离 来 凑 定 是 接受 还 是 把 绝 , 悦 了 0. 9 的 过 


}wbile (ranlkidum) > ti 
} 


TELUIDU 2 


7.3.3 二 项 偏离 


择 是 使 不 二 出 1 


如 果 -- 个 事件 出 现 的 轩 率 为 &, 并 有 我 们 作 ， 次 试验 ,那么 , 它 出 班 m 次 前 个 数 具 有 -- 


让 | 中] ， 
| 态 CDJGma 二 | 。 32 人 G) 
人 浊 


《7 3 了) 


二 项 分 布 是 整数 值 的 ,在 0 到 ”的 可 能 信 中 选取 问 次 , 它 取 决 于 两 个 参数 和 9, 所 以 


它 的 实现 相对 于 前 面 的 情况 更 难 一 些 不 过 


的 ， 


北 incjuge <math.h 全 
拉 defins PI 3.141592654 


fioat bnidev(fioat pb，intny，lopg ldufm) 


,已 阐述 的 内 容 对 完成 这 样 的 工作 是 不 成 问题 


司 raatkidum》 作 为 一 致 集 敲 的 来 源 , 技 浮 点 教 返 加 一 数 人 ,该 值 是 一 个 田 h 个 试 有 ( 择 个 试验 的 往 率 为 bp) 的 站 


式 分 布 引出 的 随机 假 离 。 


iloat gatmmln(iloat xx 
iloat ranlflong * idum)i 
ipt 


N ?49 生 


statfic int Bold 一 《一 134 
1loat aimsyemyRyangleyh, bnlssqgstyys 
static floaf poldq 一 (一 1 Di) pcblog, pclogvehn,Dldgi 


pb 一 fpp<: 一 4.5?pp:1.0 一 pp)i; 如果 将 答案 也 变 为 mn 威 杰 记 本 身 , 则 二 项 分 布 在 pp 条] 一 bs 的 埠 束 之 
F 总 不 变 的 , 江 人 在 下 面 将 这 翌 做 
am 一 D ” 吕 这 是 需要 产 乞 放 吕 的 均 午 
ICn< 235?1{ 
bn1 一 必 0; 当 m 不 是 大 六 时 ,二 用 尖 接 方法 .这 可 能 需要 对 ran1 至 事 
for(j 三 15 过 = 一 ni 二 十 ) 35 演 调用 
放 (ranlGidutm) < pp) bnl 一 三 10 
} else fam < 1.0) : 刘 果 在 25 次 或 更 风 次 试验 中 ,期望 少 于 一 次 的 事件 发 生 
& 一 cxp( 一 atnm)i 则 这 个 分 布 就 是 相当 准确 的 泊 松 分布 ,使 用 直接 泊 益 方法 
t 一 1.9: 


for (一 Oij<< 一 nj 十 十 4 
t ww 一 tanl(idtumy); 
计 《< ) break; 


》 
bn1 一 0 过 一 ny?jrn)ir 
elset 合用 拖 况 左 法 
这 (na “一 npldq)1 如 果 改变 , 则 计算 右 几 的 基 
en 一 Di 
ojdg 一 garmnmlncen 一 上 吕 ); 
nold 一 ni 
得 (p 4= Potd)y 如 时 pb 改变 ,出 汁 算 有 用 的 量 
pc 一 1.9 pi; 
”pleog 王 logkpy); 
pclog 一 log(pe): 
pold=pi 
1 
sq 一 sqrtf2.CxBm#pcli 下 而 芍 代 本 现在 看 来 应 该 很 熟 秒 ,这 是 具有 Lorentz 比较 
do { 函数 的 拒绝 专 法 
do1 
angle 一 了 lx ranltidumys 
一 tanfangle)5 
em 一 Sq <Yy 十 am 
;while (em < 之 00 em 六 一 《en 十 1.0); 拒绝 
II 一 floor(emat)+ 对 于 尾 教 值 分布 的 层 巧 
T 一 上 2<SqH(lD 十 yx#y)#expoldg 一 gammln(em 十 1.0)》 
gamzrmlnfcn 一 cm 十 1.0) 十 em 关 blag 一 [en 一 era) *# bclog)y 
wpile (ranl(idurmy > ti 扩 绝 ,对 每 个 以 郊 平 多 要 发 后 人 约 1. 5 次 
hn1 一 em: 
上 
if 《p! 一 pp) brl 一 na 一 bn1， 记念 机 取消 对 称 变换 


return bnly 
对 许多 共 他 算法 参阅 Devroye 交 和 Bratleyts-。 


参考 文献 和 进一步 的 读物 ， 
Knuth ,ID. E. 1981，Semairtttonericatl 18orihzas 2nd ed. ，vol- 2 of Ye rt or CDpnmazprtter TDB7y 妇 风 了 加 
(Raading，MA: Addison-Wesjey)，bb.， 120ff LT1- 
Devroye 1986，Mon-Cmzzorme 民 anaciorr Yezrese CeneratipntIew York:， Sbringer-Verlag)，Sx.4. [2 
Bratley ,了 . ，Fox， 阳 .了 上 . ，and Sehrage 上 ,] .1583， 4 Gageize to SimaiarionfNew York: Springer- Verlag )， 
L3j 
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7.4 随机 位 的 生成 


C 语言 可 以 提供 一 个 很 有 用 的 方式 ,以 进行 机 大 水 于 的 逐 位 运算 ,请 如 所 所 ( 太 政 1 -本 
节 将 出 明 如 何 充分 利用 这 种 性 能 。 

问题 是 , 当 0 和 1 是 等 可 能 的 情形 ,如何 生成 单个 随机 位 .当然 ,可 以 只 在 零 和 和 -之 国 
生成 一 致 随机 偏离 ,并 使 用 尝 们 的 高 阶 位 (也 就 是 检验 亡 们 是 否 大 于 或 小 于 0. 5) .但 这 要 进 
行 很 多 送 算 , 然 而 对 某 些 特殊 的 应 用 ,如 实时 信号 处 音 , 我 们 希 刻 非 常 快 地 生成 随机 让 

生成 随机 位 的 两 个 不 忆 的 实施 方法 是 ,基于 “ 模 2 本 寿 密 项 式 ? 理 论 . 这 个 理论 的 讨论 超 
出 本 书 范围 .虽然 第 ?7.7 节 和 第 20. 3 节 将 讨论 它 的 “ 些 内 容 , 而 在 这 里 ,给 出 以 下 说 明 就 足够 
了 :存在 这 样 种 特殊 多 项 式 , 它 们 的 系数 不 是 0 就 是 1 .例如 ， 

交 二 5 亿 关 各 国耻 
我 们 可 简化 而 仅 写 出 (系数 ) 非 宕 的 z 的 指数 即 ， 
《lg,5,1.0) 

每 个 nn 阶 的 (上 面 是 > 一 18) 模 2 本 原 多 项 式 都 定义 了 ,由 前 ”个 跑 机 位 得 到 一 个 新 厌 
机 位 的 递 推 公式 .这 个 递 推 公 式 名 证 可 以 产生 一 个 极 大 长 庆 的 序列 ,也 就 是 在 它 重 复 之 前 循 
环 所 有 可 能 的 ”位 的 序列 (全 部 为 除外 ), 因 旺 , 人 们 可 以 得 到 具有 任意 初始 模式 八 ( 全 
除外 ?序列 ,并 在 序列 重复 之 前 得 到 2* 一 ! 个 随机 位 。 

将 这 些 位 从 1( 最 近 生 成 的 ) 到 an 步 以 前 生成 的 ?进行 编号 ,并 忆 为 @,az :我们 
要 对 一 个 新 位 as 给 出 公式 .生成 a: 之 后 ,我 们 将 所 有 的 位 作 移 位 ` 步 ,使 旧 的 a。 消失 .并 总 
新 的 ae 成 为 a ,然后 我 们 再 次 应 用 这 公式 ,以 此 类 推 。 

“方法 工 ? 最 容易 用 硬件 实施 , 它 只 需要 一 个 二 位 长 的 单个 移 位 寄存 器 以 及 二 个 和 OK 
门 作 异 或 ? 门 或 按 位 模 2 加 》,C 语言 的 标志 是 “ A ”对 以 上 给 出 的 本 原 多 项 式 , 递 推 公式 是 : 

2o 关 46 开 ci 秦 并 (7?.. 迪 ) 

用 A 连 在 :起 的 这 些 项 可 想 每 为 移 位 家 存 器 上 的 “流出 孔 ”, 经 异 或 后 作为 寄存 器 的 箱 
入 .更 一 般 地 说 ,除去 常数 项 ( 零 位 项 ) 外 ,对 本 原 多 项 式 的 每 “个 非 堆 系数 怡 好 都 有 -项 与 
之 对 应 。 因 而 对 一 般 呈 阶 本 诛 多 项 式 ,第 一 项 始终 是 wa, 最 后 .项 可 能 是 或 不 是 wm . 它 取 
决 于 本 原 多 项 式 中 是 否 有 忒 的 项 

尽管 用 硬件 实施 很 简单 ,但 用 C 语言 来 实现 方法 ! 是 相当 药 琐 的 ,因为 所 有 位 必须 被 
个 全 字 屏 项 序列 收集 ， 
共 define 1831 1 “2 的 次 守 
辣 qefine IB2 2 


站 define JEB5 163; 
十 define IB18 1310721 


int irbitl(unsigned long * iseed) 
以 有 束 数 返 回 一 个 随机 位 , 它 是 以 iseed 中 18 个 估 有 效 位 为 基础 的 .对 十 一 殉 央 用 :iseed 被 修改 。: 


unsigned long neywrhir ; 累加 的 XOR 


hewbic = 《ax# iseed 人 IJB18) >>>> 17 篆 到 位 18 
”(〔(“wiseed & IB5) 全 全 4 具有 人 宪 5 的 绎 或 
”Ciseed 攻 32)》 > 六 ] 具有 人 空 2 的 民 或 


"248 。 


”TY isced 六 TB] 7 匡 硼 僻 1 的 并 或 
3 .Seed 一 fiseed 过 后 1 | aewbhit: 季 臣 闻 值 和 在 物 位 并 在 它 的 径 1 中 放置 异 或 匈 站 果 


Tefurn yinll newwli1: 


“方法 工 ? 不 太 适 全 直接 以 硬件 实施 (尽管 仍 有 可 能 》, 却 更 适 侣 CC 语言 . 随 着 每 个 杂 位 
生成 , 它 在 保存 的 个 位 中 敌 正 了 不 止 :个 的 佑 (图 ?7.4.1)。 它 能 生成 极 天 长 氏 序列 ,但 与 
“方法 工 "顺序 不 同 。 





fb) 


ka) 所 挑选 的 " 流 当 她 ”的 内 容 由 * 异 或 " 门 ( 抗 位 模 2 加 ) 路 钮 合 .其 站 有 果 从 右边 进行 移 役 ,这 个 方法 师 符 易 肌 人 绩 件 实施 ， 
b) 挑 将 出 来 的 位 通过 它 与 最 左边 位 估 * 红 上 或 "得 以 艇 下 ,然后 最 大 壹 的 位 从 布 边 移 人 ,这 个 方法 最 容易 用 软件 实施 。 


汐 7.4.1 从 移 位 天 作 器 和 异 2 林 原 儿 痪 式 得 到 随机 位 的 两 个 有 关 的 方法 


对 于 本 原 多 项 式 (?7.4. 1) 让 有 以 下 关系 式 ， 

gc 一 QI 
Ca = 一 CQ5 有 au 
Gz 一 Ca 内 05 
Qi 一 内 co 

一 般 刘 本 原 多 项 式 , 除 0 次 项 和 )” 次 项 外 ,对 每 个 非 零 项 都 要 作 -- 次 异 或 操作 ,方法 工 的 优点 

是 ,所 有 的 异 或 操作 通常 都 可 由 单个 屏蔽 字 的 异 或 操作 来 完成 。 

闪 deiine IB1 1 

并 define IB2 23 

站 defbe ]05 168 

并 definc TIR148 134072 

芋 defioe MASK (IB1 十 TB2 下 TB5) 5 


(7.4.3) 


jint iTbit2turisigrzed ionp 吕 < iseed) 
按 整 效 返回 一 个 随机 位 , 它 量 以 jseed 18 个 妇 有 效 位 为 基山 的 ! 对 下 次 调用 ,iseed 被 修改 ,) 
{ 
计 【>x iseed 忆 . 1I318) ; 改变 所 有 屏蔽 亿 , 位 移 . 并 将 1 交 迹 1 中 
# iseed 一 ((#iseed ”MASK) << 1) | 0B1 
:eturu 1， 


1 else ! 位 移 并 妊 0 放 进 应 1 中 


xlsted < 二 一】 上; 
terufn 0 


告诫 :不 要 使 用 这 些 程 序 的 连续 位 , 几 作 为 一 个 很 大 而 月 猜 起 为 随机 的 整数 位 ,或 考 . 汗 
它 作 为 一 个 猜想 为 随机 译 点 数 的 尾数 售 , 检 该 情 襄 王 ,它们 并 不 是 十 分 随 术 的 , 丛 抒 
Knuxh 汪 .这 些 随 机 位 可 利 终 的 实 列 是 :7 以 快速 竟 “ 必 片 速 这 ? 随 机 好 用 十 1 乘 上 一 个 俐 苇 . 
使 得 它 的 谱 在 一 给 定 的 带 通 内 ,-- 致 地 (可 恢复 ?展开 ,或 者 4i) 一 元 树 的 臣 特 不 轴 乏 出 .其 
中 , 客 竟 向 左 或 向 右 分 支 的 决定 是 随机 作出 指 ， 
表 7.4.1 模 2 本 原 多 项 式 

















(1，0) (1 

2，1，0h {52、 3， 吊 

13，1，Q (3 在 人 起 

必 ，]， 全 154、6，5，4，3，2， 人 人 

全 2，p 159， 6，2，1， 站 

通 ， 1， 他 1356，、7、4，2， 由 
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146，F 2， 1 让 :96、 7 6、4、3、2， 和 作 
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现在 ,不 必 仔 细 研 究 前 所 的 例 季 中 148 次 本 原 多 项 式 且 有 旦 些 独特 之 处 (我 们 乙 所 以 
选择 18 ,是 为 了 直接 几 数 值 实验 证 实 我 们 的 陈述 ,而 2 已 足够 小 了 ). 上 页 表 7. 4. 1 列 出 
些 模 2 的 本 原 多 项 式 , 它 阶 数 京 罕 100:( 事 实 上 .每 一 阶 都 存在 一 些 本 原 多 项 式 , 例 如 ,可 参 
疯 第 7.7 节 高 至 10 阶 的 完整 表 .》 
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7.5 基于 数据 加 密 的 随机 序列 


在 本 书 的 第 一 版 本 里 ,我 们 讲述 了 如 何 利用 数据 加 密 寻 着 (DEFSJU 3 来 产生 随机 数 , 泪 候 的 是 ,内 用 高 
级 诸 言 ,如 C 语言 来 实现 软件 时 ,数据 加 玫 标 准 慢 的 难以 让 人 接受 .其 实 , 上 述 这 种 实施 明显 山 看 出 中 用 大 
于 利 。 存 这 里 ,我 们 给 出 一 个 简捷 的 算法 .尽管 它 的 加 密 性 能 稍 许 关 些 , 亿 它 能 产 牛 同 栏 有 肌 约 随机 数 . 


在 32 习 和 企 


在 2 控 宁 





在 娄 何 字 右 刀 位 字 


对 两 纪 33 们 码 祁 达 行 非 线性 漠 数 六 的 达 代 (adeser 和 -atgas[ 4。 
国 7.3.1 以 图 中 方式 显示 了 了 数据 析 密 标 症 (DES) 


数据 加 密 标 准 . 像 它 的 光电 的 加密 系统 LUCCIFER … 样 ,就 是 记 常 矿 说 的 * 分 纽 乘 积 吉 过 " 广 法 全 产 
式 届 5 次) 梁 用 种 高 度 间 线性 的 位 温 合 操作 ,作用 十 64 传输 入 -页 图?.51 故 示 出 这 种 混合 了 过程 李 
PES 信息 流程 . 明 数 g 称 为 "密码 盯 数 ", 它 接受 32 位 , 输 月 和 2 下 ,Wineger 和 Matgas 汪 庆 评 了 这 种 密 把 隐 
数 的 重要 性 在 于 它 的 非 线性 以 及 其 他 设计 款 准 ， 

数据 加 蜜 标 准 , 用 一 个 复杂 的 作用 上 生字 询 的 连续 位 的 查找 才 , 和 亿 的 路 换 系统 来 煌 成 它 的 宫 呈 天 娄 
8 ,显然 ,这 个 遂 数 有 很 强 的 加 窜 功 能 (或 许 如 菜 些 批评 深 所 等 论 的 闭 样 ,有 极 微妙 难 辩 认 的 殿 祝 号 哨 亲 1 ， 轩 
了 我 们 的 日 的 ,最 好 采用 另 … 种 国 数 中, 它 在 用 高 极 讲 埋 针 能 殿 速 计算 .这 种 所 数 直 能 会 碟 骂 
密 性 ,但 我 们 的 目的 六 低 是 加 密 :我们 还 要 最 抉 地 找到 琐 数 上 :法 代 最 沙 的 混合 社 手 (图 ?.5. 1)- 这 入 工 说 计 
标准 测试 的 输出 随机 序列 , 妈 常 可 月 来 上 产 咎 随 未 数 .这 个 合成 的 算法 将 不 是 数据 加 馈 标 浴 . 帅 有 半 尽 一 逢 
“的 随机 机密 标 准 ” 它 比较 适 台 我 们 日 的 ， 

核 上 还 准则 , 丽 数 天 应 有 是 非 线 灶 的 .我 位 在 明 数 & 中 把 整数 乘法 操作 让 在 一 个 重要 和 苑 亿 置 . 打 为 :在 癌 
缀 证 生 中 ,一 般 直 不 采用 64 位 寄 在 器 ,必须 把 16 位 乘法 操作 限制 在 32 位 的 结果 中 :内 疝 . 关 于 用 监 六 的 
大 任 档 黑 尾 ,必须 分 别 玉 算 和 输入 壮 字 的 高 2 位 , 低 16 位 的 二 个 乘法 ,得 出 一 个 到 同 32 全 屁 各 , 然 行 . 纵 过 
快速 运算 (如 用 “加 ”或 者 " 异 或 "运算 ) 组 合 它 们 ,或 座 骨 加 上 个 困 定 常数 .或 为 :个 32 位 个 果 ， 

这 蛙 儿 个 一 般 方 案 航 有 效 实现 方法 .可 选 择 其 中 之 一 进 宛 系统 几 穹 。 对 和 茶 出 随机 性 的 沽 试 和 实 允 得 贞 
图 7.5. 2 所 示 操 作 步 骤 . 图 中 几 个 新 元 件 需要 解释 下 : 值 C 与 6C: 是 办 定常 数 , 它 们 是 随机 思 搓 的. 伍 二 路 
必须 准确 包含 有 16 位 和 16 位 6 ,通过 异 或 操作 组 合 这些 常 数 以 保证 改 个 g 没有 倾向 性 偏 了 这 或 上 位， 





图 7. 5.2 程序 Psdes 使 用 非 线性 耳 数 g。 
在 图 7. 5. 2 中 , 详 清 楚 " 转 半 字 "操作 是 非常 重要 的 ,否则 最 低 半 与 最 高 位 将 不 会 被 三 个 乘积 适当 地 
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混 洗 。 因 而 在 & 中 隆 食 的 儿 项 选择 是 :在 纵身" 流水线" 的 个 么 地 方 谷 芭 转 ? 按 什 么 次 这 组 合 这 二 个 汇 外 与 
常数 C? 每 一 个 组 合 帮 需 娄 进 ji 折 " 帮 " 异 或 "操作 吗 ? 在 确定 图 中 算法 之 前 ,对 这 此 选择 需要 多 伏 ' - 些 试 
星 。 

最 少 选 代 次 数 Nt 的 确定 可 以 简 路 ,有 意义 的 Ne 最 小 值 显 热 且 2, 臣 为 一 次 选 代 只 能 简单 地 移动 -个 
32 位 而 不 会 改变 它 。 可 以 利用 常数 < 型 cz 来 帮助 确定 合适 的 Yi: 值 ; 当 Ni 一 2 且 CrCs 一 5 用 意 粗 劣 的 
选择 ), 生 成 程序 使 一 些 随机 性 的 测试 失败 , 芝 方面 , 当 :一 4 或 Wi: 一 2 但 常数 C 和 人 不 太 大 ,这 时 从 
这 个 结 忆 得 到 的 相当 于 10 个 浮 豆 数 关 的 序列 里 ,我 们 还 投 有 发 机 对 随机 性 的 任何 综 计 偏 芝 - 因 而 Ni 一 4 
及 不 太 小 的 Cu,Cz: 的 组 人 台 纵 出 的 序列 是 随机 的 .对 其 随机 性 的 测试 已 远 超出 我 们 的 实际 实验 ,在 ww 一 2 
(当然 快 末 倍 ) 时 .我 们 并 没有 发 现 它 的 不 随 机 性 ,尽管 事实 如 此 ,我 们 还 是 推荐 使 用 较为 记 守 的 参数 秆 
(Vis4)。 

这 些 思想 的 实现 简单 易 慌 . 下 这 穆 序 不 是 可 随便 移植 的 .因为 ,已 设 无 符号 长 整数 时 32 位 : 且 大 多 数 
机 器 的 实际 情形 ,然而 ,并 不 尾 说 较 长 的 整数 总 尾 不 好 的 (其 常数 Ci,C* 有 适当 的 范围 ).C 诸 膏 诈 不 提供 使 
于 移植 的 方法 ,以 便 分 割 一 个 长 整数 为 半 字 ,页 我 们 必须 使 用 屏 殴 的 织 合 (中 oz717 ,并 左 移 或 右 移 15 售 
( 穴 气 16 或 六 >16) .在 某 些 机 器 后 半 字 提取 蒜 使 用 5 敢 辑 与 结构 要 快 得 多 ,但 这 在 "长 结尾 "与 " 短 结尾 " 
权 恬 之 间 - - 般 是 不 可 移 稍 的 (长 , 禾 绩 必 指 的 旦 ,将 字 节 存放 到 一 个 字 里 的 次 序 ) 


世 detine NITER :+ 


void psdesfunsignedg long #jlsword,unsigned long *iword) 
混 洗 的 84 位 字 长 人 wotrdiirword) 的 "人 区 随机 数据 加 密 标 准 ”, 这 二 人 32 位 变量 在 所 有 位 都 被 反 转 混 屯 了 . 
{ 
unsigned long iviaiib,iswab :ittmph 一 Ditmp]1 一 0 
static_ unsigned long clLNITER]=! 
0xbaa96887L 0Oxlei?d32cL nx03bcde3ecL ,0xDf33d1b32L .; 
static unsigned long c2[LNITER]=! 
0xk4b0f3b58L .DOxe874f0c3L ,0x6955c586L .0X55a7ca46L}: 


ier 0=O3CNITER3 十 十 ) ! 实现 DES 逻辑 运算 的 niret 次 迷 代 ,采用 简单 的 , 非 加 肇 的 
非 线性 函 救 苦 痪 DES 
庆 一 (iswab 一 (xirword)) ” clii]; 常数 c1 和 *& 下 面 ) 保 让 了 非 线性 刘 合 


irmpl 一 ia 名 0Oxfftfy 
itmph 一 ia 六 六 16; 
吉 一 iimbir itmnpli 上 上 ” 《aitmph 上 itmph)y 
+ irword 一 (# lwotdy (fa 一 人 人 > 人 16)7 
《Gb 和 0xftff) << 16)7》 ”cc2[) 十 mpyx itmphy; 
+ wotd 一 isywapi 
} 
列 在 下 面 的 程序 ran4 使 用 bsdes 以 产生 均匀 的 随机 偏差 ,我 们 采用 习 懂 做 法 ,将 安 量 idum 的 雏 值 放 
在 左 32 位 ,而 下 值 放 在 右 32 位 , 返 叫 第 ; 个 随机 偏 盖 ,及 jidum 到 ;1 的 增 量 .这 只 是 为 了 便 计 定义 许多 不 
同 的 麻 列 Gidum 的 负 值 ?还 要 随机 存 取 每 一 个 序列 5idum 的 正 值 ). 为 了 从 32 位 整数 中 得 到 一 个 浮 点 数 , 我 
们 采用 了 第 7.1.4 节 未 尾气 述 的 枯 蔽 技巧 ,十 六 进 制 常 数 3F8G0000 和 007FFFFT 适合 于 用 TEEE 表示 的 计 
算 机 的 32 位 浮 点 (如 IJBM-PC 机 和 大 多 数 UNIX 工作 站 ). 对 DEC-VAX 机 ,正确 的 十 六 进 制 常数 分 别 为 
00004084 和 FFFFC07F 。 若 机 扩大 可 移植 性 ,可 以 用 有 符 叶 非 负 的 32 位 整 教 来 档 成 -个 浮 点 数 ( 典 型 地 ,如 
是 负 逆 , 则 三 好 加 33》, 然 后 用 一 个 评 或 常数 乘 它 ( 典 现 地 ,为 2-2) 。 
程序 ram4 一 个 有 趣 的 ,有 时 也 很 有 用 处 的 特点 是 , 它 允 许 在 序列 中 随机 访问 第 ， 个 随机 数值 ,而 不 需 
要 先生 成 1…a .上 个 数值 .这 个 性 质 是 由 于 共享 了 任何 基于 瀑 洗 的 确 机 数 生成 程序 ( 教 值 高 度 群 集 的 数据 
键 的 映射 技术 ,几乎 均 和 伍 地 进入 一 个 存储 地 起 空间 ?8 涪 。 有 时 可 能 会 磁 到 一 个 少见 的 擅 装 擅 益 的 问题 , 当 
在 某 些 个 别 地 方 发 生 后 ,最 重要 的 是 缚 果 应 可 以 辨认 州 来 .我 们 需 望 使 用 相同 的 短 机 和 值 ,也 就 是 说 改变 其 
些 控制 参数 ,使 这 种 情况 能 模拟 返回 并 重新 开始 -这 类 的 阿 题 诸如 * 在 镍 环 数 337098991 中 使 用 了 什么 随 
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机 数 ?";, 然 而 ,在 提出 这 个 袜 题 之 前 它 可 能 已经 是 循 坏 数 为 335150273 了 .基于 递 遇 的 随机 数 生成 程序 六 

基于 混 洗 的 随机 数 生成 程序 更 不 易 回 答 这 类 问题 ， 

joat ran4 (opg *# tdutmy》 
返 辐 在 忆 0 到 1.0 范 转注 一 至 随 访 离 . 它 由 64 位 字 [idqums ,jiqum? 冯 的 一 DES5 与 DES 类 似 ? 泄 宣 而 生成 的 , 巷 汪 
idums 是 用 负 值 idum 前 次 诬 用 的 设置 , 片 增加 idum, 通 过 连续 调用 ,本 穆 序 可 用 来 产生 随机 序列 ,而 在 连续 调用 之 
间 保 持 idum 不 变 ; 举 用 idum 一 * 来 讽 用 蚊 ,本 程序 能 够 让 -序列 中 随机 访 可 第 na 位 精 离 值 . 当 用 不 户 的 过 um 的 负 
和 值 亲 用 , 刚 不 同 的 序列 被 初始 化 ， 


void psdqes [tnsigned long #1wotrd，unsigned long < irword3i 
unsigned long irword :itemrmbDyiword' 
stEtic long idurns 一 0; 
六 让 definedtvax) :| definedC_vax-》 | defined(- -vax- definedCYAX) 


ststic unsigned lorg fione 一 0x00n0dn80; 十 愉 进 制 常数 Pone 和 计 msk 是 用 于 1. 和 2. 之 癌 产 本 济 
Stattc nstebed lorg 也 msk 一 Oxffffo7f 点 效 ,它们 与 机 内 有 依 柬 关 系 。 耸 阅 正 文 
芯 else 


static unsigned lorg jione 一 0x3f800000， 
static unsigned long jflmsk :0x007fifff， 


蕊 endif 
计 【[*idum<-0) : 重新 议 痛 .dunts 并 及 站 备 运 区 读 刘 中 的 第 -个 遇 次 价 
idums 一 (xiduon)i 
# jdum 一 1 


4 
irword 一 人 《#jdumy)+ 
jwerd 一 idums : 


psdes (如 lword ,wjirword)+ 用 " 纹 一 DES? 对 宁 编 码 
itemp 一 者 one | ( 训 msk 呈 irword); 将 浮 点 数 掩 秃 在 1 至 2 之 间 
十 十 (xidum)y 

return 《+ (float # )&itemp) 一 1.03 相 减 后 移 到 (至 1 的 范 男 


下 表 ?. 5.1 给 出 “ 些 数 据 , 以 检验 用 户 的 机 器 上 ran4 和 psdes 是 徊 能 止 常 上 作 , 我 们 并 不 推 攻 应 用 
ran4:, 除 非 你 能 复 关 扩 示 的 十 六 进 制 的 数值 .一 般 地 ,raa4 比 rang( 第 ?,1 节 ) 太 约 蛋 4 倍 , 比 raul 惕 3 倍 ， 
表 7. 5.1 检验 psdes 能 否 实行 的 数据 


习 验 psdes 能 否 实行 的 数据 
Fsdes 调用 阶 psdes 亩 玫 后 (十 六 进 制 》 tandKidutmn》 


Te Te 


S04D]DKCE 509C6C23 。 昌 275898 吕 316120 
了 97F8571 上 66CBd41 和 点 站 .208204 0.84924f 
7822309D 664300984 - 034307 0. 375290 
了 7F376FD 59BAB9EB ,38t76 1. 357334 








逐次 用 安 量 一 1,90, 一 55,1 调 用 psdqes ,地 得 到 友 中 显示 的 正确 狗 1wotd 与 irword 数值 
掩 模 转 要 返回 的 浮 点 随机 值 将 巾 岂 六 尖 定 ; 对 于 YAX 和 PC 机 表 中 示 显 示 了 数值 
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MeyEEC. HT :hd NatyisyS MaS2 CTYFEpRTrapby :Verte Lpaension ia 《mapater 站 aa NiPrruT Now 
YorksWwWriley). [4 

长 nuth :DD- 下 1973，Sortni ortdt cefeREEVOt 3 Of The art pr Copapaier 已 PoBrQNnrtiptg (Reagiog MA :Ai 
djson-WWesley]vChap-er 6 [5 

Wirtfer Sanc Chen 网 -CC 1387 Deegn an -netsi Coutescett Fanapag New Youk:Oxicrd mver 

sjty Press)]. [5] 


7.6 简单 的 蒙特 卡 罗 积 


从 不 稳定 的 信 法 能 产生 出 数值 方法 这 件 于 中 学 到 启发 。 刘 光 样 条 ?是 出 终 图 点 首 风 本 于 
木料 的 任意 条 纹 必 模拟 退火 ”( 将 在 第 10. 8 节 讨 论 ) 是 来 源 卫 热力 学 模拟 ,更 何 雇 大 过 者 知 
道 , 全 少 匡 闻 过 * 洛 特 上 洛 积分 方法 "这 个 名 字 。 

假设 我 们 在 一 个 多 维和 钵 称 了 中 ,选取 六 人 均匀 分 布 的 随机 点 , 称 它们 为 站 ye. 开 
是 ,蒙特 卡 移 (Monte Carlo) 积 分 的 上 丰 本 定理 指出 , 范 数 上 在 多 维 体积 上 积分 近似 为 ， 


1 人 
下 ds Yi +YA 二 和 < 《7.8 1) 
这 里 ,前 括 导 表示 对 N 个 取样 点 上 的 算术 平均 着 ， 
RE SS 
了) 一 N Zn) 《 产 》 到 页 Zn) (7.6 2) 


式 (7. 6. 1) 中 的 * 员 或 减 "项 友 示 积分 的 标准 偏 益 , 而 不 是 严格 的 界 . 进 一 步 说 , 它 术 保 让; 生 
服从 高 斯 分 布 , 所 以 此 误 蓄 项 只 可 看 成 为 可 能 误差 的 粗略 估计 。 











随 柄 总 在 元 城 由 中 入 了 ,六 数 子 光 积 分 过 亿 为 电线 了 下 随 视点 的 部 分 磁 上 4 
乓 血 柑 ,这 个 过 程 级 重 狐 细 分 可 六 改进 这 个 方法 的 准 参 味 , 见 正文 。 


图 7 多 1 蒙特 卡 贿 积分 
假设 票 对 函数 & 在 … 个 不 容易 随机 取样 的 区 域 多 上 积分 ,例如 ,We 可 能 具 让 非常 外 休 
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的 形状 。 毫 无 疆 阳 ,只 需 找 一 个 既 包 含 W 又 能 够 很 容易 取样 的 区 域 了 4 上 页 图 7.6. 1 忠生 
定义 函数 六 它 在 三 内 等 于 8 ,在 殉 外 ( 亿 仍 夺取 样 的 中 中 等于零 , 取 Y 尽 可 能 靠 让 .向 
了 的 零 俏 会 增加 式 (7, 6. 1) 的 误差 估计 项 。 最 好 是 ,H 之 外 所 选择 的 取样 点 没有 信息 台 从 、 
使 有 效 点 数 六 减少 . 式 (7. 6.1) 中 的 误 益 估计 项 要 考虑 这 个 门 题 ， 

给 出 蒙特 卡 罗 积 分 的 -个 通用 香 序 是 相当 复杂 ( 见 第 7.8 节 ), 而 一 个 实测 将 表明 习 和 方 
法 的 简要 原理 .假设 我 们 更 对 一 个 形状 复杂 的 物体 , 声 如 -一 个 由 大 方 枚 定 界 的 圆 环 的 突 , 计 
找 蕊 的 重量 和 质心 的 位 置 . 具 体 说 , 设 该 物 体 受 如 下 三 个 联合 条件 限 制 : 


于 十 VY 本 荆 一 3 全 :1 (331 
《 圆 环 中 心 们 村 原 点 ,长 半径 一 4, 短 半径 一 2。) 
7 59. 4 


( 方 框 的 两 个 面 , 见 几 7. 6. 2) ,假设 对 矩 量 而 这 , 雯 体 只 有 定常 密度 po， 

我 们 要 估计 如 下 复杂 物体 内 部 的 积分 ， 

| ozz dy dc | :edz dyw | eararyw | zedzdrc [人 
其 质心 坐标 是 后 二 个 积分 (线性 抢 量 ) 与 第 一 个 积分 ( 重 显 ) 之 比 ， 


和 














积分 区 域 足 一 朋 理 环 \ 由 两 个 平 上 的 交界 限定 .区 或 的 界限 不 容易 写成 
解 忻 封闭 形式 ,所 以 葡 待 卡 罗 尽 -个 有 用 的 方法 


图 7.6.2 蒙特 卡 轴 积分 的 例 于 ( 郊 止 文 》 
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仕 下 面 的 李 泽 段 中 , 包 困 虹 环 段 丈 的 区 域外 是 一 个 长 方 箱 体 ,其 范 肝 是 1 一 4 


YY 一 3~-4.x 一 1 一 1. 


攻 Iinclude “nruot:1.Db” 


了 mi- 

芝 昌 De 二 - ，. 

BTSWTrSWYm SSZmO .1 

Varwryarx=-vVBTy7=VaTZa0O 0; 

Vole3.047.Dy2.0; 

fcrfjniij<enijtr+y 工 
x=1.0+3.0ran2(zidum) ， 
ye=f-3.0)+7.Oxran2fkidtum) ; 
ze=(-1.0)+2.0yTanD2( 友 du 


上 加 所 求 的 择机 忆 个 坚 
和 这 吗 密 灾 的 党 数值 
堆 化 累加 的 务 种 和 人 东 
重 样 长 域 的 体积 


亦 取 社区 城中 随 筷 炖 这 点 


应 〈Zz*zZ+SQR(BqtEt(Twx+y3y) -3.0) < 1.0) 荆 它 在 圆 环 中 蚂 ? 


Bw +em den; 

他 由 X 十 亚 关 9 计 B 了 ; 

avY += Y4den 1i 

SVZ += 了 wdSD7 

VaTW 4w SQRT《den)] : 

YaIX +s SOQRCXden) ; 

vary += SQR(ynden) ; 

VarZ += SQR[Zwden) 3 
本 
wmvol+swAni 
x=Volwgwxrni 
Y=vpls#Bwyyn; 
ZmvD1L3#SwZzAD 
dv=voelrsdrt((varwyo-SQR{swAa)yyno) 1 
dx*VvO1#3qrttKVarxAa-SQRtswrAD) AZoyi 
dy=yol+sqrt((varyAa-SqR{tsuyya))zn) : 
dzmvol+sqrt((varzyn-SQR{tSwzzn))zo)i 


妇 果 在 网 环 中 ， 则 如 上 各 种 累积 基 


积分 藉 47 .的 舍 


及 其 对 应 的 识 称 估 汗 


在 蒙特 卡 罗 积 分 中 ,变量 的 替换 是 很 有 用 的 ,例如 ,假设 要 计算 同样 的 积分 ,但 只 是 圆 环 
段 的 密度 依 束 于 坐标 z 而 变化 ,事实 上 , 它 按照 公式 
(yo2) == 25s (7,6,.6) 


变化 ,计算 这 个 积分 的 ~ 个 方法 足 , 刚 好 是 在 第 :次 使 用 den 之 前 ,将 语句 


中 en 一 expC5-0xkz) 


在 让，……) 据 中 .这样 是 可 行 的 ,但 不 旦 最 佳 方法 .内 为 式 (7. 6, 6) 随 = 下 降 ( 降 到 它 的 下 
限 一 1 迅速 到 零 ,这 时 大 多 数 皮 样 点 对 重量 或 年 量 的 和 式 几乎 无 贡献 .这 些 点 实际 上 浪费 掉 
了 ,糟糕 的 就 象 这 些 点 都 位 于 区 域 凡 之 外 似 的 。 而 变量 蔡 换 ,如 同 第 7. 2 节 的 交换 方法 所 做 
的 ,能 解决 这 个 问题 . 邻 ， 

必 =edz 使 得 = z 一 二 lnf5s) (7.3.7》 
则 zz 一 好 ,由 界限 一 1<<z<<l , 变 成 界限 1.00135<s<29. 682 . 贡 在 程序 段 如 卜 : 
其 incLude "mrutil-n* 
站 设置 需求 的 样本 屎 个 数 
SumwSWXzSwyeSWZFD 站; 
VaTwsV3STIaVary=VaIZ<D .Di 


6s=0.2rfexrptSs.D0)-expf-5.0]》 
VC1z*3.0+7 .DO+ss 


涯 蜂 随 机 丰 梓 的、 民间 
在 x. .空间 中 的 体积 
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for(-2i<-aty1++) 1 
xz=l Q+r3-Dwran27 和 iduk 
y=(-3.0)+7 .Dran2(&adunm) ， 


s=0.D0135+sSsaran2( 自 idum) ， 桃 远 、 中 的 让 
zz20.2*3og75.045) 1 万 鹅 了 
1f “zz-rHSQR(3sqrzrxextyey》3-0 “191 
sw 4= 1 5; 荡 当 关 中 了 的 定 芝 从 本 是 1 
SNX 二 = 闫 
358y += 了 
3Sw7 += Z 


Yary + yyy， 
varZ += QZ 
上 

上 
呈 -VDE 利 寻 了 -Hi 门 虑 
5 voleowxyr=; 
7=VvoclwswyAz7 
Z=VOoleSsSZyi 
dwsvolwsqrtK(varwpn-SQRIssea)yAn)yi 基 汪 村 应 提 民 关 目 证 
qdX=9y9leSsqFtKCVaXAa-SQRISwXAn) DAo)y， 
d7s=vcles9rt(fvaryyp-SQRrsuypny)yn) ji 
dz=vol95qrttfvarzpn-SqRSwzAray)ya) 3 


稍 加 思考 就 可 看 出 , 式 47.6.7) 之 太 以 有 用 ,是 匿 为 我 们 邢 时 息 要 消去 Ce 的 被 各 困 获 
部 分 是 解析 可 积 的 ,并 和 片 有 :个 能 够 解析 六道 的 积分 (比较 第 ?2 节 ) -有 般 情 况 , 这 些 性 放下 
县 备 。 怎 么 办 上 呢 ? 答 案 是 去 掉 被 积 男 数 可 以 求 积 分 和 求 逆 的 "最 佳 " 男 子 “ 最 佳 " 的 准则 辕 是 ， 
滤 图 把 剩 下 的 被 和 函数 约 成 一 个 必 可 能 靠近 常数 的 函数 ， 

极限 情形 是 有 启 区 性交: 如果 变法 使 得 被 和 图 数 了 准确 为 带 数 ,如 果 已 知 体 积 汐 区 局 下 
准 角 和 包 住所 求 的 区 威 和 ,出 计算 的 子 的 平均 值 将 准确 为 它 的 党 数值, 并 县 (7.6. 3) 中 变 营 
估计 准确 地 为 伪 . 于 实 上 ,我 们 将 能 准确 地 求 得 积分 ,蒙特 卡 罗 数 值 求 值 却 成 了 多 余 的 .所 
以 .由 慨 庙 情形 稍 作 后退, 以 达到 能 用 变 基 蔡 换 使 男 数 二 近似 为 常数 榴 程 度 , 并 且 达 用 能 骨 
在 一 个 只 稍 比 厂 大 的 区 域内 取样 的 杜 度 ,这 就 能 拭 若 蒙特 卡 罗 的 积分 的 准确 性 .这 种 技术 
在 文献 中 一 般 叫 做 方差 退化 。 

蛇 特 卡 罗 积 分 的 基本 瞪 点 是 , 它 的 准确 性 只 随 翌 本 点 个 数 区 的 平方 根 增 长 .如 果 对 第 
议 性 要 求 适 由 ,或 考 计算 机 的 预算 量 很 大 ,那么 这 个 技术 作为 极为 普 这 的 找 术 是 很 值得 堆 荐 
的 . 

在 后 面 的 两 节 中 .我 们 将 了 解 到 "消除 六 的 他方 根 这 障碍 "的 现 有 技术 和 和 成果. 至少 
在 基 些 场合 ,少数 忆 个 函数 的 计算 具 右 较 高 的 精确 度 。 


Sokbol 1. M, 1974, 了 TAR pare Carte aethoatChicago:University of Chicsga Press]、 
民 alos,M.H. :satl Whiteock ,PbP. .1986 9oxte Carto aferpods :Netw York: Wilev)， 


7.7 准 随机 序列 


我 们 己 茎 知道 ,在 N 维 空间 中 ,为 j 随 机 地 选择 N 个 点 会 ,在 蒙特 栗 罗 积分 中 引 上 攻 
个 误 基 页, 党 以 17 Y 六 形式 上 降 . 大 体 上 .每 -个 新 的 权 样 点 部 线性 地 加 芭 票 加 的 和 布 .并 
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成 为 汪 数 平 皇 值 : 问 时 也 线性 地 加 到 黑 苏 的 平方 和 下 .并 成 为 方差 (方程 7.6,. 2 . 摧 计 记 营 汶 
自 这 个 方 益 的 平方 根 , 即 寡 N 。 

这 个 平方 很 的 收 敏 竹 基 常 殉 的 .但 并 非 总 是 如 此 .一 个 简单 的 反例 是 .在 妆 目 尔 山 格 上 
洗 择 了 样 点 ， -个 幅 格 取 -点 (无 沦 什么 次 弃 )。 于 是 ,蒙特 下 和 方法 成 为 一 个 磺 定 的 求 积 弗 
构 一 一 尽管 是 一 个 简单 的 一 它 的 机 对 误 益 下 降 不 少 有 N 一 那 样 快 (如 果 国 数 在 取笑 导 起 
的 边 春 上 平 清 趋 于 发 ,或 在 此 区 十 内 是 轧 期 性 奖 数 , 它 下 降 得 还 杰 更 快 )。 

有 关 栅 格 的 一 个 问题 是 ,必须 其 先决 定 它 应 有 什么 精 渤 , 然 后 沈 成 全 部 取样 点 . 自 册 格 
做 取样 ， 直到 收 敏 或 遇 到 临界 时 终止 ,这 是 林 方 使 的 ,有 大 也 许 会 加 ,是 哲人 存在 让 区 促 中 间 
方案 , 随 宙 地 苔 取样 点 的 方法 ,并 且 扩 展 出 某 种 自身 朵 避 将 方法 , 它 能 过 均匀 随机 点 的 振 
集 的 机 会 发 牛 。 

人 除 此 以 外 , 还 有 种 类 似 的 问题 ,我 们 可 能 要 为 其 个 点 而 搜索 一 个 N 维 空间 , 那 点 (局 
部 可 计算 的 角 件 是 满足 的 .当然 ,为 便 计 算 有 意义 ,最 好 空间 必须 是 选 继 航 , 以 使 在 … 个 有 
限 的 交 维 邻 城 凡 ,所 求 的 条 件 是 满足 的 ,尽管 焉 全 可 能 事先 不 知道 这 个 祁 域 究 意 奇 条 大 .位 
我 们 将 平滑 地 更 如 细 分 尺度 以 增加 取 学 点 , 计 到 发 现 所 求 的 点 为 志 。 是 否 还 存在 比 不 林 关 的 
随机 取样 法 更 好 的 方法 能 完成 这 件 事情 呢 ? 

对 上 面 问题 的 回答 是 “是 的 ”, 比 不 相关 的 晴 机 点 更 均匀 出 充 注 N 维 空间 的 AN 工 庆 让， 
被 称 为 “ 准 随机 序列 ". 这 个 术语 有 点 用 词 不 当 , 因 为 淮 随 机 序 别 因 本 不 “随机 ”; 案 实 上 ,它们 
很 明显 地 大 次 随机 .严格 说 ,在 准 随机 序列 中 ,取样 点 是 尽 可 能 的 互相 "最 大 地 辣 避 ”. 

一 个 简单 的 、 慨 念 上 的 例子 足 仁 尔 蚌 (Halton ) 序 列 2 ;在 一 绯 空 革 ,这 个 序列 第 ) 个 数 
已 ; 按 以 下 步骤 得 到 : (1) 写 出 / 作为 以 总 为 基 的 数 ,，6 为 其 个 索 数 (例如 ,以 6=3 为 基数 
=17 时 得 步 以 3 为 基 的 数 为 122 )、(2? 在 这 个 序列 前 , 反 转 这 个 数 , 并 经 -个 小 数 点 z 即 以 
基数 8 的 十 进 制 小 数 点 。 例 如 ,得 基 3 的 0. ?21 ), 所 得 结果 就 是 如 ;为 在 久 维 空间 丝 有 到 下 
元 序列 ,可 以 用 不 同 的 素数 为 基数 筷 做 成 蛋 尔 赴 序 列 的 每 一 个 成 份 。- 段 情 帝 采 几 前 六 个 
素数 。 

休 准 看 出 改 尔 顿 序列 是 距 奉 上 作 的 :每 次数 字 7 的 个 数 增加 一 位 ,7 的 反 转 数 世 的 尼 数 
变 成 了 精细 网 格 b 的 一 个 因子 ,因此 这 个 过 程 是 在 越 来 越 精细 的 笛 卡 水 栅 格 中 汗 充 及 有 六 
的 每 一 个 点 一 一 并 岂 在 每 一 栅 格 上 最 大 地 扩展 数量 级 (因为 ,数字 /中 最 急剧 变化 的 数 , 控 
制 着 最 有 意义 的 小 数 )， 

Faure ,Suobol,Niederrciter 等 人 提出 过 产生 准 随机 序列 的 其 他 方法 -Brarlay 与 Hax: 
给 出 了 一 个 很 好 评论 点 论述 .并 讨论 了 用 Antonov-Salees9 提 供 的 Sobo1 革 庆 列 的 时 踢 有 有 
效 的 变量 .我 们 现在 要 讨论 的 就 是 Antonov-Saleev 变量 的 实施 ， 

















从 “组 特 跌 的 如 个 一 进 制 尾 若 太一 1 299ae 中 ,Sopp1 序 列 产生 0 与 1 之 间 鼻 数 ,直接 年 为 长 度 为 也 
位 的 二 进 制 尾数 ,这 叫做 方向 数 ,在 Soyut 原来 的 方法 中 ,第 了 个 数 X) 是 诺 注 足 条 件 的 - 些 数 组 i( 逐 位 异 
或 ?产生 的 ,其 乏 传 是 Vi 的 : 要 清 足 “7 的 自 ; 位 为 非 零 ". 坎 音 之 , 当 了 卉 加 时 ,Yi 中 的 不 可 的 1, 以 不 司 交 入 
问 进 入 或 消失 在 不 宙 . 这 就 使 h 交 等 节 内 现 和 消失, 变 位 得 非常 快 ,页 Ye 肝 出 现 到 消 尖 : 或 把 之) 和 要 每 
3 1 步 产生 -次 ， 

Antonoy 和 Salesy 的 页 献 是 用 骆 数 7 的 比 竺 位 碎 换 方向 数 ! 人 和 引 也 可 用 ， 的 硝 首 更 GCCras 人 ersy 
的 比特 世 ( 格 雷 码 的 简要 论述 人 参 电 第 20. 2 村 ) 
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现存 ,六 与 GO 十 1) 正 好 只 有 一 位 出 畔 倍 不 同好 ， 的 二 进 制 者 东 的 , 秀 各 油 索 售 的 位 痢 5 总 ss 
上 贞 加 上 -个 前 置 堆 ] 这样 ,第 1 个 Soboi-Anconey Saleev 数 , 果 以 从 笋 了 个 直 与 单个 站 广 怪 或 "来 征 二 1 
副 了 中 最 右边 零 位 志和 我 们 和 将 在 到 ,这 使 得 序 下 的 计算 非常 存 效 . 

阅 7.7,1 商 出 了 二 礁 Sobcl 订 列 产后 的 前 10 线 个 点 .本 以 看 训 从 林 哑 点 能 " 底 道 "重演 了 骨 下 的 空 同 ， 
分 妇 地 填充 这 些 空 薰 。 
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该 序列 由 数论 生成 ,天 不 是 随机 的 , 故 在 作 可 阶段 ,相继 点 都 “知道 "应 该 如 和 何 填充 到 前 面 已 有 分布 能 空中 中 
图 7.7.1 一 堆 壳 捕 (Sobo]) 序 别 的 前 1]024 个 点 
规 在 订 论 方向 数 上 的 怎样 产生 的 .许多 优 和 郑 的 数学 家 由 革 从 事 这 项 工作 ,所 以 ,我 们 只 其 做 :点 敬 介 
以 湛 眉 我 们 说 明 问题 :每 一 个 林 所 的 Sobo1 序 列 !( 或 维 序列 的 分 景 ) 是 基于 整数 措 2 (Modulo ?2 ) 的 各 和 本 
原 多 项 式 . 即 该 多 项 式 系数 为 和 4 或 上, 并且 不 能 再 提出 凡 子 (用 模 2 整数 运算 ;成 发 较 做 次 密 项 式 :( 度 壮 芍 
本 原 多 质 式 在 第 7.4 节 中 用 过 ,在 第 20. 5 节 中 示 将 进一步 讨论 , 作 设 呈 是 这 -- 个 9 次 客 虎 式 
用 一 2 ao2g 1 十 9 一， 一 co 一 开 一 】 全 
刷 4 项 甫 内 关系 定义 一 个 整数 序列 好 ， 
4 20 ui 
其 中 连 倍 异 或 以 电表 未 这 个 韦 推 基 系 的 开始 和 草 好 4 荐 沪 芝 分 别 小 于 2 2 的 括 意 计 侣 数 下 并 间 
260* 


-1 轴 (2304 贡 2 


数 三 为: 


表 思 7. 1 列 出 了 所 有 


全 2 1 一 1 证 


级 次 4< 册 的 模 2 本 , 原 客 项 式 - 出 于 等 厌 系 数 为 4 或 上 ,用 zx? 和 1 项 的 系数 总 基 1 


RN 


, 故 髓 中 


癌 郑 项 和 狐 系 数 作 为 “个 二 - 进 制 烙 的 各 比特 位 : 击 此 来 麦 示 密 项 式 是 很 方便 的 (xz 的 格 次 越 遍 有 效 位 数 越 
多 ) ,该 表 合 用 此 纺 定 、 








讲 1.7. 1 模 2 本 原 务 项 式 









由 六 本 蝶 凶 项 式 


Die 十 1 







Lie,，z2 十 工 十 了 ) 





1.27ie, zaT+liandzr3s+lza+1) 











1 4(ie. 24 二 2+1andzt 二 xz 十) 











2. 4 7 11，13，14 














1，13， 16、19，22，25 











! 


- 





“用 





| 319. 324，346.，352.、 361，367. 382.、394. 398.、400, 412.、 419. 422. 426. 428， 433. 446 
1454，457. 472，493， SU5，S0U8 






1，4，7, 3 14，19,， 2] 28. 了 ]，32，37， 41, 42，50、55. 56，59，62 


14，21. 22，38, 47. 49. 50， 52, 56, 67， 10，84, 97，1 归 ,11$、122 












虽 .13. 16、22、25, 和 ,47， 32、55、59， 62. 67， ?74 381. 82 87. 3931. 94， 103, 1 叫 ，109. 122 
124. 137, 138. 143, 145. 152. 157, 167, 173,， 136, 181. 182. 185. 191, 194. 199. 218, 220， 
227，229，230. 234，236、241、244，353 








二 13、|g 22. 5U、55. 64、69、98、107， 1 和 12，123，134, 140. 145,，152，158，161 ,17 
181，194、199、203. 208. 227. 242、351、253、265，266. 274，283. 289， 295,，301，316 





让 进 汕 申 数 表示 内 部 比特 佑 5 即 忽略 最 高 次 的 比特 位 和 单位 1 的 比特 位 ? 





表 ?.7.2 用 于 Sobseq 的 初始 值 





括号 














的 值 不 能 钨 便 使 用 ,而 更 必 这 一 阶 侈 的 递 推 关系 得 出 


动 在 站 沦 Sobol 序列 的 实施 过 程 -入 综 调 用 Sobsed 辣 迷 ( 去 补 妈 调 月 后 站 返 计 一 个 呈 维 Sobal 革 守 秀 
它 居 紫 于 头 ?.7.1 中 前 呈 个 可 际 多 耻 ,下 训 蕊 拧 出 的 衬 译 中 初始 化 辣 ,使 下属 天 四 6 淹 丰 全 
这 此 参数 可 通过 了 AXBTTIs ti) 有 MAXDIM 疾 改 变 , 让 可 以 通过 在 烙 组 让 :到 中 隐 泵 奈 攻 三 趟 
Teg 人 的 阶 这 ) 攻 5 滞 扒 的 祈 取 数据 :去 征 司 72 中 添 下 下 和 多 妥 补 徐 数 机 末了 改变 .在 本 让 长? 
才 明 了 程序 山 使 用 的 初 娩 娄 混 ， 









主攻 








并 inciudc "nrutil.h2 
下 Tefine MAXRIT 30 
fdefine MAXDIML 睛 


vbi 训 sobsedtir *my iloat x[ ) 
nm 为 负重 时 ,对 MAXIDIM 每 个 不 同 的 Sohos 享 丈 ,让 癌 要 好 化 :组 MAXBIT 方向 教 .二 有 污 王 和 


MAXDIMD2 .以 疝 忆 xx 门 , .an | 返 宁 这 mm 第 序列 的 下 人 看 。 


{ 
了 了; 
Unsigned long iim,ipP， 
Stzatic 于]0at Taci 
statIc unsigned Loag inizx[NAXDPDTIM+1] ,+iu[CKAXSIT+1I] 
static Unsigned Long Dde 芒 [ 害 AXDIM+1={O,1,2,3.3,4,41; 
static tnsigned LonZ ip[MAXDIM+t]=O,O,1， 1 21,41; 
5ratic usigmned Long iviMAXDIMHAXBIT+tT]=Y 
各 和 和 生生 二 主 间 本 二 汪 让 业 生生 了 全 二 了 全 二 厂区 3 
it (ee< DT 宁 险 化 ， 洒 返回 向 重 
for 【j=1,kx=0;j<=MHAXBTT;j++,KX+=KARDIM] iu-j] = kiv[k]; 
允许 1D 基 2P 访 问 ， 
人 or 《k=11k<=MAXDINH;K++》 乓 
for 〔j=1;j<emdag[k];j++) in[j][k] <<= [MAXBIT-j); 
Stored values only require narmalization 
for (j=mdeg[t]+1;j<sMAXBIT;j++) 荆 用 遂 捧 得 别 呈 ”和 什 
ipPpsip[x] ; 
i=iu[j-ndeg[x]] [zx] ， 
iv* {i >> mdeg[k])， 
for (1=adeg [kj|-1;1>s1i1--) 荆 
if (ipp 本 34) “= iu[j-I][x]， 
ipP >>= 工 ; 
】 
iuj] [=i; 
】 
acCel-OAIL << MAXBI3) ， 
in=Oi 
] else { 计算 座 列 中 的 上 喇 量 
Jam 天 斌 ; 
for {《j=1;j<=MAXBIT:j++) 《 找 出 基石 边 的 零 比特 售 
i 【Lia 上 各 1)) break， 
i >>= 1; 
ifE 《j > MAXBZIT) hraerrorf "MAXBIT to 3mall 1n scbseq") 
im=(j-1]3HMAXDIN; 
for {k=1;K<=IHIRKwa ,ADINH) :k++) 蛋 或 通 汪 的 方向 数 成 为 由 量 的 择 个 分 量 . 
3 女 [kl ~= if[im+rK] 井 且 壬 换 尸 序 点 数 
工 [k] =ixfk]wtaci 
T 
in++ 1 数 霄 | 
了 


sobol 序 州 好 在 个 么 志方 :对 于 维 平 请 遇 数 的 蒙特 卡 罗 和 分 , 贞 国 答 足 ,对 随机 阴 磁 数 呈 和 相 寻 让 座 以 
262 ， 





Co"Aw 的 方式 减 小 :也 就 是 几乎 和 17AN 一 样 快 。 作 为 示 合 , 设 -个 积分 熙 数 六 攻 在 天 维 空 间 汐 图 天 由 
是 非 等 的 .如 果 圆 环 的 主 半 各 是 妨 ,。 辅 助 半径 的 半 坏 了 定 浆 为 


关 一 人 Ce 十 有 天) 六 -一 由: ， < 人 
函数 
| 艺 r:| 
| 】 一 cos| oa | AT 
比 。 汪汪 1 


zz) 一 


可 在 山 在 彤 坐标 系 得 解析 积分 ,有 

| | QU es zy sz) -= 2r22: 反 ， 4147,.7,51 
方程 (7. 7. 和 任 区 如一 1<rywycc1 夫 均 杀 取 性 ,并 以 条 教 瑟 =0.6, 六 =0.3 和 由 Sohbseqg 程序 三 生 一 个 不 釉 
关 的 随机 点 和 Sobel 序列 ,做 柑 继 100 次 睹 特 卡 罗 积 分 ,结果 未 十 图 7?.7,. 2 图 中 曲线 表 上 天 100 详 本 人 区 的 均 帮 
根 平 均 误差 与 取样 点 数 之 间 的 函数 关系 (对 作 一 单个 职 分 ,而 有 漂移 误差 从 正 倘 到 负 秆 ,或 相反 .所 以 相对 
误 莽 的 对 数 图 没有 多 少 情 息 )。 图 中 细 短 划 曲 线 对 应 于 不 相关 的 随 柄 取 幸 点 ,并 如 示 了 常 月 的 品 生 各 过 
线 . 细 实 曲 线 显示 了 SobeLl 序列 的 结果. 表达 式 LInN37N 中 的 对 数 项 已 表示 在 曲 战 的 机 密 二 ,上 叮 洒 还 线 
六 :是 明确 的 ， 


积分 的 相对 精确 度 





仿 随 机， 王 边 界 “> 





| 父 随 机 ， 软 过 界 
准 隘 机 ， 弄 边界 “me 
0I 上 肉 随 机 ， 软 边 儿 ”一 一 -、、- 
SN 
人 | ee EL ,9 
100 IO 10000 105 


好 振 点 数 闪 


图 中 对 庶 于 两 个 不 导 被 积分 天 玖 与 两 个 不 同 选择 随机 点 的 方法 , 难 随 桃 Suboul 序列 收 煞 往 比 传统 
的 从 随机 序列 决 得 多 .对 准 随机 取 畔 米 说 , 平 洲 的 被 积 地 数 ( 软 边界 ;将 比 阶 跃 郑 变 的 被 和 曙 散 
《 硬 边 界 ) 好 得 多 ,得 线 显示 了 100 次 试验 的 二 方 根 平 济 值 。 
图 7.7-2 蒙特 卡 罗 积 分 的 相对 精 坑 度 和 取样 点 数 的 函 教 关系 
为 了 理解 图 7. 7, 2 的 重要 性 ,假设 要 求 函 数 了 的 壳 特 卡 罗 积分 的 精确 度 在 1 交 以 内 ,Sobel 序列 要 进行 
"263。 


用 干 次 取样 方 可 达到 这 信 精 确 记 ,而 擅 随 机 取样 几乎 需要 十 方 次 ,对 于 更 高 精确 度 的 要 求 ,这 全 比 率 法 至 
会 更 高 。 

与 于 不 同 , 当 被 各 甬 数 在 取 栏 区 威 内 有 鱼 的 演 界 ( 不 迷 续 性 … 情 况 就 不 太 理 想 , 例 如 , 国 数 值 栗 园 汗 册 
取 1 ,外面 到 0 ， 


“ 了 人 
(Crysz》 人) 
,他 2 


其 中 由 式 (7.7.4) 定 义 - 恰 臣 , 这 个 是 数 有 式 (7.?.5 蚌 数 骨 四 的 解析 社会 , 即 Era 及 。 

细 致 地 分 挟 次 的 Sebejl 床 列 址 基于 一 组 备 卡 尔 栅 格 上 上 ,但 5 园 怀 面 ) 过 界 与 这 些 桥 格 没 有 上 昕 确 关 系 、 引 
虽 是 在 圆 环 表 面 短 导 上 有 其 级 为 六 2 的 取样 点 , 它 无 论 来 自 圆 环 面 内 , 述 是 团 坏 外 大 致 都 基 良机 上 是， 寺 这 
薄 基 应 用 平方 根 定 律 得 到 总 数 的 兴 汪 仿 离 ,或 蛇 特 卡 风 积分 和 相 对 误 兰 .图 7.7, 2 的 糙 实 线 证 实 二 这 全 
特性 -图 7. 7, 2 中 者 的 短 划 线 是 甬 数 式 (7, 7 7) 用 独立 随 酉 点 的 和 分 结果 ,尽管 Sohol 序列 的 优点 天 陈 在 于 
滑 函 和 数 时 那么 突出 ,但 它 的 精确 度 仍 然 适 和 ,比如 1% 对 ,平滑 赤 数 的 情 癌 要 优越 个 因 上 (53>, 半 精确 席 
提高 对 ,这 个 因 了 了 还 将 增 大 . 

至 知道 ,我们 提供 的 Sobol 程序 产生 的 序列 都 是 从 起 点 瑶 的 , 若 要 满足 从 某 点 而 不 从 起 点 牛 冶 产生 
序列 ,这 和 是 很 客 易 做 到 的 .一 且 方 向 数 iv 宙 始 化 了 ,第 地 个 点 能 葬 上 直接 由 > 的 格雷 码 中 的 非 零 位 所 对 必 的 
方向 烙 进 行 蜡 或 得 到 .正如 上 面 措 述 的 那样 。 


7.7.1 拉丁 Latin) 超 立方 


我 们 在 这 里 简要 租 述 -- 下 拉丁 (Latin) 平 方 或 拉丁 超 立 方 取样 的 不 相关 技术 , 当 必 须 在 
六 维 空间 中 极 稀 蔓 地 取样 时 (取样 点 为 Mz) ,这 种 技术 是 很 有 用 的 ,例如 , 当 要 试验 汽车 的 抗 
撞 性 能 , 它 是 四 个 不 同 的 设计 参数 的 联 立 未 数 , 但 从 色 济 考虑 只 有 三 部 汽车 可 供 试验 :这 是 
不 是 一 个 好 的 方案 便 不 是 关键 ,而 是 如 何 尽 最 利用 现 有 的 条 件 )。 

设计 思想 是 ,将 每 个 设计 参数 ( 维 数 ) 分 为 好 段 , 故 整个 空间 分 成 M” 个 小 单 苑 :每 一 
维 选 怪 的 段 M, 可 以 相等 或 不 相等 .例如 ,二 部 汽车 四 个 参数 就 共有 3X3X3X3 一 王公 小 
单元 。 

其 次 , 按 下 列 算法 选择 M 个 小 单元 包含 的 取样 点 :随机 地 选择 Mr 个 小 单元 中 个 , 作 
为 第 … 点 。 现 除去 与 第 一 点 有 某 - 相同 参数 的 所 有 小 单元 (也 就 是 , 划 去 与 第 一 点 在 导 行 
或 加 一 列 的 所 有 小 单元 ) ,还 翻 下 CGM 一 1)> 个 小 单元 :再 随机 地 选取 其 中 之 一 ,并 划 去 新 的 
行 与 列 。 一 直 重复 这 个 步骤 让 到 只 剩 下 - -个 小 单元 , 它 包含 最 后 -- 个 样 点 。 

这 种 结构 的 特点 旦 ,每 “个 设计 参数 都 将 在 它 的 每 - -个 子 区 域 里 经 过 测试 .如 果 测 起 时 
系统 表 应 由 其 一 个 设计 参数 所 控制 , 则 这 个 参数 会 在 这 个 取样 技术 中 被 发 现 . 另 一 方面 ,如 
果 各 参数 之 间 有 强烈 的 相互 影响 ,拉丁 超 芯 力 将 失去 它 的 优势 ,所 以 使 用 时 要 小 心 : 
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7.8 自 适 应 及 递归 蒙特 卡 罗 方法 


这 … 节 才 沦 壹 竺 不 时 积 分 更 先进 的 技术 。 定 省 谋 用 这 些 技 术 的 例子 ,我 们 举 两 个 很 不 相间 , 亿 很 要 境 
巧 的 多维 蒙特 卡 网 程 季 ;vegas 苛 站 scr -我们 讨论 的 直 术 部属 于 方 驶 退化 的 一 般 程序 (第 7.6 节 ), 但 是 
芯 很 有 有 特色: “ 


?3.8.1 重要 取样 


重要 取样 区 友 汕 已 隐 合 在 方程 (7 6.6 与 17.93)? 中 ,我 们 扎 在 来 用 还 较 正 规 的 方法 讨论 它 : 设 被 积 函 
归 了 可 以 写 为 啊 个 晨 数 的 乘 很 ,一 个 是 数 呈 用 平 旦 常数 , 另 “个 孜 数 8 是 正 值 艇 数 , 则 它 对 多 维 体积 站 的 
| ef 一 j CBAaY 一 | gd 《7.4 1) 


银 撕 方 称 (7.6.7) .我 们 可 以 将 方程 (1.8. 1) 进 行 变 量变 换 成 如 ,有 6G 上 是 8 的 不 定 积分 。 这 使 gsqY 成 为 一 个 
全 微分 -然后 ,我 但 谋 用 芝 特 卡 多 积分 世 基 本 定理 方程 (7.6.1) 进 行 处 理 ， 

方 和 天 (7.8 1) 更 “ 般 的 理解 是 ,积分 大吉 以 出 县 天 关 氏 营 ,得 此 时 不 是 均 多 概率 内 度 ar 了 是 非 针 己 
密度 sdvV ,前 面 第 -种 理解 是 移 一 种 理解 的 特殊 情形 .产生 非 铅 邹 取 样 gdyY 的 方法 就 是 通过 候 用 不 定 各 
分 避 的 变换 方法 ( 见 第 7, 2 节 )。 

更 青 接地 , 纹 以 把 基本 定理 17.6. 1 推广 到 站 均 匀 取 样 的 情形 : 设 在 体积 了 中 选 反 具有 概率 窗 度 的 
取样 点 ”mr, 它 满足 


[aar=1 (7.4.2) 
推广 后 的 基本 定理 是 ,用 N 个 取样 点 zxzw 任 意 函 数 子 的 积分 是 估算 情 了 
1= Mr = | (7.8. 3) 


这 里 角 括 号 表示 产 个 点 的 算术 平均 值 , 酝 彤 的 如 式 (7. 6. 2). 式 中 的 正 负 项 是 误差 估计 的 标准 人 往 益 ,如 式 
{7. 6.1) ,要 注意 , 式 (7. 5. 3) 是 式 (7. 8. 3? 在 一 常数 一 17Y 的 特殊 情形 。 

地 样 帘 赣 请 的 最 佳 选择 是 什么 呢 ? 我 们 已 直观 地 看 到 ,就 是 使 A= rrp 尽 可 能 接近 常数 。 我 们 可 以 把 汗 
意 力 集 由 在 式 (7. 有 .3) 根 号 内 的 分 子 上 , 印 每 个 取样 点 的 方 莽 ,两 个 佣 括号 都 是 积分 的 蒙特 卡 罗 估 计量 ,所 








以 可 以 写成 
本 本 汪汪 
S 一 〈 另 》 (ar | [air -| 和 wm 二 [jar] 7. 
我 们 现在 用 函数 变 分 , 求 式 (7. 8. 2) 限 出 的 条 件 下 ,请 的 最 佳 值 
o= 亲 | 一 [ar +ij aar| (7 和 
其 中 4 是 拉 禧 朗 日 飞 子 .注意 中 国 项 并 不 依 下 5 这 变 分 (来 向 积分 内 部 ?给 出 0 一 . 户 7PpA 或 
2 
六 汪 (7.8.67 
0 | ar 


这 里 的 ?是 受 式 (7.8. 2) 版 制 的 . 
刀 果 在 息 分 区 王子 不 变 号 , 旭 果 三 汗 算 取样 结果 的 特 路 方法 , 则 可 得 出 明显 的 结 灯 , 产 储 最 作 人 诺 而 
"265 ， 


扩 121 于 是 方差 香 将 城 小 到 :昌林 术 贞 二 ,个 的 确 吓 :即便 二 鉴 八 号 ,工作 让 也 和 将 有 六 站 这 对 霄 宪 
人 下 ,让 寂 样 点 的 广 郑 ( 式 (7.5. 和 夯 5 8. 53) 是 


SS 上 ar 本 


1 








和 意思 前 是 .人 在 彼 积 晴 数 中 -可 以 加 “个 常数 而 保持 它 不 变 与 , 医 为 六 优 扯 下 分 此 化 -个 已 科 全 这 吉 
乘 了 . 户 的 最 慎 选 挤 总 其 答 出 赴 方 斋 , 祝 全 元 个 精 前 :对 这 个 在 雪 是 候 谭 再 的 辣 题 上 有 在 第 站 二 站 汪 民 各 述 
过) 的 风 竺 录 沪 樟 的 , 芝 认 切中 道 式 1 人员 六 就 鉴 铺 匡 还 送 砚 分 | 了 eeyY ,这 就 等 佐 于 确 划 知道 尘 主 算 
耻 和 分 

如 果 渍 数 子 在 体 科 王 的 大 部 分 区 右 有 已 训 等 数 箭 、 个 至 的 上 法 是 ,施加 -党 娄 使 于 个 起 私信 闻 
坎 这 样 做 太 概 只 是 一 个 审 略 不 成 薰 想 计 , 重 昌 取 学 沂 能 法 胞 的 精确 度 , 焉 取 凑 玫 式 (7.8 了 最多 和 守 
际 上 了 政 决 十 对 可 技 征 汐 户 , 式 13.8.4 取 多 水 


37.8,.2 分 层 取样 


分 导电 从 的 思路 完全 不 太 于 草 概 竺 补 .我们 将 秤 号 术 芝 下、. 念 83 胡 示 展 数 庆 寺 打 各 下 的 真 安平 电 
《 即 积分 被 志 除 )， 疡 如 萤 和 


4 ”| 7 ar < 六 三 文 An 和 8 
人 它 由 关系 式 

Var 天 

Yartt 及 )] 一 2 1 


确定 (对 比 式 07. 5 41) 与 省 数 药 方 着 Vact 门 三 全 产 一 《7 人 有 关 
没 将 体 条 分 割 成 网 个 相等 的 ,水 相 交 的 子 体 各 < 和 吃 在 每 一 了 体 积 中 腿 六 2 个 样 点 .不 问 开 纪 5， 
8 8 的 估计 值 坟 7 才 示 为 


换言之 ,已 足 芷 两 个 半 区 域内 的 取样 半 均 的 均值 .让 计 在 (7, 8 1 全 的 方差 是 


Var = 本 [VarttPa) 二 Ya] 


1 Varetz) Yarer 六 、 本 | 
一 全 GaTL 


= 忒 [Var 《FL Var 


这 电 Var 万 太 示 了 在 子 体 积 ce 让 的 方 革 允 站 3 一 grF 训 :对 态 也 有 应 晤 。 
其 已 有 的 写 广 (在 物理 上 ,这 个 有关 组 合 二 失 军 的 公式 叫 获 * 平 芒 移 轴 定 理 ”,) 木 难 让 明 关 系 式 ， 


Var 万 一 工 [Varst) Yat 门 .一 二 tr 一 攻关 二 关 (5 


比较 会 式 人 7 8.9) 《7.8.11) 和 (57,8.12) 打 以 看 出 ,分 屋 ( 分 为 西 人 了 体积 》 样 法 给 出 的 方 头 - 全 
与 &F 不 同时 , 它 是 较 小 的 , 决 不 比 条 单 蒙特 民 罗 情形 的 大 - 

怕 们 还 浅 有 和 用 在 两 个 了 体积 中 ， 取 不 同 数 量 的 点 数 的 可 能 人 ， 如 车 子 体积 = 中 取 六 。 点 , 形 人 在 睛 从 可 
五 中 友 Yi 二 六 一 Na 点 * 现 在 就 来 研 家 这 侈 问题 .估计 侦 的 方差 为 


5 TYaro( 万 了 are 
1 民 这 有 下 二 一 二 一 屠 1 3 
4 让 vs >- Na 
很 容 昂 证 帅 它 三 
As 网 
站 ==- 芝 - 7 8 3 
必 G 
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半 取 极 小 值 。 
这 旦 我 们 选 玉 了 简化 杯 记 二 [Var 天 沁 灾 黄杨 -各 果 Ne 注 是 让 种 (7. 8 40 则 让 各 
简化 为 ， 


art | 


好 昌 Vatt 站 一 Vare[ 后 一 Var 站 三 慰 17 全 15 简 化 为 7 8 5 在 这 种 情 关 下 分 民事 学 没 且 上 刁 。 

峙 插 缚 纳 上 血 的 标准 亡 法 是 , 糙 体 积 站 分割 成 多 十 两 信 诅 等 的 子 革 域 : 车 各 区 域 加 分 瑟 孙 和 伏 拓 数 的 各 
佑 方案 是 , 念 每 区域 了 的 点 数 正比 于 at 却 在 这 于 光 域 汪 泛 数 了 的 方 茵 的 平 记 根 3 人 委 在 商 宇 辣 沾 5 生计 
乞 t), 这 实际 上 并 不 是 很 有 用 , 滞 每 “并 将 体积 分 副 为 大 症 从 -其 意味 着 有 大 个子 条 站 ,亲本 直 汪 全会 可 
对 应 的 oj 时 ， 最 这 个 效 日 本 大 了 。 


7.8.3 混合 策略 


切 看 忆 来 ,重要 眼 样 与 分 归 取 样 是 应 不 章 花 的 ,前 首 在 忠和 因数 优 i 关 最 天 的 地 友和 集中 眼 此 二 上 性 痢 
集中 在 工 的 方 痊 最 六 的 地 方 .为 什么 二 首都 可 痕 呢 ? 

其 国 答 是 ,( 也 像 后 活 引 的 - 些 事 ;它们 最 说 十 你 拓 道 行 么 种 你 知道 冤 秒 .重要 取 华 坊 申 起 庚 党 失色 
要 分 近 亿 俐 , 改 能 够 产生 有 具有 沂 期 鹿 的 慨 率 氏 度 声 芍 随机 点 出 于 疡 在 定 程 豪 上 不 惠氏 , 斤 居 闪 能 使 
误差 仅 以 六? 减 沙 。 记 果 在 补 积 末 数 了 名 剧 变化 的 区 域 , 户 很 不 坦 想 : 申 情 就 会 很 糟 ， 国 汶 , 皮 和 任国 煞 太一 
产 户 会 产生 很 大 的 方 萝 .重要 取样 站 研究 光滑 取 祥 上 数 闪 抽 汗 ,只 肖 满 足 这 些 条 和 件 林 是 有 效 的 ， 

性 反 .分 县 取 祥 不 需要 季 道 了 的 任何 舍 息 .分 层 取 样 基 研 窒 消除 各 子 区 域 点 数 的 起 天 ,天 友 是 计 农 放 
点 半 措 的 数值 。 最 简单 的 分 层 策略 :起 分 割 六 为 村 等 的 玉 个 下 区 碱 , 并 在 每 :个 了 了 庆 城 由 随机 地 应 取 和 … 个 
点 ,这 个 方法 的 误差 近似 按 NA 下 降 , 比 w 7 得 多 。 第 ?7.7 节 中 的 准 随机 数 足 消除 点 泌 度 瑟 坟 和 革 用 个 
方法 , 它 近 和 似 给 出 与 * 育 目 分 旦 小样 : 翌 好 治 丝 香 。) 

然而 “近似 ?是 -个 巷 重 要 的 所 示 : 便 如 ,做 汪 被 积 虱 览 除 在 基 -个 了 区 域外 都 可 以 忽 交 , 风 在 这 单 全 
子 区 域内 取 祥 积分 的 结果 完全 天 用 . 粗 了 可 知 ,重要 取 翌 允许 在 这 二 区 域 中 取 绿 多 点 ,这 要 比 行 昌 分 刘 尿 
样 好 得 多 。 

分 层 卢 样 还 是 有 它 的 独到 之 处 ,只 要 能 会 计 出 方差 赴 , 就 能 按 旺 式 57.8.143 及 共 推 论 在 不 辐 了 区 焉 六 
不 阿 数 月 的 点 , 闲 上 能 找到 灼 区 域 划分 为 活 当 数 日 的 子 区 域 (注意 .不 是 多 维 数 志 的 天 < 不) 衣 疡 法 .二 
子 区 域 的 函数 方差 将 比 总 体积 中 的 方 产 显 苦 减 少 :要 做 到 这 些 , 需 要 学 握 欧 数 /的 许多 情 外 .也 上 . 生 莹 束 
样 也 需要 掌 据 了 的 各 和 信息 ， 

实际 上 *， 重 要 由 拜 与 分 层 取 祥 , 即 揭 不必 在 很 多 方面 , 虽 也 是 在 许多 重要 的 方面 是 趾 闽 容 能 站 儿 或 相 
函数 子 的 值 , 除 了 称 为 "作用 区 "的 小 部 分 体 下 外 ,在 站 中 处 处 邦 是 很 小 .而 在 这 些 作出 区 ，7 的 效 缚 车 泉 
装 俩 卷 =LYar(7) ”的 大 小 是 可 比较 的 ,所 以 ,这 两 个 技术 将 给 出 大 致 相间 的 点 符 变 ,在 较 各 胡 芍 拔 记 
过 程 中 , 河 能 要 把 这 两 种 技术 * 依 余 " 起 来 ,例如 ,基于 粗 栅 秒 上 的 重要 取样 下 ,可 以 在 竺 ” 贿 榜 ch ,可 平分 
居 取 样 . 
7.8,.4 和 适应 蒙特 卡 罗 ;,VEGAS 

Jeter Lepaget' 发 明 的 VEFGAS 算 闭 广 法 应 由 二 多 此 积分 ， 基 汪 粒子 物理 学 由 常用 到 .YEGAS 其 本 
上 采用 重要 疏 样 ,位 节 维 教 df 是 够 小 时 ,可 以 如 和 免 天 ?的 汛 速 霄 长 ,月 寺 岂 采用 分 层 取 伴 ( 竺 刚 是 区 果 : 


NA 为 取 举 点 数 ) .YEGAS 中 重 几 取样 的 基本 方法 是 , 昌 适 应 地 构造 一 个 区 编 加 吧 表 数 呈 . 它 下 
可 分 解 的 ， 











疡 们 是 人 Se 一 TS [2 (7.S. ]niD) 
这 样 “个 函数 存 两 种 方法 辟 竟 胡 & 的 让 速 增长 :1 机 以 把 作为 双全 分 割 的 维 晒 数 让 主 认 计 算 fi 中- 泪 
畏 数 由 天 个 列表 值 定义 , 即 用 天 光芒 代 竺 天 ?2 对 过 个 一 续 通 烙 , 以 概率 客 度 进行 连续 了 样 .记得 名 于 局 


亲 基 分 若 Cs， 
最 佳 豆 分 解 功 权 润 数 可 疆 为 二 


大 运 
上 


&Rziy 并 FE 





GE yz 也 有 类 候 方 机) ,此 起 在 一 蕴 叶 ,退化 为 kx 站 于 条 二 呈 全 季 然 汪 二 站 EGR 和 
应 策略 :给 出 一 组 苹 摧 数 ( 邵 ,初始 二 以 邦 波 为 带 数 ,对 责 数 地 取 尽 :去 公 陛下 积分 夺 朋 节 人 能 仿 . 浊 刁 各 和 
《7.8.17) 右 边 的 天 d 牛 计 值 吧 玲 的 等 -种 立 白 变 委 和 耸 为 天 绕 瑟 上册 此 让 定 上 一 达 伐 过 程 收 进 的 天 晤 玉 

着 被 积 丽 数 了 局 限于 也 维 空间 的 个 或 少数 几 个 区 域 , 则 妆 举 标 仁 为 这 此 区 成 奋 族 丽 标 间 交 到 影 司 
这 些 如 权 表 数 很 快 灾 大 ,蒙特 卡 罗 各 分 的 精确 度 和 将 叱 再 氛 测 , 树 过 简单 蒙特 上 居 风 的 粮 确 攻 . 

VEGAS 的 特点 且 必 见 的 : 削 数 二 并 个 天 玉生 让 困 找 朝 拓 二 的 :YEGAS 在 这 些 太 疝 上 的 名 生 二 古本 
中 ,例如 ,YEGAS 的 最 坏 情况 是 被 积 国 数 集 由 在 企 本 对 角 线 上 ,出头 T05 和 9 到 111 二 济 斌 
种 江 何 形状 居 完 全 不 可 分 割 的 ,VEGAS 尘 全 体 规 不 由 优点 :下拉 地 .车 被 积 乓 数 集 中 在 - 乔 ! 灾 由 商 班 ， 
曲线 上 (或 杷 曲面 上 ),VEGAS 算法 也 省 根 本 木 能 使 本 , 众 丰 刚好 处 上 坐标 万 向 。 

下 面 记 出 的 香 序 Vegas 基本 二 大 Lepage 的 杖 版 林 ,为 适 谍 我 们 的 贡 划 佣 了 很 少 竹 嫌 攻 (这 库 Lep 
age 允许 我 们 在 这 果 引 用 些 酚 序 ?。 为 了 与 VRCGAS 铀 法 的 此 他 版 本 在 这 算 上 和 相 协 漳 . 蕊 何 保 羡 关 齐 来 的 竹 
其 名 称 . 参 姑 NDMX 头 足 我 们 称 作 K 的 变 基 名 ,是 沿 每 -…- 轴 的 增 慧 慨 估 道 ;MXDIM 是 志 的 展 二 但: 址 字 
参数 符 尘 释 中 说 明 ， 

Vegas 程序 执行 各 一 itmx 次 对 所 求 绿 分 进行 统计 独立 的 计算 ,得 -次 具 存 N=ncat 个 国 数 计 答 , 它 症 : 
总 热 基 统计 不 相关 的 ,但 这 些 选 代 是 互相 支持 的 ,四 为 每 一 次 达 代 客 出 来 为 下 -次 法 代 改 进取 许 相 插 时 
有 送 代 结果 ,组合 得 到 最 佳 答案 及 其 估计 误 益 ,如 下 式 





JS 人 3 
和 ee 
返 司 这 个 参 基 
人 扫 [一 Thxy) 0 
X 和 一 二 馆 3 15 


如 果 它 远近 大 于 1, 则 先 代 结果 址 统计 不 帮 容 的 ,并 答案 是 值得 怀 绝 秀 。 

输入 标记 符 init 使 用 很 方便 ,可 以 调用 init=3，nceal=1500。、irmx 一 5 然后 调 月 init-=]，acali 
106000，itmx 一 1。 执 行 结果 可 形成 小 取样 歼 的 5 次 选 代 的 歌 样 锋 格 ,然后 在 最 佳 时 档 上 做 个 恬 精 痪 度 
积分 。 

用 户 提供 的 被 积 通 数 fxn 除 所 期 望 的 求 值 点 x 外 ,还 有 … 和 变量 wst ,在 多 数 应 用 世 合 可 忽 覆 卫 娄 是 
”的 wgr. 但 有 时 可 能 要 对 : 些 附 如 媳 数 或 和 证 晃 数 请 相 -…- 臻 的 国 数 进行 积分 ,如 某 些 旺 数 的 积分 一 以 请 
值 


这 里 zw 与 x 分 别 是 白 变量 wgt 与 x. 在 的 数 fxn 内 部 直接 栋 加 求 和 ,并 道 过 全 得 变 景 将 此 求 和 姑 果 所 加 舍 
用 户 的 主 程序 。 当 然 , 出 于 王 样 将 对 地 优化 ,所 以 gx) 最 好 足 与 主 函 数 了 有 某 种 程度 的 蓉 亿 ， 


开 include <stdio.h> 

划 include <math,h> 

术 includec *nrutil, hy 

开 define ALPH 上 ,5 

夺 define NDMX 50 

共 Hefine MXDIM 10 

共 define 上 1NY 1, 0 一 30 


extern long iduml 在 主 程 序 韦 对 随机 效 初 前 化 


268。 


vold regastfloat regn[J， int ndim、 iloat 工 xfxnoOgfloat [ ，floa:J， int init，unsigned long hcai， ini imx。 


int hptn， float *tgral iloatf *sd, float * chi2a) 
此 刁 序 实现 对 玫 户 提供 前 ndim 红 臣 数 fn 村 以 rega[1 2s 959 证- 标记 的 民 方 体 站 进行 蒙 灶 卡 吉 评委 .这 个 “ga 


L1..*ndim_ 调 重 由 ndint 的 “ 较 仍 去 边 ? 虎 标 , 其 与 跟随 ndim 的 " 较 高 右边 杰 术 而 组 成 -积分 包括 ,emx 次 寺 代 ,去 次 
近似 neall 次 洞 放电 数 . 每 次 选 代 后 台 带 被 精 狂 ; 大 于 5 或 104 次 夺 代 是 相当 有 用 的 -输入 标志 init 表 下 这 凋 月 灵 新 扔 
开始 ,还 是 为 附加 送 代 的 子 调用 ( 见 下 面 注 尹 ) .输入 针 志 nprs( 通 常 为 站 是 控制 诊断 量 的 输出 ,返回 的 答案 是 tgra- 
《积分 的 其 佳 舍 值 sdt 它 的 坏 准 荐 ;以 时 cri2a5 攻 自由 度 的 六, 一 个 是 寿 一 致 同 结果 己 艾 芭 的 标记 :: 许 增 风 下 面 正 
误 : 


float ran2(1ong *idum) 
Yoid rebin(tloat IE，int nd，float T[] ，float xin[] ，float Iir]): 
gtatic int iic,jskinds,nd,ndo,mng:,DPE,Ia[MXDIK+11 ,kgrMXDIK+I] ， 
外 蕊 &tiC 于 10at Call3dy2E,dXE, ET2T2bD5b,rctitsi gt ,IaCXR XI XI 
3tatic fl10at d[NDHX+1] FMXDINM+1] ,di[NBHX+1] [MXDINM+1] ,dtfHXDIH+1] ， 

dx [HXDIMH+1] ，Tr CNHDMX+TL] ,xDMXDIH+1] ,xi[HXDIH+E1] [INDHX+1] .xiD[NDKX+1] ; 
gtatic doublie 6chi,6i,etgLci 


最 好 届 为 静态 .允许 重新 开始 allowing restarts， 


if (init <= 0) 区 标准 葵 入 ， 在 冷 户 动 时 篇 入 
mdssndo=li 改 麻 到 mds=0 使 不 能 分 层 服 样 ， 扼 仪 用 重 竖 所 样 ， 
for 《j=1;j<sndxm;j++)》 xzrj][l]=l1.0; 

】 

这 【init <= 1) si=swgt=achizs0.0;， 这 里 闪 六 以 缴 承 前 次 调用 的 请 格 , 个 不 送 入 它 结 黑 

这 里 送 入 以 悉 或 前 次 调用 的 请 格 和 它 结 时 
i 【init <= 2) T 
pdasNDHX 
1 1; 
2 人 { 太 分 层 设置 钴 二 
ng=(:nat)Ppovfncally2.0+0.25,1.0mdam); 

mda=: ; 

3f 【12*nE-NDMX) >= 0 1 
mds 到 -]; 
rpPEgengANDHX+1 
rzd=ngynpg; 

FEs<nPgwndi 

】 

了 

for 【k=t,i=1;i<=ndim;i++) K 中 了 IE; 

mnPg=IHAX ncCallzK，,2) 1 

CaIJSAnPE+Kk : 

dzxg=1.QAazg; 

for 〔dv2g=1,i*1ii<=Dditmaii++) dv2g5 9 dxg; 

dv2g=SQRICaltlasdVv2g) npgAnpg (npg-1.D) | 

xndsndi; 

dxg 站 二 了 Ri 

X]acel,OAcalls; 

Etotf 《jj=1;j<=ndim;j++) 工 
qx [J]=regafJj+ndim] -regn [jj ; 
xjac *= dx[j]， 


if (nd != ndo) { 苦 需 要 反复 量 比 分 级 
Yor 《1<1lii<nod;i++》rLi]=l.0; 
fer 避 =1;j<<ndima;j++] rebinfadoyxnd,nd,c,zinxzi[j]); 
pndo=nd , 
} 
if (nprh > D) f ， 
Printf("%s: ndlmm X3d Dacall= %8.0fNov"， 

”JTJnput Parameter5 for VSgB8" ,DCcall3s) 
Peintgf 人 283 :区 一 5 itmzsX5dNme “It itmz) 1 
PEintf("%2Bg DPIZ=%3d 员 LPH=X5.2fAn" "HP RALPH) 
Priantftf"y%283 mda%3d hd=%4dvn" "mdg,nd)i 
?or 《j=1;j<=ndim;j++) 工 

Printf["%305 xfX26]* X11.4g ru 这 2d]= %11.4gvnv 


"””,j,regna [jl ,regn[j+ndiom]); 


2 


】 
for fikL=1iitec=itoxiit<+) 苹 
怀 攻 的 选 代 循环 ， 这 时 能 送 入 (init > 光 以 宗 启 附 放 的 itax 次 迷 代 。 订 所 第 其 也 客 量 不 恋 


ti=tsi=0.0i; 
fnz 〔【j=l;j 
k 尼 5 ] = 
for (=17i<=ndii++》dfll[j]=di[i]lTj]=0.0; 


=rdiai j+y+》 工 






torf 《33) 工 
bmf2b=m0 .0i 
上 or (kmtiK<=DpBg ;++) 区 
避 8 蕊 症 不] 号 
for 〔j=13;j<=ndim;j++)》 工 
xnm fxg[j] 一 ran2( 此 idum]34dxg+T1.0; 
ia[j]=IMAXZKIKXNKCint)KCxa) ,NDMX) ,1) ; 
if 《ia 站 j] > 1》 工 
Xxo=Iz[j] [is[jj]-xif[j[ia[rj]-li:; 
Zc=zxt[j] [ia[]]-1+(xoa~iafj] )*zo; 
else 并 
- zxo=xi[j]l[iarj]]; 
cafxD-ia[j])*xe， 
) 
xf[j]=regn[j]+rcwdx[j]; 
如 广 上 市 王 其 O 本 生 站 夺 了 
=wgEL4《 +ErD) (xpt) 1; 
节 2mf 让 和) 
fb +m 于 ; 
了 2b +s F2; 
#or [j=1;jcmndimi;j+t+t) 
di[ia[ji]][j] += 人 
if 《mds >= 0) dr[ia[jjJLi] +=s 二 2; 


了 
开 2b=aqrT (tf2b*npg) i; 
f2b=(t2b-fb)*(f2btfb) ; 
if 〈f2b <” 0.0) f2b=TINY; 
ti + 了 Di 
tsi += fE2b， 
if (mde < D) 工 使 用 分 只 服 样 
ior 〈jr1ijc=<ndim;j+r) dria[j]][j] += 72b， 
} 
foFr (〈kmpdia;k>s1;k--] { 
kg[k] X= ng; 
if 【++EBg[K] !r 1) break; 
了 
if kk < 1) break; 
了】 
tsgi 中 = dv2g; 为 过 代 让 算 战 后 结果 
TBgtmTl,OAtaii 
Bi + 王 WET#tii 
SChi += 全 区 志 由 七 本 蕊 了， 
3wgt += WEti 
中 七 区 Ta 一 上 ASWRt 7 
本 ChiZaR<fSchi-Sistastgral)]A(it-O.9999) ; 
if 〔echi2a < 0.0) *chi2a = 10.0; 
*gdwmgqrtf(1,OASwEL) ， 
Vsi=sqrtftsi) 
zf (anPran >e 日 ) 荆 
PTintfr"%s X3d : integral = %%14 .7E +7- 39 .2gYn"， 
” iteration DG,” ,it tiEitsiy 
Printf( ys iDtogral <%t4.7g+A-%9.2g chjw427IT 叶 = ?9.2gYnn， 
”11 补 S 工 tionS: "CgF&1L,9SH,+chi2a) 


270。， 








Y (oprn) 二 
Epor {j=1;j<=ndim;,j++) 【《 

Brintff” DAT 了 RE axig %2dvan jy; 

Brintff"X6sX138%11sX13s%113%133waY ， 

XIrdelta ioXn ndelta InXn ndGelta i7) 

for 《ji=1+nprn/2ii<=ndii += npra+2》 1 

Brintt "YXB .57Xt2 .4gX12.5E%12.4g%12.5fX12.4gN\n" ， 
Kai[j]jEil,di[i] [5 ,zirjlri*l]， 
di[iyl][j] ,xirj]fi+2] ,diriy23[j]): 


】} 
for 〈j=1;j<=ndim;j++》 工 精练 饥 格 - 查阅 参考 文献 以 便 理 解 这 些 步 虹 的 奥 好 、 
xozmdfl][j] ; 为 君 免 快速 ， 不 狼 定 的 变化 ， 精 练 被 阻止 ， 并 五 
xnsd[2] [j 订 ; 被 此 数 AL PHI 上 编 在 范围 内 
dfli][j]z(xzorxny72.0; 
dt[j]J=d[1i]fj] : 
for 【is2iicndiir+y 
IC=XD+Xxani 
XO=TXUD 
xn=d[i+1t] [j] ; 
dti]l [j] = 《rc+xm)yy3.0i 
dt[j] *= dfilfj]i 
了 
六 [ad][jJ=(zorxn)y2.0; 
qt[j] +s d[ndJ []j] ; 
} 
for 〔j=1ij<=ndirij++》 攻 
Ycx=0.0; 
”for 【is1ii<=nd;i++) 于 
这 [dfli][j] < TINY) dLi] 5j]asTINY; 
r[i]jspes((1.0-afi]lfj]zdtC] 7 
flogftdt[j])-logtd[i] [j])) ,ALPH) ; 
ze tm 工 [1 ; 


zebin(rcygnd,ndirsrirsxi[j]>; 


Yoia rebigf1cat zc<，int nd，float 工 []，float xdtaD，float xif]) 
"sgag 所 用 的 实用 程 库 ， 把 密度 为 xi 的 问 量 重新 分 成 册 问 赂 了 定义 的 新 量 级 


int 工 ,km0; 
节 Loat dreO.0 ,xn=Q.D,xoi 


Toxy (il=1l;ii<nd':++y { 
whilS (rc >ar) 区 
dr += 工 [Tr+k] ; 
关 OxXD 
Xaexz[ik] ; 


dr -一 工 Ci 
xiln[i]=xn-[zn-xo)wdxrAr[x]， 


for (il;i<cndr:++) xifil=s=xin[i]; 


Xi[ndl=l.0; 


7.8.5 递归 分 层 取样 
我 们 已 经 看 和 ,分 层 取 洋 存 作 的 避 题 是 不 可 避免 Re 的 记 速 增长 ,这 显然 是 笛 卡 尔 煤 标 凡 准 什 所 度 寿 


2371 。 


的 。-- 种 称 为 递归 分 层 取样 轨 的 技术 试 儿 解 决 这 个 问题 , 它 不 是 沿 所 有 由 维 , 亨 是 次 仅 洛 一 许 玛 流 将 打 
税 分 半 . 对 起 点 应 用 逐次 减 小 的 子 区 域 分 半 法 的 少 程 是 (7. 外 107 与 (7 8, 13) 。 

候 设 我 们 对 多数 地 定量 地 进行 六 次 计算 ,并 求 它 在 民 方 体 民 一 (xs 了 由 的 中 倩 ( 户 ( 这 样 节 区 天 让 
两 个 对 顶 角 坐标 癌 且 表示 )。 首 先 ,我 们 指定 N 的 :从 部 分 户 来 确定 刃 中 子 的 方差 : 丰 员 中 内 外 此 招 岩 疡 A 
个 表 孝 值 并 累加 求 和 ,对 应 于 2 个 不 同 的 坐标 方 度 ( 有 能 沿 其 方向 分 半 ), 它 将 给 出 了 对 不 同 的 去 其 . 换 诗 
之 ,在 PN 个 抽样 中 , 声 每 -- 个 基 十 尺 可 能 的 分 半 区 域 中 我 们 估计 Var ， 


尺 s = 王 {Xe , 功 于 “Xp 一 Xe3ei) 
Ra 一 (xu 十 本 CCXE -Xervxph) 
这 时 ei; 愿 第 ? 个 坐标 方向 的 单位 向 量 ， /一 1,2，，.d。 

其 次 ,研究 方 盖 以 找 出 分 半 的 最 佳 维 数 ;， ,例如 :我 们 可 者 方程 (7.8. 15) 思 择 ,以 使 在 芝 域 民利 及 
中 估计 方差 的 平方 根 之 和 取 最 小 值 ( 将 要 说 遇 ,我 们 的 实际 做 法 稍 有 不 同 )。 

第 二 ,我 们 限定 余下 的 (1 一 声 )X 个 蓝 数 在 区 域 Ruer 与 Ru 之 癌 计算 求 值 , 如 果 我 们 用 方程 人 .8. 15) 选 却 
:, 弄 就 应 该 按照 方程 (7.8. 14) 做 这 样 的 限定 。 

为 估计 邯 的 半 均 值 , 我 们 有 两 个 长 方 干 :每 一 个 有 自己 的 通 数 计算 界限 .我们 的 *RSS7 算 法 , 它 本 身 旦 
递归 药 :为 计算 每 一 区 域 的 平均 倡 ,我 们 返回 到 式 (7, 8, 21; 上 面 的 “首先 ,.. "句子 重新 开始 (当然 ,如 果 此 
区 域 药 点 限定 在 某 数 以 下 , 则 我 们 常用 简单 末 特 卡 罗 法 而 不 用 连续 递归 ) - 

最 后 ,我 们 综合 这 些 方法 ,并 帅 式 (7. 8. 10) 和 式 (7. 8. 11) 的 第 一 行 ,来 估算 两 个 子 体积 的 方差 。 

这 样 以 最 简 形 式 完成 了 RSS 算法 ,在 我 们 按 "执行 细节 "的 … 般 规程 撒 述 其 些 附 加 技巧 之 前 ,我 们 项 要 
简要 回顾 一 下 式 (7. 8. 13) 至 (7. 8. 15) ,并 推导 出 实际 使 用 这 些 公式 的 替代 公式 ,公式 (7.8.13)? 右 边 应 用 了 
熟知 标 度 定律 式 (7. & 9) 丙 次 ,一 次 对 a, 一 次 对 5 如 果 估 值 (F。 与 Cs 是 用 简单 苇 特 卡 网 均匀 随机 取样 
点 计算 的 话 ,这 将 是 对 的 。 然 而 ,事实 上 这 两 个 平均 估计 值 是 用 递归 法 得 到 的 ,所 以 说 明 式 (7. 38. 们 成 立 是 
没有 理由 的 .不 奶 用 以 下 式 代 蔡 式 (7.8.13)， 








1 『TVare( 太 Varp( Le 
Var(t AP ) 一 了 | RN 二 | 人. 有 227 

这 里 = 是 - -个 木 知 常数 衬 1( 一 1 对 点 简单 刺 和 卡 罗 } .在 这 种 情况 下 ,经 简单 推导 可 以 证 明 当 
Na Vare[ 六 人 3 


六 ”Vare(ADY0m 十 Varef 广 80+a 
时 ,Var(( 六 " ?有 稻 小 已 ,其 极 小 值 为 
VarttPy) cc [VarsCPIorm 十 VarmCiateo 了” 67 8. 24 
当 w 一 1] 时 ,方程 (7.8,22)? 至 (7.8, 24)? 还 原 成 (7.8. 13) 全 (7.8. 15) .为 找 出 的 自 相 容 值 , 四 数值 实 验 发 现 
一 2 .也 就 是 当 w 一 2 作为 限定 取样 机 会 时 ,应 用 上 方 程式 (7. 8. 23) 递 归 , 观 察 到 的 RSS 算法 方差 近 候 按 
XN 一 变化 :而 以 的 其 他 值 代入 式 (7. 8. 33 时, 博 况 会 更 劣 (然而 ,对 的 敏 盛 性 并 不 算 很 高 ;但 也 不 知 = 
三 2 究 帝 是 严格 分 析 的 结果 ,还 是 公有 的 一 种 有 用 的 直观 排 断 ,) 
到 现在 为 止 ,miser 的 实现 与 上 面 找 述 的 算法 的 主要 区 别人 在 于 式 (7. 8. 23) 右 边 的 方 盖 如 何 佑 值 ,我 们 
从 实验 中 发 更, 以 取 栏 函数 极 大 与 极 小 值 之 差 的 平方 代替 纯粹 的 取样 二 阶 矩 是 忠 有 益 约 。 当 然 ,估计 值 随 
着 取样 量 的 增加 也 增加 + 而 式 (7.8. 23) 用 它 仅仅 是 比较 近似 相等 取样 数 的 两 个 子 体积 (az 入 . 当 在 被 积 
函数 作用 区 中 ,起 始 取样 仅 给 出 一 个 点 或 少数 几 个 点 时 光板 大 减 伏 小 "估计 值 证 明了 它 的 价值 .很 多 现实 
. 情况, 取 翌 点 处 在 更 重 著 的 作用 区 附近 ,这 使 * 极 大 下 极 小 ?提供 的 较 大 取样 加 权 更 有 益 。 
包含 在 这 程序 中 级 第 二 项 改进 是 引入 “上 动 参数 "dith, 它 的 非 零 值 使 子 体积 不 在 中 间 精 确 划 分 ,而 屁 
在 小 数 0. 5 士 qith 处 划分 ,其 中 符号 土 是 指引 入 戎 机 数 程序 内 的 随机 选择 .通常 可 令 dith 为 零 。 然 而 .如 内 
谱 积 函 数 有 某 些 特殊 的 对 称 性 ,使 作用 区 正好 处 在 区 域 的 中 点 ,或 区 域 二 次 署 因 数 的 中 心 , 刚 使 dirh 不 为 
“272， 


霍 将 人 有 好 处 ,要 此 鬼 这 样 的 级 端 情形 ,作用 区 被 划分 入 d 维 空 着 紧 密 相 邻 的 24 个 小 块 -在 这 囊 椅 况 丰 由 
非 零 的 典 组 值 挨 0.1 是 右 益 的 .当然 ,在 是 动 参数 为 非 索 时 ,必须 考 虚 了 体积 的 不 同 天 小 : 程 字 址 过 灾 章 
frac] 来 做 这 件 事情 。 

该 程序 还 有 最 后 -个 特性 要 前 叫 ,RSS 算法 使 用 单 织 取样 点 在 折 有 也 个 方向 计算 式 47.3. 2 在 名 妥 
底肥 * 取 梓 点 数 可 能 非常 少 .虽然 几 少 ,但 有 时 也 会 出 现在 某 - 一 方向 的 上 折 有 疲 样 点 只 在 体 税 的 孙 半 中 :在 
这 种 情况 下 ,此 方向 作为 分 叉 宁 愿 被 忽略 ,更 少见 的 情况 是 ,在 所 有 方向 上 ,所 有 取样 点 都 只 处 存心 体内 的 

- 羊 中 ,在 这 种 情况 下 ,可 选择 一 个 随机 的 方向 -如果 这 种 情况 在 工作 中 经 常 发 生 , 裔 应 该 增 株 MNPT 

程序 中 的 放 (1jh3… 。 

和 如 己 给 出 的 miser 返回 ave 作为 平均 函数 值 t.83 的 一 个 估计 值 ,不 其 在 整个 范围 内 的 积分 .选用 其 
也 约定 ,程序 vegas 返回 tgral 作为 这 个 积分 。 由 于 民 方 址 体积 V 是 关 划 的 ,这 两 个 约定 自然 用 17.8. 8) 世 才 
责成 “ 般 关 不 式 。 


此 ineclude <stdlib.h 一 

并 include 一 math.h >> 

划 inelitge "hruti]. hy 

并 define PFAC 0. 1 

坟 ietine MNPT 15 

革 defhne MNRS 60 

苹 define 上 INY 1.0e 一 30 
共 define BIG 1.0e30 


这 里 PFAC 是 录 余 函数 计算 的 一 部 分 .用 在 每 一 步 来 确定 两 数 的 方 关 . 至 少 MNPT 丙 玫 的 计算 在 任 坷 地 去 域 示 员 
完成 ; 仅 当 MNDS 函数 的 计算 是 可 行 的 , 子 区 城 才 和 将 进一步 一 分 为 二 ,我 们 皮 MNBS 一 4<* MNPT 


static 10bg ian 一 0， 


roid miser(iloat《* func)giloat [])，floac regnfi ] ，int ndim ，unsigned long npts，float dith ， 
feat x#avey floaf + var) 
此 程序 实现 在 尽 regn[1…32 xndim] 指 由 的 长 方 体内 ,对 用 户 提供 的 ndim 维 函 数 fnmc 进行 蝎 特 卡 罗 了 惑 禅 :这 个 
regnf]...2xndim- 疝 量 出 ndim“ 的 较 低 -左边 " 华 标 ,其 后 跟随 ndqim 的 “ 较 高 右边 ? 举 标 币 组 成 .这 中 数 全 部 黄 举 
npts 次 ,其 位 置 由 递归 分 层 取样 确定 ,在 这 范围 内 函数 的 均值 是 以 ave 返回 Jave 的 统计 不 稍 定 性 的 属 计 值 ( 标 准 闹 
离 的 平方 ) 以 var 返回 .输入 盘 量 dith 掖 常规 设置 为 零 , 但 大 西数 的 作用 区 域 闪 人 以 ?的 敌 次 方 划分 此 区 城 的 边 弄 ， 
则 应 将 dith 设置 为 0 1。 


void ranpt(float pt ，float regn[] ，int D)]; 
节 Loat Tagn_tzempi; 

unsigned Lcong D,aPre,nPt1L .npPptIi 

int ,jb; 

float avel ,Var1: 

于 Lat 工 r 和 Cl ,了 vV 和 1 

于 LOat EL ,ITBm，IBP ,aiRE。 SI 人 IDb,5igr ;Si5rb， 

了 Loat sun,Bunb ,SommD ,SunD2; 

下 Loat 示人 max1 ,了 DaXr ,了 minLl ,*faipnri 

了 Loat pb ,srumid; 


Ptavector(tindia) ; 
证 (apt < NNBS) 《 太 少 点 进行 二 分 直接 进行 受 特 卡 罗 
Saah3UIR2mD .DOi 
Yotr 【mn=1;nc=nPta;n++) 攻 
tanptfptregnpdia) ; 
他 wsTITm《4Euncl (pl 7 
瑟 用 用 十 王 于 寺 放 1 
aLIIE2 十 二 各 V 枚 ] 二 卫 妆 本 工 ; 


} 
首相 区 全 二 竺 Wi 让 七 训 
宰杀 BT 本 下 到 贞 刁 [TITJY 【为 DaI2-EDummwzStmanAtPt 妆 AntawmnPt)) 
》 
alae 1 进行 原始 [均匀 ) 歌 样 
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Imid=yectaort1l,ndim) ; 

DPre=LMAX [tunsigned 1ong)KnPts+PFAC) ,HNPT) ; 

fmaxI=Yectorrlvndim) ; 

fmaxTrevectorr[1,ndim) ; 

fminlsvectorf1,Dndizn) ; 

tminyrs=vectorft ,ndiz]: 

for 【j=1;J<=ndimij++) 苹 对 外 妈 初 始 化 左 、 羡 边界 
rarns(tiraay25661+36979) 多 175000; 
S=SIGN(ditbh,(ELoatltiran-67500] ) ; 
ITmid[j]=(0.5+6]*regn[j]+tD.5-3]Jwregn[ndimt+j; 
fminl[jj=fminr[j]=<3IG; 
imarzl[jj-fmaxr[j] = -BIG; 


for (na=:i in<=apre;n++) { 在 取样 点 上 上 锋 环 
ranpt [ptsyegnvndim); 
ival= (xfunpc)(Ppt); 
for (j=lijcemdia;j++) 1 对 每 维 找 出 左 、 右 边界 


话 《pt[j]<=xmdidrj1) 二 
fminl[j]=FMINKztmjinl[j] ,fyval)， 
tmaz1[]j=FEMAX(fmaxl[j] .fval) 


gl1se 1 
fminr[3]=FMINCEminr[j] ,yval)， 
fmaxr[j]J=FNHAX(Tfaaxr[j] ,zyal]i 


了 
让 
Sumb=bIG; 选取 哪 维 jh 太 2-- 分 
jb=0; 
Siglb=3sigrbm1.0; 
Yor 《jJ=1ij<=ndimi;J++] 1《 
证 《famaxl[j]〗 > iminl[Jj] gg faaxr[j] > fmior[j》 区 
BigLFNAXKCTINY,powftfmaxl[j]-tminlt [j] ,2.073.0)); 
SIELT=FMAX(TINY.Pow(fmaxr[j]-fminr[j] ,2.073.0)7); 


Sumnsigl+aigri - 方 种 式 (7.8,24)， 避 正文 
if 【sumc=aunb) 工 

SUmDb=BuU 和 ; 

jb=j 

Baglbmeigli 

Sigrb=B61ZTr; 
】} 


] 
了 
free_vector[finior,1,n)i 
free_vector [fminl,1,a)]; 
free_.yector [faartr,1;n) i 
free_vector[ftmaxrl,1,n); 


if 【ijb》 jbat+r(ndimiran)A175000; NMNPT 可 以 宦 小 

zrgl=Tegn[jb]f 存 左 和 右 之 便 按 比例 分 旺 其 余 取样 点 
gm=rmidf[tjb] ; 

TgBr=regn[ndim+jhb] ; 


frarlzmfabag [+Bn-rg1)ACrEr-IgL)D) 1 
ptlsfunaigned long)(HNPT+(npta-aprae-2*#MMPT)》# 于 工 aC1LwBIELPb 


ACEraclaiglLb+Ct .DO-fYracl)*SiETDb)) 方程 式 57.4. 231 
anPtr=RPt3S-IPI9-DPK Li _ 
Yegn_temp=vectorf1,2 中 md) 现在 分 配 和 积分 这 呐 个 子 区 域 


for 【js=<1;j<=nadia;j++j { 
Yegn_tenmp [jj=regn []] ; 
zegn_tefpfndim+j]=regn[ndim*j] ; 


了 

regn_temp [hdia+jb] =rmid[jb] ; 

miserfttnhcvregn_temp ,ndimn,DPtl,dithb ,kaval, 上 varl1)， 
Tegn_temp[jb]wrmid[jb]; 递归 调用 ， 这 里 将 最 终 返 回 
Tegd_temp [ndin+jb]=rega[ndim+jb]; 

币 1aer(func ,regn_temnp,ndim,npttrvdtth,ave Var) i 
free_VecrortITeEgQ_tGmP :2*ndl 了 )》 

RaVe=fT3CLY3YEaL+ [IT 一 卫 IC1) 本 人 申 必 VB) 
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7aTmETaCLrfracleVvar1+(1I-iracL)=U1-EfracIyw(rvar) 
Combine jeR znd right regions by equation (7.8.11) (1st jine)， 
freGe_Vector(roid,1,o)》， 


free_vaczorfpt ,1,n); 


让 


maser 程序 调用 一 个 筷 函 数 ranpt, 骸 在 一 竺 定 的 己 维 区 威 内 以 得 到 随机 点 ,下 述 的 改进 程 闻 ranpl, 采 
用 连续 调用 得 到 一 致 殖 机 数 和 成 程 启 , 并 做 出 明确 的 沪 释 -在 这 里 ,通过 准 随 视 程 , 池 sobseq( 第 7.7 节 ). 洒 
以 很 容易 地 椒 改 raapt 产生 跑 机 点 ,其 实 , 反 有 sobseq 的 miser 程序 出 具有 - 致 随机 仿 差 的 miser 更 精确 ， 
然而 ,由 于 RSS 的 使 用 与 区 随机 数 的 使 用 是 完全 独立 的 ,所 以 我 们 没有 司 从 这 里 给 出 的 得 序 依赖 sobhseq ， 
对 重要 取样 也 可 给 出 类 项 的 说 明 。 它 在 原则 工 能 与 RSS 混合 使 厅 。( 尼 管 和 次 序 可 能 极为 复杂 ,位 味 则 上 重要 
隐 样 也 可 与 vegas 及 miser 混合 使 用 .) 
extern joacg ium; 
void zanpttfloat pt[]，float regn []， int na) 

在 香 长 方形 范围 中 妃 同 均匀 随机 点 Pt。 它 有 于 msser; 为 了 一 致 偏离 调用 程序 zanl ,用户 能 主 得 序 中 应 该 奶妈 化 全 

程 变量 idum :使 其 为 负 的 种 千 数 


float rani(long * jdumy)y 
ipt 刘 


ier (一 11j<njj 十 十 ) 
Pt[j 订 一 rega[ 订 十 (tegn[a 十 门 一 regnf 让 <ranlCgadumy)， 
参考 文献 和 进一步 读物 ， 
Kalos，M. H. and Wpitlock ,了 ,后 ，1986 ，Monre Carilo Mectkocts(New York: 网 iley). 
Lepage，G, P，]978，Josrzaaal of Cotottartaiipnai Physfcs，val，27，pp、192 一 203. 「1] 
Lepogs，G. P，1980，"VEGAS:An Adaptive Multidimensionaj Jnteegration Program,w Publication CLNS- 
807447，Cornell Umiversity。[2] 
Press，W.H.，and Fartar，G- R、1990，Comapaters 部 Piysics，vol、4，pp. 190 一 195，[3] 
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第 八 章 排 序 


8.0 引言 


本 章 的 肉 容 几 持 者 没有 好 入 … 本 数 逢 算法 前 飞 中 。 伏 而 ,对 于 任何 优秀 的 程 宁 员 米 说 . 
排序 技术 是 应 具有 的 一 部 份 必 不 可 少 的 宣 际 知识 。 因 此 ,我 们 不 希望 潭 些 已 自 认 为 图 精通 数 
值 订 算 技术 的 专家 , 却 忽略 了 排序 这 样 一 类 基础 课 古 。 

在 人 们 处 埋 数 据 ( 实 验 数据 或 数值 生成 的 数据 )9, 常 妆 需 要 进行 排他 .入 们 圳 此 有 数据 
表格 或 列表 , 米 表 示 一 个 或 多 个 独立 (或 者 " 榨 制 ") 的 变量 ,以 及 : 趟 旋 才 下 应 丰 斋 或 取 所 
测 基 ? 的 量 )。 在 各 种 不 同情 况 下 ,人 引 可 能 希望 按 这 些 变量 中 一 个 或 另 一 :个 的 顺序 来 排 记 这 
些 数据 。 或 者 .有 时 人 们 可 能 只 希望 知道 这 些 数 值 表 ! 的 “中 间 秆 ?或 “四 分 位 ? 值 ,后 者 的 任 
务 称 为 拂 选 , 它 是 与 排序 紧 窗 相关 的 。 

更 明确 地 说 ,本 章 将 处 理 以 下 -- 些 内 容 : 

， 排序 , 即 按 数 值 的 顺序 重 排 数 组 。 

"” 按 数 值 顺序 重 排 “个 数组 的 同时 ,对 另外 :个 或 凡 个 数组 执行 相应 的 重 排 ,而 使 所 专 
数组 中 元 素 之 间 的 对 应 关系 保持 不 变 。 

， ee 准备 - 人 即 指针 表 , 蕊 指明 哪个 数 纽 元 素 按 数 序 排 第 -… 哪 
个 排 第 一 

”给 定 SS we 个 秩 表 , 亡 能 指明 第 一 个 数组 元 素 的 数值 秩 是 什么 ,第 一 个 数 嫩 
元 素 的 数值 秩 基 什么 ,等 

， 从 数组 小 选取 第 11 大 的 元 素 。 

对 于 N 个 元 素 排序 的 基本 任务 米 说 ,最 侍 算 法 所 项 的 运算 量 为 Nlog:N 的 疙 合 。 算 法 
发明 首 试 图 将 这 一 估计 或 前 面 的 常数 变 得 尽 可 能 地 小 .两 个 最 佳 算法 是 由 (人 A.R. Heare 
发 明 的 ,无 可 伦比 的 快速 排序 法 (第 8, 2 节 ) ,以 及 由 沁 殉 .了 发 明 的 堆积 排序 法 (第 8. 3 节 )。 

对 于 大 数 六 (如 wy>1000), 在 大 多 数 机 器 上 ,快速 排序 法 要 快 1.5 或 2 倍 ; 然 形 . 它 需 
要 增加 一 点 额外 的 存储 量 , 而 且 是 一 个 较 复杂 的 程序 . 堆 税 排序 法 是 一 个 真正 的 “加 址 排 
序 ”, 因 而 它 编程 更 加 紧凑 ,更 容易 略 加 修改 而 适应 特殊 的 月 的 .均衡 考虑 ,我 们 推荐 快速 排 
序 法 ,但 我 们 仍 将 给 出 这 酚 算 法 的 实施 程序 : 

对 于 小 数 六 ,如 果 前 面 的 常数 足够 小 的 话 ,最 好 选用 运算 量 是 N 的 较 产 也 较 劣 的 苍 赛 
ee 对 于 N<20, 直 接 揪 人 法 (第 8, 1 节 ) 是 简捷 和 足 驶 快 的 ,我 们 将 它 包 括 进 米 有 -- 
些 担心 : 它 是 一 个 六 的 算法 ,其 潜在 的 误 用 可 能 性 (将 它 由 于 大大 的 只 ) 很 大 , 它 所 耗 用 的 机 
二 可 观 ,以 至 十 我 们 不 打算 将 任何 R 算 法 包括 进来 .然而 ,我 们 将 把 界线 划 在 气泡 排 
序 法 这 一 低 效 的 * 算 法 处 , 昌 它 是 基本 计算 机 科学 书 中 所 喜爱 的 方法 .如 果 读 者 知 交 全 么 

是 气泡 排序 法 ,就 将 它 从 头脑 中 坏 去 ;如 果 还 不 知道 ,就 请 记 住 永远 别 去 用 它 ， 
对 于 六 >50, 列 这 法 (第 8 I 节 ) 只 比 直接 插入 法 稍 复 杂 , 与 更 复杂 的 快速 排序 沙河 出 更 
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有 竞争 性 ,这 种 方法 在 最 坏 情 况 下 是 W ”运算 量 , 但 通常 更 快 。 
想 要 了 解 排序 领域 的 进一步 的 知识 和 详细 内 容 , 参 阅 [1,2J。 


参考 文献 和 进一步 该 物 ， 

Knuth，D. 下 ，1973，Sorting andl SearcFinEgy vol、3 of 了 He rt or Computter Pograzszattg(Reading，MA 
内 ddison- 录 esley)。， [1 

Sedgewick ，R，1988，4Lgorithzny，2nd sd，(Reading，MA， Addison- 玛 esley)，Chapters 8~-]3，2] 


8.1 直接 播 人 法 和 和 录 之 法 


站 接 插 人 法 是 一 种 N* 运 算 量 的 程序 ,因而 只 能 用 在 N 较 小 时 , 比如 < 20， 
这 种 技巧 完全 是 ,有 经验 的 玩 扑 克 者 洗 牌 时 对 牌 排序 所 用 的 方法 : 挑 出 第 二 张 牌 将 它 按 


与 第 一 张 的 顺序 插 人 # 热 乒 诛 出 第 三 张 将 它 按 大 小 顺序 插 到 前 两 张 中 ; 如 此 下 去 直到 将 最 后 
一 张 拿 起 并 播 人 。 


vicid piksrtKint n, foat arr[]》 

用 页 接 插入 法 将 教 组 arrLl.,a] 按 递增 上 序 拖 冯 .n 其 输入 量 ; 输 出 时 arr 被 排序 好 的 序列 其 热 。 
{ 

int ij 

float ai 


tor (人 一 2 和 < 一 Di 十 十 》 1 履 次 挑 出 每 个 元 罕 
a 一 arI[1]; 
i 一 j 一 1 
while (0 8&8& arr[i > a)! 寻 氢 它 的 播 入 位 置 
arrfi 十 1] 一 arrl ji 
下 了 
} 
arr[i | 1 一 ay 将 其 播 入 


如 果 想 在 排序 arr 的 同时 重 整 一 个 数组 brr, 就 可 简单 地 在 移动 arr 的 一 个 元 素 的 同 
时 ,移动 一 个 brr 的 元 素 。 


void piksr2(int n, 了 loat arrt], flpar brr[]) 

用 直 接 插入 法 将 序列 arr[].,n] 按 六 增 顺 亩 排 殉 , 同 时 对 序列 的 brr[1. ,加 做 相 冰 的 调整 ， 
{ 

Int 1] 

flost avbh; 


foer (一 25j 和 一 D 引 十) 依次 排出 每 个 元 素 
4 一 arr[ 门 ; 
b 一 brr[jj]; 
一] 一 1; 
While (i 0 8 arr[i] > aa 1 . 可 找 村 人 的 世 置 
arr0 十 1]= 一 arr[i 
brr-i 十 1]=brr[i; 


i 一 一 4 


arrfi 十 13 一 ai; 将 它 打 人 
brtr[i-+1] 王 by 
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对 十 在 排序 一 个 数组 的 间 时 有 很 多 数组 需 棍 重 排 的 情况 ,参见 第 8. 4 节 。 
8.1.1 缠 壳 法 


这 实际 上 是 直接 插入 法 的 一 个 变种 ,但 确实 是 一 种 非常 强 有 力 的 变种 .大致 的 思想 是 ， 
例如 对 排序 16 个 数 盖 .. ， ni 的 情况 ,是 如 下 进行 的 ,第 -次 排序 ,用 直接 插入 法 依次 排序 8 
组 站 Cn 205) ; (azyno)，. .Casy2in)。 鳅 后 依 此 排序 4 组 烙 ( sayrmayia) Co smiv， 
ms)。 之 后 依次 排序 两 个 各 有 8 个 数 的 数组 ,前 一 个 是 (myraynsspynsyatyassus)。 最 后 ,将 
全 部 16 个 数 排序 。 

当然 ,只 有 最 后 一 次 排序 是 将 数 按 顺 序 排 列 所 必需 的 ,那么 ,前面 的 部 分 排序 屋 什 么 上 月 
的 呢 ? 答 案 是 ,前 面 的 排序 使 数字 有 效 地 上 下 移动 ,以 接近 它们 的 最 终 位 置 .因而 ,最 后 -次 
排序 实施 直接 插入 法 时 ,实际 只 需 移 动 少 数 几 个 元 素 .( 设 想 对 一 手 已 经 基本 上 按 归 序 排列 
的 牌 进行 排序 .) 

每 次 经 过 对 数据 排序 后 数字 之 加 的 问 同 (上 例 中 为 8,4,2,1) 称 之 为 增 基 ,所 以 ,有 时 剥 
亮 法 又 称 为 减 小 增 基 排序 法 .对 于 如 休 选 择 一 组 好 的 增 量 已 有 了 大 量 的 研究 ,但 最 佳 选 拌 还 
未 找到 。 实 际 上 ,… 8,4,2,1 这 组 并 非 是 好 的 选择 ,特别 是 对 于 六 是 2 的 壬 次 时 。 一 个 较 好 
的 选择 是 序列 

(入 一 1)7/2，..，40.13,441 (8. 1.13 

它 电 递 排 产生 

z 一 ]， za+: 一 3 十 ]， 太一 12，.， 《8 1. 2 
可 以 证 明 ( 参 阅 [1J), 采 用 这 一 诗 列 的 增 量 .对 于 最 坏 可 能 顺序 的 原始 数据 ,上 述 过 程 上 所 需 的 
总 运算 量 是 N?”" 量 级 . 古 此 ,对 于 “ 随 由 ?顺序 的 数据 ,至 少 对 于 N<.60000, 其 运算 量 近似 为 
人 NT“ 对 于 N>>50, 不 管 怎 桩 ,一 般 快 速 排序 法 是 更 快 的 .程序 如 下 : 
void sheliCunsigned long ny，float af]》 

用 杂 壳 算法 ( 贼 小 增 量 排 序 ) 将 数 钥 a[1. .an] 按 通 增 顺 岸 排列 是 输入 重 ! 输 出 时 * 被 排序 好 的 数 纽 的 换 ， 

tmSsigned LoRE 工 ,jiQC: 


了 1oat vi 
dmncmd4 1 确定 初始 靖 重 


ic+y; 
} 记 1 详 ae 【inc <= D7; 
do 攻 部 份 排序 循环 
ic Am 31 
for (imincy1;i<en;ii++) 苹 直接 炸 入 的 外 掺 坏 
Ya[i] ; 
Ji 
while (a[j-inc] > v) { 直 飞 权 久 的 内 外 环 
a[jjwa[j-inc]i 
二 -daci 
ifE《〈《j << inc》y breaki 


8[jjmv; 
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While (inc > 1); 


参考 文献 和 进一步 读物 : 
Knuth，D.E. 1973，.Sortirg artd Searching。y6-， 3 Cr THe Fi of 人 optpater Progredmarmrpz( 有 eading，MA 
Addison-Wesley)，$5.3.1. [1] 


8.2 快速 排序 法 


在 大 多 数 机 器 上 ,平均 说 来 对 于 大 闪 , 快 速 排序 法 是 一 种 最 快 的 排序 算法 :这 是 一 种 
“划分 一 交换 ?的 排序 方法 ;一 个 划分 元 素 a 被 从 序列 中 挑选 出 米 。 然 后 经 过 成 对 地 交换 元 
素 , 原 先 的 序列 被 划分 成 两 个 子 数组 .在 一 次 划分 结束 之 后 ,元 素 a 已 经 处 十 它 在 数组 中 约 
最 后 位 置 。 在 它 左面 的 子 数 组 的 元 素 全 都 过 a, 而 右边 子 数组 的 元 素 全 都 2 a ,进而 ,在 堪 
右 了 序列 中 分 别 继续 进行 这 种 划分 ,如 此 下 去 ， 

划分 的 过 程 首 先 得 选 出 一 个 元 素 , 比 如 说 最 左边 的 元 素 , 将 其 当 作 划分 元 素 a. 诈 一 个 
指针 从 上 向 下 扫 过 数组 直到 发 现 一 个 > a 的 元 素 , 然 后 用 另 一 个 指针 从 数组 尾部 向 上 扫 过 
数组 直到 发 现 一 个 所 a 的 元 素 。 这 上 棒 个 元 素 显然 不 在 最 后 划分 完 之 后 它们 应 该 处 的 何 置 
上 ,于 是 交换 它们 。 继 续 这 一 过 程 真 到 两 指针 交汇 。 安 汇 处 便 是 应 插入 a 的 位 置 , 这 一 轮 划 分 
便 结 束 了 。 当 一 个 元 素 与 划分 元 素 相等 时 应 该 如 何 做 ? 这 个 问题 是 很 微妙 的 ;我 们 建议 参阅 
Sedgenickt- 中 的 讨论 (答案 ,应 该 停 下 并 做 一 次 交换 )，. 

为 运行 速度 ,我 们 在 实施 快速 排序 法 时 不 使 用 递归 。 因 而 此 算法 需要 有 辅助 的 存 情 数 
组 ,其 长 度 为 2iog:N, 它 被 用 来 当 作 一 个 下 压 堆 线 来 保存 那些 暂时 搁置 的 子 数组 . 当 一 个 子 
数组 己 经 被 缩减 到 只 有 慌 个 元 素 时 ,用 直接 搬入 法 会 变 得 更 快 些 ( 第 8, 1 节 ) ,区 而 我 们 也 是 
这 第 做 的 。 好 值 的 最 佳 设置 与 机 器 有 关 , 但 M=?7 总 不 会 太 差 . 有 些 人 喜欢 将 上 短 的 子 数 组 暂 

. 不 排序 留 到 最 后 ,在 最 后 做 一 次 大 的 播 入 排序 ,因为 每 个 元 隶 最 多 移动 7 次 ,这 与 立刻 数 排 
序 的 效率 - - 样 ,并 且 节 约 总 开销 .但 是 ,在 采用 页 面 存 储 的 现代 机 器 上 ,一 次 整个 处 理 一 个 天 
数组 会 增 大 开销 。 我 们 也 没有 发 现 将 插入 排序 放 到 最 后 做 有 什么 任何 好 处 。 

如 前 所 述 , 快 速 排序 法 的 平均 运行 时 间 是 很 快 的 ;但 它 的 最 坏 情 况 的 运行 时 间 可 以 很 
慨 : 对 于 最 剑 情 况 实际 上 它 是 一 个 局 算法 ! 对 于 最 直接 地 应 用 快速 排序 法 来 说 ,最 坏 情况 实 
际 上 就 是 输入 数组 已 经 基本 有 序 的 情况 ! 这 可 输 入 救 组 的 有 序 性 很 容易 在 实际 情况 中 出 现 。 
避免 这 种 情况 的 一 种 方法 是 ,采用 一 个 小 的 随机 数 产生 器 来 挑选 一 个 随机 元 素 作 为 划分 元 
素 . 另 一 种 方法 是 ,采用 当前 子 数 给 的 第 一 ,中 间 和 最 后 元 素 的 中 间 值 来 苦 换 划分 元 素 ， 

快速 排序 法 的 巨大 速度 来 源 于 内 循环 的 简单 和 有 效 . 仪 只 加 一 上 项 不 必要 的 检测 ( 例 
如 ,一 项 保证 指针 不 移出 数组 的 检测 ) 就 会 使 运行 时 间 几 乎 加 倍 ! 人 们 为 了 避 能 这 种 不 必要 
的 检测 ,在 子 数组 的 两 喘 设 置 “ 哨 兵 ”, 最 左边 的 哨 其 妆 a, 最 右边 的 之 a 若 采用 “二 数 中 值 
法 "来 挑选 划分 元 素 , 则 我 们 可 以 运用 那 酚 个 不 是 中 怖 的 元 素 做 为 这 -- 了 序列 的 哨兵 。 

下 面 是 我 们 的 实施 程序 [1]; 

并 include "nrutil hy 


并 define S 允 AP(ab) ternpb 一 (a)jfa)? 一 (bj+fhb) 一 temip; 


村 define M 7 超 使 用 直接 町 和 法 排序 的 子 数组 的 大 小 
示 define NSTACK 50 是 所 需 的 辅 肪 好 储 器 
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void sortCunsigred long 0。 float arr[j) 


慌 快 速 排序 法 使 数组 arr[1. .zj] 按 递增 排列 ,p 尽 输 入 信 ,arr 在 输出 时 由 已 排序 的 数组 车 换 


unsgigned 1oDg 1i,tr=na, ,lsl; 
int jgtackaO ,istacxi 
了 loat aompP; 


于 stackivectorf1t ,NSTACK)> ; 
for ;3;) 荆 当 子 数组 足够 小 时 捧 入 排序 
if (lir-1 < NM) 1 
for {jsl+1;j<=ir;j+t) 荆 
a<aTT[j] ; 
for (i=j-1iiysl;i--)》 荆 
if (arr[ijy <= a) breaki 
arr[i+1l]martkji]i 


】} 
arr[i+z]nai 
} 
计 tf 〔jatack = 0O) breari 
irmi8tac&[Jatack- 一 ] ; 外 出 堆栈 于 始 新 …… 轮 划分 
Ltd9tkacr[jstack--]; 、 
}》 alse 半 
Xe=(L+iry》 >> j; 挑选 左 、 中 ,有 二 元 潞 的 中 值 作为 划分 元 素 3 回 
SWAPKarr[z] ,arr[L+t) 时 重新 排 询 以 使 afl+1] 入 afI] < a[ir] 
计 《arzr[l1+1] > arr[it]) 1 
SWAP(art[Tl1+t] ,arrfir]) 


] 

if 《arr[l] > arr[fir]] 荆 
SWAP(asrr[1] ,arr[ir]) 

iz [artrfl+t] > azrr[1]) 工 
SWAPtArr [1I+t] ,ary [1 

了 

iml1y1i 为 划分 初始 化 指 儿 

je=iz， 

az=art[I]; 划分 元 隶 

tor (iT 开始 内 循环 _ 
do i++ while 《arkr[i] < g); 向 上 打 找 寻找 元 素 >>a 
do j]--; Waile (arT[j] > a); 从 尾 向 上 打 描 寻 乒 元 素 <- 2 
详 (〔j < ii breski 撕 针 交汇 ， 划 分 结束 
SWAP{aTrK[i] ,arr[jJ)f; 交换 元 素 

} 结束 内 衢 环 

arrFl]=arr[j]; 所 入 划分 元 素 

arT [ja 

jatack += 2; 

格 指针 压 入 堆栈 中 更 大 的 了 数组 ， 立 废 处 再 较 小 的 子 数 纽 ， 

了 《jstack > NSYACXK) PrerrorfaHSTACK 万 co Bmall in sort .Di 

4 《ir-i+l > 四 j-1) 苹 
了 g 世 acCX[ jet 和 CI 辣 证 5 
iatacx[jeBtacx-1]=i3 
jiz=j-3i 

] elLae 工 
iatackf]jstacx]=j-1; 
iatacx[jstacxk-1]=1; 
ii 

】 

) 
了 
ro6_iVectoIKIESTtAcE LNSTACXK) i 


可 以 在 排序 arr 的 同时 , 重 排 其 他 任何 数组 程序 基本 是 前 一 程序 的 重复 。 


共 include ”nrutil .by” 
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学 diejine SWAPFGasby temp- Ta)40a= Tb34by 一 temFi 
臣 define MI 7 
芝 define RSTAGCI 5 


void sort2(unsignedl jong ny float arr[ 1 fioat brr[ 


用 快速 兰 庆 法 使 数组 arr[1..a] 按 递增 排列 :而 同时 相应 地 撞 赦 组 brrL1. .n-。 


水 
Unslgned 1oDE I,iren,j,K,L=:i 
int 中 LStack，jstackeO; 
float a,b,temnpi 
istackKaivectocfl .NSTACK) 
for [ii) 当 子 数组 古 够 小 时 用 择 六 排序 
if (ir-l < NMH) { 
for (js<1+1;j<=irrj+r) 苹 
a=arr[j]， 
bebrr[j; 
or (iej-1iii>z=1ia--) 工 
if 《arrfi] <= &] braaki 
arkr[i+l]=arr[i]; 
brr[i+ti]=brx[i] ; 
} 
arT [i+1]=a; 
brr[i+t]asb; 
] 
IE 《1jatack) 1 
zree_ivectortistack:,1,MSTACK) ; 
TetirI ji 
二 
irmistack[jstackii 弹出 堆栈 开始 新 一 轮 划 分 
migstacKk[jatack-1] ; 
JacacX -一 2 


} else { 
ks=(1+ir) >> 1 挑选 左 . 中 、 右 三 元 着 的 中 值 作为 划分 元 束 a 同 
SNAP(arr [k] ,arr[l*1]) 时 重新 排列 以 使 aflyt] 和 ar 入 a[ir] 


SWAP(brrz[x]l,brr[l+l]) 

1z (arzr[L+t] > aref[irj)y 1{ 
SWAP(arr [1+t] ,arr[ir]) 
SWAP(brr[1v*1] ,brr[iz]》 


it (arr[1] > arr[ir])》{ 
SWAPKarr[1] ,arr[ir]) 
SwAPKbrc[1l] ,brr[ir]) 

出 

147 《arr[l+l] > arr[1]) 攻 
SMWAPKarr[1+1] ,arrfl]y) 
SWAP(bre[1L+1] ,brr[l1J7 


】》 
ials1i; 为 划分 初始 化 指针 
Jj=iry 
aarr[1] ; 划分 元 素 
bzsbrr[1] ; 
for 《1 区 开 症 内 笠 环 
do i++; while (arrli] < al]: 从 数组 首 向 下 扫 撒 好 找 元 素 >, 3 
do j--，while (arr[j] > a); 从 数组 尾 向 上 扫 撒 寻找 元 素 一 a . 
it 【〔j “ i) break; 指针 父 人 入， 划分 结束 
SWAP(arrfi] ,arr1j]) 交换 两 个 数 蛆 的 元 素 
SWAP(brrfi] ,brr[j]) 
} 关东 内 穆 环 
arr[1]=arr[j] ; 在 琴 个 数组 中 情 入 划分 元 喜 
aTc[j]=ai; 
brc[1]=brrf0j] 
brr [jj]=b， 


jscack += 2; 
将 指针 压 入 肉 栈 中 更 大 的 子 数 组 ， 立 刻 处 理 较 小 的 子 数组 
ff 《jsgtack > 入 STACK) nrerrorf'"NSTACK too 650ali in Sort2.)， 


if (ir-lyt >= j-1) 1 
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istack[;stack]=ir; 
iszackfijstack-1]1=ii 
It=j-1， 

) else 站 
istacg[jstack]=j-1; 
istack[jstack-1]sl; 
一 I 


从 原则 上 说 ,可 以 同 brr 一 起 重 排 任何 数 日 的 附加 数组 ,但 在 数组 的 数目 增多 时 ,这 栏 
做 足 很 浪费 的 ,有 效 的 办 法 是 ,使 用 第 8. 4 节 中 所 讲 的 索引 表 的 方法 。 


参考 文献 和 进一步 读物 ， 


Sedgwick ，R，1978，Cpzrzmnttpticatiors or the 40A9， vol 21，pp。、847-~8357，[17 


8.3 堆积 排序 法 


通常 ,堆积 排序 法 不 如 快速 排序 法 快 ,但 它 是 我 们 喜爱 的 一 种 排序 法 。 它 是 真正 的 * 司 
址 ?排序 ,不 要 求 附加 的 存 铺 单元 . 它 是 一 个 NlogsN 次 的 过 程 ,这 不 仅 从 平均 上 来 说 ,而 用 
对 于 和 输入 数据 是 最 坏 情 况 的 次 序 , 它 也 是 如 此 .事实 上 :最 斥 情况 下 只 比 平均 运行 时 间 多 百 
分 之 二 十 左右 。 

对 于 堆积 排序 法 给 出 完整 的 理论 说 明 已 超出 了 本 书 的 范围 现在 ,我 们 只 将 提 及 它 的 基 

“本 原理 ,如 果 读 者 想 了 解 细节 可 参阅 文献 2,2: ,或 者 自己 分 析 程序 。 

一 系列 N 个 数 o ;一 1,，.…. ，N, 如 果 满 足下 列 关 系 就 说 它 形成 -- 个 < 堆 ” 

4 空 四 对 于 1 sj (8. 3, ]) 
这 时 的 除法 7/2 是 指 “整数 除法", 也 就 是 说 是 -- 个 确切 的 整数 或 是 略 去 小 数位 的 最 近 整 数 。 
定义 (8. 3. 1) 是 有 意义 的 ,如 果 将 数字 w 看 成 下 按 一 个 二 元 树 排列 的 ,在 最 上 面 的 “老板 " 结 
点 是 w ,两 个 “下 属 " 缚 点 是 as 和 as: ,它们 的 四 个 下 属 结 点 是 <, 到 ai ,等 等 .( 参 见 图 8. 3. 1) 按 
这 种 形式 ,这 一 等 级 制度 从 下 而 下 ,每 个 “管理 者 ”大 于 或 等 于 它 的 两 个 “被 管理 者 ”， 

如 果 已 经 将 数组 设法 重 整 成 堆 的 形式 ,那么 将 它 排 序 就 很 简单 了 :将 * 堆 项 "除去 ,即使 

不 排序 也 知道 它 是 最 大 的 。 然 后 将 它 的 最 大 的 下 属 元 素 “ 提 升 " 到 堆 顶 .然后 再 提升 它 的 最 大 
下 属 元 素 , 如 此 继续 .这 一 过 程 很 像 在 一 个 大 公司 中 总 裁 退 休 时 会 发 生 人 或 假设 会 发 生 ) 的 情 
况 . 然 后 可 以 使 新 的 总 裁 退 休 而 重复 上 述 过 程 .最 终 整 个 事件 是 一 个 Niog:N 过 程 ,因为 每 
个 总 裁 退 休 将 导 至 logsw 次 直属 的 提升 。 

但 开始 时 如 何 将 数 纽 整理 成 一 个 堆 呢 ? 答 案 仍 然 是 “个 很 像 公司 中 提升 的 “上 移 " 过 程 ， 
优 想 公司 开始 时 有 N72 个 在 生产 线 上 的 雇员 ,但 没有 管理 人 员 , 于 是 一 个 管理 人 员 被 雇 来 
管理 两 个 工人 .如 果 他 没有 那 商 个 工人 中 的 任何 一 个 有 能 力 , 则 工人 中 的 一 个 被 提升 为 管理 
员 , 而 原 管 理 员 手 党 到 生产 线 上 ,管理 员 府 完 之 后 ,就 开始 雇 管 理 人 员 的 管理 者 ,以 此 类 推 ， 
直到 公司 的 阶梯 的 最 高 层 .每 个 雇员 从 这 棵 树 的 顶部 被 带 进来 ,然后 立刻 向 下 迄 选 ,更 有 能 
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力 的 工人 得 到 提升 直到 停 在 他 合适 的 阶层 上 ， 


CI 
号 ? 
人 G5 G 如 
AN N 
AR 2 NS 2 N 人 二 
A N 
下 N 
04 09 0 e 人 


省 向 站 的 通 种 所 连接 的 元 素 是 相对 排序 的 .但 " 尊 面 " 硼 侣 的 苑 吉 寻 没有 必然 的 大 小 区 系 ， 
12 个 元 素 的 * 卉 " 夺 隐 含 的 顺序 

在 应 用 堆积 排序 法 时 ,同样 的 “上 移 ” 代码 段 可 以 应 用 在 开始 产生 堆 时 ,也 可 以 用 在 随 
后 擒 退 休 和 织 升 过 程 中 。 堆积 排序 法 的 一 个 完整 实现 ,代表 了 一 个 大 公司 的 整个 生 厅 循环 : 
N72 个 工人 被 雇 来 ;,N/72 个 潜在 的 管理 者 被 雇 来 ;有 一 个 职位 的 升迁 过 程 , 它 是 一 种 越级 
Peter 原理 的 排序 ;最 后, 按 广 定 的 过 租 , 每 个 路 来 的 舱 员 被 依次 提升 为 总 吉 。 


void hpsortfunsigned long nflpaf ra[]) 


用 堆积 排序 法 将 数组 ra[1. . 5] 搂 道 丧 晒 序 排列 ,n 是 输入 量 :和 输出 时 ra 被 排序 好 的 效 纪 蔡 换 ， 


图 8. 3. 1 


{ 
urtlsigned long iiryjyly 
fitoat rrat 


in < 2) tetutrni 


1 三 {n >>> 1? 十 1 指标 上 将 在 " 筷 必 "和 难 雁 形 或 ?过 程 中 从 它 的 初始 舍 递 减 直到 减 旋 1. 当 疡 战 到 ] 后 ， 


0 指标 r 将 在 " 捞 朱 和 提升 % 排 分 解 ) 过 程 中 从 它 的 初始 值 递 焉 贞 判 1 . 
ar 《5 
涝 人 关 ]) 仍 在 雇佣 过 程 中 
rra 一 ra[ 1] 
Jelse1 . 在 退休 和 提升 过 程 中 
rrta 一 rafir]， 在 数组 尾部 靖 出 一 个 空 亲 
ra[ir] 一 ra[]; 隔 堆 项 退休 并 存 人 其 中 
让 (一 ”让 一 一 1) 4 最 后 一 次 提升 完成 
Ta[E -一 rraf 所 有 工作 者 中 最 无 训 争 能 力 的 一 个 : 
break; 
} 
) 
i=1 不 符 是 在 雇 作 过 程 中 还 是 在 拭 升 过 程 书 , 在 此 我 权 
j 一 ] 一 1; 设置 并 移动 元 率 rra 到 它 的 合 送 阶层 上 


while (0 侵 一 ir? 
计划 <irg&rai rafirl1i 一 一 
这 (rra < xalL 门 ) ! 
ra[i 一 re _j 
:一 六 
] 安 区 -一 1; 
jelse j 一 ir 十 1: 


】 
ra[i 让 一 crs 


与 下 属 中 园 大 的 尼 较 
将 tra 降级 


这 是 rra 的 层次 ,设置 ) 来 终止 上 钼 
将 rra 山 度 





8.4 索引 和 分 区 


在 数据 文件 管理 中 ,关键 这 个 概念 起 着 重要 的 作用 ,在 数据 文件 中 - -条 数 据 记 录 可 包 沪 
若干 项 ,或 称 域 .例如 ,天 气 观察 文件 由 的 ` -条 记录 可 忆 有 记录 的 时 间 . 漫 度 . 和 风速 的 感 当 
排序 记录 时 ,必须 决定 哪个 域 要 顺序 排列 .记录 中 其 它 域 只 是 跟着 移动 .这 些 域 通常 六 和 层 睛 
不 形成 某 种 特殊 的 序 .这 个 执行 排序 的 域 称 之 为 关键 域 。 

对 于 一 个 有 很 多 记录 和 很 多 域 的 数据 文件 ,要 将 N 节 记 录 按 照 它们 的 关键 数组 天 ， 
一 1，.….， 六 排列 成 序 , 其 上 作 量 很 大 ,实现 很 困难 .但 是 .可 以 代 之 用 构造 索引 表 慷 ，) 六 = 1， 

,， ,使 得 最 小 的 后 有 := 第 二 小 的 有 ;= 已: 以 此 类 推 , 直 全 对 于 最 人 前 天 有 = 坟 ， 
视 言 之 ,数组 
KR 《8. 34. 1) 


是 以 7 为 索引 的 顺序 排列 . 当 有 一 索引 表 后 ,就 不 需要 将 记录 从 它 原来 的 顺序 中 移动 . 进 
步 地 , 同 梯 的 一 组 记录 可 以 产生 不 同 的 索引 表 , 这 是 恨 据 不 同 的 关键 域 产 牛 的 。 

产生 一 个 索引 表 的 算法 旦 很 直接 的 :将 系 引 数组 初始 化 成 整数 1 到 六 ,之 后 用 快速 排序 
法 , 像 排序 关键 数组 一 样 地 移动 其 元 素 .于 是 关键 数组 中 最 小 元 束 所 对 应 的 序号 最 终 停 在 第 
一 位 , 依 此 等 等 。 
林 include ”rirtut 让 .RAY 
闪 define S 厂 APfa,b) ternb 一 人 a):(a) 一 (bb) 一 templ 


划 defne M ?7 
##define NSTACK 50 





ycid indexK(unsigned long n, float arr[]，unsigned long indx-) 
兹 引 一 个 教 组 arr[1..n], 也 就 是 输出 一 个 数组 indxf1..53 合 得 arrrindx[ 门 ] 对 于) 一 [2 ,N 是 递增 的 .和 输入 量 
nm 各 arr 不 改变 。 


Unelgned 10ng 1,ihdxt,irsD,itemp,j,k,1=1， 
nt ]8rRCkeO,riIatRCKk 
Loat 8 
ataCKmTVwectcr(1 ,NSTACK》 
for 《]j=1;j<=nij++) inodx[j]=j; 
for (1)T 
if (ir-l < 上 《 
for 《j=<1+11j<<ir;ij++y) 1 
indxtmindx[j]i 
searr[indrt] ， 
for (〈i=j-1;i>=stii--)》{ 
ji 〔arr [indazli]] <=< aa) breaki 
indx[i+lt]=iodxfi] ; 


】 
indx[iyl]e=indxt; 


】 
if 〔〈jstack = 0) break; 
工 Taa 了 taCK [jstacx--]; 
1l=iatacx[jstacx--] ; 

)}》 else 并 
km(]l+ir》 ?> 1; 
SWAPKindz[k]j ,indz[1+1] 1; 
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jif (arr[indxz[L1+1}] > arf[indx[ir]J) 二 
SWAP(irdx[1+1] ,indx[irj) 

了 

i 《arr[indz[1]] > arr[indx[ir]])》 工 
SWAP(indz[l]j ,indx[ir]) 


] 

i (arr[iadxz[1+13] > art[indxfI]]) { 
SWAP(indx[1+1],indxf]1]) 

} 

isz1+1 1 

js=iri 

indrtsindz[1] i 

a=<aTz [indxt] : 

和 
ao i++; whilie (arr[indxz[i]] < a); 
do j--; while (arr[indxz[j]> a); 
证 (可 < 4) break ; 
SWAP{ti3dx[i] ,indz[jjy> 

了 

indx[1]=indx[j]; 

lndxr [jj=iodxt ; 

jstacxk + 一 32) 

这 【〔jstack > NSTACK) Prerrort "NSTACNK toc stmall in indexx-o) 1 

if 《itr-i+l >* 了 -1) 【 
iStacx[jatacklair， 
七 和 aaCK [jgtacCK-1]=; 
Xe 3-1 

] sse 
工 g 蕊 各 CK [jst 丸 CX]=j-1; 
1StaCK[jstacx-1]]; 
1si; 

} 

了 
free .ivectOI(istacg ,1L,NSTACK) ， 
】 


如 果 想 要 在 排序 一 个 产 列 的 同时 ,将 斤 个 或 很 多 其 它 数组 做 相应 的 调整 , 则 应 该 首先 产 
生 … 个 索引 表 ,然后 刊 用 亡 依 次 重 整 每 个 数组 .这 就 需要 两 个 工作 空间 :一 个 放置 家 引 , 一 个 
用 来 做 逢 时 的 移动 ,然后 将 排 好 顺序 的 数组 存 回 说 数组 中 .对 于 三 个 数组 的 情况 ,程序 如 下 : 


六 include "nrutil. hy 


void sort3(ungigned Iong n， fioar ra[ 了，flcar rbf]， fleat rc1]) 

将 数组 ra[ 1l, ,n] 覃 序 成 递增 硕 序 ,同时 将 数组 rb[1, ,nm 和 rc[「1..n] 做 相应 亩 .通过 程序 indexx 柚 成 一 个 家 引 表 。 
{ 

void indexxCtnsigned lonpg ny, float atr[]，unsigned long indxf]); 

unaigned -OngE j，、，#iwksps 

jloaft * WEspi 


iwWksp 一 lvector(l1'n)i 
WKsp 一 vectorflvmn]y 


indexx(nsrayiwksp)1 删 作 引 表 

for 〈j 一 1 所 一 nj 十 十 》 wksp[ 和 一 ra[j3y 存 情 数 望 ra 

for《〈j 一 13j 扫 一 nij 十 十 ) ta[ 让 于 wksp[iwkspf 门 ]， 复 脱 它 并 重 排 返回 
Jor (j 一 1j 拓 一 aij 十 十 ) wksp[j 记 一 中 [jj 依 兹 处 理 rb 


for 《j 一 1 扩 一 nj 十 十 ) zib[ 和 一 wksp[iwgksp[j]y 芒 此 处 理 re 
far《〈j 一 1 福王 nj 十 ) wkspLj 一 rc[j] 

for (j 汪 1j 扫 一 ni 十 ) re[ 门 二 mkspfiwksp[j 门 ]， 

free- vecter(wkspy1n)1 





jirec .1IveetorCiwksPp，1n)， 
数组 数 喝 多 的 情况 世 然 可 直接 类 准 。 

一 个 秩 表 不 同 于 一 个 索引 表 .一 个 秩 表 的 第 个 入 口 给 出 原先 的 关键 数组 中 第 /个 元 
素 的 秩 , 其 范围 是 从 1 (如 果 该 元 素 是 莽 小 的 ) 到 六 (如 果 该 元 素 最 大 )。 人 和 们 能 够 很 容易 地 
从 一 个 索引 表 产 生 “个 秩 表 ， 


void *ankftunsigned long n，unsigrsd long indxf  ，unsigned long irankf 们 ) 


给 定 程 售 indexx 输出 的 索引 表 救 组 indx|1, .n,, 本 程序 把 雪 相应 的 政 表 数 租 icank 1. ,nj- 


iinsigned long 计 


fcer 0 一 -ji 一 nj 十 十 ) irang[Dinex[j 一 j# 


网 8. 4. 1 总 结 了 本 节 中 所 讨论 的 概念。 


坎 始 数组 索 列 表 





(3d) {b) 1 


《a) 一 个 本 排序 的 六 个 数 的 数组 ,(b)》 索引 表 , 其 肉 容 是 指出 56) 中 元 来 按 递 增 顺 序 榜 列 
药 档 全。 fc) 铁 友 ,其 内 容 是 对 应 (ai 中 元 索 的 秩序 导 。(d) (a)? 中 元 索 的 排序 数组 。 


图 8.4.1 


8.5 挑选 第 M 大 的 元 素 


挑选 和 排序 是 一 对 姐妹 .排序 要 求 将 整个 数据 数组 重 排 ,而 挑选 则 只 请 求 选 出 一 个 返 团 

值 :在 六 个 元 素 中 哪 一 个 是 第 闪 个 小 的 元 素 (或 等 效 地 ,第 亚 一 六 +IT 一 上 大 的 元 素 )? 址 憾 

的 是 ,为 了 未 选 的 计算 目的 ,挑选 的 最 快 方法 需 重 整数 组 ,典型 的 是 将 斥 有 较 小 的 元 素 置 于 
“286。 


第 寺 个 之 左 , 所 有 较 大 元 素 兽 于 右 , 并 且 在 每 一 个 子 集 内 睛 序 是 杂乱 的 .这 种 副作用 轻 者 是 
无 补 的 , 重 者 就 十 分 的 不 方便 . 当 序列 很 长 时 ,以 至 于 打印 出 一 份 来 就 很 费时 ,即使 桃 让 不 背 
来 的 计算 上 的 负担 ,只 屁 一 个 更 大 计算 量 中 可 名 略 的 - -部 分 时 ,人 们 还 是 喜欢 选用 没有 一作 
用 的 挑选 方法 ,这 种 方法 不 打 乱 原 数组 的 上 顺序。 这 种 定点 排 选 流 比 更 快 的 方法 慢 约 :0 们 .下 
面 我 们 给 出 两 种 程序 。 

挑选 通常 用 于 对 一 组 数据 进行 统计 定性 .人 们 通常 想 知道 - 列 数据 的 中 间 侦 ,或 上 四 分 
之 一 或 下 四 分 之 一 ' 值 . 当 N 昆 奇数 时 ,中 问 值 就 是 第 大 个 元 素 , 其 中 丰 一 CN 二 1)72 。 当 入 是 
偶数 时 :统计 书 上 定义 中 间 值 是 上 = NA3 和 上 =N72 十 1 两 元 素 ( 也 就 是 从 上 数 第 RZ2 各 从 
下 数 第 W/2)? 的 算术 平均 值 . 如 果 接 党 这 种 规定 ,就 必须 做 两 次 分 别 的 挑选 ,来 找到 这 些 值 。 
对 于 N>100 ,我 们 通常 定义 上 = N72 为 中 间 元 素 , 不 按 这 种 规定 。 

落 允 许 重 排 数 组 ,最 快 的 挑选 方法 则 就 是 划分 法 ,与 快速 排序 法 (第 8, 2 节 ) 中 作法 完全 
相同 .挑选 一 个 “随机 ?分 割 元 素 , 用 它 来 核对 整个 序列 ,人 迫使 较 小 的 元 素 排列 左边 , 较 大 的 排 
到 右 馆 ,正如 在 快速 排序 法 中 那样 ,优化 内 箱 坏 是 非常 重要 的 ,使 用 <“ 哨兵"( 第 8. 2 车 ) 来 减 分 
比较 的 数量 .但 在 排序 中 ,还 需 对 分 割 出 的 两 个 子 数 组 分 别 继续 进行 操作 .然而 在 挑选 中 ,我 
们 可 以 略 去 一 个 子 数组 ,而 只 注意 包含 了 要 找 的 第 元 素 的 那 一 个 子 集 . 用 划分 法 夹 挑 选 就 
不 需要 用 于 操作 期 间 的 维 栈 , 并 且 它 的 运算 量 是 N 莉 级 而 不 是 wlogw 量 级 的 (和 参 元 [1-) 
对 照 第 8. 2 节 中 的 排序 竹 序 sort, 下 列 程序 就 很 容易 明白 ， 


并 define 3 好 和 Pab)y temb 三 (aita) 一 (b):(b) 一 tempy 


float select(unsigned long k，unsigned lorng nb， float arr[) 
返回 数组 arr[]. .nj 中 第 天 小 的 元 素 , 输 入 的 数组 将 被 重 排 ,也 挑 沁 的 值 返 回 在 arr[ 开 j 中 ,所 有 小 的 元 痢 竺 arrl1l. .kk 
~ 菇 中 (以 任 攻 顺 序 ) ,而 所 有 大 的 光束 都 在 arrfk 十 1. ,nm | 吕 (以 任意 顺序 。 


unsigned Long iir,] ,1,mid; 
人 15a&t 过 :temp; 


sli 
和 人 
for 《ii) 攻 
这 (ir <= L+t) 荆 激活 包含 I 个 或 二 个 死 素 的 划分 
if (ir sa 1+l 隶 arr[fir] < ary[l1]) { 两 个 元 未 的 情况 
SWAPKarr[1],arr[irl) 
retura arr[k]; 
816e 攻 有 本 
mid=(1+ir) >> 1i 挑选 左 . 中 、 右 三 元 素 的 中 间 昔 作为 划分 元 页 a 。 
SWAP (arr [mid] ,arr[I+l]) 同时 重 闽 以 使 
it (arr[l+1] > arr[ir]j) { arr[1+1] < azr[l] 
SWAP(Carzr[i+yL] ,arrfir]) arr[ir] > arr[l1]. 


》 
zz {arrfl] > arr[ir])【{《 
SWAP (arzr[1] ,azr[ir]) 


好 《arz[l+t] > arrf1])《 
SWAP{atrT[1+t] ,arz[z]) 

下 

im1+1; 为 划分 万 始 化 指针 

je=iri 

asartr [13; 划分 元 素 

for (;i 开始 内 宪 环 
do iyyi while (arz[i] < a; 从 数组 首都 僻 趟 打 撒 二 找 元 素 :>a 
de j--; while (arr[ 订 >a); 欠 数 组 蛙 癌 上 符 撒 寻 搜 元 素 一 a 
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zz 〔j < 1》 braaki 指针 交汇 ， 划 分 半 示 


SWAP (arz[i] ,arr[j]》 
了 结束 内 循环 
arz[1]mazrr[j]; 捅 入 划分 元 素 
arT[j]=a; _ 
诗 【j >=< k) ire 生 -11 局 包含 第 k 元 素 约 划分 继 练 进行 
iT 《jj “= 下 ) 1=Ii; 


定点 挑选 或 称 非 破坏 挑 选 在 概念 上 很 简单 ,但 它 需 要 很 多 记录 ,因而 相对 较 慢 .基本 的 
想法 是 ,随机 地 选 出 Wf 个 元 素 ,将 其 排序 ,然后 将 整个 数组 通过 一 遍 , 数 一 数 在 邓 十 1 个 空 除 
中 分 别 有 和 多 少 元 素 . 包 含 第 上 个 大 的 元 素 的 空 辽 叫 做 * 活 ?空隙 。 然 后 再 进行 第 二 办 ,首先 在 
活 空隙 中 随机 地 挑选 M 个 元 素 , 再 位 定 当 前 活 元 素 落 入 新 的 ,更 细 的 M 十 1 个 空隙 由 的 哪 一 
个 .以 此 类 推 , 直 到 第 二 元 素 定位 在 一 个 大 小 为 M 的 单个 数组 中 ,这 时 直接 挑选 是 可 能 的 
各 

我 们 如 何 挑 渤 My? 操作 的 循环 次 数 为 loguN =1log:N/logzz 随 闭 M 的 增 大 而 减 小 ;但 
将 每 一 元 素 定位 于 M 十 1 个 子 空 隙 的 工作 量 则 增 大 ,例如 ,对 于 二 分 法 来 说 是 logsM 量 级 的 
大 小 在 每 一 轮 中 需要 查看 所 有 N 个 元 束 , 若 仅 找 那些 还 活着 的 元 素 , 那 二 分 法 主要 由 发 生 
在 第 一 轮 中 的 N 所 支配 ,使 CC(NlogwN) 二 DCMNiog:At) 取 极 小 值 , 便 得 结果 

对 一 2Veoer 《8.5.1) 
对 数值 的 平方 根 变化 是 很 缓慢 的 ,以 使 对 于 机 器 时 间 的 考 志 变 得 重 归 了 .通常 我 们 选用 M 
一 64。 

在 下 列 程 序 selip 中 有 两 个 附加 的 小 技巧 ,5i) 将 M 个 随机 值 的 集 增 扩 到 M 上 TI, 其 第 
M 二 1 个 元 素 是 它们 的 算术 平均 值 ，(ii) 用 一 种 使 梨 前 的 元 素 更 容易 被 选中 的 方法 ,在 一 次 
“ 飞 过 "数据 过 程 中 挑选 这 好 个 随机 值 。( 这 种 基本 想法 是 ,使 > 的 元 素 有 My/jzr 的 机 会 
被 选中 。 它 能 用 归纳 法 证 明 , 它 将 会 产生 所 需要 的 结果 ) 。 

## 训 clude ”nrutil. hw 

亲 define M 5034 

共 define BIG 1.0e30 

忒 define FREEALL free_vectorfsel,1,M 十 2)3free_lvectorfisel，1.M 十 273 


fleat selip (unsigned long 攻 ，unsigned long n，float art 丰 ) 返回 数组 arr71. .n] 中 第 二 小 的 元 素 , 输 人 数 纪 不 变 


{f 
void 9hell(uansigned 1ong Qa，f1Ioat 日 站) 
tmnatgmnad 108E ij,jl,jm,ju,ikk,ma,olo,nxtmmi*jael， 
于 103t 4bi,aLD,S5UD，=SS]i 


af fk<l1lk>Dn|ilaxcr 0 nrerrorf"batd input to SelLip"); 
二 3aLe1y4ctor(1 ,NM+2); 
白眉 mV 息 世 ttOE [1 ,所 +27 
Jirek ; 
ahis#BICi 
alo = -BFGi; 
for (1 士 反 复 双 环 直 到 找到 所 需 元 结 
mmenlo:Di 
ULtmDO .DO; 
TtmheH+1 ; 
for [iel1iiceoii+y+》 苹 将 整个 数组 通过 -- 遍 
2 (arr[i] >* &19 帮主 arxz[t] <= abiy 苹 
只 考虑 括号 内 的 元 素 
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4 
这 (arr[fiy == alo) nl1o+4; 在 括 导 相 等 的 情况 中 
硕 企 几 纺 汁 方法 在 范 几 以 内 等 概率 他 选 mm 个 元 旭 ， 即 使 事先 不知 道 它们 有 多 少 ! 


if Kmm ca 对 ) sel[mmj=arr[lz]; 
elsa it (am == 5XtnmD) 了 
mxXtPm=mm+mmAi 
selrl +【(i+mm+kk) 双 M)]=arr[il]; 5 哲 作 查 殿 其 种 贿 机 数 
} 
Sum +a aT> fi 


} 


1] 
8 (kk <= Dlo)T 所 需 元 素 与 下 界 相 委 ， 逐 回 它 
FRFEALL 
Yeturn hlo: 
) 
alse if (mm “= M) 所 有 范围 内 的 元 素 被 保留 ， 十 是 用 雄 接 
Shell (mm ,eal) ; 方法 返 问 答案 
Shi = Sel[xk]i; 
FREEALL 
reGCUYn ahyi 
】 
se@1 [M+1]=supymni 出 平均 情 扩 充 { 固 定 退 化 ?所 选 冻 合 . 并 姑 妈 
3heli(M+1，961) i 
史 1 [+2] 王 ahiz 
for 〈j=1;j<=Me23jJ++) isegl[j]=0; 将 计数 所 起 置 替 
tor (is=1iicsn;i+4) 区 将 敬 个 数 蛆 再 过 一 这 
if (arr[i] >w alo 了 artfi] <m ahi) 邯 对 于 和 东 闭 内 的 元 书 
jlm93 
jobmM421 
while (ja-jl > 1) … 用 二 分 充 找 导 它 的 位 置 
jmm (3jo+j1)Z2; 四 
ii 《arr[i] >m eqLtFja]) jinj; 
全] 当 和 dm 地 
iaal[jn]e+; … 并 计数 斩 加 ] 
} 
》 
jal; 现在 我 们 些 锡 将 范围 结 小 一 艇 ， 即 娘 小 
while (kxk > 1aal[j]) 《 类 因子 
atomsel[jl]; 
kx -一 工 8 巡 [jj*++] ; 
上 
ahi=sel[j]' 


大 概 的 时 间 估 算 :seltp 大 的 比 selert 十 税 。. 实 际 上 , 当 N 在 一 10 范 围 内 ,selip 要 比 用 
sott 进行 “次 全 排序 慢 ]. 5 倍 左右 ,而 select 比 sort 快 6 倍 。 用 户 应 在 时 间 .、 存 储 和 方便 性 
之 癌 仔 细 权 衡 。 

当然 ,要 寻找 数组 中 最 大 或 最 小 元 素 这 一 类 小 事 ,不 应 该 采用 上 述 任 一 种 程序 .而 读者 
可 以 自己 简单 地 闲 for 逢 环 编程 . 当 与 N 比较 到 是 较 适 中 的 情况 ,还 有 一 种 好 的 编程 方法 ， 
使 附加 六 级 存储 呈 的 负担 不 是 太 量 。 例 如 + 采用 堆积 排序 法 (第 8. 3 节 ) ,将 蓝 个 N 长 的 数组 
通过 一 遍 , 而 保存 四 个 最 大 的 元 素 。 堆 积 结构 的 优点 是 ,每 个 候选 人 被 入 选 只 需 比 较 ]ogzm 
一 次 ,而 不 是 z 次 ,这 当 mm>O(Y 入 ?时 , 此 方法 确定 需 占 用 相当 的 内 存 , 但 这 并 不 得 事 而 月 
容易 编程 .下 列 程序 展示 了 这 一 思想 ， 
void bpsel(unsigned long 站 ，unsigned long n, floar arr[]， toat heap[1] 


在 heap[1.，m] 中 返回 数组 arr[1,.p] 的 前 四 十 最 大 的 元 束 , 并 可 证 heapf1] 是 第 火 的 元 束 . 数 组 orr 不 变 .为 保 
证 效 虚 ,本 程序 必须 人 当 zn<n 时 使 用 ， 


289，。 


void sort(unsigned long na。 fioat arrf]y; 
void nrerzror[char erxor_text[]) ; 
ungignesd Long ij,ki 

flioat 8dapi 


证 甸 > naA2 1| 四 < 1》nrerror("probable misu3e of hpsel"); 
tor 【is1yi<xmii++) beapf[i]jaarr[i]; 
sort (mheap) 通过 淘汰 产生 初始 堆 。 我 们 起 定 玫 - 
for 【imm+1l ic<snii++) 1 对 等 一 所 剩 苞 票 
if (arc[i] > hesap[li]) { 置 于 堆 上 
heap[1]=arr[i]; 
fior (jz=tii) 下 攀 
k=j << 1， 
if \g > 四 breaki 
讶 [am 好 eapfz] > heapEctt]) Xt++' 
if 【haap[j] <= heap[x] } Dieax; 
awap -haap [X] 
heap [xj=heap[J] ; 
heap[j]=svapy 
ji; 


参考 文献 和 进一步 读物 ; 


Sedgewick，R. 1988，4JEorilhras，2nd sad,《Reading ， MA :Atdison-Wuesley)，pp. 126fft. [1 


8.6 等 价 类 的 确定 


一 些 排 神 和 查找 的 技巧 涉及 到 数据 结 刚 方面 的 知识 ,全 如 出 和 链 赦 表 等 ,其 详细 内 容 已 超出 了 上 本 书 的 
范围 ,这 些 结构 及 其 换 作 是 计算 机 科学 的 精彩 部 份 , 已 与 数字 分 析 内 容 截然 不 同 ,关于 这 一 主题 的 书籍 也 
并 不 缺乏 。 

在 处 理 实验 数据 的 过 程 中 ,我 们 发 现 上 述 结构 中 一 种 确定 等 价 类 的 特殊 操作 , 它 在 应 用 中 此 常 屿 外 ， 
所 以 ... .我 们 将 它 包 活 进来 。 

问题 是 这 样 的 ;有 N 个 “ 撕 素 ”( 或 者 “数据 点 ”或 是 其 它 任何 东西 ,编号 力 1，,.，，N ,给 出 -- 些 表明 
元 素 是 否 属于 * 同 一 性 ”的 相同 等 价 类 的 配对 信息 ,这 信息 可 以 辫 根据 任何 恰好 感 兴趣 的 标准 得 米 的 . 章 
如 ,可 能 得 到 一 系列 事实 ,如 ,元 素 3 和 元 素 7 是 同 .类 ;并 素 19 和 元 素 4 是 同一 类 元素 7? 和 元素 12 是 
同一 燃 ,…。?* 或 者 有 一 个 过 程 ,可 以 用 来 判断 任何 给 定 元 素 7 和 上 是否 属 于 同类 还 是 属于 不 同类 .5 四 忆 
一 下 ,一 个 等 价 关 系 可 以 是 满足 RST 性 质 的 任何 关系 , 即 满足 自 反 蚀 ,对 称 性 和 传递 性 .这 是 和 * 必 -- 性 ?的 
任 条 直观 定义 相 兼 容 的 。) 

希望 得 到 的 输出 是 ,将 个 元 素 中 的 每 一 个 屿 与 一 个 等 价 类 序号 , 当 且 仅 当 两 个 元 素 帘 腾 与 同 -类 序 
号 时 它们 属于 同一 类 ， 

有 效 的 算法 是 这 拌 进行 的 ; 令 PC) 是 元 素 了 的 类 序号 或 家族" 序号 ,从 每 个 元 素 在 它 白 己 家 族 开 始 ， 
所 以 严 ( 万 一 疡 数组 FT) 能 被 解 骂 成 -个 树 结构 ,其 中 严 ( 力 代表 ; 的 双亲 ,如果 我 们 将 每 个 家 族 排 蕊 它 自 
已 的 山 , 与 所 有 其 它 * 家 族 怪 "下 相 交 ,那么 ,我 们 就 可 以 用 它 最 老 最 老 的 想 先 米 标志 这 一 家 族 ( 等 价 类 ) .这 

- 树 的 具体 东 朴 结构 并 不 重要 ,只 要 我 们 在 某 处 将 右 关 的 元 素 嫁接 上 去 即 可 。 

因此 ,我 们 按 如 下 方式 采 处 理 每 个 基本 的 论据 “j 等 价 于 &";() 追 淹 / 到 它 的 最 老 的 祖先 ,Ci) 迫 漳 到 
到 它 的 最 老 的 祖先 ,tiii) 令 为 上 的 新 的 双关 , 或 色 之 亦 然 [ 这 役 有 什么 区 别 )。 当 处 理 所 有 的 关系 之 后, 我 
们 检查 所有 的 元 素 九 任 它们 的 天 (7 重新 强 成 其 可 能 的 最 老 的 祖先 ,从 而 它 标示 了 等 价 类 。 
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下 面 基 基于 民 nuthO 的 程序 ,假定 有 癌 个 大 本 信息 ,它们 存 精 于 阅 个 长 赛 为 am 的 数组 ch lists 台 -isth。 
它 的 解释 必 :lista[ 订 和 listh[ 订 (一 1. ,mm) 是 酚 相 关 元 素 的 序号 (我 们 是 立 样 被 告知 的 ) 。 
Vaid eclassfint n4[L]，int nm，int listaf]，nt hatb 门 ，int in》 
在 输入 数组 lista[1.. za- 和 lostb[]..m- 中 ,区 出 " 个 单 入 元素 对 之 间 m 个 产 关 等 价 济 息 , 本 吏 序 后 加 站 1..a | 际 过 
手 个 元 京 的 等 价 类 序号 , 沪 序 号 是 从 1 到 a 的 疏 数 (不 基部 要 用 到 )， 


int 1,k,jf 
for (k 一 14k 忆 一 nik 一 十 ) nf[k] 一 ki 将 每 小 元 春 初 始 化 成 它 自 身 的 一 类 
for (Il=1<<=mjil 十 十 ) 对 每 -条 输 / 信和 站 

j=liata[]]; 

wbile (naf[ 订 [= ij=nf[j] 过 衔 第 一 个 元 豪 到 它 的 相 先 

k 一 listb[l]; 

while (niCk] :一 kyk:=nft[k ， 返 半 第 :个 元 索 到 它 的 祖先 
1) ti 一 ks 如 果 它 们 还 没有 祖 关 , 则 使 它们 相关 
Jor (js 1j<<=nii 十 十 ) 地 后 上 扫 刘 最 高 相 先 


whilc (nmf[j] 1 一 nf[nf[j1 3 pf[C 门 二 niCofri 3 


或 有 可 能 ,我 们 可 以 构造 一 个 蚌 孝 equivj.t) , 它 在 j 和 K 相关 时 返回 -个 非 零 值 (正确 ), 或 在 不 相关 
时 返回 零 ( 异 误 )。 于 是 ,我 们 循环 所 有 的 元 素 对 ,就 可 得 到 一 个 完整 的 图 片 ,D. Eardley 发 明了 一 种 聪明 的 
方法 , 它 能 在 完成 土 述 要 求 的 同时 ,以 -种 流畅 的 且 能 消除 大 多 数 最 终 扫 视 的 方法 ,对 革 结 构 扫 视 到 老 祖 
泡 = 人 
void el nf[]， int by int〔《w equiv)kint，int)) 

给 出 一 个 用 户 提供 的 逐 辑 函数 equiv, 它 告 之 一 对 元 素 是 而 租 关 (每 个 元 率 帮 在 范围 1..n 中 ) ,以 .六 1]. ,ai 返 回 每 

个 元 穴 的 等 价 分 类 导 。 


int kk ,jj 
ni] 一 1 
for (jj 一 24jj< 一 ojj 十 上 ) ! 对 所 有 对 的 第 - -个 元 辫 特 环 
nf[ ji 一 jj 
for (kk 一 1ikk< 一 1 人 jj 一 1)3kk 一 十 )! 对 所 有 对 的 第 一 个 元 素 福 坊 
nt[kk] 一 nf[nf[kk]j 上 扫 刘 这 么 多 
计 {C# equiy) (jykk)) atfnfCnot[kk] 一 ij 让 读者 清楚 为 什么 必须 这 样 多 的 祖 光 是 - ,个 和 
5 好 的 练习 
) 上 
for (jj=15jj< 一 ngj 十 十 ) n 二 加 一 nf[of[ji--3 最 终 只 需要 这 么 多 的 芝 视 


参考 文献 和 进一步 读物 ， 
氏 nhuth ， 症 . 蕊 ，、1968， 必 rmdamientdl 司 18orfzhznsy vnl. 1 of TRe 4 of Corrzwter 叫 rogramtming 〔Reading， 
MA :Adqison-Weasley?，$ 2, 3.3. [1 





第 九 章 “ 求 根 与 非 线性 方程 组 


9%.0 引 填 


现在 ,我 们 来 考虑 一 个 最 基本 的 问题 , 即 用 数值 方法 求解 方程 的 绢 . 绝 大 多 烙 廊 程 既 人 
左 问 项 又 有 右 端 项 ,因此 ,传统 上 ,人 们 常 将 两 端 相 减 , 化 为 


CT) 二 朋 二 


的 形式 以 求 其 解 , 当 仅 有 一 个 独立 变量 时 ,问题 称 为 一 维 的 , 即 求 -元 画 数 的 … 个 或 攻 个 衫 。 

如 果 独 立 变 量 不 只 一 个 , 则 有 不 至 一 个 方程 可 以 同时 被 满足 .读者 可 能 学 过 隐 范 数理 
论 , 这 个 理论 告诉 我 们 ,具有 AN 个 变量 的 六 个 方 各 有 希望 被 同时 满足 .注意 ,这 里 仅仅 是 和 苦 
望 而 不 是 肯定 。 一 个 方程 的 非 线性 集合 可 能 根本 没有 ( 实 ) 解 ;相反 , 它 也 可 能 有 多 个 解 . 隐 浅 
数理 论 告 诉 我 们 ， 一 般 地 ”, 这 若干 个 解 之 间 应 是 豆 不 相应 、 呈 点 状 分 布 . 并 且 相 瑟 分 离 的 ， 
但 是 ,在 极 不 凑巧 的 情况 下 可 能 会 遇 到 非 一 般 的 , 印 退 化 航 情 况 ,这 时 义 可 能 得 到 连 绥 的 
族 解 ,如果 将 问题 用 向 基 记 号 表示 , 即 求 一 个 或 多 个 N 维 向 量 x, 使 得 


ffx) 一 0 和 


这 里 上 是 N 维 向 量 值 的 函数 ,由 同时 被 满足 的 N 个 独立 方程 组 成 。 

读者 不 要 被 方程 (9. 0. 1) 与 (9. 0. 2) 形 式 上 的 相似 所 迷惑 .了 绪 求 同 时 满足 多 个 方程 的 科 
维 解 , 比 一 维 情况 下 的 求 根 要 复杂 得 多 .它们 的 主要 区 别 在 二 ,一 维 情况 上 可以 确定 解 的 区 
间 , 然 后 在 解 区 间 内 “ 接 索 "方程 的 根 ; 而 在 多 维 场合 ,我 们 始终 不 能 确定 根 在 何 处 ,直到 确 记 
找到 它 为 止 。 

除 线性 情况 外 , 求 根 过 程 总 要 借助 迁 代 来 完成 ,在 一 维和 多 维 傅 况 下 都 是 如 此 .常用 攻 
算法 总 荐 从 某 个 近似 的 初始 解 出 发 ,不断 由 改 这 个 逢 ,直至 满足 某 种 预先 确定 的 站 处 准 则 因 
止 . 对 于 光滑 变化 的 函数 ,如 果 初 始 杰 测 解 比较 合适 , 则 好 的 算法 总 是 可 以 收效 的 天 际 上 ， 
绝 大 多 数 算法 的 收敛 速度 甚至 都 可 以 预先 确定 。 

但 是 ,也 不 能 过 分 强调 求解 成 功 与 次 县 如何 依 赖 于 初始 预测 解 ,特别 是 对 于 多 维 问题 ， 
这 个 具有 决定 意义 的 开始 步 台 通 常 依赖 于 分 析 ,而 不 是 单纯 数值 ,精心 选择 的 初始 了 预测 不 仅 
可 以 减少 计算 草 , 而 且 可 以 增强 理解 和 自信 . 讽 明 (Hamming) 曾 指出 ,* 计 算 的 目的 在 于 油 
察 ,而 不 仅仅 限于 数字 ”, 这 个 观点 特别 适 于 求 根 过 程 . 当 读者 的 程序 以 十 位 数字 的 精 将 度 收 
伍 于 一 个 问题 的 错 解 ,或 者 由 于 根本 无 解 ; 或 虽 有 般 但 因 预 测 初 值 设 有 足够 靠近 该 值 而 使 程 
序 不 能 收 伍 时 ,请 仔细 阿 味 汉 明 的 这 句 名 言 。 

读者 可 能 会 问 ,“ 汉 明 的 观点 的 确 是 高 见 , 但 是 到 底 我 应 该 怎样 做 呢 ?2" 对 一 维 求 根 问 题 ， 
风 答 很 直截了当 :在 试 着 开始 求解 之 前 ,应 该 在 孩子 里 对 方程 的 特点 有 … :个 大 致 伏 轮 廊 .如 
果 为 成 批 求解 需要 有 很 多 的 不 同方 程 ,那么 至 少 应 对 其 中 : 些 典 型 方 种 做 到 习 if 全数 . 具 
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次 ,应 确定 好 求解 区 间 , 即 确定 函数 在 什么 区 闻 内 改变 其 引 负 号 ， 

最 后 (对 这 一 点 某 些 大 胆 的 读者 可 能 有 不 同 看 法 ,但 我 们 仍 在 此 提出 来 ) ,在 夺 代 的 每 
- 步 申 ,都 不 要 让 闪 代 算法 跑 到 已 获得 所 划 定 最 佳 搜索 区 间 之 外 .下 面 我 们 将 会 看 到 ,一些 在 
教学 上 很 重要 的 算法 ,如 弦 截 法 . 牛 贤 - 拉 雅 森 (Newton-Raphson) 算 法 等 都 可 能 会 违背 这 条 
跟 制 .因此 ,如 果 不 对 这 些 算法 做 某 些 改进 ,建议 读者 最 好 不 要 使 用 它们 。 

出 现 多 重 根 或 根 相近 的 情况 ,的 确 是 个 令 人 头痛 的 问题 ,特别 是 当 重 数 为 偶数 时 .在 这 
种 情况 下 ,函数 可 能 不 会 有 明显 的 符号 变化 ,因而 确定 和 保持 解 区 则 就 变 得 很 困难 了 .但 是 
我 们 可 以 采取 强硬 措施 , 即 硬 行 确定 一 个 解 区 间 , 哪怕 需要 使 用 第 十 章 中 的 极 小 值 搜索 技 
术 , 来 决定 函数 的 某 个 低 峰 是 否 确实 通过 零点 .读者 可 以 将 第 10, 1 节 中 的 简单 黄金 分 割 法 
程序 做 一 点 小 的 修改 ,使 之 它 一 旦 检查 出 蓝 数 的 符号 变化 ,就 立即 返回 调用 处 ;而 且 可 以 判 
断 如 果 函 数 的 极 小 值 恰好 是 零 , 则 我 们 找到 的 “个 二 重 根 。) 

我 们 照例 六 主张 读者 把 了 程序 当 作 * 黑 箱 " 使 用 ,而 一 概 对 其 内 部 结 档 不 求 理解 .但 是 ， 
对 初学 者 来 说 ,以 下 几 条 建议 是 很 可 取 的 ， 

*。 在 函数 的 导数 不 易 计 算 时 ,可 以 选用 第 9.3 节 中 的 布 伦 特 (Rrent) 算 法 , 它 适 于 求解 一 
般 一 元 函 数 的 根 , 但 这 个 根 应 位 于 搜索 区 间 内 .第 9. 2 节 中 里 德 (Ridder) 的 方法 简明 扼要 ,也 
是 比较 理想 的 选择 。 

"如果 函 数 的 导数 是 可 以 计算 的 ,建议 读者 利用 第 9. 4 节 中 程序 rtsafe ,该 程序 把 对 边 
界 信息 所 作 的 某 些 记录 与 牛顿 一 拉 斐 森 方 法 结合 起 来 ,但 它 同 祥 也 需要 首先 确定 解 区 问 ， 

。 多 项 式 求 根 是 一 种 特殊 情况 ,可 以 几 第 9. 5 节 中 的 拉 盖 尔 (Laguezre) 方 法 作为 起 点 。 
应 注意 的 是 ,有 些 多 项 式 是 病态 的 。 

”最 后 ,对 于 多 维 问题 , 除 牛 顿 一 拉 斐 森 方 法 (第 9.6 节 ?外 ,本 书 将 不 再 讨论 其 他 算法 。 
如 果 能 给 出 一 个 很 合理 的 关于 解 的 初始 预测 , 牛 囊 一 拉 辈 森 将 是 一 个 相当 不 错 的 算法 ,读者 
不 妨 试 一 试 。 此 外 第 9. ? 节 中 ,还 有 几 种 更 复杂 .但 全 局 收敛 性 更 好 的 算法 ,可 供 读 者 作 进 一 
步 的 阅读 参考 ， 

为 适 于 不 同 的 计算 机 实现 ,本 书 一 般 都 避 开 了 交互 式 的 ,或 与 图 形 相关 约 程序 ,但 此 处 
仍 有 一 个 例外 .在 下 面 的 程序 中 ,我 们 用 交互 式 的 方法 确定 坐标 轴 的 刻度 ,从 而 产生 一 幅 粗 
略 的 郴 数 图 形 .对 于 初 涉 方 程 求 根 领域 的 读者 ,采用 这 种 方法 可 以 避免 很 多 麻烦 ， 


#include <<stdio.h 全 
#define TSCR 60 屏 上 所 显示 的 水 平和 垂直 位 置 的 数目 
并 define JSCR 321 
并 define BLANK 和 … 
并 define ZERO -上 
林 define YY 1 
共 define xx '- 
坟 deftee FF 'x 


void scrsho(float (*fx)kfloat)) 
适用 于 交 世 式 CRT 终 靖 ,在 区 间 zi 至 *? 内 绘 出 蚌 表 产 大 致 出 形 .等 待 输入 另 一 图 形 区 同 ,直到 用 户 输入 结束 标 
志 , 以 示 淇 疮 为 止 。 
nt jz,j ii; 
7oat 了 8@1 ,ybig,x2,z1, 广 dyj,dx,y[ISCR+1] 
char 3cr[ISCR+t] [JSCR+1T] ， 


forc 1 荆 
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Printf("\nEnter xl X2 (zl=x2 LG gtoP) :Na") 1 等 行 输入 另 一 个 图 形 ， 当 


3Cangf"yf YE" Exl ,上 Ex2); Zilsx2 时 提出 
if (xl == X2) break; 
for (ja=13;j<sJSCR; 4+)》 季 有 过 填 入 字符 7 


ecr[1][j]=ecr[ISCR]Tj] =YY; 
for {i=2ii<m(ISCR-1)3i?+) 1 
8#cr [1] [1]=ectrfi] [JSCR] =JX 上 ，、 下 增 填 入 字符 x 
yor 《j=2;j]<=(JSCR-1) ;j++) 内 部 填 以 空 将 
BC [i] [jj=BLANXK; 


了 

dz=(x2-X1JA(ISCR-1) 1; 

IXmIX1i 

ysml1=ybigne0.0; 这 办 包括 0 

for (it;ic<ISCR;iy+)》 { 计算 驮 歼 在 等 间 晤 点 的 值 , 找 出 最 大 与 最 小 傅 
了 [5]=[e* 了 )[ 工 ) : 
if (y[i] < yao1) yaml=y[i]; 
iE《y[i] > ybig) ybig=y [ii; 


X 4= 全 x; 

了 

于 【ybig =<= ytml》 ybig=7eml1+1.0， 确保 项 册 和 床 贞 分 开 

dyj= (JSCR-1)》 7DiC-7Stu1) 

jz=1-(int) (yaml9d7j) ; 指出 县 … 行 对 应 办 

Tor 《izs17i<=ISCRIIY++)》 工 在 蚌 数 高 度 和 零 位 处 说 置 标记 ， 
scr[i]fjz]=ZERD ; 


=T+(tinat) 《(7[] -ysmalywdyj) 1 
scr[i] [j]=FF; 
】 
Priatt(" X10.3f ”ybig); 
Yor 《ael1ii<=ISCR;i++) priott("%c" scr[i][JSCR] ) ; 
PrinttK"Nnn)i 
fcer 《je (JSCR-1) ;ij>a21j--) 《 显示 
PrintEgY%l2gn ”3 
for 【i=1ii<<ISChR;iy+》 PrintT("Xc" ecr[il0j])， 
primtfks va") 1 


Prinrgte %10,3f "38a1》; 

for [im1;iceZSCRii++) printt("%cwscrri][i]); 
PrintfCnAar) 

Printf(”Xy88 X10.3fT YA 人 1DD.37Vn ”1 AZ) 


9. 1 划 界 与 二 分 


如 果 /ea ) 与 成 人 上 共有 相反 的 符号 , 则 我 们 认为 将 有 一 根 被 划 界 在 区 间 《(a, 扩 内 ,又 若 函 
数 是 连续 的 , 则 至 少 有 -个 根 必 落 在 该 区 向 内 (中 值 定理 ) .对 非 连续 但 有 界 的 函数 , 则 可 能 
有 一 阶 跃 (而 址 是 一 个 根 ) 穿 过 零点 (多 图 9. 1, 1)。 从 数值 上 解释 ,这 一 阶 妈 也 可 能 是 一 个 根 ， 
因为 这 种 情况 与 某 种 连续 函数 很 难 区 分 ,这 种 连续 函数 在 机 器 的 有 限 精度 表示 下 ,其 零点 可 
能 会 出 现在 两 个 “ 相 邻 ?的 浮 点 数 之 问 . 只 有 带 奇 点 的 函数 才 有 可 能 在 划 定 的 区 间 内 没有 任 
何 恨 存 在 。 
例如 ,对 于 函数 
.Fr) 一 二- (9.1.1》 
革 些 求 根 算法 (如 本 节 的 二 分 法 ) 可 能 会 收 全 到 c。 幸 运 的 是 ,大 多 数 情 况 下 几乎 都 不 可 能 得 
到 "或 任何 接近 于 < 的 错误 解 , 因 为 只 需 稍稍 计算 一 下 | /zx)| 就 会 发 现 这 个 值 很 天 而 不 是 
很 小 。 
294 。 








1b) 





Mc> 


人 td) 





5a) 才 明 由 s 光 两 点 划 界 的 一 个 牟 立 的 根 zi 其 中 s 线 两 点 函数 信 基 有 相反 的 符号 !(b) 说 明 在 一 个 二 重 恨 
降 近 ,天 数 值 不 一 定 必 病 有 符号 变化 (实际 上 也 不 一 定 必须 在 一 信 根 1f(Cc) 说 明 必 一 全 病态 函数 可 能 有 光 
个 根 ;在 (d) 中 , 丁 表 在 * 泊 两 点 符 母 相反 ,但 ab 两 点 之 间 包 含 的 是 一 个 谨 异 点 :而 不 是 一 个 根 。 


图 9. 1. 1 在 方程 式 求 根 过 程 中 可 能 会 过 到 的 几 种 情况 。 
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如 果 函 数 是 在 黑箱 中 给 出 的 , 则 没有 一 种 确定 的 方法 可 以 给 根 划 界 , 甚 至 不 能 确定 函数 
是 否 有 根 . 例 如 病态 方程 (3. 0. 1), 它 的 两 个 实 根 仅 仅 落 在 - -个 极 小 的 区 间 范 围 = rx 十 
10- 内 。 

在 下 一 章 中 ,我 们 将 讨论 与 本 章 相关 的 函 数 极 小 值 的 划 界 问题 .对 于 这 个 问题 ,可 以 找 
到 一 种 在 任何 情况 下 都 能 成 功 求解 方法 ,从 本 质 上 讲 , 即 “向 下 搜索 ,同时 逐渐 加 大 上 稍 长 .站 
到 函数 值 义 开 始 回升 为 止 ". 但 在 求 根 过 程 中 , 则 没有 类 似 的 方法 可 导 。“ 向 二 搜索 ,直到 机 数 
改变 符号 ?的 方法 对 于 具有 简单 极 值 的 苑 数 并 不 适用 .但 是 ,如 果 我 们 对 * 先 败 ” 的 结果 有 所 
蕉 备 , 这 种 方法 却 常常 是 一 个 良好 的 并 端 :如 果 果 数 在 x* 一 十 cc 的 范围 内 具有 相 皮 的 符 纪 ， 
则 可 以 很 有 把 据 地 得 到 成 功 的 结果 。 

划 include <math,h> 


他 defineFaACTOR 1.6 
并 debioe NTRY 50 


It zbrac(iloat (天 func)diloat)，ftioat k xl float kxp7 
给 定 一 个 阔 数 fune 及 一 个 初始 的 末 谢 范围 zx] 到 x2, 本 程序 将 这 处 范围 进行 几何 扩 刷 ,直到 方程 有 某 个 根 被 直 界 在 


返工 的 值 x1 和 2 之 各 (此 时 ,zhrac 返回 1), 或 者 直 荣 这 个 范 转 被 扩 硒 到 大 得 淋 陛 接受 的 程度 为 止 ( 这 叶 zbrac 返 可 
0) -如 果 某 个 函数 对 于 是 伟大 和 足够 小 的 参数 具有 相反 的 符号 , 则 本 程 译 必 能 成 切 返 可。 


Yoiq nrerrorfchar errat .text[]); 
Int 1 
loat ff23 


计 《#Fl 一 一 #X2? nrerrortwBad initial range ib zbrac"); 
了 i 王 (Crfunc)(srxl)s 
也 一 (mwfuncyCexX2) 
or 0 一 1ij 志 一 NTRY :十 十 1 
庄 《ftlwft2 一 0.0) return 1; 
让 (fabs(fl1) < fabs(f2)》 
了 一 《wx fune)(#xl 十 一 了 ACTOR< Texl 一 “x2)1); 
else 
一 (《* func 六 =x23 十 一 FACTOR (erX2 一 xx]))+ 
} 


TetUrD 全 } 


该 者 可 能 期 望 < 向 内 ”考察 初始 区 间 ,而 不 希望 将 这 个 区 间 “ 向 外 ?扩展 ,并 且 握 出 ,如 果 
将 区 加 z 到 z 划 分 为 个 等 间隔 的 小 区 闻 来 进行 搜索 ,函数 /z) 在 这 些小 区 间 内 是 否 有 
根 存 在 ,下 面 的 小 程序 可 以 计算 出 邓 个 不 同 的 小 区 间 的 边界 ,其 中 每 个 小 区 内 包含 一 个 或 
多 个 根 。 
void zhbrak (fioat 5* fx)(float), foat xi float x2。 int ny Jiloat xblr], float xb2[],， int wnb) 

给 定 一 个 定义 在 区 同 (xl,x2? 内 的 函 玫 和 ,将 这 个 区 间 划 分 为 n 个 等 间 耳 的 小 段 , 并 求 芳 数 过 等 点 的 次 数 ,ab 的 办 

入 信 查 示 搜索 根 的 最 大 次 数 , 它 在 返回 时 敏 时 新 卖 值 为 折 找 到 的 旭 界 对 xbl-1. ,nb],xb2[1. . nb- 的 个 数 。 


int nbb ,if 
loat xfp,fedx+ 


nbb 一 F 

dz 一 (《x2 一 xl)Ant+ 确定 适 光 的 网 格 划 分 
各 一 (Kx# fx)(X 一 区 1)3 

for (i==1lyic 一 Di 十 十 ) 对 所 有 区 间 进 行 循环 
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fe :etx)x 一 一 xy) 

if (Eee 和 pp<6.0) 谷 有 符 导 变化, 则 记 下 边 异 值 
x2a7 一 十 (obb xc 一 dx 
xb2inbbj:=xi 
(2 一 nbhbhyreturni 

中 一 区 


< Th 一 nbhi 


9.1,1 二 分 法 

一 瑟 我 们 知道 了 某 个 区 池内 包含 有 方程 的 一 个 根 , 则 有 好 几 种 经 典 方法 可 将 该 区 间 进 
一 步 细 分 .这 些 方法 以 不 同 的 收 伍 速度 和 确定 性 程度 趋 于 答案 。 但 令 人 失 刻 的 是 ,能 够 保 让 
收 敏 的 方法 求解 速度 却 最 人 慢 , 而 那些 收 急 速度 最 快 的 方法 却 极 有 可 能 以 极 快 的 速度 趋向 无 
穿 , 而 且 如 果 没 有 采取 避免 这 种 情况 的 发 牛 的 话 ,算法 本 身 不 会 给 出 任何 警告 信息 。 

二 分 法 则 是 -种 “ 常 胜 ? 的 方法 ,其 设计 思想 相当 简单 :如 果 在 某 -区 间 内 郴 数 的 符号 有 
变化 , 则 在 此 远 间 内 丽 数 必 过 零 .计算 函数 在 该 区 间 点 的 值 , 并 考察 其 符号 ,用 中 点 替代 与 具 
有 相同 时 数 符号 的 端点 。 每 经 过 -次 迭代 ,包含 根 的 区 间 的 就 减 小 了 一 半 , 假 设 = 次 选 代 后 ， 
根 位 十 长 度 方 忆 的 区 间 欠 , 则 在 下 一 轮 兴 代 结 束 后 ,这 个 根 将 被 划 界 在 长 度 丛 好 为 


末 写 他 《9. 1. 2) 
的 区 间 内 ,因此 ,我 们 便 可 以 事先 计算 出 要 达到 给 定 容 厄 的 解 所 需 的 迭代 次 数 , 为 : 
半 一 log: 之 (9. 1. 3) 


这 里 s 的 初始 划分 区 局 的 长 度 ,e 为 选 代 结束 时 所 期 望 达 到 的 雁 限 。 

二 分 法 必然 求解 成 功 。 假 如 区 间 磁 巧 包含 两 个 或 多 个 根 , 则 用 二 分 法 可 以 找到 其 中 之 
-如果 区 了 闻 内 不 包含 方程 的 根 而 仅 有 一 奇 点 , 则 盖 分 法 将 收敛 到 该 奇 点 。 

如 果 ` 一 种 方法 的 收入 ,是 以 前 次 迭代 不 确定 性 的 一 阶 轨 匀 以 一 个 因子 (小 于 1) 的 速度 收 
委 , 则 称 这 种 方法 为 线性 收敛 (如 一 分 法 就 属于 这 种 情况 ) ,而 以 高 阶 宕 收敛 的 方法 , 即 

6 一 向 数 X (6 更 全 1 《9.1, 4) 

称 为 超 线性 收 辣 。 在 其 他 书 中 可 能 会 把 * 线 性“ 收 伍 称 作 * 指 数 “ 收 伍 或 “几何 ” 收 策 ,但 名 称 是 
什么 根本 和 无所谓。 线性 收敛 性 就 是 指 ,有 效 数 字 随 着 计算 而 线性 地 和 逐次 增加 。 

剩 下 的 工作 就 是 讨论 如 何 确 定 一 种 实用 收敛 准则 。 机 器 中 总 是 以 固定 位 数 的 二 进 制 数 
来 表示 浮 点 的 , 记 住 这 一 点 极为 关键 如果 一 个 孜 数 经 分 析 可 知 它 必 过 零点 ,但 在 计算 中 可 
能 对 任何 浮 点 数 变 量 , 阔 数 根本 不 取 零 值 .因此 ,必须 确定 出 方程 的 根 可 以 达到 什么 样 的 精 
度 值 . 例 如 , 当 方程 根 的 值 大 小 接近 1 那么 取 收 委 到 绝对 值 小 于 10-: 就 是 比较 合理 的 ;但 
这 个 精度 对 于 接近 10# 的 根 当 然 是 不 可 能 达到 的 。 由 此 ,人 们 可 能 会 想到 确定 一 个 相对 的 
〈 分 数 的 ) 收 敛 准 则 ,但 对 接近 于 零 的 根来 说 ,这 个 准则 就 又 不 适用 了 ,为 了 最 大 限度 地 确保 
通用 性 ,下 面 的 程序 要 求 用 户 指定 一 个 绝对 窜 限 ,使 算 潜在 区 条 的 绝对 长 度 小 于 该 容 限 时 终 
止 选 代 , 通 常 ,我 们 可 能 倾向 于 将 该 容 限 值 取 为 s(zi 十 zz)/2 ,其 中 * 为 机 器 精度 , 和 zs 为 
初始 区 间 的 两 个 映 点 .但 当 根 位 于 零 值 附 近 时 ,必须 注意 仔细 考虑 什么 样 的 容 限 值 对 我 们 的 
二 数 来 说 是 合理 的 .下 面 程序 对 任何 调用 允许 执行 的 最 大 适 代 次 数 为 40 次 ,因为 3-ir< 
912。 


DO7 * 





共 inelude <<imath.h>> 
蕉 define JMAX 40 允许 适 代 的 和 大 次 数 


了 eat rtbis ciloaf《〔《 关 fnne)Cfloary，floatr x1y float x2， 昌 cc xarc) 
已 知 位 于 x1 和 和 x2 之 问 的 本 数 mnc, 用 -分 法 求 其 根 。 人 在 精度 达到 4 xacc 之 前 ,这 个 根 将 散人 到 断 履 正 ,首肯 要 站 TD 


返回 。 


void'nrerror fchar error.- text[ ])， 
inr js 

[loat dx'ffoid ,xmid ,rtby 

[=〔【* funcl(xl)y 


fmid 一 (*xfoncyCx2)1 
让 (fx fmid 盖 0.0) nrerror(y 有 Root malst be brscketed for bisection in rtbis*)# 


rtb 一 上 上 <0.03?3 (dx 一 x2 一 X1,xl) (dx 一 xl 一 xX2x2); 调 定 搜索 方 粤 以 使 于 >0 倍 :zx 二 da 外 
for (j 一 1 雯 一 JMAX5 十 十 ) 1 
fmid 一 (+# func)(xmid 一 rtb 一 Cdx w 一 在 5735 二 分 法 宪 环 


这 (frnid 所 一 0. 0) rtb 一 xmldy 
这 (fabs(dx) 之 xacc 1 | fmid 一 一 0.0)》return rrhf# 

1 

hrerTOr (Toa Jpahy bisections im Ttbis”)5 

return 昌 0 程 库 执 行 不 到 此 处 


9%.2 弦 截 法 、 试 位 法 和 里 德 的 方法 


对 于 在 根 附 近 光 湛 的 函数 , 试 位 法 和 弦 截 法 的 收敛 速度 通常 要 上 比 -- 分 法 快 . 在 这 西 种 方 
法 中 ,函数 在 所 讨论 的 局 部 范围 内 均 候 设 为 近似 线性 ,而 且 根 的 下 一 估计 值 总 是 取 在 接近 直 
线 与 坐标 办 的 交点 处 。 每 一 轮 闪 代 结束 后 ,上 一 - 轮 进 代 的 边界 点 中 将 有 一 个 被 舍 弈 ,以 有 利 
于 根 的 最 新 情 计 。 

上 述 两 种 方法 的 唯一 的 区 别 在 于 , 弦 截 法 总 是 取 两 个 端点 的 最 新 估计 值 ( 图 9, 3. } ;该 方 
法 要 求 在 第 一 轮 迭 代 开 始 任意 选择 一 个 区 间 ) :而 试 位 法 需要 保留 上 一 轮 选 代 的 一 个 端点 ， 
杀 件 是 该 吴 点 的 函数 值 , 与 这 一 轮 夺 代 求 出 的 估计 根 的 函数 值 ,具有 相反 的 符号 ,从 而 可 以 
使 这 两 点 能 继续 划 界 根 ( 图 9. 2.2) . 精 售 地 说 ,对 于 足够 连续 的 函数 , 荡 截 法 在 根 峙 近 收 全 速 
度 贡 快 ,其 收 敏 阶 可 达到 “黄金 比率 ”1,.5618. ,， , 即 


limlet:) 到 党 数 X | (9. 2.1) 


但 是 弦 埠 法 也 有 一 大 缺 鸥 , 即 方程 的 根 不 一 定 总 能 藩 在 适 代 求 出 的 划 界 之 内 ,这 样 对 于 不 是 
足够 连续 的 函数 ,该 算法 就 不 能 保证 收 倒 , 因 为 局 部 迭 代 过 程 可 能 会 导致 趋 于 无 穷 。 

用 十 试 位 法 有 对 需 保 留 刘 端 点 ,而 不 取 新 计算 出 来 的 估计 值 . 因 而 其 收敛 阶 要 稍 低 一 
些 。 正 因为 新 的 函数 值 只 是 有 时 被 保留 下 来 ,所 以 这 种 方法 常常 是 超 线性 收敛 的 ,但 是 精确 
的 收敛 阶 数 却 不 易 估 算 。 

这 两 种 相关 方法 的 程序 实现 将 在 下 文中 给 出 .尽管 它们 都 为 教科 书 所 采用 ,但 程序 后 画 
给 出 的 里 德 5Ridqez) 方 法 以 及 下 节 中 将 要 介绍 的 Breat( 布 伦 特 ?方法 常常 更 受 青 辽 . 图 9. 2. 
3 展示 的 是 弦 截 法 和 试 位 法 对 -个 特殊 二 数 的 求 根 过 程 。 

"2Z98。 











过 最 新 计算 出 来 的 两 点 作 内 描 战 或 外 推 线 ( 电 线 所 示 ) 而 不 论 这 两 点 是 否 划 界 这 症 
数 ,图 中 的 点 是 按 其 被 使 用 的 硕 序 进行 编号 的 。 


图 3.2.1 玉 截 法 图 示 


天 








过 划 黑 根 的 最 新 端点 作 内 插 线 (虚线 所 示 ) ,这 上 商 个 端点 之 问 必须 包含 有 方程 的 根 , 在 本 例 中 ,点 ] 在 很 多 步 法 
代 中 ,都 将 保持 “有 效 "而 本 被 其 他 点 刻 代 . 斌 位 法 比 弱 戴 法 收 伍 速度 慢 , 亿 比 东 截 法 确保 收敛 的 在 度 要 商 。 


图 9.2,2 试 位 法 图 所 











对 本 图 所 示 的 落 数 , 弦 截 法 和 试 位 法 都 需要 进行 很 多 步 和 迭代 才能 求 出 真 刀 ,而 用 许多 其 他 算法 都 不 筋 求 证 
办 9, 2.3 


过 incluqde <tnath.h>> 
并 define MAXIT 30 允许 选 代 的 最 多 次 数 


float rtflsp (Bloar (<* fune)(floatf)，ftioat xl]，float x2， iloat xacc) 
已 知 位 于 xl 至 x2 之 僻 的 务 数 和 nec, 用 试 位 尘 求 其 根 ,在 精度 达到 土 xacc 之 前 ,这 个 根 将 木 断 地 被 修正 ,并 最 化 避 
flsp 返 同 。 
{ 
weid nrerror[cbar BTroT_ 世 ext[]); 
int ji; 
?lcat fl1,fh,zl,zh,sgap,dr,del,f,rrY: 


了 1(egURC] TXT 
hm(agfunc)(Kz2)》; 确保 区 间 内 包含 一 个 报 
4 【fluzh > 0.0) nrerror('Root muat be bracgetad in rttlap"): 
i3 (Cr DO 全 调 敬 映 点 妹 号 ， 人 局 xl 对 应 于 画 首 德 的 下 姑 边 
xj=xXl; 
Zhemx2; 
} elge 
工 1mI 字 i 
heZl; 
Swab 一 fl1f 
?1L=fbi 
于 hm 二 赋 如 和 
】 
dr=zhb-Xl: 
tor 【jitijxaTIT;j+tr) 工 试 位 法 措 环 
TEPeXlL+dxb1A(Y1-fh) 根据 量 新 值 调 整 增 重 


feetfupc) 【rt 
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tE (< 10.9)《 符 代 请 足 条 件 的 端点 


elLex1 -Tt i 
1L=Ttzi 
于 1=8i 
] elee T{ 
delexb-t: 
XbmFEt 了 1 
fb=f; 
少 
drasIh-xl; 
1 【fabatdel) < Xacc | | 二 mm 癌 , 悠 ) ratUTP TtET 收效 
] 
DTerrDT[Kn"HAIimtm numbar 07 iteraticons ezceaded iD rttlspr]) 
retuzn 0.07 考 序 热 行 不 到 此 处 


} 
共 include <marhh * 
站 deiine MAXIT 30 多 许 迭 代 的 最 多 次数 


ean ttsec(tloat 【# func)frfloaty，ioat xl float x2, jloat xacc) 


者 亢 数 fune 基于 xi 至 x2 之 阅 , 肌 弦 截 法 求 它 的 根 。 在 精度 达到 士 xecc 之 前 ,不断 地 艇 正 这 个 根 , 闪 最 终 以 rtsec 返 
局 . 


xyo1d nreFrorfchar 6rror_tgext[]》 5 
iat 了 ; 
fleat 1 fdxY,awSp LTt3) 


TYTl= (eftmcy(Xt) 
fteEunc) (xz2) 1 
if (fabs(t1》 < faba(t)) { 将 具有 较 小 冰 效 值 的 边界 作为 妇 的 最 新 佑 什 
工 蕊 3 一 
入 L=X2: 
卫 呈 二 De li 
他 La ， 
fmawapi 
}》 else 1{ 
Xe 次 
工 蕊 外 严 有 了 1 
】 
for 《j<trj<=MAXIT;3++)》 荆 效 戴 法 揪 环 
本 xm (XIL-c 七 如) 中 于 人 (了 一个]) 根据 最 新 瘟 调 整 增 量 
卫 ] 并 七 名 
?1=zi 
TY3 + 了 出 工 
m fyfunc) TELE) 3 
和 于 〈fabe (dz) < zacc || TY mm 0.0》ratura ztei 收 策 


mreT 志 Or Y 轩 ai 也 LST 已 2 并 攻 和 5 七 1DRB 症 XCOedeH in 工 世 asC”) 


ratuzna 0.D; 程序 水 运 执 行 不 到 此 处 


9.2.1 生 德 方法 


里 德 (Ridder) 对 试 位 法 作 了 极 有 益 的 改进 ,其 基本 思想 是 , 当 某 个 根 位 于 r, 与 mx: 之 间 
时 ,首先 计算 函 雪 在 中 点 zi 一 (zi 十 za)/2 的 值 ,然后 对 下 述 指数 函数 进行 因 式 分 解 , 这 个 独 
特 的 函数 将 残 差 郴 数 变 为 一 条 直线 ， 








(zi 一 27(Czi)eqa 十 ze 一 0 (9.2.2》 
解 这 个 关于 e 的 二 次 方程 .可 得 : 
Lo _ zy) 让 过 一 Cr)FCzay) 人 
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接 直 来 将 试 位 法 应 用 于 /Cr AGeoes rz)2( 注 意 不 是 Pr) rz ras)) 二 个 侦 , 得 
到 关于 根 的 一 个 新 佑 计 值 r:. 总 的 更 新 公式 为 : 
人 一 SigoLy Cz) 一 7 全) 和 Ce 
VCzr - -CrDTFCzcsy 

《这 瞧 利 用 了 求解 及 9. 2 3)。) 

式 (9. 2.4) 其 有 一 些 非常 好 的 性 质 : 盲 先 ,a* 肯 定 落 在 反 |aitzyzs) 由 ,因此 里 德 法 在 选 
代 过 程 中 不 会 使 根 越 出 划 界 ,其 次 ,连续 利用 区 (9. 2. 4) 可 得 收 剑 阶 为 一 次 ,也 即 式 (9.1.4) 
中 的 靖 为 2。 由 十 每 用 一 次 式 (9. 2. 4) 带 进行 两 次 函 教 值 的 计算 , 厨 此 里 德 法 实际 的 收 伍 为 
w 2 ,而 不 是 2; 但 是 每 经 过 遇 次 的 沽 数值 计算 以 后 , 选 代 结果 的 有 效 数 字 位 数 就 及 乎 婴 倍 、 
这 也 可 以 算是 超 线 性 收敛 ;第 二 ,由 于 里 德 法 来 用 了 指数 (或 称 比率 ) 因 子 , 而 不 是 通过 多 项 
起 技 术 ( 如 氢 合 一 条 李 物 线 )? 央 消除 艺 数 的 “ 转 凌 ", 央 此 它 可 称 得 上 是 一 种 特别 有 用 的 算法 
在 可 靠 性 和 收 伊 速 氏 两 个 方面 ,里 德 法 均 可 与 我 们 直面 将 要 讨论 的 Van Wiiingaarden， 
Dekker 以 及 Brent 方法 相 媳 关 。 


评 include <tnath,h>> 

共 ipnclude ”nrutil, h” 

枯 deftme MAXIT 60 

共 define UNUSED ( -1.11e30) 


loar ariddrfloat (Kx funcy(float)。 floar xl float x2，float xare) 
已 知 位 于 xz 和 x2 之 间 的 函数 Iune, 用 里 德 的 方法 求 其 根 . 这 个 重 在 精度 达 型 xssr* 之 前 将 森 断 地 筱 修正 .并 最 次 以 
zrtddr 返回 调用 处 。 


Tot Ji; 
fl1cat an3,yh,T1 ,Tu,fney,s,xh,xl,xm,Xne 全 ; 


了 Im(azumnc](Xz) 1; 


fihe (Kunc)(x2) ; 
it 【fl >0.9 直 th< 0.0) 1 (fl1<1Ok fbh>00)) { 
XLmXdi 
Xh=x2; 
ang=UMUSED; 设置 - 个 报 不 可 能 出 现 的 植 以 简化 下 面 程序 
中 的 邮 辑 刊 断 


for (je1ijc=MAXIT;j++) 荆 
Jme<0 .5*(X1+zhy》; 
fm=(wfunc)y fxmy; 每 次 选 代 中 计算 的 两 个 表 数 值 中 的 第 一 个 
SBqrt(Eaz 了 -ELezh)i 
if 〔s =<= 0.0) return RS; 
XDeW=TXM+(xm-xl)f(fl >=<= Th 7 了 1.0 : ~1.0)wfmra)i 收 正 公式 
tf 【fab5(xnat-ang) < 工 2CC) Tetura ans; 
下 了 吕 XD 人 NT 
fneum rwfunc)Kans); 每 次 选 代 中 计算 的 两 个 函数 值 中 的 第 -二 个 . 
tf【Tnaw mm 有 .0) TetnrD ape 
放 (SIGN(fm,fnev》 !m fa) { 在 下 一 次 选 代 中 保证 殷 被 划 界 ， 
工 L=KD; 
Y1=3m; 
了 haBam33 
fb=fnev: 
}》alse if {SIGNCfl,tneuvy 4= fl1) 工 
zh=~8anei 
fb=fneywi 
alse iE (SITGNKZYb ,fnegy) != th) { . 
I] =8MS3 
于 l=fneti; 
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] else DrerroT(nneVve 避 GC HEITE .了 
+ if 【fabsKxh-x1) <= xacc)] rotdrn anSi 

了 

nrSrrorf"zriddr axcaPpd 四 ai 计 arcationsu" ) 
小 
else 1 

if (fl == 0.0) return xli 

这 (th => 0,9)》 Teturn X21 

hrerrortnrDot muSt be hracketed in Zriddr."); 


} 
Taeturn 0.0; 永远 执行 不 到 此 外 


参考 文献 和 进一步 读物 ; 


Ridders ，C ] 下，1979 ， 严 五 rertseCEiG7E pm Ercfizy tn 汪 ysferrig Yol， CAS-26，Dp。979-580， 1 


3 范 ' 维 金 加 登 - 德 克 尔 - 布 伦 特 方法 


虽然 弦 截 法 和 试 位 法 一 般 来 讲 比 二 分 法 收敛 速度 快 ,但 是 在 实践 中 人 们 发 现 , 对 于 病 访 
画 数 却 是 二 分 法 的 收 倒 速 度 要 快 些 , 如 锯 贞 形 函 数 ,不 连续 号 数 ,甚至 是 二 阶 导 数 在 根 附 过 
有 突变 的 光滑 朱 数 等 等 .二 分 法 总 是 将 解 区 间 对 分 一 半 , 而 弦 堆 法 和 试 位 法 有 计 要 作 很 光 光 
送 代 才能 把 两 个 相距 较 远 的 端点 向 根 所 在 的 位 甘 拉 近 。 里 德 的 方法 昌 然 很 好 ,但 育 时 反 被 
和 弄 复 杂 , 卉 剖 了 .究竟 有 没有 一 种 方法 , 既 能 超 线 性 收敛 ,又 不 失 二 分 法 的 碚 定性 中; 

答案 是 肯定 的 。 我 们 可 以 对 一 个 假设 为 超 线性 收敛 的 方法 进行 跟踪 和 沁 录 ,看 它 是 次 真 
下 地 按 假 定 的 方式 收 化 ;如 果 不 是 的 话 , 可 以 在 选 代 过 程 中 穿插 一 些 二 分 法 的 步 又 ,以 保证 
这 种 方法 至 少 具有 线性 收 伍 性 .这 类 堪 称 上 策 的 方法 ,需要 注意 记录 选 代 过 程 中 的 细节 ,并 
需 仔 网 考虑 省 入 误差 对 指导 策 赂 的 影响 ,而 且 还 必须 对 算法 何 时 收 和 伍 做 到 心中 有 数 。 

六 十 年 代 , 阿 姆 斯 特 丹 数学 中 心 的 范 . 维 金 加 登 , 德 友和 尔 (Van Wijingaarden，Pekker) 
等 学 者 成 功 地 研究 出 一 种 能 够 实现 上 述 要 求 的 算法 , 呵 后 沪 算 法 又 出 布 伦 特 (Brent) 作 了 改 
进 … ,为 简单 起 见 ,我们 称 该 算法 的 最 后 版 本 为 布 化 特 方法 .只 要 函 数 在 包含 根 的 初始 区 亲 
内 是 可 计算 的 , 布 伦 特 方法 即 可 保证 收 伍 ( 这 个 结论 已 由 布 余 特 证 明 ) 。 

布 伦 特 方法 将 根 的 划 界 ` 二 分 法 以 及 二 识 反 播 值 方法 相 结 合 , 涉 过 : 零 附 近 的 邻 域 作 和 迭代 
收 黎 .前 而 介绍 的 试 位 法 积 弦 截 法 是 在 两 个 根 的 佑 信之 癌 进 行 近似 的 线性 运算 ,而 二 次 到 振 
值 则 用 三 个 估 值 点 拟 合 -- 个 二 次 反 蝎 数 (z 作为 的 一 次 毅 数 ) ,该 务 数 在 》 一 0 处 的 值 将 作 
为 报 了 的 下 一 估 值 .当然 ,对 于 很 落 在 解 区 间 之 外 的 情形 应 该 也 有 应 急 措 施 , 布 从 特 六 法 部 
考虑 了 上 述 各 种 情况 出 现 的 可 能 性 ,假设 三 个 点 对 为 La ,Fe ,PC ][e Ace, 则 内 盾 
公式 (参考 方程 (3.1.1) ) 为 

一) 下 > 一 Fo 一 Ac 
[Le) 一 Fe)]UAe) 一 5 [Fe) -75)iLAtay 一 捧 c] 











2 . 和 册 ] 
-一 Ac 一 Ace 世 
FFC6) 一 fc [Fo) 一 Ce) 
轩 ?=0, 则 可 求 得 根 的 下 一 知 值 为 xz 一 石 十 已 /Q 《9. 3. 21 
其 中 已 .和 的 意义 如 下 :车 记 
R 三 jb) 三 OA 三 Faro) 69.3.3， 





则 有 五 二 S[TCR 一 Tifce 一 人 一 (LT 一 并 他 一 a)) (9 31》 

和 一 (7 一 1]R 一 TS 一 1) (9. 3. 
实际 计算 时 , 卢 将 作为 当前 先 代 中 起 的 灵 佳 估计 ,PP/ 和 R 应 为 一 个 “小 ?的 修正 项 .一 次 丽 数 力 
法 仅 适 合 于 比较 光滑 的 遂 数 ,它们 在 运行 过 程 中 , 极 有 可 能 适 代 出 与 要 相关 很 远 的 估计 香 、 
而 且 当 急 朝 小 而 接近 零 时 ,在 机 器 中 有 被 堆 除 以 至 溢出 的 和 危险 。 布 伦 桂 方法 在 设计 时. 通过 
保持 对 方程 根 的 划 界 ,并 在 做 除法 之 前 检查 应 在 何 处 作 内 择 , 因 而 避免 了 这 些 禹 题 的 发 后。 
当 修 正 项 已/ 氏 使 根 的 估计 值 落 在 和解 区 问 之 外 ,或 音 解 这 问 长 度 的 减 小 速度 不 鲍 快 时 , 布 从 
特 方 法 将 采用 二 分 法 的 步 蓝 ,也 就 是 说 ,在 适当 的 步骤 中 ,将 一 分 法 的 收 伍 确 定性 与 启 阶 方 
法 收敛 速度 快 的 优点 结 台 起 来 使 用 .对 只 郑 函 数值 (而 不 可 求 其 导数 或 函数 的 形式 ) 角 … 筷 
一 元 方程 的 求 恨 , 我 们 建议 读者 选 轩 这 种 方法 。 





并 include 二 math.h> 

共 ineiuqde ”nrutIT. hy 

划 Ueiipe ITMAX 100 公 许 诸 代 的 明 太 次 数 
共 define EPS 3.Da 8 机 器 的 字 点 数 精度 


fioat zbrenttfiloar 《> funeytfoat》，Hoar x1， boat x2，float tol) 


已 知己 于 zj 和 z2 之 澡 的 隔 数 func, 用 布 伦 特 方 潜 求 它 的 根 ,在 其 精度 达到 :ol 以 前 ,这 个 艰 将 不 断 地 被 收 止 ,并 最 次 
以 zbrent 返 阿 。 


IDt teI 
于 Loat a=rl,b=T2,c=x2.d,.e,mtnit ,min23: 
float iask*tunc)(a) ,fbe(4func) fb) ,fc,pvqTB ,tolLxm; 


if fta>0.0 引 fb>0.9 11 (fa< 0.0ktp<G0)) 
mrerrGrt "Root must ba bracketad in zbrent)) 1; 
fc=fb; ， 
for [iter=tiiter<=IJHAXIiKterf++> 于 
if [(fb>DO0O&g8fc>O-0o) Il (fb 0.0 kktfceec0.0)) 1 
C=ai 对 a.b,c 更 名 并 调 辐 解 区 间 忆 
fc= 于 ai; 
e=dG=b-ai 


村 
if (tahbstkfcy》 x fabgffb)) { 
arbi 
b=ci 
女王 和 
fa8=Tbi 
fb=fci 
CC=Ea; 
】 
TDIi=.Ox<EPS+rfab5 [b+D.5* 志 Dai 上 收 铸 性 检验 
FXD=D .5e*(c-b) ; 
if 《TabstTxm)》 < tOlL1 | fb == 0.0) Terura bi 
1f 《fabsfe) >= toll kg fabstfa) > fabstzb))《 
S=<fbyfa， 向 作 二 次 反 具 措 
iT (〔a =s c) 苹 
P=2 -0OextazS3; 外 
qE1-.0-s;: 
} etse 并 
q=farfci 
TafbyxTfcz 
Pssh(2.097m*q9(q-r)~《b-a)str-1.0)]] 
d=q-1.DOJ*Cr-1-0)rfs-1-0) 1 


了 
ip >0.0) 9 = -qi 检查 是 否 在 秀 区 间 内 


“304， 





prfaps(P): 

血 Lnt<3-Cexql+q-EabSrLeLL14U) 
min2rfabsKavrq) 

if 〈2.0P “< 《8ini < m2n2 ? minl : 了 in2)] 苹 


a=dji 可 以 艇 内 区 
d=g7q; 
y elge { 
qd=xm; 小 了 用 做 内 部 ， 改 用 一 分 法 
9=di 
】 
} else { 界 下 降 速 度 太 名 ， 改 用 一 分 法 
d=xpm) 
息 翅 位， 
as=b; 妾 最 新 估 伯 赋 给 3 
节 & 于 b; 
if 【fabsfdj > tol1) 计算 新 的 试验 解 
b += 9 
和】 号 生 


bb ye STGRCtaltzm) ， 
2zbm{wftunclb)i 


nrstzrortvKaxinuq ntumber of iteration5g azceedad jn Zbrant'") 


retxrn 0.0; 永远 不 执行 到 此 


人 参考 文献 和 进一步 读物 ， 
Brenr，R, P，1873，.4250riRn5 Or Mpaipzisattom TtROEE TDeraioeaoe5( Englewaood CUiffs ，KNJ: Prentice- 
Hally ，Chapters 3，4, [1] 


9.4 利用 导数 的 牛顿 - 拉 斐 森 算 法 


在 所 有 一 维 的 求 根 方法 中 ,最 著名 的 当 首 推 牛顿 法 ,也 称 牛 顿 - 拉 斐 森 (Newton-Raph- 
son ) 算 法 .这 种 方法 与 前 面 几 节 所 述 方法 的 区 别 在 于 , 它 始 要 利用 任意 点 上 处 的 函数 值 
(r), 还 需 计算 其 导数 值 (Cr)。 从 几何 上 来 看 ,牛顿 一 拉 斐 森 方 法 是 将 当前 点 # 处 的 切线 
延长 ,使 之 与 模 轴 相交 ,然后 置 让 一 估计 人 zf) 为 交点 处 的 横 坐 标 值 ( 见 图 9. 4. 1 。 


从 代数 上 解释 ,该 方法 的 推导 ,利用 了 我 们 所 邹 悉 的 在 某 点 附近 函数 的 泰勒 级 数 展开 ， 
即 


jz 人 mr 十 Go8 二 天 Ce 十 19.4.1) 

对 足够 小 的 8 以 及 性 能 度 好 的 函数 ,上 式 中 二 次 发 二 次 以 上 的 项 区 可 牧 略 不 计 , 因 此 由 fr> 

十 5 一 0 可 导 昌 

三 二 (8.4.2) 

牛顿 - 拉 斐 森 方 法 并 不 限于 一 维 问题 ,正如 我 们 在 第 9. 6 节 以 及 第 9. 7 节 中 将 要 看 到 的 , 它 可 
推广 至 多 维 情形 。 

在 离 根 较 远 的 地 方 , 谋 开 式 中 的 席 险 项 不 能 忽略 ,这 时 ,牛顿 . 拉 斐 森 方 法 可 以 粒 路 地 给 





交 * 305。 














对 布 图 所 -省 油 数 ,十 预 法 的 座 行 状态 民 寺 ,于 果 这 虽 于 寺 次 收 仇 。 
到 9 1 上 用 告 额 卢 法 将 另 疝 汪 数 外 挫 以 计 求 眼 的 下 一 估计 值 


出 -- 些 非 精 允 的 而 瑟 没 半 计 么 桂 殊 意义 的 修正 项 。 例 旭 ,为 了 让 搜索 区 间 了 包含 函数 的 其 个 局 
部 城 大 怎 或 极 小 值 , 概 的 祷 始 预 涨 可 能 需 冰 在 离 真 正 的 根 很 还 的 地 方 . 这 种 情况 有 可 能 会 导 
致 求 服 失 政 (更 图 9. 4. 23- 如 果 某 次 送 代 求 出 的 估计 值 伦 于 这 样 的 局 部 极 值 附近 :这 时 “ 阶 
导数 括 乎 变 为 索 ,方程 的 根 将 "丢失 ?而 理 很 难得 找 到 -. 象 化 大 多 数 荔 能 很 强 的 算法 下 具 - 
样 .在 不 透 当 的 场合 ,牛顿 一 拉 斐 森 方 法 也 可 以 是 破坏 性 的 .图 9, 4, 3 所 示 的 是 另外 一 种 可 能 
的 病态 情 次 。 

为 什么 戎 们 偿 此 说 咎 竟 拉 莫 森 是 一 种 很 有 效 的 算法 呢 ? 原 内 在 于 其 收入 的 速达 : 在 点 
区 一 个 很 小 的 邻 域 范 半 < 内 ,二 数 及 其 导数 可 近似 地 表示 为 : 


jz 日 = er ee 十 区 
《人 


广 () 十 EEC) 一 站 


由 牛顿 - 拉 非 森 公 式 ， 





如 果 估 计 香 z 与 真 值 相 差 上, 则 可 刊 用 式 (8. 4 3. 用 s 和 根本 身 的 导数 来 坟 东 式 19.4.4， 
中 的 2 攻关 人 这 个 站 果 是 -个 关于 合计 值 导数 的 递 推 关系 趟 , 即 


306 ， 








在 克 代 过 程 中 过 到 了 了 局部 极 什 , 这 对 流 扣 的 角 线 将 射 问 名 空间 ,水 衬 工 法 与 模 釉 相交 ,这 
更 车 用 划 界 方法 网 定 解 区 而 (如 rtsate 那样 就 可 以 避 先 这 种 情况 的 发 生 - 


图 9.4.2 普 用 牛顿 方法 导致 求 根 失败 的 永 例 


FT) 








当 驳 数 放 合 部 或 部 分 地 出 表 央 全 得 利 时 ,党 党 会 壮 到 这 种 情况 ,但 基 对 初 值 更 清 得 王 好 -一 些 ,该 例 盆 能 未 澡 喜 钙 
上 钢 %. 4.3 应 用 牛顿 方法 导 伍 死 循 乓 的 丰 册 





SS 《zc)》 
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式 (9.4.6) 说 明 ,. 牛 顿 - 拉 斐 木 是 二 次 收 俩 算法 ( 僚 考 产程 9. 2. 3)。 在 根 附 近 , 每 达 代 “ 节 
有 效 数 字 的 位 数 几 平 翻 税 。 这 种 很 强 的 收 黎 性质 ,使 得 牛顿 - 拉 非 条 方 法 非常 适合 本 0 
数 易 计算 ,并 半 在 根 附近 有 连续 导数 的 冰 数 。 

即使 在 收 北 揭 最 亲 几 步 中 , 牛 频 - 近 砷 森 方 法 就 被 型 定 了 (也 于 其 台 的 整体 收敛 性 版 )， 
人 世 是 人 们 | 却 紧 党 在 根 的 修正 过 程 中 ,还 穿插 -两 步 这 种 方法 ,到 为 立 可 以 使 有 效 数字 的 亿 
数 两 倍 或 思 倍 地 增加 ， 

实现 牛顿 - 拉 非 森 方 法 时 需 由 用 户 旭 供 个子 程 序 , 用 以 计算 函数 及 其 - - 阶 导 仇 在 任 总 

点 处 的 值 Fo 利 | 产 (z)。 牛 顿 - 拉 斐 森 公 式 还 有 “个 应 用 , 即 以 一 个 数值 卷 分 来 这 似 外 值 

的 局 部 导数 ， 


0、 1.6) 


cd) -AD) 
户 () s; 人 





但 是 ,我 们 并 不 提 借 这 种 方法 ,因为 :il 每 步 要 做 两 次 画 数 值 的 计算 ,因此 , 超 线性 收效 的 
阶 最 多 只 能 达到 ”2 .il 如 果 dz 取得 太 小 就 会 因 四 舍 五 入 而 被 略 去 ;而 如 果 取 每 太 上 大， 
收 敏 的 阶 又 只 能 达到 线性 量 级 ,这 样 还 不 姬 在 随后 的 所 有 步骤 中 ,都 采用 最 初 计算 出 来 的 
Pro 因此 ,利用 数值 导数 的 牛顿 . 拉 斐 森 方 法 (在 一 维 情况 通常 要 让 位 于 第 9. 2 节 中 的 弦 
截 法 ,( 在 多 维 情 况 ， 由 于 目前 提供 的 方法 很 少 ,对 待 利用 导数 的 牛顿 一 拉 悲 森 方 法 帘 要 更 加 
慎重 。 详 见 第 9. 6 节 至 第 9. ? 节 ) 。 

下 痪 的 程序 中 调用 -- 个 由 用 户 提供 的 函 数 mncd(x,fin,df) ,其 中 和 为 明 数 值 .dt 为 导 
数值 .这 里 我 们 包含 一 个 邓 根 的 输入 区 间 ,日 的 只 有 为 了 与 前 面 的 程序 相 - 致 .牛顿 方法 人 
是 对 这 个 区 间作 调整 ,而 兵 用 伸 点 工 附 近 的 局 部 信息 ,这 个 输入 区 间 只 有 两 个 用 途 . -是 选 
它 的 中 点 作为 选 代 第 一 步 的 顶 测 佳 ; 二 是 用 十 对 哆 到 区 间 外 的 解 , 全 出 放弃 的 决定 ， 


甘 Include 扫 mathb,h 
区 definae JMAX 20 设 关 最 大 选 代 次 数 


有 oat rtnewttvoid 【<funcdytfleaty， fioat xs， 了 aol # )，Jioar xl fuat x2，fioat xacc) 
已 知 世 于 区 间 (xl1.x27? 内 的 一 个 晒 数 ,用 号 疾 一 拉 斐 琳 方 法 求 它 的 根 。 这 个 根 rtnewt 将 不 断 地 被 由 二 . 直 测 长 精度 
达到 士 xzacc 内 为 正 ,funed 旦 一 个 困 户 提供 的 子 程序 , 求 在 任意 点 x 处 的 函 歼 值 及 其 一 阶 导数 值 ， 


void mrerTortchar error_text[J); 
int jf 
了 ioal [dxyfTert2 


Ttna 一 嘱 了 #H (fx] 一 X2)3 初始 预测 
for 0 一 1 二 一 JMAXI 一 二 ) 
(xfancdJrrtay RedT: 
dx 一 fdfy 
rtn 一 一 dx; 
攻 5(X1--TtD) > (rt 一 X2) 扫 六 人 ) 
hrertrortrJumped onpr of brackets in ftnewto 3 
这 《fabs(dx》< XeC》 TeturE Ti 上 收 笋 
1 
HIerrOrt Maxinutmn utberc ol iteralioqs exXeeedted in Firewi 
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Feturhn 由 站 ; 了 永 不 要 行 到 此 处 


虽然 牛 顿 - 拉 获 和 森 方 法 的 整体 收 筑 性 不 够 好 ,但 是 将 它 与 二 分 法 结合 ,设计 一 个 失效 保 
护 程序 却 相 对 较 容 易 . 这 种 混合 算法 的 基本 思想 是 …- 互 牛 蜗 - 拉 斐 琳 法 在 运行 过 程 中 出 现 
解 跑 出 解 区 癌 或 者 解 区 癌 长 度 的 减 小 速度 不 够 快 的 情况 ,就 即刻 采取 步 二 .分 法 ， 


世 incjude <tnath.b > 
式 define MAXIT 103 允 冶 最 太 波 让 侈 数 


foat rtsa 此 (void 【< funcdyglloat，float < ， 寺 ost * )》，faor x1， iloat 2， float xnccy 
用 牛 颗 一 控 缆 森 和 二 从 法 相 结 合 的 方法 。 求 一 个 太 答 的 起 ,这 个 根 位 于 解 区 间 zl,x23) 具 ,在 其 精 庶 法 苦 xree 江 


前 ,这 个 根 将 不 断 地 被 粮 正 ,并 最 效 以 ftsafe 返 同 ,funcd 是 一 个 由 用户 提要 的 程序 , 扰 臣 耳 数 仁 玉 函数 全 阶 导数 
值 ， 


yoid nrerrOr(char 妇 zrror_taxt[])i; 
int j) 

了 1oat df,dxdxrold,f,fh,fli 
Loat temp ,zh xliztsi 


(waunce) (1, 生 ?1 ,二 df) ， 

(wuncdj fx2, 志 fh , 生 df) 7 

if (fl >0.0 诊 fh>00 1 (<00 让 扣 <0.0)) 
hrerTor( "Root must ba bracketed in CSafG") 

证 〈f1 < 0.9)》 retuxrn zti 

诗 【fh sm 0.0) return x2; 

if (fl < 0.0)【 确定 搜索 方向 以 使 (xz) < 0. 
X1xX1: 
xbhax2i 

} elee 工 
XhmEtL; 
买 工 叶 交 之 


小 
ftBeDO.5#(XL+TX2) i 霹 抬 化 根 的 知 储 、 抽 数 第 二 以 
dzoldzfaba (x2-X13; 的 步 长 以 及 最 后 “ 步 的 步 长 
Gxz=dzoldi 
fwFfuact) Crta ,上 taf] 1 
for 《j=1;j<eNAKIT;j+t+) 在 允许 选 代 次 狼 内 福 环 
让 《fkKKrte-xh)*df-z)wCfrts-ITl)wdf-f) >= 0.0) 考 牛 司法 超出 解 代 冯 志 收 敏 速 
11 ftfabar2.0sf) > fabs(dxoldedf))) { 度 不 够 快 ， 则 采用 二 分 法 
droldmdx; 
BYn0O .5#(xh-xl) 7 
工 臣 3sXL+dx : 
if 《xl =w rta) raturn rts; 祖 的 变化 很 小 可 各 辐 
} else ! 可 以 采用 牛顿 法 ， 芭 生 帼 步 长 ! 
dxroldsdz; 
dmEt7afi 
te 由 PeTT8 
ZXtg -= dxX; 
让 《temp == TtS) TeturD rt5i 


it (iabsgfkdzx)》 < Xacc) rettrn rtsi 收藏 划 则 

《过 YUnC 久 )《T 蕊 名 ,要 二 , 生 dI ) 

每 选 代 一 次 都 要 王 新 计算 函 数 及 其 导 辣 伪 :raticn. 

i8 (< DO.0) 后 根 保 持 在 解 区 内 
xi=TtB; 

重 13 折 
XerTBi 
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kerLOrY "MEXimtin Xuaber Df iteratiocn6 bxCceeded in rtSsafe'); 
retura 0.0; 永远 个 执行 到 此 
了 


对 很 多 遇 数 来 说 ,导数 广 (z) 常 常 先 于 因数 闵 z 收 伍 到 机 器 精度 ,在 这 种 情况 下 不 需 
要 连续 更 新 (zxz)。 我 们 建议 起 者 在 对 函数 的 一 个 般 性 质 了 如 指 掌 后 ,再 采用 这 个 小 " 技 
巧 ”: 但 如 时 导数 计算 很 繁琐 ,这 种 方法 倒是 可 以 加 快 计算 速度 . (形式 上 ,这 只 能 使 收敛 达 审 
线性 基 级 ,但 是 苦 导数 无 论 如 何 都 不 变化 的 话 . 收 兽性 也 仅 站 此 .:) 


%.4.1 牛顿 - 拉 斐 森 和 分 形 


在 我 们 反复 提 训 读者 ,在 牛 频 - 拉 斐 森 方法 的 全 局 收 生 性 无 法 预知 的 同时 (尽管 其 局 部 
收 伍 非常 到 速 )* 探 讨 一 下 其 些 特 歼 方 程 迁 代 的 初 值 集合 也 别 有 一 亚 情趣 ,从 这 个 初 俩 集合 
出 发 ,算法 既 可 能 收 全 到 方程 的 根 , 也 有 可 能 收敛 不 到 方程 的 恨 
区 虑 如 小 这 个 简单 的 疗程 ， 
和 《5. 4. 8) 
它 的 实数 根 只 有 - -个 即 z=1; 其 另外 遇 个 复数 根基 单位 立方 根 ,分 别 为 exp( 芋 2733- 由 丫 
顿 法 导出 的 达 代 公 趟 为 
2 一 ] 
请 可 可 
迄今 为 止 , 我 们 名 仅 是 将 式 (9.4. 9) 这 样 的 适 失 方程 作 围 于 实 的 初始 值 ,但 实际 上 这 
一 节 中 所 有 方程 都 可 应 用 于 复 平 面 .这 样 ,我 们 就 可 以 将 复 平 面 划 分 为 -- 些 区 域 ,从 这 些 区 
域 册 发 ,对 某 个 初 值 x* 几 式 (9. 4 9) 进行 欠 代 ,其 续 果 或 不 收 伍 ,或 政 笋 到 > 一 1 .我们 可 能 会 
很 外 然 地 希 刻 找到 - ' 个 “收敛 域 ", 该 "收敛 域 " 以 其 种 方式 包围 >=1 这 个 根 ; 当 然 “收敛 域 ” 
不 可 能 雯 满 整 个 亚 面 , 因 因 平 曾 庆 还 必须 包含 收敛 到 两 个 复 根 的 区 域 .实际 上 下 据 对 陈 性 ， 
这 三 个 区 域 空 沪 具 有 相同 的 形状 .( 可 能 是 三 个 对 称 的 120? 枫 形 ,第 个 柑 形 的 中 心 有 一 个 
根 ?) 
图 9.4.4 展 示 的 是 -- 次 经 数值 外 推 的 结果 。 收 笋 域 " 的 确 团 盖 整 个 复 平面 的 173 区 域 , 但 
它 的 边界 可 以 说 是 极其 不 规则 的 ,更 确 地 进 是 吧 分 形 (fracral)( 所 谓 分 形 就 是 它 具 有 自身 相 
似 的 结 怕 ,而 且 这 种 结构 又 以 各 称 大 小 比例 连续 排列 成 形 )。 如 此 高 度 复杂 的 分 形 是 如 何 从 
牛顿 方法 以 及 式 (9.4.8) 这 样 简 年 的 方程 中 演变 而 来 的 呢 ? 其 实 和 问题 的 答案 早已 隐 念 亩 图 9. 
4 34 了 ,因为 该 图 展示 了 某 个 局 部 极 小 点 是 如 何 导 致 牛顿 法 欧 向 士 无穷 远 处 的 , 设 要 我 们 
从 这 个 极 小 点 处 稍微 挪 开 一 绩 极 小 的 距离 ,那么 等 待 我 们 的 将 不 会 再 是 无 穷 远 处 的 外 部 空 
间 。 如 果 幸 运 的 请, 我 们 也 许 能 够 从 好 进入 包含 所 求 根 的 “收敛 域 ", 但 这 意 奈 着 在 这 个 航 什 
的 邻 域 内 ,必须 存在 -- 个 "收敛 域 " 的 微型 “复制 品 ", 这 个 “复制 品 ?可 能 产生 了 部 分 变形 ,只 
有 某 种 "一 级 友 射 "的 性 质 . 问 理 可 以 推断 ,后 面 的 迁 代 过 程 还 会 产生 “二 级 反射 > “二 级 反 
射 ”… 等 等 诸如 此 类 的 近 伺 “ 收 笋 域 "的 微型 复制 品 . 这 就 是 为 什么 会 出 现 分 形 的 原因 . 
”注意 到 对 方程 (9 4.8) 来 说 ,几乎 整个 实 轴 都 处 在 根 == 1 的 收 敏 域内 。 我 们 之 所 以 对 
“整个 六 和 铀 ?天 以 "几乎 "一 字 , 是 因为 位 于 实 负 半 轴 土 的 -- 些 特殊 离散 点 ,它们 的 收 伍 性 是 不 
前 定 的 ( 见 图 9 4. 4) 如果 从 它 人 当中 的 某 点 开始 执行 牛 恩 方 法 ,结果 会 如 何 呢 ? 读 者 不 妨 试 
试看 。 
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(9. 4. 9> 
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图 中 显 未 的 是 实 轴 和 卉 轴 均 在 (一 2,2) 范 围 内 的 复 内 面 >, 其 中 黑色 区 域 为 某 些 具有 特殊 忻 质 的 点 的 
集合 ,从 这 些 点 出 发 , 牛 征 法 将 收 和 伍 到 方程 衬 一 1 一 ! 的 根 > 上. 殿 色 区 域 的 形状 就 是 所 谓 的 分 形 、 


图 4. 4. 半 


9%.5 多 项 式 的 根 


本 节 中 我 们 将 介绍 几 种 多 项 式 求 根 的 方法 .这 些 方法 适用 于 求解 绝 大 多 数 实 际 乒 题 , 包 
括 阶 数 不 太 高 的 多 项 式 以 及 性 能 良好 的 较 高 阶 多 项 式 的 求 根 问 题 等 .但 不 容 乐 观 的 是 , 仍 有 
一 些 多 项 式 的 性 质 极 差 ,而 及 在 最 坏 情 况 下 ,甚至 多 项 式 系数 的 最 小 扰动 都 可 能 导致 多 项 式 
的 各 个 杠 零 乱 地 散布 到 整个 复 平 面 上 。 威 尔 金森 (Wilkinson? 构 造 了 一 个 这 翌 的 例子 , 详 阅 
阿 克 顿 (Acton? 的 书 !0。) 

我 们 知道 ,= 阶 多 项 式 有 对 个 根 ,这 些 根 可 以 是 实 的 也 可 以 是 复 的 ,而 且 它 们 当中 可 能 
有 重 杠 。 如 苹 多 项 式 系数 是 实数 , 则 它 的 复数 根 以 共 力 对 的 形式 出 现 ,也 就 是 说 , 若 与 一 a 十 
开 是 该 和 多项式: -个 根 , 则 xz: 一 aa 一 此 必然 也 是 其 根 。 对 系数 是 复数 的 多 项 式 ,其 复 根 之 间 就 
不 一 定 有 关联 了 

允 重 根 或 根 相 近 的 情况 给 数值 算法 带 来 极 天 的 不 便 5 见 图 9. 5. 1) .例如 ,2477 一 (7 一 
a): 在 二 一 a 处 有 -- 个 二 重 实 息 ,但 我 们 既 不 能 用 通常 的 方法 确定 解 区 间 , 即 判断 明 数 在 哪些 
邻 域内 改变 符号 ,也 不 能 用 象 牛顿 一 拉 斐 森 那 样 的 斜率 跟踪 法 ,因为 在 重 根 处 函数 及 其 导数 
都 将 变 为 零 .由 于 可 能 会 出 现 大 的 售 人 误差 ,牛顿 - 拉 斐 森 方 法 即使 是 可 行 的 ,其 速度 也 相当 
慢 . 如 果 预 先 能 知道 某 个 根 是 重 根 , 则 可 以 毫 不 费力 地 设计 出 特殊 的 处 理 方法 .但 在 通常 情 
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况 下 ,我 们 并 厅 能 项 先 判断 玉 很 将 会 出 现 什么 样 的 病态 情况 ,这 样 便 产生 了 各 种 各 样 的 间 
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(a) 线性 .二 次 及 三 次 多 项 式 在 其 根 外 的 情况 ,(b) 只 有 将 (a; 高 倍率 放大 才 可 以 济 末 地 看 到 ,二 
次 多 项 式 只 有 “个 很 而 不 是 三 个 根 ; 而 -次 多 项 式 有 两 个 恨 , 而 不 是 没有 弃 ， 


图 9.5.1 多 项 式 的 项 


9.5.1 多 项 式 的 踪 阶 


在 求 多 项 冻 的 某 几 个 根 或 所 有 恨 时 ,使 用 降 阶 方法 可 大 大 减少 计算 量 。 每 求 得 一 个 多 王 
式 的 根 *，* 我 们 便 可 以 将 该 多 项 式 因 式 分 解 为 一 个 含 根 7 的 项 乘 共 一 个 比 厌 多 项 式 低 - - 阶 的 
多 项 式 , 邯 PCz) 一 (z 一 站 QGz)。 由 于 Qtz) 的 根 是 已 6z) 根 的 子 集 , 因 此 求 根 的 计算 贡 减 小 
了 ;在 相继 求 出 E(z) 各 根 的 同时 ,多 项 式 的 阶 数 也 越 来 越 低 。 更 重要 的 是 ,用 降 阶 方法 可 民 
避免 一 个 严重 错误 。 即 可 避免 迭代 算法 两 次 收 伍 到 同 ，' 个 根 ,而 这 个 根 并 不 是 重 根 ,因为 这 
种 情况 下 正确 的 结果 应 是 分 别 收 和 剑 到 商 个 不 同 的 恨 。 
相当 于 综合 除法 的 降 阶 方法 可 以 看 成 是 对 多 项 式 系 数 阵 列 的 入 单 操作 。 在 前 面 的 第 5. 3 
节 中 曾 给 出 了 通过 单项 式 因 子 进行 综 仓 除法 的 涯 程序 代码 。 对 复数 根 的 降价 ,可 以 把 该 程 亭 
改写 为 适合 于 复数 的 类 型 ;对 实 系数 多 项 式 但 可 能 有 复 根 的 情况 ,也 可 以 通过 - -个 二 次 因子 
来 降 阶 , 即 : . 
[zz 一 (ee 一 动 )] 玫 zz 一 (一 动 )] 一 旭 -2ar 十 (el 十 玉 ) (9.5.1) 
第 5. 3 节 的 称 序 poldtv 可 用 于 卿 项 式 除 久 上 述 因子 。 
但 是 ,对 降 阶 方法 必须 遵 愤 使 用 。 因 为 新 求 出 的 每 个 根 都 只 有 有 限 的 精确 度 , 在 确定 逐 
次 降 阶 的 多 项 式 的 系数 时 就 不 知 不 觉 地 产生 了 了 景 计 的 误差 ,结果 会 造成 求 出 的 根 越 来 越 不 
精确 .无 论 这 种 不 精确 度 是 稳定 地 增长 ( 邯 每 步 增 加 或 减少 机器 精度 的 若干 悦 ), 还 是 不 稳定 
地 增长 ( 即 有 效 数 字 不 断 减 少 , 直 到 结果 变 得 毫 无 意义 ) 都 是 关系 重大 的 。 究 竟 哪 一 种 情况 发 
生 仅 仅 取决 于 根 是 怎样 被 约 去 的 .向 前 降 阶 在 第 5. 3 节 中 己 经 介绍 过 ,这 种 方式 中 新 多 项 式 
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系数 的 计算 ,是 从 xz 的 最 高 桂 项 开始 顺序 下 去 直到 常数 项 .可 以 证 明 , 如 果 在 每 - 步 中 总 是 
缆 对 便 航 小 的 根 被 约 去 , 则 这 种 方法 是 稳定 的 ,与 之 相反 的 向 后 降 阶 在 计算 新 多 项 式 的 系数 
时 ,是 从 常数 哆 上 升 香 z 的 最 高 次 震 项 .如果 每 步 中 心 是 绝对 值 最 大 的 根 被 约 挟 , 则 向 后 降 
阶 的 方法 也 是 稳定 的 。 

如 昌 把 . -个 多 项 式 的 系数 * 尾 尾 "交换 ( 即 把 常数 项 变 成 最 高 宕 项 系数 ,等 等 ), 则 泳 多 
项 式 的 根 将 被 映射 为 其 倒数 .( 让 明 : 将 整个 多 鞠 式 被 其 最 高 阶 z 除 ,然后 以 17r 为 变 最 将 
结果 重 写 为 一 个 新 的 多 项 式 的 形式 ) ,因此 ,向 后 降 阶 算法 与 向 前 降 阶 法 实际 上 是 等 同 的 ,只 
是 原 多 项 式 的 系数 本 身 就 是 逆序 的 ,并 且 使 用 了 降 阶 根 的 倒数 :因为 下 面 我 们 将 要 使 用 向 前 
降 阶 ,所 以 向 后 降 阶 的 算法 将 留 给 读者 作为 练习 (和 第 5. 3 节 中 样 ) ,有关 降 阶 方法 稳定 性 
的 进一步 探讨 ,请 参考 [2] 

使 用 降 阶 方法 时 ,为 了 使 黑 积 误差 (包括 稳定 的 误差 ) 的 影响 达到 最 小 ,不 芒 把 逐次 降 阶 
后 的 多 项 式 的 根 看 作 是 原 多 项 式 的 试验 根 ,然后 以 这 些 试验 根 作为 初始 预测 值 并 进行 修正 ， 
其 中 这 些 初始 信和 将 利用 没有 降 阶 的 诛 多 天 式 户 重新 求解 .这 里 同样 需要 特别 小 心 , 以 免 用 
降 阶 法 求 出 的 两 个 根 内 精度 过 低 而 导致 被 修正 后 邦 收 效 到 同 -- 个 恨 ( 这 个 根 可 不 通过 降 阶 
求 得 }。 这 时 会 出 现 伪 重 根 和 丢 根 的 情况 ,但 所 幸 的 是 ,我 们 可 以 对 这 种 情况 进行 监测 , 即 对 
每 一 个 修 正 过 的 根 与 前 面 的 不 同 试探 根 作 相等 比较 .一 妞 上 述 情况 发 生 , 不 妨 对 该 多 项 式 只 
作 一 次 降 阶 (而 且 只 对 这 个 根 ) ,然后 再 修正 这 个 试探 根 ; 我 们 也 可 以 通过 马 替 里 (Machly) 
方法 ( 见 下 面 的 方程 (9. 2. 29)) 来 解 次 。 

下 面 ,我 们 将 进一步 讨论 有 关 修 正 实 根 和 共 轰 复 根 的 技巧 .首先 ,我 们 来 看 刹 一 般 策略 。 

实 系数 多 项 式 的 求 恨 方法 可 分 为 两 大 类 。 -类 是 ,设法 获得 最 容易 获得 的 目标 , 即 相 民 
的 实 根 ,在 求 很 过 程 中 采用 与 一 般 函 数 求 根 法 基本 相同 的 方法 (前 节 已 讨论 过 ) ,也 就 是 先 用 
试 位 方式 确定 解 区 间 , 然 后 ,再 利用 比较 保险 的 牛 坑 一 拉 斐 森 方 法 (如 程序 rtsafe), 有 些 情 
况 下 ,我 们 可 能 只 对 多 项 式 的 实数 根 感 兴趣 ,这 时 第 一 类 方法 就 足 滩 应 付 自 如 了 .。 实 系数 多 
项 式 求 根 方法 的 第 二 类 方法 是 ;利用 形 如 式 (3. 5. 1) 的 一 次 因子 .贝尔 斯 托 (Bairstow ;方法 
就 属于 这 类, 我们 将 在 下 文 有 关 根 的 修正 一 节 中 进行 讨论 ;另外 还 有 一 种 由 米 勒 (Muller》 
提出 的 方法 ,这 里 简要 介绍 如 下 ， 


9.5.2 米 勤 的 方法 


米 勒 (Muiler) 的 方法 是 弦 截 法 的 推广 ,但 它 采 用 的 是 三 点 之 疗 的 二 次 内 揪 , 吊 不 是 贾 点 
闻 的 线性 内 擂 . 此 外 二 次 式 求 根 允许 用 此 算法 求解 复 根 对 。 若 给 定 根 的 三 个 知 计 值 mr-:， 
xi- 习 及 多 项 式 PCz) 在 这 些 点 处 的 值 , 则 根 的 下 一 估计 值 =x*: 可 吊 下 列 公 式 计算 得 到 ， 


> Ti 1 
和 AL 
4 一 9PCz 一 40 十 OPCz 十 名 PCz-i (9. 5. 2) 


呈 王 (29g 十 1)Pkz) 一 【1 1 9)2P(z，:) 十 全 忆 (z-) 
二 (十 gd)PCc) 
则 有 
2C ” 
巨 土 v 京 一 46| 0 
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人 一 [ 


上 式 中 分 母 内 正 负 导 的 选取 原则 是 使 分 母 的 站 对 值 或 模 尽 可 能 地 大 , 达 代 啊 初 始 值 可 心 随 
剖 选 取 三 个 数 ,例如 取 实 轴 上 等 间隔 的 二 个 点 :利得 注 高 的 是 , 米 勒 方法 在 实现 过 程 中 , 必 先 
允许 复数 分 母 的 出 现 以 及 随 之 带 来 的 复数 运算 - 

有 时 候 米 勒 方法 也 被 用 于 在 复 平 面 上 求解 解析 著 数 (不 仪 限于 多 项 式 ) 的 复生 ,如 在 
IMSI. 程序 ZANLY 中 - 


9.S.3 拉 盖 尔 \Laguerre) 方 法 


本 书 所 采用 的 方法 属于 实 系数 多 项 式 求 祖 方法 的 第 一 类 .这 类 算法 的 数目 极 少 ,而 忠 收 
敛 速度 有 快 右 慢 ,但 每 种 算法 都 可 以 收 化 到 各 种 类 型 的 根 : 实 根 , 复 杠 , 单 根 以 及 重 根 .我 们 
可 以 先 用 这 类 算法 求 得 上 险 多 项 式 所 有 个 很 的 试验 伍 , 然 后 再 回 过 头 来 - ”修正 这 些 值 。 

在 这 些 一 般 的 复数 算法 中 , 拉 盖 尔 方法 是 馆 今 为 止 最 直 搂 的 方法 .尽管 它 甚至 在 收敛 于 
实 根 的 情况 下 也 需要 进行 复数 运算 ,但 对 于 所 有 根 都 是 实数 的 多 项 冻 来 讲 , 从 任意 初始 点 开 
始 它 都 能 确保 收敛 到 某 个 根 .然而 ,对 填 且 有 复 根 的 多 项 式 , 有 关 拉 盖 尔 方法 的 收 敏 性 证 凤 
在 理论 上 几乎 还 是 零 . 但 不 少 经 验 表 明 , 不 收 敏 的 情况 出 现 的 次 数 极 小 ,而 册 儿 平 总 是 吕 以 
通过 冲破 某 个 有 限 的 非 收 敏 图 来 解决 。( 这 种 解决 方法 在 下 面 的 程序 中 有 具体 的 实 凯 此 阁 ,) 
例如 ,对 于 一 个 高 阶 ( 芝 20? 和 多项式 的 示例 , 它 的 全 部 恨 怡 好 位 于 复数 单位 圆 之 外 ,并 及 味 木 
上 旦 等 距离 分 布 ; 当 算法 收敛 到 零 这 个 简单 的 复 根 时 ,可 知 其 收敛 阶 为 三 次 项 。 

在 某 些 情况 下 , 几 于 多 项 式 本 身 可 能 具有 复数 系数 ,因此 拉 盖 尔 方 法 对 复数 运算 并 去 会 
带 来 什么 不 便 。 

为 推导 拉 盖 尔 (Laguerre? 公 式 ( 虽 然 不 是 严格 的 推导 ) ,我 们 记 多 项 式 与 其 根 及 导数 多 

关系 如 下 所 示 ， 








PatT) 一 (2 一 (rr - Te) (一 2n) 《8. 0, 外》 
JP (z)| 一 卫 | 实 一 辐 | 二 lai 一 2 二 二 Inlz 一 二 | 【9.5. 3， 
neCi 一 十 一 示 2 aa 本 一 工人 《9. .1 
妇 和 开 一 2 并 一 工 一 2 了 卫 ， _ 
anlPaka)| 1 1 1 
ee 他 一 加 十 (z 一 了 0 《入 一 了 
ER 儿 


由 这 些 关系 式 开始 , 拉 盖 尔 构 着 了 “一 个 非常 有 为 的 假设 集 ” 阿 完 顿 (Acton) 称 之 , 见 [12)， 
假设 所 求 的 根 与 当前 估计 值 > 的 赋 离 为 <, 而 其 他 根 与 z 的 距离 为 6, 即 
3 《5. 5. 8> 


列 式 (9.5.67 及 (9.5.7) 可 分 别 开 示 为 


从 而 解 得 4 的 表达 式 为 


刀 = :， 
PE 相生- 二 = (3 


二 YE 一] 一) 
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这 里 正 负 届 的 迷 取 要 使 分 址 的 数值 达 公 最 大 。 由 二 上 式 中 平方 根 一 :项 有 可 能 是 多 的 .由 此。 
可 以 为 复数 [有关 起 (9.5. 11) 的 严格 推导 ,参见 -4])。 

拉 盖 尔 方法 是 以 选 代 方 式 进行 的 . 即 : 对 其 个 迅 验 值 >;, 用 式 (9.5. 1 计算 3, 愉 7 作 
为 下 .一 个 涝 验 俏 ,重复 以 上 步骤 占 刘 u 足够 小 为 上 

下 证 是 拉 盖 尔 方法 的 程序 实现 ,该 生 泽 昨 来 求解 某 个 给 定 的 mn 阶 复 系 数 多 项 式 的 : -个 
很 ,这 里 积 前 商 一 样 ,第 一 个 af 中 将 用 上 存储 常数 项 ,而 azm] 则 存放 x 的 最 高 阶 项 系数 。 拉 
闵 尔 人 外 法 采用 简化 的 亚当 斯 人 Adatns ,5 了 毒 小 准则 ,该 准则 在 以 下 两 方面 作 了 了 瑟 妙 的 权衡 ， 
即 一 方面 要 保证 足够 的 机 器 精度 , 另 - 方面 又 要 考虑 由 全 入 误差 引起 的 无 穷 法 代 的 和 危险 狂 、 


共 include < 拓 Imnath.h>> 
耳 inclnde "comhplex ny” 
苹 include ”hrutil. h” 
"ne PSS iDOe- 了 
define MR 8 
区 define MT 0 
+define MAXTT (MT * MR) 
EPSS 为 宵 先 给 冠 的 伟人 误 状 ,在 MT 叱 的 每 一 步 中 我 们 以 MR 个 不 辣 的 分 数 信 冲 牙 限制 圈 , 这 于 录 这 造 民 最 多 
灾 数 为 MIAXIT。 


void Laguefffcomplex a[Lj，int mm，fcomplex xx inf xitsy》 
冶 定 客 项 碟 >)Poe[ 站 的 阶 数 四 及 其 各 十 1 个 复 系数 af0. .四 | 呈 各 给 定 一 个 复数 ,本 程序 将 用 拉 益 处 疼 法 焉 


电 修 正 这 个 x, 直 到 人 它 在 各 以 达到 区 合 信 棋 眼 范围 内 , 收 僵 到 多 项 式 的 其 个 剑 为 目 。 扬 经 法 世 的 次 烙 将 忌 its 过 加 。 


int ier,j， 

和 oar abxyabpvabmcrri 

feemplex dx xl,bvdf.gshbysq .gbygnlyg25 

static 和 oat fracLMR 一 1 一 :0.005.250.7550. 13, 0.38.0.56240.88,1,0: 


four (iter 一 jiiter<< 一 MAXITiiter 十) 分 残 frac 用 才 冲 破 某 个 限制 图 
+ if 一 iteri 在 允许 的 适 上 党 次 数 范 国内 做 猎 环 站 代 
b 一 alm]; 


err 一 Cahsfhb]y; 
日 = 于 一 CornpleXxkO- 人 DO 
abx 一 Cahsf xx) 
for 名 一 中 -15 六 一 0 一) 多 项 式 及 此 晰 个 “ 阶 导 数 的 岂 速 计算 
f 一 CadacCmualC xs xf ,dr 
qd 一 CaddCCimnulg * xitd)sb)3 
b 一 CadufCrmiul( > xb2ya[i 门 ); 
er 一 Cabhs:bl1 十 abxsxeRrTF 


上 


ert # 一 上 PSSi 计算 过 项 式 伍 时 估计 合 入 误差 
叶 SCabs(b) < 拉 一 rr) tctnrmni 已 找到 根 : 返 回 

8 一 Caqivtd,b)i - 般 ' 靖 形 : 利 用 拉 闭 尔 公 式 

呈 2- 一 Cmwigs 名 DJ 


一 Csanb(E2RCntaef2 DCcaivtdlyb)73 
sq 一 (CSQmIRCmulftfleaty (m 一 1) .CsubCRCmolt Coaty mvh] g23))5 
8P 一 Csddtgysq)i 
RU 一 (subfg:sq)i 
abpb 一 Cabs(gp)i 
abm 一 Cabs(Cgim): 
于 《abp << xbmy》RP 一 gm 
y 一 ((FMAX (abbiabm)》 > 和 DCdirfCompiexftioaty my 0) rgp》 
: 及 Cinulkexp(]og 人 Tabx))yCotmplex(cosfCChoar)iter)ysinf[Iloatitery》))) 1 
1 一 人 subt > xyQx)i 


3 


计 ( 广 一 人 > 上 一 一 X1 必 入 X 一 人 ji 一 一 xi return， 志 收 伐 
iiter 狼 MD) + 一 X3 


elsc 二 XsCsuhftyxyROmtlCfrac[literZMT jdx)); 而 汞 采取 一 次 环 了 歌 限制 国 的 步 漳 
1 《这 称 靖 况 级 少 发 生 ， 
Derrort”too many iterations 识 LagUer” 3 极 不 削 见 一 一 :只有 有 复 根 才 可 能 览 生生 本 册 


FeTuImY 灾 … 下 初 估 


下 面 的 驱动 程序 通过 连续 调用 函数 laguer 求解 多 项 式 的 每 一 个 根 。 该 程序 首 光 对 洛 项 
式 进 行 降 阶 ,然后 以 同 祥 的 拉 盖 尔 方 荡 ( 如 果 不 打 算 用 其 他 方法 的 话 ) 随 意 地 对 根 作 修 .F ,最 
后 将 它们 按 其 实 部 排序 (在 第 13 章 中 我 们 将 利用 这 个 驱动 程序 ) 。 


打 incladqe < 所 math.h 一 
雪 include "complex.hw 
太 dcfinc EPS 2.0c 一 和 
天 define NM 页 XM 1DD 了 的 最 大 人 允 访 倡 ,为 一 个 较 小 数 


void zroots (fcormplex a ],int tm ,fcomplex toots[],int bolish) 
缩 定 多 硕 式 >, 0a zx 的 险 数 中 及 忆 十 ! 个 复 系 落 a0. .ms 水 给 序 通过 连续 调用 laguer 以 或 居多 于 式 久 下 吉 
巴 个 复 根 ,并 将 它们 存 侍 在 数组 roots| 1, .天 ] 中 ,如 有 果 柜 需 览 隆 止 , 份 天 拉 盖 外 方法 ,由 辑 变量 polis: 的 条 和 全 
应 为 true(134 旭 果 国 其 他 六 法 , 则 pnlish 的 输入 值 应 为 faisrcD 。 


void laguar(icompler 和 [] ，fint 必 ，TfComP18X *X+， int 辣 itYS)》 
yotc 于 dt] 
了 compleX 工 ,D,c,ad[MAYN] : 


for 《j=9;j<=m;j++) ad[i=a[j]; 对 系数 进行 复制 、 站 
for 〈j=mij>=1;j--) 荆 对 每 -个 徽 求 的 根 
x=Complezrt.0,0.0); 从 办 扣 开始 以 利 委 效 到 天 作 最 小 的 个 根 ， 
Taguer [ad ,j ,各 zx, 上 itSs)》; 并 找 这 个 根 
if 【fabsfx.i) <= 2.0eEPSefabsftz-r)》 Xi=n-O: 
roots[j]=x; 
bcad[j]; 向 前 降价 
for (jj=]j-17jj>=0;3--》 荆 
C=ad[jj]; 
ad[jj]sb; 
beeadatkCmaTfx,by,c) 
} 


if (poLishy) 
for 《j=1ij<=mij++y 用 原来 林 降 价 的 系数 和 椒 正 各 根 
IaguDer[a，, 忠 ,roots[j] ,kics); 
for 〔j=2;j<=<m;j++) T 通过 直接 择 入 法 对 巾 的 实 部 排序 
x=Toot3[j]; 
for (icj-1ii>=<lii--) 1 
if {froots[i]j.r <= IT) breaki 
roots[i+1j=roota[i] 


roots[i*1]=xri; 


》 


9. 5.4 本 征 值 方法 


一 个 答 阵 A 的 本 征 值 是 “特征 多 项 式 *P(z)=det[ 生 一 zx 的 根 , 供 世 如 我 们 在 第 11 章 中 

将 要 看 到 的 ,通过 求 根 方法 求 本 征 值 ，- 般 来 进 并 不 是 一 种 有 效 的 手段 . 换 一 个 角 庶 来 考 叫 ， 

我 们 可 用 本 征 值 方法 (第 十 一 章 中 讨论 的 方法 ) 对 任意 多 项 式 的 根 进行 修正 。 极 易 证 明 ( 和 参见 
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15]) ,特殊 普 xm 阶 伴随 矩阵 





[1 
Cn mr Qu an| 
1 0 0 0 全 
盘 一 0 1 二 人 | 《9. 5. 12) 
| 0 性 1 0 
的 特征 儿 项 式 与 一 般 形 式 的 多 项 式 
P(z) 一 ) or 59.3. 13) 


完全 等 价 . 如 果 系 数 e, 是 实数 而 不 是 复数 , 则 人 的 本 征 值 可 以 适 过 第 11. 5 一 1 5 节 中 的 子 
程序 halanc 和 hqr 求 得 ( 详 见 第 十 一 章 ). 尽 管 本 征 值 法 的 程序 实现 Kzrhqr 所 下 ?通常 比 
zroats( 见 上 ) 慢 9 倍 ,但 对 某 些 类 型 的 多 项 式 来 说 ,本 征 值 法 更 能 解决 问题 ,这 主要 是 内 为 
haqr 中 的 收 伍 算 法 太 繁 开 . 在 多 项 式 系数 为 实数 的 情况 下 ,如果 漠 zroats 求 根 不 太 顺 利 ,我 
们 建议 读者 不 妨 试 试 下 面 的 zrhqr。 


插 include "nturil. hy 
六 dcfiinpe MAXTT 50 


void zrhqrffiloat a[]， int tn， float rtrL  ]， float rti[]) 
在 给 定 实 系数 多 质 > ,oafoD 基 的 阶 mm 及 系 教 a[.m] 的 条 件 下 ,求解 它 的 腺 有 根 。 采 用 的 方法 是 先 构 送 -个 较 


高 阶 的 海 森 伯 恪 (Hessenbezrg) 撼 阵 ( 其 本 征 值 即 为 所 求 根 ) 乓 后 再 利用 子 程 序 halane 到 hgr. 眼 的 实 部 和 座 部 将 分 
别 以 cr[C1, 各] 和 ti, .本 ) 返 下 。 


void balancKfIoat ea，1LnEt 卫 ) 1; 

void hqrffloat w*a，iat n0，float sr[]，float wiOy)， 
inf jx 

于 108at 中 hhess,XT，ITI11; 


hesSe=matIi(1， 列 和 XM，1 ,HAXM? 
if (ma > MAXH || afm] ==< 9-0) nrerror("bad &rgs in zrhqrn)》; 
for 《ke1ik<mm;E++) 构造 此 阵 

heasf1] [x] = -arIa-xjyato] ; 

for 《jz=21j<=aij+r+) heas[j] [fx]=0.0; 

if (k 4 王 ) bass[k+1] [k]=1.0; 


】 
balanc(hess , 虽 ) ; 求 桔 征 值 
hqrChess ,四 ,rtr,kti)i 
for (j=2;jcem:j+f+) 了 用 下 接 搬入 法 对 根 护 其 内 部 进行 排序 
XI*rtIT[j] 
xi=rtirj]; 


for (X<j-1ik>=1;x~-) T 
if (rtc[fkxJ <=s xr) broak; 
rtr[x+1l]s<rtr[x]i 
rti [x+t]zrtirk] 

二 

ztzr [x+t]=xri 

Iti [k+j]=xii 


free_matriXrhess ,1，MAX 凡 、1 ,MAX 时 ) 


9 5.5 其 他 几 种 比较 可 靠 的 求 根 方法 


在 几 项 式 求 根 的 黑箱 方法 中 (如 IMSL 库 "? 中 的 求 根 算法 , 危 金 斯 - 特 轩 布 (jJenkins- 
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Teaub) 算 法 已 成 为 -种 实用 标准 :但 出 于 这 种 方法 过 了 复杂 ,这 里 不 颌 讨论 。 读 者 参 向 文献 
[5 

菜 黑 - 舒 尔 (Lehmer-Schur) 算 法 属于 “类 求 根 方法 ,这 类 方法 将 “- 维 的 划 界 概念 加 以 推 
广 : 旭 把 根 匠 . 沁 在 复 平 面 内 ,也 就 是 在 一 个 圆心 和 半径 都 给 定 的 圆 内 ,有 效 地 确定 是 理 含 有 
多 项 式 的 根 ,然后 ,再 对 于 何 处 放置 试验 圆 作出 一 系列 判断 ,以 便 分 门 别 类 地 求 出 多 菠 式 的 
全 部 根 。 请 读 虱 参考 文献 L1 ] 中 的 论述 。 


9. 5.6 ”有 关 根 修正 的 一 些 技巧 


一 芋 交 定 出 根 拨 在 的 区 间 范 围 ,那么 用 拷 额 - 控 翡 森 方 法 求实 数 根 是 很 行 之 有 效 的 . 妇 
第 5. 3 节 所 述 ,多 项 式 及 其 导数 信 可 以 很 快 地 同时 计算 出 来 .对 一 个 阶 数 为 n, 系数 为 
c[ol. .efo] 的 多 项 式 ,下 面 这 段 小 程序 是 牛顿 - 拉 非 森 方 法 的 -个 循环 。 

b 一 co-*x 十 e[ 

pb 一 CLF 

ior 人 一 n， 3211D> 一 0: 一 1 1， 
DP1 三 Pb 十 D] #X 


pb 一 rc 让 十 pk xy 
让 人 三 一 下 0O) ntetrort"derivatjve shoutd not vanish” ); 
x 一 Pypli 

修正 了 - 个 多 项 式 的 所 有 实 根 之 片 .就 须 对 所 有 复 根 进 行 收 下 ,这 时 既 可 以 用 要 接 方 
法 ,也 可 通过 二 次 因 了 ， 


若 将 于 面 那 段 小 程序 改写 为 复数 类 型 的 数据 , 则 牛 拒 - 拉 斐 森 法 即 为 修正 复 根 的 直接 方 
法 .对 实 系数 的 多 项 式 ,在 设 兽 初始 预测 值 ( 试 验 解 ) 时 ,应 注意 使 其 离开 实 轴 ,否则 迁 代 时 将 
永远 无 法 脱离 开 实 轴 ,而 且 可 能 会 在 多 项 式 的 极 大 或 极 小 值 处 射 向 无 穷 撑 。 


对 实 多 项 式 , 恬 正 复 棚 ! 这 时 也 可 称 为 重 实 极 ) 的 方法 是 出 尔 斯 托 (Bairstow ) 方 法 ,这 种 方法 要 求 六 志 
.次 内 了 ,其 好 处 在 于 避免 了 所 有 的 复数 运算 ,具体 地 说 ,也 束 是 戈 “个 二 次 四 子 , 使 其 包含 两 个 根 =4 十 
z, 避 


3 2ar ia 影 ) 一 这 上 并 一 它 【号 
- 般 地 .站 果 我 外 以 “个 :次 因 了 去 除 某 个 几 硕 式 , 则 剩 下 的 将 胰 - 个 线性 项 
PT) -一 一 二 (9. 5. .5) 


恕 果盘 定 睛 刊 妃 , 则 出 密 项 式 除 靶 ! 上 第 5. 3 节 ) 容 易 求 得 民政 全 我 们 可 以 杭 尺 ,3 为 吾 和 CC 的 可 调整 的 丽 
数 , 媳 果 这 个 二 次 因子 为 堆 则 丸和 汪 芍 为 堆 、 
在 其 个 根 的 邻 域 内 , 因 召 的 微小 变化 而 引起 的 RS 的 改变 可 以 用 一 阶 泰 蔓 级 数 展开 来 近似 ; 即 


、 ，、 员 ， 玉 
f 避 ” 十 5C) 闪 二 十 沾 -00C 5 

RS6CTSC) 王 RUBC) 十 3 站 一 58 《0.5.16) 
SC 了 bBCAESC SB 下 2S6n 十 全 GoC 5.]? 
上 十 人 3 十 了 涝 多 《9. 5. ]?) 

为 了 计算 从 导数 ,者 坊 式 (9.5.15) 对 心 的 导数 :因为 玉 (z) 为 一 固定 的 才 项 式 , 坟 与 C 无 关 . 从 中 有 
人 了 9 恨 9S 
一 Cr 二 Bz+C)3S -Qtz) 一 JPZz 十 了 《9. 5. 181 

移 硕 可 得 
本 本 3 34 

@@(z) 三 (7 Te 大 + 了 + 一 证 《9. 5. 191 
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阿 埋 ,由 寺 只 (z) 与 点 无 美国 而 将 式 (9.5. 15) 戏 号 作 微 分 可 以 得 到 

9 人 9 只 3 
5 万 十 5 十 3 
比较 式 (3, 5 153 和 (18. 5.15) 可 以 发 天, 它们 在 形式 上 完全 此 配 , 因 此 , 群 吴 对 王 Cc 作 全 次 综 台 除法 , 即 陈 
以 妃 tr) 后 得 公 羽 工 十 , 则 存 


[ 引 本 4 的 


一 Qt 一 (十 总 十 上 





避 二 他 
5 R 沁 三 训 2 
为 了 求 出 偏 导 数 的 吉 法 起 ,在 二 次 因子 的 叮 个 根 + 利 :处 计算 式 (9. 5.203 的 让 -由 于 
Bf 一 Ar 一 fg, 2 2 
我 们 有 
5 和 + 如 一 -十 CR 二 SS) (9. 5 23》 
2 2 强 =- 7 【起 :二 1)》 1 
从 关 、> 为 本 知 时 求解 这 阿 全 方 得, 并 注意 到 
\3 有 也 时 水 及 : 好 小江， 
T+ 一 X_ 二 一 此 个 -出 -一 忆 95522259 
可 以 得 则 
2 一 PR- S- 2 二 共 放 (9.2 


现在 的 贝尔 斯 托 (Hairstow ) 方 法 包括 在 二 维 情况 卜 , 几 和 牛顿 - 拉 斐 森 算 法 (这 正巧 下 节 中 我 们 将 要 计 这 
的 主要 内 容 ), 求 便 只 和 语 时 为 零 的 解 .在 每 次 循环 中 , 湖 使 用 两 次 综 介 除法 来 算 愉 .S 及 其 对 旦 必 的 志 
导数 ,和 一 维 的 牛顿 - 拉 斐 琳 方 法 … 样 ,贝尔 斯 托 方法 在 其 一 戏 恨 (或 实 或 复 ) 附 近 收 敛 效 果 不 错 ,但 大 从 任 
一 随 雪 点 开始 达 代 则 可 能 导致 失败 ,因此 我 们 建议 该 者 只 有 在 对 试验 复 根 进 行 修 上 时 使 用 这 -- 方 法 ， 


共 include 所 math,h>> 

世 inelude "trutil bh” 

共 define ITMAX 20 最 人 夺 代 次 数 
站 dcfine TINY 1.0c -6 


void qtoot (bloat bp[-， int n, float *by float *cyfloat eps) 
给 定 一 个 nm 阶 寺 项 式 的 mn 十 1 个 肥效 pl0..n] 以 及 -个 二 次 因子 xsx 十 b*x 一 ec 各 系数 的 试验 俏 , 杯 程 访 兰 不 断 地 


修正 问题 的 解 , 肯 到 系数 Fe 的 变化 幅度 小 于 ps 为 目 :如 序 由 凋 册 了 第 5. 3 节 中 的 poldv。 


yoid poldiv(float ut] ，int nm，flosat v[]，int ny，float q[ ，float rD)， 
工 立 必 工 上 c 工 7 

上 loat sc,sb,s,rc,rb,r,dv,delc,.deslb， 

上 loat mwQqQ ,qq ye 工 Gm; 

float df[3] ; 


q=vector(0,n) ; 
qq~vector(0,n) ; 
zemmvectorito,D) ; 
d[23]=1.0; 
for [iters1;icer<=ITHAX ,iteryy) 萎 
dr[1j=(eb)i 
dr[0]-(ec); 
poldivtp,ad,2,Q,rem) ， 
amrem[O] ; 第 - 次 除法 算 上 ,3， 
TeTemEi] ， 
Poldivrq,[p-1) ,d4,2,q9q,rem)i 
sb = -{*ciewfrc = ~Tem[l)， 第 “次 除法 求 [ s 对 < 的 偏 导 孝 ， 
rb * -ff*hb)*rc+fsc = -rem[0]) ， 
dv=t.Drtaberc-sc+rb) 解 2 x 2 的 方程 
delbmfrwSc-5TCJedv7 


.319 。 


delcat~reSD+STb)edvi 

*b += (delbr(TySCc-SyTCJwdV) ; 

*C += 【delc=f-Trrsb+y3SwIb)wdv); 

让 《(fabs(delb} “= epagwfabsfteb) || fabsfeb) “ TINTI 
外 〔fabstdelc) <> 9Ps#tfabs(#c) 上 | fabafec) < T 了 INY)) 了 
Tree_vactor[reamfon); 系数 收 铀 
free_vector(qq,0.n); 
frae_vectoriq,O:n); 
rettrp ji 


了 


rerrort'Too many 1teratiaons in Tonttne qroqt'") 


前 面 曾 经 提 到 过 ,如 果 两 个 试探 解 经 修正 后 收 委 到 “个 下 这 将 是 非常 令 人 恼火 化 .因为 
这 时 我 们 并 不 知道 在 修正 过 程 中 基 不 是 丢失 了 一 个 根 ,也 不 知道 是 否 真 有 一 重 根 ,而 这 人 重 
根 在 前 面 的 降 瑜 步骤 中 仅仅 由 于 舍 入 识 差 才 被 区 分 下 .有 一 种 解决 办 法 是 降 劳 并 二 状 修 正 ， 
但 在 修正 阶段 ,需要 避免 的 恰恰 是 降 阶 .这 时 ,可 以 转 而 使 用 马赫 里 (Maehly ) 方法 。 志 村 里 
指出 ,对 降 了 阶 的 多 项 式 








二 己 (2) 0 
EC 本 《9. 5.27) 
其 导数 可 以 写成 
人 TCD PeiD rin 
三 (2 一 2。， 《天 一 学 应 人 人 了 

《9.5.28) 

因而 牛顿 一 拉 斐 森 方 法 中 ,由 佑 计 值 mx 推导 下 一 估计 值 凡 - :的 公式 可 写 为 

王 人 (zt E 

wk 一 《9. 5. 29 ) 





7 
PCzrt) Pr > Cr xi) 1 


使 用 上 述 方程 时 ,如 果 以 标记 已 修正 过 的 根 , 则 可 以 避免 某 个 试验 解 收 你 到 另 一 试验 解 所 
对 应 的 真 根 上 ,这 是 … 个 以 所 谓 消 零 蔡 代 真 降 阶 的 例子 . 
此 外 ,前 面 握 到 过 的 米 勤 方法 也 是 一 种 值得 使 用 的 根 修 正法 。 
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9%.6 非 线性 方程 系统 的 牛顿 - 拉 斐 森 方 法 


对 于 含 一 个 以 上 非 线性 方程 的 系统 ,日 前 还 没有 一 种 好 的 ~- 般 性 解法 。 这 一 断言 虽然 极 
*320 。 


端 但 部 很 难 驳 例 , 而且 我 们 不 难 理解 为 什么 将 米 也 (很 可 能 ) 不 会 有 好 的 通用 算法 . 委 虑 一 维 
情况 , 邯 求 同时 满足 
人 (9.6. 1 
BCzy》 昌 
的 解 , 其 中 了 和 g 是 两 个 作 意 函数 ,每 个 蚌 数 者 具有 : 些 零 等 高 线 , 这 些 过 等 商 线 把 (4 sy) 
平面 分 成 若干 区 域 , 在 这 些 区 域内 每 个 类 数 分 别 相应 地 取 正 值 或 负 侦 .这 里 我 们 所 感 兴 趣 的 
仅仅 大 这 些 空 等 高 线 的 边界 ,因为 我 们 所 要 求 的 解 ( 如 果 有 的 活 ) 就 是 /和 之 零 等 高 线 的 
交点 (多 二 9.6.1)。 但 是 一 般 情 况 下 ,三 和 & 相互 之 间 根 本 没有 任何 联系 ! 无 论 从 字 的 前 度 还 
是 从 8 的 角度 来 分 析 , 它 们 的 公共 点 都 没有 什么 特殊 性 质 . 为 了 找到 所 有 的 公共 点 , 即 米 非 
线性 方 息 组 的 解 ,一 般 ? 需 给 出 两 个 函数 的 全 部 过 等 高 线 。 而 且 由 于 堆 等 高 线 (“ 般 ) 是 由 一 
些 数目 不 定 的 不 相交 的 闭 晶 线 组 成 . 凡 么 ,我 位 怎样 才能 知道 全 部 闭 曲 线 已 经 逢 找 出 光 节 
呢 ? 











其 中 实 线 代表 乓 zi;?), 庶 线 为 gfzr wy) 每 个 方 姐 将 (zy) 平 面 分 成 若干 个 正 的 和 旬 的 区 域 , 这 些 区 域 
的 边界 即 为 霍 等 高 线 . 我 们 所 要求 的 解 即 为 这 些 不 相关 的 曲线 的 交点 ,得 解 的 个 数 事 前 尾 未 知 的 ， 


图 %6.] 岁 示 为 两 个 二 元 非 线 性 方程 的 解 


对 于 两 维 以 上 的 问题 ,需要 找到 同时 属于 六 个 不 相关 的 零 等 值 超 平面 的 点 ,其 中 每 个 
超 平面 的 维 数 是 六 一 1 维 。 如 果 没 有 相当 出 色 的 洞察 力 的 话 , 求 根 简直 是 不 可 能 的 事 。 因 为 
我 们 几乎 总 是 需要 利用 一 些 附 加 的 关于 特定 问题 的 特定 信息 ,才能 搞 清 楚 诸如 ,该 问题 是 
不 是 能 得 到 一 个 唯 “ 解 ", 以 及 “ 解 大 约 在 什么 位 置 " 之 类 的 疑问 。 阿 克 (Acton) 在 他 的 书 中 了 
中 ,对 这 些 特 殊 技 巧 作 了 “ 些 尝试 的 有 益 的 探讨 。 

本 节 中 我 们 将 介绍 多 维 求 要 方法 中 最 简单 的 - -种 , 即 牛 顿 - 拉 裴 森 方 法 ,该 方法 对 本 足 
够 好 的 初 值 , 收 剑 效 果 很 明显 ;在 不 收 笋 的 情况 下 也 能 指出 (虽然 不 是 证 明和 假想 的 根 不 硅 

"321。 


在 ,在 第 9. ?7 节 中 我 们 将 讨论 复杂 “ 些 的 牛顿 - 拉 斐 森 法 , 它 有 望 对 共 全 局 收敛 性 质 作 ” 瘟 沪 
进 ; 第 8. 7 节 中 ,还 将 介绍 -- 种 称 为 布 罗 依 顿 (Hzoyden) 的 方法 , 它 吡 对 弦 截 法 的 多 维 诲 广 . 
一 般 地 ,给 定 含有 六 个 变量 mmG 一 1.2 的 六 个 函数 方程 ; 
CR YN) 一 站 zz =- 1 2 人 
记 x 为 以 忆 为 分 量 的 向 量 ,'E 为 以 疡 为 分 量 的 向 量 , 那 么 在 x 的 领域 内 ,每 个 晒 数 六 汀 用 
灾 吉 级 数 展 开 为 





ECx 一 sx) 一 记 (R) 下 2 2 1 O(9x) 《6 人 3 
出 现 人 不 式 9. 6. 3) 中 的 篇 导 数 构成 的 窍 和 阵 是 赣 可 比 Oacebian) 丁 降 本 
?3 刀 : 
Ji 一 3 (0 


世 69.6.3) 凡 矩阵 形式 表示 , 即 为 
FECX 一 6) 一 了 KGx) 十 Jax 十 品 I6x2) (5 16. 
忽略 9x "项 及 其 更 高 阶 硕 ,并 罚 FCx 十 sx) 一 0, 可 以 得 到 -个 关于 修 市 项 8x 的 线性 方程 给 ， 
印 
-5x 一 一 了 《全 从》 
其 中 8 可 策 每 个 函数 部 同时 接近 十 零 。 
对 式 (9. 6. 6? 所 示 的 扼 阵 方程 ,用 第 2, 3 节 的 Z7 分 解 方法 来 求解 ,并 将 求 出 的 修 让 项 深 
加 到 解 向 其 中 
Xww 一 xod 十 议 (7 
这 “过程 不 断 奈 代 站 到 收 伍 为止。 一 般 情 况 下 ,最 好 检查 “下 函数 和 变量 已 收敛 的 得 订 , 当 
其 中 一 个 达到 机 器 精度 时 , 另 一 个 就 不 会 改变 了 。 
下 面 这 段 程序 (mnent> 将 从 初始 解 向 最 x[1..n- -开始 ,执行 prtial 次 迁 代 .党 果 数 产 的 
大 小 之 和 小 于 基 盖 容 差 限 tolf ,或 者 修正 项 gzr; 的 缩 对 值 之 和 小 于 容 莽 限 tolx 寺 , 丢 全 演 程 
将 妆 止 mmewt 中 调用 了 - -个 由 用 户 定义 的 函数 usrfun, 它 提供 函数 值 五 及 雅 可 比 短 阵 4， 
着 ] 的 解析 计算 太 复杂 ,不 妨 在 usrfun 中 调用 第 9. ? 节 中 的 人 
导数 ,还 应 注意 选 代 次 数 nrrial 不 能 寂 的 大 大 ， 而 且 在 进入 下 一 轮 和 迭代 以 前 ,最 好 观察 - -下 
当前 的 运行 结果 。 


蔡 ilnde <math.bh>> 
itineiude ”nzuril .hy 


yoid usrlun([loat *X+ intny ftost *fvec.float xx kfjac)i 
上 defines FREERETURNIfrec_-mafrixffjac, 上 yny1yh)isree_vectorffvec ,bo)inNv 
free-yecrtorfp ,],n)ifree-iveeterKindx ,1yn)ireturnt} 


void Innewt (int ntrial，iloat x[]，int miloar tolx. float tolfi 


给 定 一 个 根 的 初 什 x1-,n 小 通过 ntrial 本 沾 绒 -- 拉 型 森 法 储 止 这 个 根 。 当 各 变量 的 鸳 对 增 之 秋 小 于 tolx 或 冰 数 
的 饮 对 值 之 和 小 下 tolf 对 , 达 代 终止 。 


ynid 1Ubkabkfloat *+a，int 2，int indx，float bg); 
void ludcmptfloat we3，int Dint +izndx，float wd); 
int k,ivrindxi 

子 loat 们 TI 入 QI 工作 ,可 于 VDC，w 本 jaC ,zyPi 


*，522， 





14ndxsdlvector[1,D) 1i 
pP=vectorfl,D)， 
EVBCc=Vectorfl, al 
节 Jjacematrixfl,n,1,n)i; 
近 X<mDtIT4a1T YI)》 于 
ee ; 用 户 定义 函 教 ，fvete 和 表示 丽 莪 在 x 处 的 息 . “jae 改 
eTrfrD.D; 表 雅 可比 第 阵 
for (ilii<csnii+f】 errE + abaffvec[i]y): 检查 曙 娄 收 伍 
if (errf < tolft) FREERETURR 
Yor (is=lii<sniiy+) Pp[i] = -avec[i]; 线性 方程 的 右 端 项 


iudcmpftjac ,na,indz,&a) ; 用 了 分 角 法 解 线性 方程 ， 
lubxsb(fjac:n,indz,p)i 

aaTTe 人 .日 ji 检查 棋 收 误 

for 《im1iiKe 巡 ;了 ++) 乓 更 新 属 


eTTZ fm 习 abefp[i]); 
工 [i] + 了 [i] ; 
] 
1 【errx < 立 OTIX) FREERETLRN 
】》 
FREERETURA 


9.6.1 牛顿 法 与 极 小 化 


在 下 一 章 中 ,我 们 将 会 看 到 ,对 于 多 元 画 数 求 极 小 值 的 同 题 ,目前 已 有 - ` 些 很 有 效 的 一 
般 人 性 技巧 .该 者 也 许 会 癌 :为 什么 这 类 问题 往往 (相对 ?比较 容 咽 ,而 多 维 情况 下 的 求 根 贡 党 
很 难 ? 极 小 化 问题 难道 不 是 等 价 十 求 使 N 维 梯 订 向 量 为 零 的 点 ,也 就 是 说 与 N 苑 函 数 求 根 
没有 多 大 区 别 吧 ?不 是 的 ,因为 一 个 梯度 向量 的 各 个 分 量 不 是 独立 的 、 任 意 的 函数 ,相反 , 它 
们 服从 一 些 极其 严格 的 所 谓 可 积 条 件 , 糙 略 地 说 , 沿 - -个 单独 平面 下 降 ,总 能 找到 .个 极 小 
值 ,内 此 下降" 检验 是 一 维 的 ,而 对 多 维 求 根 则 没有 -种 类 似 的 概念 上 的 方法 可 当 。 在 这 种 
情况 下 “下 降 " 意 味 着 从 N 个 独立 的 函数 空间 同时 下 降 , 因 此 ,决定 某 一 个 维 上 要 地 展 多 少 
值 需 与 另 一 维 的 进展 情况 作 比 较 ,这 样 在 这 一 同 题 上 必然 多 许 有 大 量 的 折衷 方 守 ， 

对 多 维 求 根 问题, 读者 可 能 会 想到 把 所 有 准 数 拆 成 -- 维 , 即 ,把 每 个 晒 数 态 的 焉 方 和 相 
加 ,得 ' 个 主 函 数 亚 .这 个 主 函 数 满足 G) 具 有 正定 性 ;Ki) 在 原 非 线性 方程 组 的 所 有 解 处 愉 
好 有 ~ 个 全 局 极 小 值 零点 。 但 是 ,正如 我 们 在 下 一 章 中 将 要 看 到 的 ， 那些 求 极 小 值 的 有 效 算 
法 对 全 局 和 局 部 极 小 值 根本 不 加 区 分 ,而 且 非 常 令 人 失望 的 是 ,函数 F 常常 有 很 多 个 局 部 
极 小 慎 。 例 如 在 图 9, 6. ] 中 ,只 要 了 和 & 的 零 等 高 线 拿 得 很 近 , 就 有 可 能 存在 一 个 局 部 极 小 
值 .图 中 标号 为 id 的 点 即 是 如 , 但 可 以 看 出 ,在 对 点 附近 并 没有 根 .。 

不 管 怎样 ,多 维 求 根 实际 上 还 是 可 以 利用 极 小 化 的 思想 的 ,方式 是 将 主 削 数 忆 与 牛顿 
法 相 结合 ,并 将 牛顿 法 应 用 于 函数 玉 的 全 体 集合 .尽管 这 符 方 法 有 时 只 能 收 敏 到 忆 的 某 个 
局 部 极 小 点 ,但 对 单独 用 牛顿 法 不 能 解决 的 问题 一 般 它 都 能 求解 ,下 节 中 我 们 将 详细 讨论 这 
些 方法 。 


参考 文献 和 进一步 读物 ， 
骨 cron, 下. S, 1970，Natznerical Methody 了 Rat 多 bp 天 ,1990，corrected edition Washington :Mathe matica] AAS- 
sOclarion of 和 merica) .Chaprer ]4,[ 


9%.7 非 线性 方程 系统 的 全 局 收敛 法 


我 们 已 经 看 到 在 求解 目 线 方程 时 ,如 荣 半 始 预 猴 值 没有 足够 地 接近 请, 则 牛顿 法 条 个 
不 部 的 趋势 ,会 惧 离 到 无 规则 的 远 处 而 多 局 法 对 十 几 何 任意 切 始 值 都 能 收 剑 到 解 ,机 生 浇 
们 将 发 展 一 砷 算法 , 它 是 将 快速 局 部 妆 评 的 牛顿 法 和 一 个 全 局 收效 策 政 缩 合 起 来 ,这 个 全 局 
收 伍 策略 在 每 “和 步 迁 代 中 ,将 保证 某 些 寺 程 疱 于 解 . 这 个 算法 和 第 10. ?7 节 吊 奖 划 着 细 讨论 的 
拟 牛 丁 法 的 极 小 化 基 密 切 幅 关 的 ， 

回顾 第 9. 6 节 中 的 讨论 ,对 于 放 程 组 的 牛顿 法 步 先 是 


F(x) = 0 [ 
今 
Xe 一 .6 十 在 5 本 
其 引 


x 一 一 本 开 (9 7, 3 
了 于 是 区 可 比 第 阵 。 我 们 怎样 决定 是 簿 接收 牛顿 步 长 各 吡 ? -个 仿 理 的 策略 是 , 竖 求 这 个 生长 
使 | 下 |?=*=F'F 下 降 , 这 就 相 岂 于 我 们 强加 的 要 求 , 使 下 式 地 极 小 化 


/= JEF .F 58. .41 


(为 了 千 面 的 方 使 才 有 有 这 二 ) .每 次 求解 式 (9. 7. 1), 回 时 极 小 化 式 (9. 7. 4) ,但 是 可 能 式 (9. 7. 
4) 的 局 部 最 小 值 使 苹 (9. 7. 1) 无 解 .因此 ,如 蕴 所 述 ,简单 地 从 第 十 章 技 一 个 求 极 小 值 算法 运 
用 于 式 59. 7.4) ,这 不 是 一 种 很 好 的 思想 ， 

为 了 推出 - -种 较 好 的 策略 ,注意 到 牛 售 法 步 区 式 (9. 7. 3) 对 了 是 卞 降 方向 ， 

Yex 一 FJ (一 全 一 一 FF 一 0 (5 ”>. 3) 

所 以 我 们 的 策略 是 非常 简单 :首先 ,我 们 常常 试 着 采用 牛顿 全 步 长 ,因为 一 电 我 们 是 是 
以 逼近 所 求解 ,那么 我 们 将 得 到 一 次 收 敏 .然而 ,在 每 一 次 欠 代 过 程 中 ,我 们 要 检查 这 个 所 建 
议 的 步 长 是 否 减 少 了 值 。 若 不 ,我 们 就 应 回 过 头 来 沿 牛顿 方向 追踪 ,直到 我 们 有 一 个 可 二 受 
的 步 长 为 止 . 牛 顿 步 长 对 了 而 言 是 下 降 方向 ,以 保 让 我 们 用 同 湖 方法 可 以 找到 个 可 接受 
的 步 长 。 下 面 我 们 将 详细 讨论 这 种 回 湖 算法 。 

注意 这 种 方法 本 质 上 是 ,采用 使 F 等 于 零 所 设计 的 牛顿 步 长 来 求 了 报 小 化 . 而 坟 是 等 
价 于 ,采用 使 wy 等 于 零 所 设计 的 牛顿 步 长 来 直接 求 / 极 小 化 当 着 藩 在 / 的 岂 部 极 小 信 
时 ,这 方法 仍然 可 能 发 生 失败 ,但 这 种 情况 在 实践 中 是 非常 罕见 的 .在 下 面 的 程序 newt 中 
若 这 种 情况 发 生 它 就 会 告 诚 用 户 .而 补救 的 方法 是 用 一 个 新 的 初始 点 重新 试验 。 


9%.7.1 线性 搜索 和 可 漳 


当 我 们 届 地 是 够 接近 /的 极 小 值 时 ,就 无 需 取 全 牛顿 步 攻 p 一 呈 米 下 降 函 数 , 为 了 使 二 次 收 总 有 丫 ， 
我 们 可 以 移动 很 远 . 当 我 们 沿 着 牛顿 方向 移动 ,我 们 已 保证 了 /…- 开 始 就 是 下 降 的 。 所 以 , 北 动 的 晶 标 足 沿 
牛顿 步 长 p 的 方向 移动 到 一 个 新 的 点 xsw: 但 不 需要 称 动 步 必 的 全 部 路 得 ; 

nev 一 Xad 十 4B 0<A<c 1 【中 
吕 的 是 芝 寻 我 2 值 区 全 .FIxa TAB) 完 分 下 降 - 昌 在 1877 年 具 前 :标准 的 万 法 是 , 选 梯 关 凡 恒生 在 划 二 了 下 
。2324。 


确实 使 了 达到 极 小 化 -但 是 ,现在 我 们 切 道 这 样 做 就 要 计算 郑 数 秆 ,这 旦 板 火 的 江 费 -个 比较 好 的 策 玫 
是 :因为 在 我 们 的 算法 中 ,p 方 四 常常 是 牛 颗 上 志向 ,所 以 我 们 首先 选 4 一 T, 全 牛顿 非 长 。 当 x 十 充分 往 近 解 
时 ,这 就 疼 导 列 二 次 上 收 恕 .但 是 , 郑 <Cxev) 不 能 满足 我 们 可 接受 区 准则 , 则 我 们 沿 着 牛 帆 方 思 四 潮 , 志 戎 使 
用 较 小 的 : 值 , 丘 到 我 们 找到 “个 合适 点 .因为 牛顿 方向 是 下 降 方向 , 押 以 保 让 了 对 于 足够 水 的 二 可 使 子弟 
碱 。 

对 于 可 接受 的 步 民 采 闲 升 么 准则 呢 ? 癌 只 昌 发 Fas Fo 是 不 充 分 的 -这 个 准则 在 下 面 “个 情况 
之 -中 ,会 使 政 笋 到 地 的 最 小 值 发 生 失 改 , 第 :种 情况 , 术 先 的 满足 准则 的 步 长 序 殉 其 使 了 下 降 速度 相对 
于 步 长 的 关上 度 太 慢 . 第 -种 ,有 -一 给 步 长 邦 刻 ,其 步 长 入 度 村 对 六 、 降 的 初始 速率 太 小 ,这些 序列 的 讽 子 
网 [1J,117 黄 ?。 

处 琶 第 -种 问题 的 简单 方 潜 是 ,要 求 节 个 降 的 平 芭 速率 至 少 是 Fim 初 始 下 降 率 的 < 部 分 ， 

Ac 袜 fa) 一 3 吕 六 (xur 一 ad) 49.7.7》 

其 中 大 数 = 满足 0 过 a 所 1 。 我 们 范 够 加 葛 得 到 非 党 小 的 = 值 ,好 的 选择 十 一 10-1， 

第 二 种 宇 题 吉 以 用 这 种 右 法 来 固定 , 即 村 求 在 xve 处 了 下降 率 大 于 在 xu 处 子 下 降 率 的 了 部 分 , 实 典 
中 ,我 们 常常 不 需要 改进 这 个 第 “种 约束 ,因为 我 们 的 回 测算 法 将 有 一 个 内 在 中 止 , 以 避免 步 长 取得 太 小 。 

对 于 实际 的 阿 汝 算法 程序 上 月 一 策略 ， 


gt 二 天 2d 直 玫 各 ) 49.3.8) 
以 使 
BtA) -站 (9 7?.9) 


若 我 们 需要 回潮 的 话 , 则 我 们 用 忆 有 的 最 近 信息 构造 模型 & ,并且 选 拌 4 使 这 模型 破 小 化 .我们 可 以 必 有 效 
的 g40)? 和 go) 开始 .通常 ,第 一 步 是 牛顿 长 ,一 1。 若 这 一 步 没 有 接收 ,我 们 有 了 有 效 的 gl) .所 以 我 们 构 
造 异型 5(14) 为 二 次 型 : 
gt s[RIL) 一 80) 一 BO 形 十 用 (04 十 有 (0) .3. 10) 
求 这 二 次 卉 的 微分 , 当 
0) 

2fg(1) 一 500) 一 局) 
二 次 型 取 极 小 ,因为 牛顿 步 长 失败 ,所 以 我 们 能 够 证 明 对 于 小 的 e, 1 二 于 .但 是 ,我 们 需要 黎 增 防止 六 太 小 
的 值 , 一 般 设 tn 一 0. 1。 

在 第 -次 和 以 后 的 回 湖 过 程 中 ,我 们 睛 模型 有 为 的 三 次 地 ,利用 原先 8(A) 值 和 当前 第 上 个 号 (is 的 
值 来 构造 : 


页 一 《9.?. 了 ) 


EC 一 ani 十 相 4 十 区 0) 十 是 CO) (9-?, 12) 
在 4: 和 1? 处 给 出 上 述 寺 过 式 靖 的 当前 值 ,构成 二 个 方 理 , 由 此 冰 出 系数 e 入， 
1 「 17 生 4] SC 一 到 (0 一 8i0) 
[让 石 一 中 LA 办 | 人 一 go 一 | 人 


(9 7, 12) 式 三 次 型 的 极 小 秆 是 在 


下 








《9 ?. 14》 


一 十 we0 
34 
我 们 强制 使 4 处 下 4maz 一 吕 54: 和 Am 一 和 24 之 问 ， 
程序 有 二 个 附加 特性 值 , 最 小 步 长 长 度 alamin 和 最 大 步 长 长 度 stpmax ,lnsrch 也 可 用 于 下 节 按 牛顿 
极 小 化 程序 dfpmin 中 . 
站 incjude 扫 tnath.h2>“ 


共 ihelude ”nrculil hy 


芽 define 上 IF .De 一 殿下 未 数值 充分 个 降 


女 dejine TOL 和 .DOe 了 Asx 的 收 总 巷 则 


void lnsrchKint ny fjoat xold -foat [fold ,float gLJ iloar Pitoat xl ， ftoat > 了， 
ftoat stpmax，int #ebeck:、 Doat (sxTuncycfioal [])) 
委 定 一 个 a 准 的 点 xold_1 .n_, 甬 数 俏 fold 和 铬 率 全 1..n 以 及 方向 -15 从 xcld 洪 着 疗 应 寻找 一个 新 的 所 


*-1. .mn], 孝 里 使 函数 fnnc* 充 分 地 "下 丈 : 新 的 函数 返回 到 fstbmax 是 限制 荡 拱 长 虚 的 团 入 旺 , 以 屠 不 晤 数 没有 十 
又 的 范 氏 或 音 谥 己 的 情况 下 都 不 计算 亲 数 .p 通常 基 牛 再 方向 .输出 基 check 是 展 (0) :正常 进出 :是 真 (1), 表 杰 攻 
到 货 接 近 xold。 在 极 沾 比 算法 中 ,这 通常 是 单 调 收 敏 能 和 可 仍 怨 吻 : 介 姓 : 在 异 点 性 找 傈 法 中 正本 凋 丙 的 袜 广 上 该 
- 校 得 收敛 基 否 是 伪 的 。 在 立 程 序 中 , 某 些 * 礁 " 题 可 以 要 求 双 精 庶 : 


int 1 
float aalam,alam2,alamin,b,dlscii2,fold2,Trusl ,rn5s2.310Pe,5th,reomp， 
test,toplami 


Checz=0i 
for 〈sum=0,0,i=1tiic=naiiy+) Sum +s Pp[ispfi]i 
SumaSqrt(SUR) ; 
让 《sum > 6tpaazxr) 
for (int;i<=niif+) D[i] *= stpmaxraun; 测量 所 尝试 的 步 长 是 否 太 长 
for (351ope=0.0,i=1ii<snm; I++) 
31ope +e 名 [i]#p:i] 
十 esf. 计算 入 win 
YoFr (1i=tii<=5;a++) 
tempefabskp[i])yAFMAXK(Tabstxold[i]),t.0)i 
if (tenp > ze8T)》 test=temp; 


aaL8RdlneTOLXAtest 
Blamsl ,9i 通 弄 首先 尝试 全 牛 晴 步 长 
for (ii 选民 条 环 开始 
for (is1;ic<sni;i+r+) Xi]strold[i]+alamePp[z] ; 
可 于 十 [二 半 URC)《X) ; 
if (alan “ alamin) { 在 4x 上 收效 。 对 于 零 寻 找 法 ， 所 调用 
or (iml1ii<snii+r4+) x[i]=zold[i; 的 程序 将 证 明 这 收 误 性 
中 Chece1L 
et 
elag itf 【ef <= Told+ 呈 LFeaiau+rsIGOPe) ratuzai 函数 充分 下 降 
ise 荆 回响 
半 E 〈13m 二 = 工 . 站 ) 
tmplam < -Slopeyrf2-08[ef-?cld-sLoP8)7) 1 第 一 网 
elee { “ 继续 可 湖 


Tbhs1 = wfE-TO1G-a Lansalcpa 
rha2=f2-ftold2-alan24z%1opei 
和 s( 工 g1 AT 3 台中 各 1 BE) 一 攻 S27 (BRLBB2*&LaR2) ) /和 1am- 匀 LI)] 
bm[- 点 1&m2*TRaTACalan#+8Ltam)+al1amwThs2A(alaa2nalam2))A(alam-~alam2) 1; 
证 〔 二 = 站 .0)》 tmplaa = -3L1opef 人 2.0b)i 
else 革 

diac=b*bh-3 ,GerawB19p8i 

if (di8c<D.0) mrerror("Roundotf problLemg in 1nsTrchb，) ; 

elae tmplam=(-b+aqrt(disc))7(3.0xa)i; 


二 
证 〔tmPp1lam> .5 和 alLam》 
七 四 P 有 他 二 售 . 5 二 Lam: 和 痊 0.5A1， 
了 
二 
站 用 四 了 mw 有 1RD ; 
f2 二 ef 
fold2=foldi 
有 LEE=FMAXKtaP1acs,O ,1 中 心 L3m] 人 字 0.1A1， 
】 重新 再 试 


弄 在 ,下 画 是 全 局 收 笋 牛顿 法 程序 mewt, 它 用 程 洲 Insrch。 得 于 newt 的 特点 是 ,用 户 不 禹 妖刀 解 析 的 
“。320。 


雅 可 比 算 阵 ! 这 程序 将 使 月 程序 fdjac 中 的 个 限 差分 , 斌 着 来 计算 必须 的 卫 的 袁 导 。 这 程序 为 『 广 壬 数 质 导 
数 ,使 用 了 第 5. 7 节 中 讨论 的 其 些 被 巧 . 当 然 , 如 果 对 用 户 米 涪 是 容易 的 诈 , 通 浓 就 能 用 一 个 数值 计算 区 可 
比 行列 式 的 程序 来 代替 fdjac ， 


共 inelude <Inaat.h > 

队 include *nzutil. hy" 

开 define MAXTTS 200 

有 define TDLE 1.De 一 1 

玫 efinhe TOLMIN 1.0e 一 月 

天 defline TOILX 1.0e 一 ?了 

了 开 define STPMX 100.0 

其 中 MAXITS 是 选 代 的 最 天 次 数 :TOEF 设置 了 函数 值 收效 的 新 别 性 则 FTOLMIN 设 普 了 判 次 是 否 省 仍 收 分 于 慨 
小 值 fmin 发 生 的 拓 别 准则 ;TOLX 其 对 4x 收 部 的 闻 别 准则 ;STPMX 明 态 多 许 的 在 线性 搜索 中 所 出 其 的 展 大 搬 长 
长 度 ， 


int TDmi 与 imin 册 倍 局 变量 进行 通信 

ftoat = fveci 

void 《# nrfuncvytintr nn， Doat sw[]， filoarf[]y》， 

并 define FREERETURN(tree_vertorktfvecy ln)ifree vec:orf(xoid .lnyiv 
free vectorfpb 1)mn)ifree_vectorfg, nyiree_mtatrixtfjacy lay lp) 
free-ivecrortindx ,1 nm)steturDbi 


void hewttfloat xl :int n， int # check ， 
voidt # vecfunc)ginty float [ 门 ，[laot [)) 
给 定 一 个 mn 维 恨 的 初始 猜测 值 xL3..nj ,下 全 易 收 笋 牛顿 汰 找 相 -使 果 用 户 提供 的 程序 vecfonccnyxyfvec1? 返 问 商 数 


等 于 办 的 向 量 ,在 程序 中 称 为 fvec[1..n], 输 出 量 check 为 盆 (0) 是 正常 返回 ; 若 收敛 到 一 个 郴 数 的 局 部 极 小 俏 , 定 
尽 为 fmin* 则 check 为 真 (1). 在 这 种 情况 下 , 试 者 从 一 个 不 同 的 习 始 猪 测 值 重新 开始 。 


void fdjacfirt an，float x[]，filoat fvec[] ，float **dzt， 
void {#vecftnc)(int，float [] ，float [])); 

flLoat fmin(fflcat x[]); 

yotd lnsrchftint 0D，float xoldf] ，float fold，float 区 [] ，float pDOD ，tfloat x[]， 
Tiloat * 了 ，T10at stPmax，int *Cchacr，tfloat (func)(float [])); 

void lubkasbftloat **8，inz D。int +indrY，float br]); 

void ludcap(tloat =*a，idnr 唱 ，int *indx，f1oat wG) 

tpt iics,j,aindxi 

flcat ddenif,foid,stpmax ,Sum,5eDP,teat ,+jac veE,*Bp,+rold; 


indx=ivector(1,n) ; 
fjac<matcix(Kdiin, ln)i 
Bevector(1;D); 
P=vectort1l,z)i 
Xoldevectorfin)y， 
fvecsvectortln)i 定义 全 局 变量 
nn=na; 
nrfuncv=vacfunci 
节 =fm:Dtx) i 由 此 测 用 计算 fvec 
test=0.0; 测试 初始 薄 油 根 川 久 TOLEF 更 直接 的 测试 
fdr (ietLi;i<=n;i++) 
i 订 《fabskfvec[i]》 > testr) test=fabs(fyvec[i]); 
if 【ts5t< 人 ,DinTOLF) FREERETURN 
for (sumsg.0,:=1;i<=nii++) sum += S9R(x[t]); 为 线性 搜索 j 算 stpamax 
atpaaxsSTPMXeRNHAN{sqrt[sum),(fl1oat)zn) ， 
or {fit3= 了 ;it5<eMANTTS; itS++》 了 和 迭代 特 坏 并 始 
tdjackn,x,fvec:fjac,vecfunc) ; 
者 和 解 折 的 雅 吕 比 行列 式 症 有 效 的 ， 用 户 可 以 用 自己 程序 的 换 程序 fdjac 


Own routine. 


for (i=lii<an;i++》1 对 线性 搜索 计算 立 f 
for (sbm=0.0,j=1ij<=nij+y) sum += fjactj [ilsfvec[j]; 
g[i=sum; 


for 《i=1ii<=-n;iise+》xoldlij=x[i]i 存储 x、 

fold=fi 和 上 三 

for 〈i=1;:<=n,l++) P[i] = -ftvec[i]; 线性 力 端 组 的 方 瞻 
ladcnmpffjac,n,shdx; 和 qd) 1; 用 蕊 2 分 逢 法 求解 线性 方 各 


]ubkshtf]ac,n,indx,P); 
lnsrcbfoa,xold,fiold, 台 ,P, 工 ,此 1 ,stpmax,check ,fm:zn); ; 
返 辐 新 的 r 和 广 。 当 部 用 fmin 时 在 新 的 x 处 也 计算 frac 
test=0.9| 为 函数 俯 收 伊 而 测试 
for (sl1;1<=nii++、 
if (fabs(tvec[l]) > test) testwzabsffvec[il)i; 
if {test 《了 TILE) 区 


才 Chacx=Di 
FREERETVURi 

if 【check) { 栓 调 了 的 情 庶 为 军 ， 即 协 收 笋 
test=0.01; 


deneFKMATT ,DO,S+ma) ; 

tor 【ti=1ii<=n;3*+) { 
tecp=tabs{te[i])e*FMAX(zabs(X[i]),1.0)7den; 
if (tagamP > GSL) 上 SSCtempi 


] 
Ceck=(ttast <《 TUOLHIR ?7 1 : 0D23; 
FREERETURK 
】 
test=D.0; 为 ax 收 伍 而 调试 


for (ji=liic=nii++) 于 
temnprffabstx[i]-xold[i]y7AFMAX(tabsfxfrai)y, 1911 
守 《temp > 《98t) 七 5T 一 empi 
} 
if 《test < TOLX) FREERETURN 
小 
nTeSTTOT( “MAXITS exCeedet in newtn) 7 


廿 incjade <mmath.h > 
共 inelude ”nrutil hn 


匡 define EPS TDe 入 租 近 机 笑 精 冯 的 平方 根 


void idjac (int nm， float x[ ，ftoat [vec[ 了 float * < df，void(s veefunc) (int， flonat [ ,float [)) 


芒 算 正 向 孝 分 以 通 近 雅 可 比 行列 式 .输入 xfl..n] 是 获 可 比 行 别 式 被 计算 的 点 ,vec[1..a] 是 在 都 点 的 函数 值 问 屋 ， 
以 及 vecfune(na'x, 和 是 一 信用 户 所 提供 的 程序 , 它 抬 回 x 点 处 的 画 数 向 量 . 销 出 dff1, .no[1..o] 基 站 可 比 矩 阵 ， 


tt ij 
float h temp ，*#* fi 


{ 一 vectorrtn3i 
fur 6j=19jc< 一 nb 十 十 ) | 
temp 一 x[ 门 ; 
上 一 EbPS * fabs(temp): 
if Ch 一 一 0.0)h 一 EpPS; 
x[j -一 temb 十 h; 践 少 有 限 精 度 展 差 的 窃 门 
h 一 x[i 一 remp; 
《#wyecfuncyfnyx 1; 
x[j 订 一 templ 
for(i 一 131s< 一 2 十 十 )》 dt[[j 一 (Li 一 fvec[i]Ahi 下 向 凌 分 公式 


free vectortf, 1,n)3 


并 jhclude “nrunilL. hy 


"328 。 


&xtern Inr nani 
extern fear > fwPet 
exftern void ( xnriuncv Cint n，fleoa: v[]， floari[L 355 


loat fminfiloat x[ “- 
片 问 x 处 的 7 了 一 122F, .全 同属 针 * Drfiuncy 指 问 孝 个 起 贡 x 处 盯 教 冶 量 的 程 雯 。 在 调用 程序 巾 它 设置 为 朱 应 川上 
所 提供 的 程 序 ,全 阁 变 是 也 传输 函数 供 返 回 到 所 届 出 的 开 序 中 去 . 


int 计 3 
昌 ioar somty 


(xnrfuncv)Cnna -xyJvec): 
for (sum 一 站 Di 一 1ii< 一 nnii 十 T) sum 一 一 SQRIfvec[i )， 
TettdTQ 虽 , 3 于 SQL 


程序 newt 假设 x 和 上 的 上 折 有 分 呈 的 典型 便 基 顺序 单位 , 苦 这 假设 被 极 坏 地 违 区 了 ,程序 就 会 失败 , 若 
这 种 情况 发 牛 ,在 议 用 newt 以 前 ,应 该 用 它们 的 典型 值 重 新 换算 这 些 变 景 。 


9.7.2 多 维 弦 截 法 : 布 罗 依 登 法 


上 述 实 施 的 牛 晤 法 是 劲 能 十 分 强大 的 ,但 它 仍 然 有 区 个 缺点 - 它 希 要 有 雅 可 攻 行 询 式 责 阵 .在 许多 问 
是 中 , 鲜 术 的 导数 也 是 得 不 到 的 :车 函 数 的 估算 非常 费时 *, 则 由 于 雅 可 比 行 列 式 和 有 限 盖 分 测定 的 代价 使 
这 方法 的 使 用 受到 了 禁 生 。 

撕 训 在 第 15.7 贡 中 讨论 的 拟 牛 顿 法 , 它 提供 了 在 拟 小 化 算法 中 , 海 赛 (Hessian? 算 阵 的 容易 计算 的 近似 
值 ,所 牛顿 法 也 提供 了 在 浮 找 零 值 中 , 雅 可 比 上 第 阵 的 穷 易 计 算 前 近似 情 .这 些 方 法 通常 也 称 为 弦 截 法 . 困 为 
在 一 维 情况 上 ,它们 退化 为 豆 截 法 (第 9. ?2 节 ) [参阅 文献 [1-) ,下 面 首 先 人 办 绍 的 这 种 方法 尾 这 些 记 法 中 最 好 
的 一 种 , 即 布 罗 依 合法 (Broyden' s method)12 . 

我 们 用 B 表示 近似 前 雅 晤 比 和 矩阵 .那么 ,第 丰 个 拍 牛 顿 步 长 江 ; 是 下 刘 方 程 的 解 


上 量 ,，， 0x; 一 … 四 (9.7.15) 
其 中 bx;=x,1: 一 xi 参见 方程 (9.7. 3))。 拟 牛顿 条 件 或 必 截 条 件 是 至 - :满足 
Bi ，6x; 一 5F; 《9.3. 167 


其 SFi=Fi_ 一 下 .这 是 维 蓄 截 法 通 近 导数 弛 bz 的 推广 ,但 是 在 大 十 一 维 博 况 干 , 式 (9.7. 16) 不 能 唯 -- 
确定 Bi。 
许多 约束 B,+ 的 辅助 条 件 已 经 被 研究 , 谭 在 实战 中 最 好 的 执行 算法 是 由 布 罗 冰 登 的 公式 得 到 .这 个 公 
式 是 基干 这 样 的 思路 , 它 是 使 可 ,的 最 小 变化 与 弦 截 方 穆 式 (9. 7. 16? 一 致 从 而 得 到 Bi+i。 布 罗 依 登 指 出 这 
个 最 终 公 式 是 
(3F， 一 B px) 因 5xi 
Bi 和 《9.7- 17) 


很 容易 检 台 B.- 满 足 式 (9.7. 16) 。 
布 罗 依 登 方法 的 早期 记 现 求 出 出 尔 昌 - 莫 里 森 公 式 , 即 式 (2.7. 2) ,解析 地 求 式 (9. 7. 17? 的 道 ， 
xi 一 8 四 5; 87 _ 
有 Bi, 一 耶 : 十 本 【9.7.18) 
那么 ,人 们 就 可 道 过 OUW5) 次 纯 阵 乘法 操作 米 确 定 
2xi 一 -一 Br， 和 《9.7. 19)》 
由 此 替换 痢 LO 分 解 方程 (9.?. 3) .这 方法 的 页 点 是 它 不 能 很 容易 地 代 人 到 全 局 收效 策略 中 去 .因为 在 全 局 
收藏 策略 中 ,类 方 王 ( 7. 有 下 的 横 度 需要 用 耻 , 谭 不 尾 呈 1， 
“329。 


(JEF,F) = BF 《9320 


相应 地 ,在 式 69.7.177 丰 我 们 实行 更 改 的 公 丈 。 

然而 ,我 们 仍然 你 冰 耻 GOGCN 次 操作 求解 式 C9 7 但 F QR 分 能 (第 2.16 人 区) 蔡 换 了 后 分解, 引得 
由 是 因为 49, 7, 17? 方 程 的 特殊 形式 ,通过 OUY2) 深 操作 Bi 的 4 分 解 , 可 以 被 更 新 成 B，， .的 QR 分 解 我 
们 所 需 的 全 部 只 是 用 -- 个 胡 始 近世 值 B. 上 进行 :通常 起 纵 时 ,用 一 个 简单 的 单位 抢 阵 是 可 行 的 :然后 苍 许 
OGCN) 次 更新 ,以 便 产 生 一 个 台 霸 的 兰 可 此 行 葡 式 的 和 近似值, 但 是 , 戈 们 更 愿意 递 过 调用 fdjac, 使 用 襄 限 关 
分 近 亿 方法 ,计算 前 第 个 扼 数 值 米 初 始 灶 章 。 

国 为 R 不 是 精确 的 雅 可 比 行列 式 ,所 以 我 全 全角 保证 2 对 上 太一 卫 FF( 即 起 (9.7.53) 是 在 下 隆 的 方 
向 ,因此 ,如 果 3 妃 离 自 实 的 雅 吉 夫 行 列 式 很 延 , 邦 么 线性 搜索 算法 不 能 返回 一 个 合适 步 长 ,在 这 和 情况 
下 ,我 们 需要 另外 调用 fq.ac 重新 初 北 B， 

和 一 维 情况 中 的 弦 蕉 法 柏 同 ,一 塌 足 以 接 过 根 什 , 布 岁 依 登 法 煤 超 线性 地 收 笋 。 将 这 方法 虐 入 到 华 局 
策略 中 , 它 几 乎 也 和 牛顿 法 一 样 竹 侧 ,并 是 通 常 寄 鉴 鹤 少 几 个 示 数值 的 计算 来 确定 零点 注意 , 黄 至 启 法 收 
伍 的 ,B 的 最 后 值 常 常 也 不 吡 迟 近 根 处 真正 的 雅 可 比 行列 式 ， 

下 面 给 出 程序 hreydn 三 结 梅 上 非常 类 似 于 程序 newt. 而 基本 差别 是 用 QR 分 解 蔡 摘 E7 分 解 ,并 且 用 
更 新 能 公式 替换 直接 地 确定 雅 忆 比 行列 式 , 在 程 节 newl 末尾 关 于 变量 测度 的 标记 同样 可 诈 于 broydn 司 ， 
斗 include 近 math. h> 
巷 inclued ”nrutil. h” 

世 dsfine MAXITS 200 
共 defibe EPS 1.0ce 一 ? 
共 define TOLF 1,0e 一 4 
并 define TOLX 了 PS 
#define STPMX 100.0 


拱 dlefine TOLMIN 1.0e 一 5 
其 中 MAXITS 是 迭代 的 最 大 次 数 IEPS 是 按 近 视 器 多 精度 铭 :TOLF 是 冰 数 值 收 艇 的 判别 准则 ;TO X 是 民 的 斤 
敏 兰 别 北 则 :STPMX 是 在 线性 搜索 中 所 允许 的 测量 的 最 大 步 长 长 度 !TOLMIN 是 用 米 判 决 是 否 有 假 收效 于 极 小 
得 fa 的 事件 发 生 。 
并 define FREERETURK (free_vector(fvec ln)itree_vectorfxoid ,1 ni 
free-vectorCw Lyn)ifree-vectot(ty1yh)itree_vectorfsy yn 
free -matrixtrslny 1n)ifree-matrixtqty1sny la)ifrcce vectortby lnliN 
free_vectorfg;1yn)ifree yectorffveold,1n)yifree. .vectortd ,ly 
free-vector(Kcy1m)iretutny} 


int nn 与 fu 进行 全 局 变量 通信 
float * fvec' 
void《<t ntrfuncv)int ny，float v 门 ,float 拒 >)， 


void btoydn{(float K[]，in: ny，int * check ，void ( * vecfuncy(int， float 口 .float [)) 


给 定 一 个 = 弘 的 根 的 初始 独 测 值 ,用 布 罗 依 拿 法 嵌入 全 局 收 笋 策略 中 的 方法 来 寻找 根 - 使 用 用 户 提供 的 科 序 ve:- 
Junetnyx*fyec) 点 国 眠 数 等 于 零 的 向 量 ,在 程 训 中 称 为 向 是 fyce 门 ,.n .程序 tdjac 和 穆 序 newt 中 的 昕 数 fniv 都 被 
使 用 ,输出 划 check 为 假 (0) 是 止 常 返回 ! 著 竹 序 收 全 到 一 个 函数 的 局 部 极 小 值 tmin ,或 者 布 罗 依 登 方 法 没有 进步 
进 蚌 , 则 check 为 让 (1) ,在 这 种 情况 下 , 试 背 从 一 个 不 朵 的 初始 萍 浏 值 重新 开始 。 


void fdjactinz nn，float X[] ，float fvec[] ，iloat =*zGf， 
Yold (+Vvectunc)kint。，float tj ，float 5])); 

float fmin(fioat x 门 ] ; 

Yaoid lnsrchtint R，float xold[] ，float fold，float g[] ，float p[] ，floar x[]， 
人 float af，fl1oat SrPmax，int *check，float (*funcj(flecat [])) 1; 

Yoid Gqrdctm(float ya，int 口 ， 夺 toat =c，float sd，int 9 下 iz 区 ) ， 

yaoid qmIRL IE1oat *#+r，float weqt，int REFfloat ur]，float vy[])， 

yoit rsolv(float +ya，int n，float d[] ，tloat br]); 
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iD 七 六 ,Itg XeStYY ，3DE，SKihb) 
节 loat den ,于 ,fo1d,stpmax ,5Ut,6 加 iptest ,Cdysfvcold: 
于 10 站 十 站 区 ,中卫 ,中 二 qq 七， 理事 T ， 入， 由 七， 是 XOldi 


CavecLort1z ,na) ; 
mvactorf1l ,al 
TYycold=yectorf1,D) 
g=yector(K1.n) ; 
P=vector(1,o) ; 
qt=matrixflin,1,Dn)i 
荆 <m3triz(1sarlDn)， 
a=vector(1l:p); 
t=vector(l,a)1i 
Wavector(l,a) 1; 
xcld=vectoc(1,n); 


fyvec=vecYor(1l,D) 1 定义 全 部 变量 

ZID=D; 

mrzuncveVvecfunc ; 

于 = 了 it(X) 1 在 这 调用 时 由 计算 打量 fvec 

teats0O.0; 

for 《i<1;ic=ai+rt+)》 测试 初始 吾 测 是 根 归 ? 采用 TOL FE 更 直接 的 
if 《faba(fvec[i]) > tegt)tastefaba(Ctvec[i]7: 测试 

if 《test<D.D1eTOLF》 FREPRRETIURN 

for 〔stuntnD0.0,imiyi<crnii++) sum + SQRKz[i]) 为 线性 拔 索 计算 stPmaY 

atPmazeSTPMXKY 六 时 AX[sqrtK tm》，(f1LDat)a) ; 

YegtTItm1i; 保证 初始 雅 扣 比 行列 式 得到 计算 

for 《ita=1iits<sMAXITS;IiES++》 工 迁 代 循环 开 娩 


if (restrt)》 革 
fdjactn,zfvec,r,yecfunc) ; 在 [中 初始 化 或 者 重新 初始 化 雅 可 比 行列 式 


qrdcmp (rnevd, 和 sing)， 雅 可 比 行列 式 名 此 分 解 
iz 【aing) nrerror("singular Jacobian tn broydn"); 
:for 《le1ii<sn3i++) 1 从 QT 显 见 


for 【〔j=1;j<=a;jt+) qefi] [lo0.0; 
qt[i] [zi]=1.0; 
】 
for 〔〈k=1ik<cnikI+) T 
if kec[k])] 工 
for，(j=tijc=a;j++) T 
sun=0.0; 
于 oT 【imgii<=naii++) 
sum += xfi][xjwqtfti][ 切 ; 
sum = [k]: 
了 or (i=xi;i<=niit++) 


qt[i]l[j] -= sumsrfi] [x] ; 


小 

了 

foT (iml;i<=<n;iy+) 萎 肤 及 显 见 
rf] fi]=6[i]i 
for {j=1;j<iij++》IT[i[j]<C.0; 

了 

] elae { 执行 Broyden 更 新 

for 《i=1l;ic<sniz++) S[:]=x[i]-xold[i]i Ss 一 4x. 

for 〔i=ti;ii<s<niiz+r+) { 一 R .>. 
for (suns0.0,j=i;j<=n:j++) sum += 工 [zi [j]*s[j]， 
tfTil=sun; 

了 

BKip=1 

for 《i=1liix=nii++》T WwW 一 SF 一 下, 5. 
TYor (sun=0.0,3=1;j<sn;j+y) sua += qtj] [ilet[j]， 
w[i]=fvecfil-tfvcold[tz]-sum3 
if (fabs(w[i]) >= EPSw(tabs(fvec[fi]y*Eabs(kfvccldftij)》)》 skitp=O7 
不 要 更 新 w 中 无 唤 的 分 量 ， 
el1se vTi]z0.0; 


】 
ii 〔!Ssxkipy 1 
for 〔i=1ljiic=ni;ii++) 攻 L 三 QT 本 





for (sum=0.0,j=l1;]<=n;J++) su + qtiaiifj]rsfl]i 


tfa]=suo， 
} 
For (dens0.C,isjiilcen;14+] den +s 9S9R(st3i] ， ; 
for {i=1;iic=nil++) sti1 /= deni 在 $ 中 存 末 - 5 
qrupdf (r,qt,avt,s); 各 断 R 和 吃 ”. 


邓 or (is1iic-nii++》 
if kr[i][i]y xs 0.0) nrarrTorf'r 5iogular io broydn'"); 


dfi]=rkti][i3， R 中 对 角 苑 存 入 d 中 
了 
上 
】 
for 《is1iik=<aiityy)》 乓 对 于 线性 搜索 计算 VF = (Q RIT 
Tor (sums0,0,j=ltij<=-nij++) sun + qt[i]fj)*fvec[]]: 
区 [i]=sum; 


tor 〔iDn;i?ys1;i-~》 
for 《sumsD,DO,j=1;j<=iijf+) sum + T[j][li]yrg5]I]; 


区 [i]=s5unDi 

了 

Yotr 〔is1;ixgraii++) 1 存 贮 x 和 F 
old[ile=x[i]; 
vcald[ri]s=fvaec[i] ; 

Yoldn 了 ; 痉 贮 了 

for {i=1;tcemii++) T 线 己 方程 的 布 庙 是 -已 7 .下 


tor 【sun=0,D,j=1; jc<=D;j++) Suq += 可 c[i][j]s*fvec[j]; 
p[i] = -suai 


了 
TSgolvK(r,nd,p)i 存 性 线性 友 程 
Jasrchta,xold,fcld,&,P， 工 ,由 ,BtFEaz check fmin) 
lnsrcb 返回 新 的 x 和 睛 。 当 调用 如 in 时 ， 也 在 新 的 “处 计算 荆 vec 
testmO.Oi 测试 函数 值 t: 收 健 性 
for 【is1;i<en;i++) 

这 《fabs(fvec[ij) > tegt》 Test=fabs(zvec[i])i 
jz 【teat < TDLF)》 《 


者 己 卫 看 女 区 惠 0 
FREERETURN 
让 
iz (echacx) 并 若 线 性 捧 索 失 居 为 真 ， 以 使 嫩 找 新 的 x 
if 〔(reatrt) FHEEFRETURN 失败 ， 已 经 试 着 草 新 韧 始 化 雅 可 比 行列 式 
1 
二 30 -D; 检查 /了 的 梯度 为 军 ， 即 伪 收 关 


dsmeFMAX{E,D.5en) 1; 

for (iml;i<mai;ii++y 1{ 
etnPmXa3abs(g[i])wPFYAXCFabs(z[i]],1.0)7dan3 
让 《temp > 七 eat) Fast=teamp: 


上 
if (tebt “ 了 GLNMIM) FREERETURN 


人 四】 昌吉 工 台 名 蕊 工 丰 二 1 ; 试 闭 重新 补 始 化 雅 可 比 行列 趟 
了 
)} else { 成 功 的 步骤 ， 对 下 一 步 将 采用 Broyden 更 新 
estrte0i 
者 蕊 七 一 他 ,日 为 4x 收 癌 而 测试 


?or 【ielii<eaii++) 工 
《9EPm (Tabs(Eti]-roldfi]))ZFMATCTabs(x[Ii]) 1-D)3 
荆 【tem >》 93 ) 蕊 日 tetemP3 
it (tesgt < TOLIY) FREERETUFUN 
} 
了 
DYXSITYSY [MMSITS 0XC9edea iD bro7dn"); 
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9.7.3 更 先进 的 实施 


假如 区 在 千 颇 法 中 ) 或 B{ 芷 布 罗 依 登 法 中 ) 成 为 辫 异 的 或 接近 坷 异 的 , 则 他 今 所 叙述 的 疡 法 邦 寺 能 二 
牙 , 议 使 8x 不 能 焉 确定 . 储 芒 境 运 的 话 , 这 砷 情况 在 夹 际 中 常常 不 会 发 后, 解决 处 理 这 些 奖 题 的 方 直 已 有 
进展 ,和 放 处 理 的 问题 包 人 党 若 检 测 出 奇异 性 或 接近 奇异 性 ,如 调节 J 的 制约 数 及 扰 区 由 最 容易 快 胸 的 是 .在 
牛顿 法 中 用 QR 分 解 玖 代 ZU 分 触 ! 估 阅 [1j) .我 们 个 人 的 经 验 是 , 当 某 -了 囊 方法 , 疡 能够 解 次 本 确实 为 奇 
和 异 的 问题 以 及 标 雁 牛顿 法 大 效 的 问题 ;但 旦 这 六 法 序 用 于 其 他 LE 分 解法 虐 功 的 问题 中 , 却 可 能 稳健 竹 减 
少量 然 , 这 里 重要 的 忌 要 包 信 舍 人 误差 ,下 溢 等 等 问题 。 

我 们 的 求 极 小 化 种 找 零 值 的 全 局 策 略 都 是 基 十 线性 搜索 .其 他 一些 个 局 算法 ,如 钩 形 步 长 ;hock 
step) 法 和 狗 腿 曲折 形 步 长 (dogyeg xtep) 法 ,都 是 某 于 模型 可 信 夭 域 方 法 , 它 和 非 线性 最 小 .… 杀 的 蔓 渔 俯 格 
一 一 马 阔 特 算法 有 关 ( 第 15.5 节 )。 尽 管 这 些 方法 比 线 生 搜索 法 要 复杂 得 多 ,但 是 这 些 方法 以 稳健 性 而 疏 
名 .其 全 当 起 始 时 远 匈 所 期 望 的 零 值 或 最 小 值 , 它 仍 是 疗 健 的 恨 ， 
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第 十 章 ”函数 的 极 值 


10.0 引言 


这 一 章 我 们 所 要 研究 的 问题 , 简 言 之 , 即 : 给 定 一 个 函数 广 它 依赖 于- -个 或 多 个 独立 变 
量 , 间 这 些 变量 取 和 何 值 时 ,上 达到 某 一 极 大 值 或 极 小 值 .而 在 这 个 级 大 值 点 或 极 小 值 点 处 . 画 
数字 的 取 值 又 是 什么 。 求 极 大 值 问题 与 求 极 小 值 问 愿 之 问 可 以 说 基 关 息 恨 关 的 ,因为 :的 
极 大 香 恰 浆 与 “了 的 极 小 值 相对 应 ,对 计算 方法 的 要 求 . 求 极 值 与 其 它 问题 -- 样 ,都 希 菠 
度 快 .计算 基 小 且 占 骨 内 存 少 :-' 峰 阅 来 ,计算 量 的 大 小 主要 中 决 于 函数 伪 的 计算 量 (根据 算 
法 的 不 同 ,可 能 还 包括 / 对 其 所 有 变 元 之 偏 导 的 数值 计算 量 ) .因此 ,了 阅 届 计 算法 的 思想 
也 很 简单 , 即 尽 可 能 地 使 计算 / 伸 的 次 数 越 少 起 好 。 

归 数 的 被 值 ( 极 大 值 或 极 小 值 ) 可 以 是 特 体 的 ( 即 终 数 算 正 的 最 大 值 或 最 小 值 》, 让 可 能 
是 局 部 的 (在 有 限 邻 域内 的 最 大 值 或 最 小 值 ,不 包括 这 个 邻 域 的 边界 六 殉 图 10, 0. 1 一 般 说 
来 : 求 整体 骸 值 是 一 个 很 难 解 决 的 痢 题 ,月 前 广泛 采用 的 是 两 种 标准 的 启发 式 方法 :- :其 ,从 
独立 自 变量 的 各 种 不 同 初 值 象 第 7. 7 节 中 那样 拟 随机 选取 ?开始 , 求 出 所 有 局 部 极 值 ,然后 
从 中 选 出 最 大 的 或 最 小 的 (如果 这 些 拟 部 极 值 不 是 完全 - 样 的 活 ): 二 录 , 对 局 部 极 佳 以 -- 有 
限 步 长 的 扰动 ,然后 分 析 由 此 计算 出 来 的 结果 ,是 稍 有 改进 呢 , 还 是 “ - 喜 ” 保 持 不 变 , 值 得 一 
提 的 是 ,近年 来 有 一 类 称 为 “ 模 氢 退 火 "的 方法 ,在 各 种 全 局 极 小 化 问题 上 取得 了 一 些 重 昌 的 
和 成 功 的 进展 ( 详 见 第 10.9 节 )。 








大] 和 


点 4\C, 厂 为 局 绒 ( 非 整体 ) 驾 大 侦 : 点 吕 和 了 为 首部 (不 是 整 栖 的 ? 枚 小 值 .整体 极 大 优点 为 
人 点 ! 它 位 于 区 阅 的 边 准 上 ,因此 对 孝 在 该 点 的 导数 不 必 为 零 . 束 体 极 小 值 位 于 刀 点 -在 点 五 
处 半数 但 高 于 一 除 的 部 为 军 : 这 种 情况 对 某 些 算 法 来 说 ,可 能 佐 带 澜 处 理 上 的 不 便 。 我 们 称 
点 避 ,Y ,ZX 划 界 " 了 报 小 值 点 开 , 这 是 因 鸭 世 点 的 函数 值 比 民 点 和 了 点 的 函数 俏 都 小 。 


郴 10.0..1 在 某 - -区 合 内 的 函数 极 值 
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本 章 的 题目 也 可 以 好 作 最 优化 , 它 是 这 一 广 江 的 数值 研究 领域 中 所 通常 采 性 的 名 河 ,最 
优化 方法 之 所 以 重要 .是 央 为 它 扩 涉 及 的 问题 形形色色 ,种 类 繁多 ,而 这 一 重 上 要 性 在 很 大 程 
虚 上 也 依赖 于 特 味 问题 的 炮 殊 要 恢 . 比 如 说 ,经 济 学 家 和 工程 师 们 着 重 美 心 
问题 ,这 类 问 而 对 独立 变 莽 的 允许 值 预 和 有 ” 污 的 限制 , 估 如 ,美国 的 小 才 产 量 必 须 是 - 
人 
必 约 束 条 件 正 好 是 独立 变 其 的 线性 组 合 .本章 的 第 16. 8 节 将 对 线性 规划 中 的 所 谓 " 单 站 形 
法 ”进行 讨论 ,但 这 一 节 的 网 容 与 本 章 其 他 各 基 有 有些 不 太 连 员 , 第 10. 9 节 的 内 容 也 脱 平 我们 
本 章 所 讨论 的 主题 之 外 上 内 容 , 其 原 闷 在 于 : 夺 彰 的 "退火 法 ?有 日 前 还 很 新 ,我 玉芝 沿 林 能 页 
定 它 适合 于 问题 求解 过 程 中 的 哪些 步 蛇 . 但 是 ,我 们 知 章 退火 法 确实 解决 了 此 以 再 入 认为 
在 实际 当中 不 能 解决 的 问题 ,而 且 它 直接 提出 了 在 人 量 局 部 极 值 中 , 求 整体 段 值 这 交加 题 
其 中 这 些 局 部 仅 值 的 数 日 常常 是 本 可 其 期 | 的， 

本 章 的 其 他 各 节 , 精 选 了 多 种 无 约 环 极 小 化 问题 的 最 优 算法 (为 明确 起 见 , 在 后 面 的 认 
沦 中 ,我 们 认为 最 优化 问题 就 是 求 极 直 值 思 题 ,这些 章 节 是 连 黄 的 ,后 面 的 内 容 依 太 于 前 面 
的 讨论 .如 果 读 者 只 想 找 一 种 "完善 ”的 筑 法 来 解决 此 个 特殊 所 题 ,那么 你 可 能 会 巧 到 书 小 不 
讲述 的 内 容 比 你 想 要 了 解 的 东西 多 . 姓 佑 的 是 ,日 前 还 没有 一 种 完善 的 投 优 化 算法 。 央 比 我 
们 建议 读者 多 试 驹 几 种 算法 ,多 作 些 比较 .对 十 最 初 算法 的 选择 可 以 从 如 下 儿 六 面 来 芭 故 : 


“目前 有 两 种 方法 可 供 选 择 , 一 种 只 需 计 算 目标 函数 的 值 , 另 一 种 还 需 计 算 丽 数 的 尽数 
全. 在 多 维 情 次 下 ,函数 的 导数 即 梯度 , 亡 是 “个 同 放 使 用 导数 的 算法 东 某 些 务 能 上 优 于 只 
使 用 函数 值 的 算法 ,但 功能 上 的 优点 通常 不 足以 补偿 所 卉 加 的 导数 的 计算 量 。 我 们 可以 拒 容 
易 地 构造 出 这 两 种 方法 的 例子 , 供 足 ,如 果 岗 数 的 导数 可 以 计算 出 来 , 则 不 妨 试 善 贬 它 1 : 
分 利用 。 

“对 于 不 老 计 算 蝶 数 的 一 维 极 小 值 问题 ( 即 求 个 自 变 晶 的 函数 的 锯 小 值 ; .可 以 秒 利 
第 10. : 节 介 络 的 方法 确定 极 小 值 点 让 在 的 区 间 . 然 后 再 用 第 10.2 节 的 布 伦 特 (Hrent ; 方法 求 
解 .如 果 目 标 般 数 二 阶 ( 或 更 低 阶 ) 导 数 不 连续 , 则 布 伦 特 方法 的 抛物 线 内 插 不 运 合 使 用 .这 
时 可 使 用 黄金 分 制 搜索 方法 的 最 简单 的 形式 ( 详 见 第 10. 1 节 )， 

' 对 于 需 计 算 导 数 的 一 维 极 值 川 题 ,第 10. 3 节 提 供 了 布 伦 特 方法 的 一 种 变化 形式 ,这 种 
方法 只 是 有 限 地 利用 了 - 阶 导数 的 信息 。 一 般 情 况 上 ,我 们 都 回避 用 导数 信息 去 构造 高 阶 的 
内 插 多 项 式 , 因 为 赁 我 们 的 经 验 , 这 种 作法 在 收 化 性 方 灿 的 改进 ( 即 收 化 到 ， 光 汕 的 解析 
的 极 小 值 附近 ,并 不 能 弥补 多 项 式 在 选 代 初期 作出 错误 内 播 的 趋向 ,特别 于 那些 具 右 极 
明显 指数 "特征 的 示 数 。 


现在 我 们 再 来 在 看 多 维 情况 , 寺 论 -上 使 遇 和 不 使 厅 - - 阶 导数 的 算法 需 注 吉 的 癌 题 。 

“我们 同样 必须 在 两 闫 方法 之 间 油 选择 ,一 种 是 存储 数量 级 为 N: 的 算法 . 另 一 种 是 数 
量 级 仅 为 N 的 算法 (这 里 N 为 礁 数 )。 黄 然 对 十 的 适中 值 以 及 合理 的 内 存 太 小 ,这 -约束 
并 不 算 苛 刻 , 但 偶尔 也 和 一 些 辣 题 对 在 储 最 的 要 求 很 严 祝 。 

“在 第 10. 4 节 中 ,我 们 将 给 出 下 降 的 单纯 形 法 ,这 种 不 太 受 人 重视 的 算法 是 山内 尔 德 
《Nelder)? 和 米 德 LIMecad) 提 出 的 ,5 注意 .这 里 所 用 的 “单纯 形 - 词 不 能 与 线性 规划 中 的 单 站 
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形 广 法 机 混淆 :》 它 在 目标 明 数 几乎 不 需 作 任何 特殊 的 假设 ,是 一 种 自 接 的 下 降 算 法 : 拱 1 生 
速度 虽然 很 慢 , 介 在 某 些 情况 下 ,也 算是 一 种 功能 很 强 的 算法 :特别 值得 提 的 是 ,这 种 并 让 
的 源 程 序 相当 简明 ,而且 完全 不 需 其 他 任何 调用 .你 也 许 会 党 得 不 可 思议 .这 个 求解 县 六 
维 极 小 化 问题 的 程序 还 在 是 100 行 语句 ! 如 果 在 某 个 整体 项 目 中 , 求 极 小 亿 问 题 仅 伏 是 其 中 
的 “个 枝 节 部 分 .那么 这 种 广 法 将 是 最 实用 的 ,其 存储 数量 级 为 司 ,并 且 不 需 计 算 导 数 

， 第 10, 5 节 将 介绍 以 鲍威尔 (Powell) 算 法 为 原型 的 方向 集 法 ,在 函数 的 导数 不 易 计 人 算 
时 ,可 计 择 这 类 方法 ,即使 在 导数 可以 计算 时 , 凄 者 也 不 妨 试 .方向 集 法 昌 然 不 需要 计算 本 
数 ,但 却 要 用 到 一 维 极 小 化 子 算法 ,如 布 伦 算法 等 ( 见 由 文 )。 这 种 方法 的 存储 数量 级 也 直到 
和。 


在 求 多 维 极 小 化 问题 的 算法 中 ,需要 一 阶 导数 参加 运算 的 方法 主要 有 两 类 ,它们 部 要 利 
用 一 维 的 子 算法 ,春子 算法 本 身 用 不 用 导数 信息 都 无 纺 ,只 柳 认 为 合适 即 可 (依赖 于 国 数 及 
其 梯度 向 量 的 相对 计算 量 )。 需 要 说 明 的 是 ,对 于 各 种 应 用 问题 来 说 ,并 不 是 某 一 类 算法 占 主 
导 地 位 ,两 老 均 可 供 选择 : 


， 第 一 类 通称 为 共 乌 梯度 算法 ,典型 的 有 弗 药 彻 -里 弗 斯 (Fletcher-Reeves) 算 法 ,以 及 与 
之 密切 相关 旦 比 它 有 所 改进 的 波 拉 克 - 里 和 拜 尔 CPolak-Ribiere) 重 法, 共 斩 梯 度 法 的 存 情 量 只 
是 六 的 几 傍 数量 级 ,但 需要 计算 导数 及 … 维 子 算法 。 详 细 的 讨论 及 程序 实施 请 见 第 10. 6 区， 

第 二 类 算法 统称 为 拟 牛 旺 (Newtow ?法 或 变 度量 法 ,典型 的 有 戴 维 登 - 弗 莱 彻 - 狂 威 伏 
《Davider'Fletchecr Poewell) 算 法 ( 简 妃 为 DFP 算法 .有 时 也 称 Flecher-Powel' 算法 . 布 罗 依 
轰 - 弗 莱 彻 - 姜 尔 法 布 -香农 算法 (BFCS) 等 ). 这 些 算 法 存储 基 都 达到 NM: ,需要 导数 信息 及 一 - 
维 子 算法 , 详 见 第 10. 7 节 。 

至 此 ,我 们 就 可 以 进入 本 章 正 晤 , 试 探 一 上 求 极 小 值 可 题 的 难 易 程度 如 何 。 


10.1 一 维 黄金 分 割 搜索 


让 我 们 回忆 一 下 ,第 9. 2 节 中 的 一 分 法 在-- 维 情况 下 是 如 何 求解 方程 根 :首先 ,假设 下 落 
在 某 -区 间 (a, 允 内 ,然后 ,计算 函数 在 区 问 中 间 某 点 x 的 值 , 得 介 :个 较 小 的 划 界 的 区 右 
(asz) 和 (z,b)。 其 长 度 显然 小 于 原 区 间 (a, 纺 ,二 分 法 求 根 即 对 上 述 过 程 进行 迭代 , 直 玛 区 
问 的 长 度 足够 小 为 止 . 显 然 将 z 选 为 Ce, 妇 区 间 的 中 点 是 最 恰当 的 ,这 样 即使 在 函数 "不 合 
作 ” 的 情况 下 ( 即 下 一 解 区 条 总 是 被 迫 选 为 较 氏 的 区 间 段 ), 也 能 使 区 间 长 度 的 减 小 速度 达到 | 
最 快 。 

一 分 法 的 这 些 思想 完全 可 以 平移 到 求 极 小 值 问 题 上 ,但 有 一 点 不 太 好 提 枝 的 是 :如 何 对 
极 小 值 点 划 界 呢 ?如 果 函 数 在 a,2 两 点 (满足 a<<6) 的 值 具 有 相反 的 符号 , 则 该 函数 必 有 一 
个 根 落 在 点 对 a 与 5 之 癌 。 与 之 对 照 , 如 果 当 有 三 点 组 apic 满 足 a<-b<xc 或 c<p<:a,EL2 
点 函数 值 比 a 点 和 “点 的 值 都 小 , 则 称 为 有 一 极 小 值 被 划 界 . 对 .上面 这 种 情况 ,函数 (如 果 是 
非 奇异 的 ) 极 小 值 显 然 沙 在 区 间 (evc) 内 ， 

与 二 分 法 类 做 ,我 们 需要 在 < 和 之 间或 5 和 < 之 间 选 择 一 个 新 的 点 z. 假 定 在 清和 。 
之 间 选 定 了 基点 <，* 并 计算 出 乒 z) 的 值 。 如 果 ./ 交 >ACz), 则 取 新 的 三 点 组 为 Ca.523; 相 
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反 地 ,如 果 AO<FCzr) 则 新 的 三 点 组 将 到 为 (zs 不论 哪 一 种 情 训 ,一 点 组 的 中 国 点 的 
纵 坐 标 总 是 当前 得 到 的 丽 数 值 中 最 小 的 ,由 图 10. 1. 1。 继 续 这 一 过 程 , 真 人 三 点 组 由 的 两 外 
点 距 麻 小 到 可 容许 的 程度 为 止 。 








包 富 执 小 点 的 划 界 区 间 并 始 时 昌 为 点 1,3,2, 计 算 范 数 在 点 4 的 值 ,由 芯 4 代 赫 点 2; 然 乒 由 点 5 
代 亚 点 : ;楼 着 浆 由 点 6 代 普 点 4, 每 水 迁 代 的 规则 是 保持 三 点 组 的 内 点 函数 仁 始 终 比 两 外 点 
的 两性 值 小 -经 计 几 中 所 示 的 几 步 搜索 之 后 , 概 小 值 点 被 划 关 在 点 3,6,5 之 问 。 


图 16. 1. 1 求 极 小 值 的 逐步 划 界 过 各 


但 “可 容许 小 "到 底 有 多 小 呢 ? 若 男 数 在 点 取 极 小 值 ,读者 可 能 会 简单 地 认为 , 极 小 值 
点 的 划 界 区 间 范 围 最 终 可 以 小 到 (1 ep<-6< 0L 十 5)8, 这 里 < 为 所 使 用 的 计算 机 的 衣 点 精 
度 , 如 3X10 一 (对 译 点 数 ) 或 10-5( 对 双 精 度数 ) ,事实 上 不 是 这 样 的 ! 一 般 地 ,在 名 点 附近 上 
(z) 的 形式 可 由 泰勒 (Taylor) 定 理 给 出 ; 





yz) xs FeO) 十 二 FDCz 一 六 (10.1.1) 
当 
| 六 一 下 < we | 三 | 中 人 | 《10. 1. 2) 


时 式 (10,1, 1) 中 第 二 项 较 第 一 项 小 上 倍 ,车 将 它 加 到 和 式 中 无 异 相 当 于 添 零 , 因 此 可 忽略 。 
我 们 将 式 (10. 1. 2? 中 的 右 端 项 写成 所 示 形 式 是 因为 ,对 绝 大 多 数 函 数 来 说 ,最 后 的 平方 根 项 
大 一 个 单位 阶 的 数 .因此 ,根据 粒 略 估计 ,要 想 划 界 一 个 和 区 间 , 使 其 长 度 小 于 其 中 心 值 的 
Y < 倍 , 即 只 有 大 约 10……( 单 精度 ;或 3X10“( 双 精度 ) 的 宽度 ,这 几乎 是 不 可 能 的 。 只 要 我 
们 清楚 这 一 事实 ,就 可 以 避免 做 许多 无 用 功 。 

本 章 给 出 的 求 极 小 值 的 程序 通常 需要 一 一 由 用 户 提供 一 个 参数 tol ,并 要 求 程序 返回 机 
坐标 的 相对 精度 达到 士 tol ( 划 界 区 间 的 长 度 为 ?xtol)。 除 非 能 对 式 (10.1. 2) 的 右 映 项 给 
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由 更 好 的 估计 值 ,否则 必须 置 tol 等 于 机 区 淫 点 精度 的 平方 根 ( 不 能 小 得 人 多 ) ,因为 蕊 之 中 
小 的 值 将 得 不 到 任何 结果 。 

剩 下 的 所 题 就 是 要 在 给 定 se,2e 的 条 件 卜 , 刘 亲 确定 新 的 点 <, 设 问 分 ac 闸 的 距离 为 
比例 忆 , 即 ; 


如 一 全 发 
一 -一 一世 





E 的 全 Ge 起 
艾 腥 下 … 试 验 点 工 哥 9,ese 的 关系 如 下 式 所 示 : 
网 一 占 ， 
CE 全 := 5 


则 下 “个 划 眶 避 的 长 庆 将 二 当前 区 间 长 度 的 te 十 = 们 或 1 一 we 倍 .为 了 使 最 坏 情况 下 开 的 可 
能 性 达到 最 小 , 找 们 选择 一 个 = 值 , 氧 得 世 += 一 1 一 ao, 即 
多 = 一] 一 280 (1.1 

六 册 可以 看 出 ,新 点 xz 是 在 原 区 问 内 点 的 对 称 点 ,也 就 是 说 6 一 a| 等 于 1z 一 <: 这 说 明 点 
z 位 于 两 小 段 区 间 中 较 长 的 那 一 段 中 ( 仅 当 xe<- 二 时 ,> 为 正 )。 

但 是 = 究竟 位 于 较 长 区 间 段 的 什么 其 体位 置 上 yw 值 本 身 又 从 哪里 得 到 呢 ? 我 们 展 这 
由 是 从 前 面 的 步 又 中 得 到 的 ,因此 ,如 果 = 的 选择 是 最 佳 的 ,那么 在 此 以 前 选择 的 < 也 是 最 
佳 的 .这 一 比例 相似 性 说 明 z 分 4.e( 很 设 从 到 为 较 芭 区 所 段 ) 的 比例 与 如 分 e.c 的 纺 例 
应 要 癌 ,也 就 是 说 : 


和 一 忆 (1 1.8) 


Go 1.5 下 及 (10. 1.5) 式 可 以 得 到 一 次 方程 


& 一 3 十 1=0 和解 得 也 = 和 :0, 38197 | 国人 


3 一 5 
2 
从 这 :结论 分 析 , 最 佳 划 界 区 间 a<<p<ce 应 满足 内 点 如 与 其 中 一 个 外 点 (如 9 的 距离 尼 

例 为 0, 38197 ,而 与 另 一 外 点 (如 上 的 距离 比例 为 6 61803 。 这 些 比 例 即 所 谓 的 黄金 中 项 或 

黄金 分 割 数 , 它 的 美学 性 质 可 追 漳 到 遥 还 古代 的 毕 达 哥 拉 斯 年 代 (Pythagoreans), 这 种 与 一 

分 法 求 根 类 似 的 函数 极 小 化 最 优 方 法 也 由 此 得 各 为 黄金 分 割 搜索 . 我 们 将 其 归纳 如 下 : 

在 每 一 步 划 和 失 中 给 定 一 个 三 点 组 ,下 一 试 控 点 取 在 较 长 区 间 段 的 0 338197 分 割 点 (从 

二 点 组 的 中 问 点 量 起 ) -如 果 开 始 时 划 答 的 三 点 组 的 各 段 没 有 按照 黄金 曲 牵 分 割 , 采 人 么 乏 次 

选择 黄金 分 割 点 的 程序 将 会 很 快 地 收 伍 到 合适 的 ,自行 重复 的 比 当 ， 
黄金 分 割 搜索 可 以 保证 每 计算 一 次 函数 值 (获得 自行 重复 的 比率 之 乒 ), 划 界 反 让 长 虚 

变 为 原来 0. 61803 倍 , 但 这 与 二 分 法 求 根 中 的 0. 50000 倍 相 比 ,显然 要 差 一 些 . 黄 金 分 割 法 

的 收 敏 是 线性 的 《 按 第 儿 章 的 语言 来 说 ), 即 随 着 附加 上 是 数值 的 计算 ,有 效 数 宁 逐 步 线性 增 

长 。 下 : 节 中 我 们 还 将 介绍 一 种 超 线性 方法 ,这 种 方法 每 作 - -次 丽 数 计算 ,有 效 数 字 的 增长 

速度 都 有 所 提高 


10.1.1 确定 初始 划 界 为 极 小 的 程序 


我 们 在 前 面 的 讨论 中 ,已 伏 定 初始 划 界 区 问 是 能 够 确定 的 ,并 认为 这 是 所 有 一 维 极 小 值 
问题 的 -个 基 水 步骤 .虽然 有 某 些 一 维 算法 不 需要 确定 严格 的 初始 划 界 的 区 间 ,但 大 即使 这 
:338 ， 


些 非 划 界 算法 程 岩 在 运行 过 程 中 能 保证 函数 值 不 断 减 小 ,我 们 也 始终 不 能 确 售 杖 小 俩 的 存 
在 .因此 在 求 极 小 值 ( 或 零 解 ) 之 前 ,一 定 要 确定 包含 它们 的 区 闻 ! 

确定 初始 划 界 的 步 又 和 方法 没有 太 多 的 理论 依据 ,虽然 向 下 搜索 这 一 方 扣 是 很 明确 的 、 
但 究竟 搜 索 壳 远 呢 ?从 初始 预测 值 ( 胡 稍 的 2) 开始 ,我 们 看 型 采 皮 越 来 碟 大 的 步 长 , 汕 天 步 长 
的 方法 既 可 以 通过 -常数 因子 ,也 可 以 利用 前 面 的 风光 的 全 区 
就 是 为 使 我 们 达到 外 推 拐点 .即使 步 长 增加 到 很 大 也 是 没有 光大 关系 的 ,因为 我 门 池 竟 
作 向 下 搜索 ,所 以 已 经 具 各 了 三 点 划 界 点 的 左边 点 和 中 加 点 ,再 用 足够 天 的 一 步 芭 局 小 下 
的 趋势 ,就 可 以 得 到 函数 值 略 高 的 第 二 个 点 : 

葡 定 切 始 搜索 区 问 的 标准 程序 如 下 所 示 : 
共 include <math.h>> 
让 include ”nrutil hy 
共 define (XIT.D ].518031 
江 tdefine 全 1].1MTIT 120.0 
芝 define TINY 1.6e: -320 


区 define SHEFT(E bcsc) Ca [bitb) 一 (cji(c) 一 (qd)i; 其 中 GOLD 是 注 续 区 域 就 大 的 缺 宕 倍 亚 ;GLIYIT 
是 热 物 线 拟 会 过 程 中 允许 的 其 大 放大 馆 数 ， 





yoid mnbrak (gcat >* ax，[lcat * bx loat #eXy 了 oal 关 和 aa 了 ioat 关 b，float #fcy dloat《( xiuneycfloar)) 
给 定 一 个 函数 fune 及 了 两 个 相 异 霹 妈 点 ax 和 bx ,本 得 序 沿 向 下 方向 进行 搜索 (方向 是 出 画 邹 在 初始 点 站 约 值 确 证， 


并 返回 三 个 新 的 点 ax,bxyvcx, 白 它们 确定 的 区 间 能 划 更 函数 的 一 个 极 小 人 + 本 称 序 同时 泛 回 的 还 省 丽 数 在 这 三 个 
点 的 值 fa 了 b 及 


float ulijm,u;T,q,uduai 


二 于 as{4fUDC7》(xax)] ; 
fb 一 (#funcr) et ; 


17 (efb > wfay 1 交换 a , b 的 位 置 ， 使 能 够 沿 着 由 a 划 b 方 癌 问 于 
SHEFT(dum ,eax ,dt ) 搜索 
SHEFT(dum ,*fb,wfa,duanm) 

下 

本 CXm (sbI) +GOLDe (wbX-*RX) ， “的 第 一 个 佑 值 

中 主 忆 一 《tt [中 CXD 3 

while frfb > fc) { 攻关 直接 二 风 和 人 
Te=(ebx-wax7e(sfb~efc)i 过 na ,bc 的 地 物 外 推 计 
(和 bx-FCX) CETD-ea) ; TTNY 在 此 二 的 作用 是 的 下 被 学 了 
me 《wbX) -中间 一 申 心 X)》# 可 -中 b 工 一 ea 工 )) 的 将 况 发 生 


【2.0wSIGMCENMA 居 (下 abBfq-r) ,TINY) ，q-r))i 
习 工 1 王八 才 蔬 其 ) 十 人 LT 类 IT 了 【 人 证 C 工 一 让 DX》; 
至 此 程序 不 能 再 往 下 进行 了 。 痪 在 来 考虑 一 下 各 种 可 能 的 情况 
if 〔[ebx-uyerKu-scx) > .0) 苹 4 位 于 b 和 aa 之 问 
fumfefunc) (u) ; 
if (fu < +zc) 1 在 b,e 之 间 找 到 了 -个 级 小 点 
中 旦 夺 四 【中 了 ; 
DZXsUi 
sz( 闻 fb)] ; 
中 芋 b= 丰 u 
YetQUIDR 
elae if (fu > *tfb) 工 在 a 和 之 间 找 到 了 一 个 极 相 点 
让 尼 卫 噩 ) 
了 Camfui 
TStWUIDI 


上 
Unm (mcxz)+GOLD4 (=cX-=bz) ; 朱 物 线 拟 合 不 发 挥 作 用 利用 缺 省 的 放大 倍 孝 
fum(afunc)tu); 


》 elsa if 《(*Cx-u)ysfu-ulioy》 > 0.0) 1 坎 物 线 拟 合 在 及 其 允许 限 立 撞 
fo= (afunc) Cu)i 进行 
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:E (fu *fc) 荆 
SHFT[ebX ,weCX ， 世 ， 本 CX+OOLD4 【直上 太 -时 bx 》 
SREFTK*fb ,stc ,tufetuncl(u)y) 


上 
} else if 【fu-uliz)*[a1iam-*cxr)》 >= 0.D)》 T 蕴 期 物 线 由 界 室 租 最 太 人 允许 信 内 


=alim: 
TueCwEunc) Ku] : 
) alse 了 放弃 4， 利 用 斋 客 的 放大 代数 
u=fs*cx)+rGDLDw(wcF-br) ; 
fu=(sfunc)ftu) ; 
》 
SHFTUeax ,ebxy ,scxz,n) 去 掉 最 开始 的 点 . 几 续 执行 搜索 


SiFTKsfa。+fb ,*zc,Ezu) 
了 


《时 为 上 述 程 序 要 对 三 .四 个 点 及 其 函数 入 进行 分 析 和 和? 计 论 , 所 以 其 结 是 看 芷 米 似 乎 汉 淋 粹 ， 
本 章 中 还 有 几 个 程 评 也 是 如 此 ,但 它们 中 癌 包 含 的 总 想 却 相当 科 单 ， 


10. 1.2 黄金 分 割 搜索 方法 的 应 用 程序 


苹 imclude < 天 matbh.h>> 

并 define R 0,61803399 黄金 分 制 率 

共 refine CC fl.0 一 R) 

# 并 define SHFT2(abycey 《a) 一 (byifb) 一 (ci 

并 define SHTFT3(atbycrd) ta 一 (botb 一 (cxrfoy-(d)， 


fleat golqenkfiloat axy， float bx， float cx Hoat (*ffflost)》。 float roly float * xmin) 
给 定 -个 函数 及 一 个 包 食 嚼 小 值 的 一 点 组 ax,bxvrxi 其 书 bx 位 十 ax 与 ex 之 闻 . 其 二 数 值 fbxy 比 Etaxy 允 fiexi 
都 小 )。 本 程序 将 利用 万 金 分 市 搜索 方法 未 了 的 极 小 值 ,结果 的 相 邓 畏 度 可 达到 tel, 其 中 板 洒 值 点 的 得 囊 术 几 汉 
xmn 下 加 ,而 极 小 友 的 商 数 值 则 以 aolde 返回 Cgolden 也 是 本 琵 庄 的 返回 仁 ? 


证 
flLoat Et2,XD,XII2,X3S; 
XO=arx;i 每 个 时 刻 都 要 距 踩 四 个 点 
I3mcCxXi I0 , 工 1 , 革 2 ,X3 ， 
if (fabsfcx-bz} > 了 abs(bx-ax]] 工 以 xx 作为 较 每 区 问 段 的 端点 
XLebxi 
x2=bx+Cwgcx-hz] 并 填 和 新 的 调 探 点 
》 alse 工 
工 2ebxi 
工 1=<bx-C+tbr-axr) ; 
1 
下 1= 《we) (1》 明 数 信 的 计算 注音 珊 数 在 质 始 端点 的 落 总 是 
2= KeE) ( 工 2 不 浏 计算 
bile (iabatX3-IO) > To1#tftabefzl)+fabsfz2y)》 工 
证 《zt2 < TI 一 个 可 能 的 结果 
SHFT3(xn ,zl1,Z2,Hez1+CeX3) 作 记录 
SNHFT2ff1,f2,fet) fr2)) 计算 攻 的 画 数值 
》 else 工 男 一 种 结果 
SHET3(X3,x2.Z1,ReI2+C*XOy 
SHEFT2(T2,tI,fsf) (zi)》 计算 新 的 画 数 首 
] 
】 若 进 行 完毕 列 回 头 看 
ii (tl < f2》1{ 进行 完 叱 。 辕 出 阅 个 当前 值 中 最 住 的 尼 一 个 
哩 mL 亚 和 二 了 
TetErm 了 1 
else 1{ 
闻 了 mi 卫 王 入 人 
TaturD 节 2; 
小 
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10.2 抛物 线 内 插 和 一 维 布 伦 特 方法 


在 圭一 节 给 出 的 程序 mnbrak 中 , 曾 即 提 到 过 扫 物 线 内 捕 用 途 .现在 我 省 炒 此 进 一 冰 的 
详细 探讨 .假设 我 们 费 了 半天 劲 才 发 现 其 个 极 小 点 ,而 . - 直 未 计算 出 来 ,这 不 能 不 令 人 倚 火 ， 
实际 上 黄金 分 割 搜索 方法 的 设计 正 是 为 了 有 效 地 处 理 这 种 最 二 的 可 能 .但 敌 们 必 什 么 归 候 
设 这 种 最 坏 情 况 呢 ?如 果 函 数 在 极 小 值 附近 具有 很 好 的 抛物 线性 质 { 足 够 光 清 的 半数 - 股 部 
县 备 这 一 性 质 ) ,那么 利用 过 任意 二 点 拟 合 出 来 的 扼 物 线 ,应 能 够 很 容易 地 求 出 骨 小 休 ,或许 
至 少 能 够 非常 接近 极 小 值 ( 见 图 10. 2. 1)。 由 打 我 们 的 目标 是 求 极 小 值 点 的 椰 举 人 .出 椒 是 其 
纵 坐 标 , 因 此 上 述 方法 在 技术 上 被 称 为 道 执 物 线 内 播 。 





本 .的 物 线 通过 《DC)G) 
晤 到: 抛物 所 通过 ”GD GCC) 














过 给 定 琢 娄 (图 中 以 实 线 表示) 上 的 三 点 1] :243 作 一 条 扫 物 线 5( 图 中 不 线 所 示 ) ,计算 在 
先 线 的 极 小 值 点 处 的 函 归 值 4, 并 以 此 点 代替 点 3。 弃 过 点 1,4,2 作 -条 新 的 质 物 线 (网 中 
点 线 所 示 ) .这 条 揣 物 线 的 极 小 值 点 5 已 经 很 接近 目标 函 教 的 极 小 廿 点 。 


图 10, 2.1 州 道 抛物 线 内 捅 法 收 狂 到 极 小 点 的 过 程 图 


对 于 过 Fa) ,Ab) ,Fec) 二 点 的 抛物 线 , 其 极 小 值 点 的 横 坐 标 公式 为 : 
本 汪汪 工 雪 一 ar7) 一 Ac) 一 所 一 cJFGO) -Ca)] 
2 塌 ea)LAG) 一 Fec)] 一 外 一 LAFCOD -- Fa)] 
显然 能 很 容易 得 到 .只 有 当 三 点 具 线 , 即 分 母 为 零 时 (此 册 抛 物 线 的 极 小 值 在 无 益 近 处 )， 
这 个 公式 才 是 无 意义 的 .但 是 ,还 应 注意 到 由 式 (10. 2. 1) 求 出 的 点 既 可 以 是 抛物 线 的 极 小 
值 , 也 可 能 是 极 大 值 点 .在 实际 当 十 ,没有 一 种 求 极 小 值 的 方案 仅仅 依赖 于 式 (10. 2. 1? 就 能 
得 到 成 功 的 结果 。 
我 们 的 任务 就 在 于 设计 种 方案 , 当 函 数 * 不 配合 "时 能 依赖 士 一 种 收 伍 速度 卉 但 很 可 
怠 技 蕊 (比如 黄金 分 制 搜索 方法 ?来 求解 ;而 在 上 身 标 承 数 允许 的 情况 下 ,又 能 转 谭 利 时 式 :10. 
*。 34] ， 








《10. 2. 1) 


2 1) 关 求 解 - 看 来 这 个 任务 并 涉 轻 松原 区 是 站 在 此 种 方法 回转 换 时 ,为 各 例 不 糙 昌 的 儿 起 
站 算 调 压 知 的 记录 工作 可 能 会 很 复杂 ;ii) 在 计算 结 昌 的 末尾 小 数 时 必须 遵 慎 小 心 , 臣 才 北 
时 豚 数 值 的 计算 总 经 第 常 接近 方程 (10.2.1) 的 舍 入 极限 .市 ?检验 H 标 汽 数 由 全 与 责 的 广 案 
届 计 必须 鉴 考 碟 司 全 ， 

布 伦 特 方法 (Brent… 能 在 各 币 特 殊 情 识 下 守成 上 述 夸 务 , 它 在 每 一 特定 阶段 跟踪 二 录 
总 共 六 个 畏 数 点 (不 必 全 不 相同 ) easuyt 及 站 这些 点 的 定义 如 下 :; a 才 之 间 包 含 极 小 
值 点 : x 是 当前 所 能 找到 的 最 小 范 数 值 对 访 的 点 (或 存 丽 数 伟 相 等 的 情况 下 . < 是 最 新 水 出 
的 点 ): ze 咸 的 本 数值 为 第 2 小 的 函数 值 p 是 的 上 次 运 代 值 :而 最 近 一 次 计算 摧 数 值 
是 在 * 点 。 布 伦 特 法 中 ,还 将 出 更 点 ro* 它 是 (we,5 的 中 阿 点 , 亿 不 在 该 点 计算 顺 数 值 ， 

阅读 下 文 的 程序 可 以 了 解 算法 的 四 辑 结构 ,但 这 生还 蓝 提 几 条 有 益 的 般 几 原 则 。 息 设 
用 抛物 线 内 捅 拟人 台 点 rz. 长 允 。 为 了 达到 求解 的 目的 , 抛 海 线 必须 满 是 (i 在 限定 区 间 (e .总 
内 下 降 ，5iD) 从 当前 最 侍 值 * 移动 的 步 长 能 够 小 于 前面 第 二 步 移 吉 步 长 的 : 半 . 后 :条 准则 
铝 让 了 内 搬 步 骤 串 以 有 效 地 收 敏 到 某 点 ,而 不 会 在 某 一 非 收 笋 的 有 限 范 围 内 跳 取 ,在 最 二 叮 
能 的 博 襄 , 扫 锣 线 肉 搬 可 以 进行 人 不 南 作 用 ,这 时 布 伦 尘 方 法 将 父 蔡 使 用 内 插 条 黄金 分 兰 耳 
种 方法 ,并 由 后 者 保证 其 收 伍 忻 ,在 算法 中 更 与 前 而 第 二 步 的 结果 进行 比较 的 理由 芋 : 产 验 
套 明 ,如果 某 一 步 选 代 结 果 不 佳 , 位 却 能 在 下 一 步 中 得 钊 补偿 ,这 时 最 好 不 要 对 其 进行 " 惩 
罚 ? 这 : -点 从 本 质 上 来 看 是 很 有 启发 件 的 。 

程序 中 还 有 一 条 限制 旦 ,函数 在 与 已 计算 过 的 点 (或 已 知 的 端点 ) 相 蝶 不 足 Lol 的 点 处 
不 需 计算 其 值 ,其 中 的 原因 正如 我 们 在 式 (10. 2. 3) 中 所 看 到 的 ,这 栏 做 没有 迁 何 信息 包含 在 
里 本 :这 些 点 的 把 数值 之 可 的 差距 仅仅 在 含 人 误差 的 数量 级 上 ,因此 在 下 面 的 程序 中 读者 可 
以 看 到 ,有 儿 处 开 新 的 可 能 试验 点 的 检验 和 调 束 反 映 了 这 杀 限 制 , 此 外 ,这 条 限制 随 着 * 己 做 

点 "的 测试 会 有 细微 的 相互 影响 。. 央 此 这 点 也 同样 应 考虑 在 列 。 

丰 伦 特 方法 的 运行 结果 ,通常 是 ea 与 8 之 问 相 此 2 * zx*tol, 其 中 二 ( 极 小 值 点 的 横 坐 标 ) 
为 & 与 如 的 中 点 ,因此 它 的 结 现 精度 将 达到 士 tol， 

最 后 应 提醒 大 家 注意 的 是 tol 一 般 涉 能 小 于 机 器 浮 点 精度 的 平方 根 。 


3 include <math.h>> 
立 inelude *mruti hr 


共 define ITMAX 100 允许 牛 代 的 最 大 次 数 
江 define CCOED 全 .381966 丫 黄金 分 割 率 
共 define ZEDPS 1 0e 一 10 对 恰巧 为 堆 的 极 小 值 情 次 而 设置 的 一 个 相对 精确 度 的 小 数 


二 dcfinc SHRTICahesd) cd 一 (bthb) 一 cifc) 一 :d); 


3loat brenttiloat ax float bx，floaty ex，fleat#fyCfloatfy，iloat tol， [float * xrmin) 
给 证 一 个 是 数 了 并 给 定 划 界 :点 舱 横 坐 株 axvhxorx 满 中 lx 位 于 ax 与 cx 之 问 , 其 函数 蔓 ffbx)? 比 fax7 和 [ax 家 


2 本 程 床 将 用 布 伦 糙 志 法 赴 索 工 的 或 小 值 点 ,结果 的 硼 对 精度 克 寺 tol ,其 中 棋 坐 标 已 xmin 返回 . 困 数 优 以 brerrr 
返 阳 (这 也 是 本 程序 欧 巡 回 仁 ,)》 


f 
int 1Iteori 
Yoar 色 ,b,d,etemp ,fu tvEw,EX pqr,totltol2 iv, xxi 
fl1oat e=0.0; 前 第 … 步 移动 的 此 离 
afaxg < CEZ 7? ax : cx)i 交管 由 和 的 篇 入 情 南 如 旭 ， 此 桥 汶 标 扩 
b=(axr > CX ”ax : C3); 按 上升 蚌 字 
X=Vw<vebx; 初 妨 化 


TIw=fv=TX=(*T)CI) 


.352 。 


下 OF 【t 丰 Te1 3; 1tGr<=TTMAXIiter++】 萎 和 富 录 环 
Zm=0.54(a+D) 1i 
to12=2.04+(toll=tol*fabsftX)+ZEPS) 
if (fabs(x-Tm) <= (tol2-0.S+tb-a))) 这 里 做 各 尼 
本 XID=X; 
YBturm 了 X 
} 
if (〈fabs(e) > toll) 《 构造 个 试探 用 的 地 物 线 拟 合 
=(X-w)wftx-zv)i 
qq 天-w) 中 ( 节 工 ~ 人 ) ; 
P=fKx-v)*#q-{ 工 rw)w 工 1 
qe2.0D+(q-r) ; 
if (q> 0.0) P = -p' 
q=fabsg(q) ; 
etGEPp=say 
让 一 日 ; 
诈 【〔fabe(p) >” fabs(0,54qestemp》 |1| p <s= Gy(a-r) || p >= qw[b-x)) 
drCGOLDrfe=fx > xm >? a-X : -xy7) |; 
上 壕 条 件 决定 撼 物 线 内 手足 再 侣 适 。 在 罗 长 区 间 段 采用 黄金 分 割 法 


elIse 妆 
depyq' 采用 抛物 线 内 医 
urer+ 二 |) 
if (u-a< tol2 1 b-u < tcl2) 
GeSIGN{ttoll ,xb~x)i 
} 
]} elae 二 
dmCGOLDrre=I >= Xm ? &-x : bb~x))i 
】 
Un(fabs(d) >= tol1 ? x+d : X+STGNKCtcll,d)?; 
fun(sfytu)i 
每 次 选 代 在 比 处 计算 一 次 邑 数 值 
这 (fu <= fr) 1 并 兰 断 于 -- 步 该 做 什么 ， 接 下 来 内 条 
讶 人 >= X) a=Xi 号 18G bs 和 xi 操作 
SHFTfY,e Er) 
SHFTIEy ,fuv:fx,tuo) 
} elsae { 
诈 上 《 工 ) 3 S15G bu 
if 《tu < ETw 1| ws X) 


VeV; 
JR 
fwvmtwi 
了 weTui 
}elege if (fu xfgv [lvY=mx [| vame 1 T《 
Ye 
fiv=ftu， 
】 
} 整理 完毕 。 返 回 进入 下 索 选 代 
DT@ZTOT{"Too many iterationg im brent")i; 
+Xmjnsxi 
Teturm fxi 
参考 文献 和 进一步 读物 


Rrent， 及 . P，1973，.418corz8hzay or aptozzipatiom zeitpotl Deriaetiper 【Englewood Ciiffs，NJ，Prentice- 
Hal 》，Chapter 5. [1] 


10.3 使 用 一 阶 导 数 的 一 维 搜索 方法 


在 这 一 节 中 我 们 将 详细 讨论 与 上 节 同 样 的 问题 , 即 在 具有 构 坐 标 <<8<-e 生男 的 二 点 
*，343。 


中 搜索 函数 的 极 小 值 .所 不 辐 的 基 , 除 利用 丽 数 本 身 的 值 之 外 ,本 节 所 介绍 药方 法 还 归 台 讲 
函数 的 … 阶 导数 信息 。 

- 般 情 况 下 :我 们 可 能 只 其 简单 地 想到 利用 象 程序 { 如 第 9. 2 节 的 rtflsp 或 zhrema ) 韦 针 ) 
求 根 的 方法 ,来 搜索 导 数 的 零点 ,而 将 函数 值 的 信息 撒 开 .但 很 快 我 们 就 会 放 齐 这 … 杞 法 :6 
为 六 拌 做 根木 无法 区 分 是 极 大 值 , 还 是 极 小 值 ;而 肝 在 届 失 和 件 下 ?如果 重点 的 于 球体 妃 误 
明 * 上 降 " 习 沿 划 界 区 河 之 外 的 方向 ,那么 从 这 样 的 初始 条 件 来 分 析 我 们 根本 无 从 卞 二、 

但 我 们 在 任何 时 候 都 不 想 放 弃 , 将 极 小 值 严 格 划 界 在 其 一 区 间 内 这 一 策略 , 保 拉 渤 个 色 
间 的 唯一 途径 就 是 用 函数 5 而 不 是 导数 ?信息 不 断 更 新 它 , 使 其 中 心 点 的 本 数 信保 拉 雪 皮 - 问 
此 :导数 起 的 角色 仅仅 是 帮助 我 们 在 区 间 内 选择 新 的 试验 点 而 已 。 

有 一 积 观 点 认为 "应 利用 己 经 得 到 的 一 切 信息 ”, 外 求 … 个 相对 高 阶 的 多 项 式 人 这 或 出 
商 次 ) ,使 其 满足 先前 得 到 的 一 些 函 数值 和 导数 值 . 例 如 ,满足 两 点 的 本 数值 碟 导 数 仁 委 工交 
多 项 式 是 咋 一 的 , 央 此 我 们 可 以 转 而 求 这 个 一 次 多 项 式 的 内 插 极 小 值 ( 如 各 在 划 翼 的 区 可 器 
存在 极 小 值 的 话 ),. 上 壕 方 法 的 计算 公式 已 由 戴 维 登 (Davidon 等 人 导出 , 详 见 [1 。 

与 上 述 观 点 相 比 :本 书 中 的 方法 略 保守 。- 且 :种 算法 确定 为 赵 线 尾 收 敏 ,其 收 么 阶 数 
低 : 些 或 高 - 些 都 是 无 关 紧 要 了 . 帮 我 们 所 遇 到 的 一 些 实际 问题 当中 ， 编 大 多 效 蚌 数 计 算 部 
花 在 力图 使 算法 足够 接近 极 小 值 , 以 确保 超 线性 收效 上 .所 以 我 们 更 关心 的 是 ,高 内 多 项 虑 
林 能 引起 各 种 麻烦 (参见 图 3.0. lb) 以 及 它们 寺 舍 入 误差 的 敏感 程 虚 。 

因此 ,我 们 只 能 这 伴 利 用 导数 信息 :根据 在 二 个 划 界 ea<o<e 之 中 心 点 的 导数 符 呈 昨 
地 雇 定 下 “试验 点 是 取 在 ke , 妇 央 ,还 是 在 (pc 由。 将 这 个 导数 值 以 及 当前 仅 次 于 极 小 站 岂 
邮 导 数值 用 弦 城 法 ( 逆 线 性 捅 值 ) 外 稚 到 零 (注意 弦 截 法 本 身 是 超 线性 收敛 的 ,其 收 伊 阶 为 1 
61I8, 这 又 是 一 处 黄金 分 割 比率 , 详 见 :057 页 ). 对 新 的 试验 点 ,我 们 也 象 在 布 伦 特 方法 中 邢 尾 
加 上 同样 的 限制 :如 果 该 坛 验 点 必须 定 放 弃 , 则 对 区 癌 进 行 精细 二 分 。 

在 “ 维 极 小 化 问题 中 利用 导数 信息 时 我 们 的 确 是 衫 保守 的 .但 是 :由 于 某 些 函数 计算 
来 "导数 "并 不 能 与 函数 值 相 统一 ,也 不 能 精确 地 指向 求 极 小 值 的 路 径 ,这 种 情况 本能 不 邻 人 
倍 火 , 它 频 迷 出 现 的 床 因 常常 是 内 为 伟人 误差 的 影响 ,有 时 也 是 由于 在 计算 导数 的 方法 中 归 
现 截断 误 关 。 

我 们 将 会 看 到 ,下 面 的 程序 与 上 节 的 释 序 brent 在 形式 上 级 为 相似 。 





萎 jnclude <math.h>> 

共 inejude ”nrutil, hy” 

共 define ITMAX 100 

几 define ZEPS 3. nc 一 10 

共 defire MOV3(aybye,de,fi)fa) 一 (drtb) 一 (ee) 一 人) 





了 loat dbrenttfloat ax，-joat bx* float ecx, fioatC*fyCiloaty，iloat (*df)Ciloaty， 
了 Loat tel ,float xxminy》 
给 定 一 个 函数 { 及 共 导 函数 df, 并 给 定 一 个 二 全 划 界 点 的 横 耸 标 axybxvcx( 满 足 bx 位 于 ax 与 cx 之 癌 , 忆 fbxl 和 
二 区 ax) 及 [ex)1。 本 程 宁 将 用 布 伦 特 方法 的 修改 形式 , 即 利用 导数 的 布 伦 特 法 搜索 号 { 的 极 沙 值 ,结果 的 灿 对 靖 度 
可 站 tel, 极 小 值 模 坐 祭 以 xmin 返回 ,最 小 晒 数 值 以 dhrent 返回 ,(dbrent 也 是 本 程序 的 返回 值 ]， 

{ 


16t iar;okl,ox2; 作为 标志 、 用 丁 记录 提议 的 方法 是 否 可 
float aihsd,dl,d2,du,dv,dvw,dx,er0.0; 楼 受 
<1oakt Su:fviye:friolde,tolItitol2uulu2V XID; 


+ 344。 


小 硬 的 六 粹 将 骨 出 总 程 序 brenz 的 下 阁 之 处 ， 汪 背 席 次 先 阅 刻 该 祝 此 
routine first- 
a=(ax《 cI? ax : CI); 
和 
XeR=VaDXi 
fw=fv-fx=m[efy(z)i 
dw=dyedx=(*df) 人 xz) 合 明 的 入 总 既 包 括 数 俏 也 包括 明 数 值 
《OF 《iterel1;iVSFXr-ITMAX iiter++) 三 
xm=0.5*+(a+b) 1; 
toltetclwfabstx]+ZEPSi 
TOL2?=2.09tol113 
应 【fabg(xz-xm) <= 《tol2-0.Sh(b-a))y) 1 
9Xmin=Xi 
Teturn fxi 
》 
if [fabs(e)》 > toll)》 苹 
ie2.0*(b-a) 插 出 届 置 为 搜索 芭 问 之 外 的 基 
症 2=d1li; 
if (ds != dzrj dl=(w-z)*drrfdr-dw)， 此 蕉 法 分 强 作 用 十 上 个 点 
if (dv != dz) d2=fv-xz)edxrrfdx-dv) ， 
到 底 取 坚 个 4 们 值 ”我 们 的 蛛 则 是 它们 位 于 搜 索 区 间 内 ， 且 在 X 的 导数 所 指 的 一 番 


D1lezx+dii 

尾 2mI4d2i 

Qkl = (a-ul)t+*(ul-b) > 0.Q &kr dz+di <= 口 .0; 

ok2 = 《a-U2)ztr2-b > 0.0 帮 Gxwd2 < DO; 

clde=e; 前 第 - 步 的 移动 步 长 
号 rd: 


if 《okl 11 ok2) T 内 取 :个 d 秆 ， 若 随 个 都 可 以 ， 取 最 小 
的 那个 


if 【okl be ok2) 
d=(fabetkdl) < tabsa(d2) ? dl : d2)1; 
81398 让 《okTy》 
dcdli 
生 ]S 
dad2 1 
if 〔fabsfd) < fabg(@.5wolde)) 工 
UaX+d5 
if (u-a < tol2 | 上 | b-u < col2) 
d=SIGNLtolL1 ,xn-zr) ji 
} elege 并 -… 分 法 而 不 是 黄 侠 分 庆 潜 
dz=0.5w(Keatdxr > 0.0 ?了 a-X : b-z))i 
由 年 数 的 符 台 决定 取 邯 个 区 间 段 


] else { 
dn0.59(asfdz > 0.0D 7 a-xr : b-x)); 
} 


》 else ff 
dm0.5+(axefdr > DO ? a- : b-x))， 
1 


1 (fabs(dj >= toll) 
UsX+di 
Tu=[+t)(u) 3; 
} elsaeTf 
VW=X+SIGNUtc11.d) ; 
fu=(etyttD) 1 
if ffu > ftz) 苹 若 休 下 路 过 程 中 反而 出 现 上 开 由 已 找 
中 了 本 = 入; 到 极 小 值 点 ， 
TeturQ 于 5: 
】 
} 
dumfadf)ra); 现在 对 全 前 信息 进行 整理 
if (fu <= 革 x) 工 
让 《> 大) 她 = 生 ;号 人 各 各 了 二 下 了 
MBQVY36v ,fyv dy，wyEwdae) 
MOV3Cw,Twdaw，xY,fE,dzr) 
HDVY3(x ,fx,dx，D,fusdau) 
了 else T 


if (u < x) a=ui 8159 b=di 

if ffu < tw 1 ww = X) 1 
MOV3tv:,fv,dy，wifwdw) 
MOV3Ca ,Fw dw，uaifu,dul 

} elaa if (fa<fvr ||v==xI1lY==eyT 了 
NOV3tv,fv,dav，m,fovduny 


了 
了 
nrerxOr("TDo many ttaratton3 in routina dbreat")i 
TetuUrT 0.Di; 冰 远 不 拓 过 这 电 


了 


参考 文献 和 进一步 读物 ; 
Artony 下 .SS，19709。Npmericaz MetRaocts That 玫 or 开 1990，corrected edition 【 峻 ashirgton :Mathemaricsl 
上 SSoOeiation 6Gf 上 merica》，FPp- 55;， 1454~-458.『] 


10. 4 多维 下 降 单 纯 形 法 


从 这 一 节 开 始 我 们 讨论 客 维 极 小 化 问题 , 即 求 有 风 个 独立 变 元 的 函数 之 极 小 值 。 作 本 让 
的 内 容 与 后 下 各 节 的 内 容 相差 较 远 ,本 节 之 后 介绍 的 所 有 算法 都 将 利用 第 10.1、10.2.10. 3 
ER 
用 ` 维 算法 。 

下 降 的 单 缉 形 法 由 睛 尔 德 (Nelder) 和 米 德 (Mead) 提 出 ( 见 文 献 [1]) ,这 种 方法 只 需 计 
算 闻 数 值 ,不 需 导数 参加 运算 .就 其 所 需 的 函数 值 计算 的 次 数 而 言 ,该 亡 法 的 效率 不 算 很 高 ， 
而 第 10, 5 节 的 鲍威尔 (Powell) 算 法 (第 10, 5 节 ) 对 所 有 可 能 的 应 用 问题 ,其 求解 速度 几乎 此 
定 快 得 多 .但 是 ,对 于 一 个 计算 量 小 的 问题 ， 并 县 申 数 图 形 的 趋势 可 使 计算 速度 变 快 些 ， 这 时 


下 降 音 纯 法 常常 是 最 佳 选择 的 方法 。 
下 降 单纯 形 法 所 具有 的 几何 特性 ,能 使 这 方法 描述 起 来 或 读 起 来 都 易 理解 ,我 们 将 其 介 
绍 如 下 ， 


一 个 单纯 形 是 一 个 几何 形体 , 它 在 N 维 情况 下 :是 由 N 十 1 个 点 (或 顶点 ). 所 有 相 吾 连 
接 的 线段 以 及 多 边 形 面 等 等 组 成 的 几何 图 形 .二 维 情况 单 纯 形 即 为 三 角形 ;在 三 维 情 况 , 则 
为 一 个 四 面体 ,但 不 一 定 必须 是 规则 的 四 面体.( 线 性 规划 中 的 单纯 形 方法 也 利用 单纯 形 的 
几何 概念 ,但 是 它 与 本 节 讨论 的 算法 没有 任何 的 关联 .) 一 般 情 况 下 ,我 们 只 研究 非 退化 的 单 
纯 形 , 它 包含 一 个 有 限 的 六 维 内 体积 , 蔡 取 其 上 任意 一 点 作为 原点 , 则 剩 下 的 K 个 点 定义 
了 跨越 N 维 向 基 空 间 的 向 蔓 方 向 。 
在 一 维 情况 可 以 划 界 极 小 导 的 区 间 , 从 而 能 保证 迭代 求解 的 成 功 。 可 惜 在 多 维 空间 中 没 
有 类似 的 方法 可 寻 。 在 多 维 情形 ,我 们 所 能 做 到 的 最 多 就 是 给 出 一 个 初始 预测 值 , 即 由 独立 
变量 组 成 的 一 个 六 维 向 量 作为 迭代 起 点 ,然后 设计 一 种 算法 不 断 屯 作 下 降 搜索 ,直到 通 到 
-个 (至 少 是 局 部 ? 极 小 值 为 止 ,而 在 搜索 期 间 N 维 形 体操 作 的 复杂 程度 将 是 难以 想象 的 、 
下 降 的 单纯 形 法 必须 从 六 二 1 个 点 而 不 仅仅 是 从 单个 点 开始 欠 代 ,这 N 十 1 个 点 定义 了 
一 个 初始 单纯 形 , 如 果 把 共 -个 点 ( 哪 一 个 无 关 紧要 ;作为 初始 起 点 PP , 则 其 他 N 个 点 可 
取 为 ， 
疡 一 了 十 和 ei 《10, 4. 1) 


es QdG， 


其 中 马 为 N 个 单位 向 量 。4 为 一 常数 , 它 是 对 问题 的 特征 长 度 大 小 的 佑 计 值 ,也 可 以 对 千 
一 个 向 量 方 向 取 不 同 的 》, 值 :， 

然后 下 降 的 单纯 形 法 将 采取 … 系 列 步 曼 。 共 中 绝 大 网 数 步骤 是 ,将 图 数值 入 到 最 大 的 单 
纯 形 点 ( 即 “ 最 高 点 沁 通 过 单纯 形 的 地 问 面 移 烈 个 较 低 点 .这 些 步 又 称 为 反 朱 ,构造 它们 的 
目的 是 为 了 保持 单纯 形 的 体积 不 变 (从 而 保持 其 非 退 化 性 ) .之 后 ,下 降 的 单纯 展 法 将 对 单纯 
形 在 某 个 方向 上 进行 扩展 以 加 大 步 长 : 当 到 达 “ 谷 底 ? 处 时 ,单纯 形 将 自行 作 横向 收 策 , 并 试 
图 流入 谷地 ,如 遇 到 单 乞 形 需 * 穿 过 针眼 "的 情况 , 它 会 从 各 个 方向 自行 收缩 ,县 自行 斑 向 最 
低 点 ( 央 最 佳 点 ) 附 近 . 程 序 amoeba 的 取 名 即 描述 这 “过程 ; 图 10. 4, 1 概括 了 儿 种 基本 的 拉 
伸 动 作 。 


起 始 步 的 单纯 形 
毅 
低 
反射 
人 ] 
反射 和 扩展 
4b] 
收缩 
位 ] 


这 多 维 收缩 
届 0 


在 这 一 步 开 始 疏 :单纯 形 这 里 是 四 面体 ) 如 硕 图 所 示 。 在 这 ' 步 结 来 之 后 ,单纯 形 可 变 为 -个 ,ai 以 
高 点 的 背 向 反射 ,人 by 从 高 点 蕊 下 向 反射 并 扩 髓 ,!c) 从 高 点 娩 一 维 的 收 丝 ,Cd)? 洁 各 个 方向 向 低 点 的 收 
绸 ,算法 经 过 许多 步 这 样 的 选 代 之 屠 , 一 盘 总 能 收 化 到 两 数 的 极 小 什 ， 


图 10.4.1 上 降 单纯 形 法 中 其 步 的 几 种 可 能 的 结果 


千 多 维 补水 柱 序 中 ,终止 准则 的 斑 定 可 能 是 很 坪 手 的 训 题 .出 于 没有 划 和 疆 区 间 , 折 上 = 独 
7 变节 区 不 只 一 个 ,我 们 不 可 能 每 一 维 那样 只 要 对 :个 侧 忆 灾 元 给 出 某 一 容 差 信 就 可 让 
多 绯 情况 下 一 般 要 在 算法 中 确定 -- 个 "循环 ”或 者 一 个 * 步 轰 " ,这样 在 那 : 步 中 , 尖 癌 其 各 动 
的 此 离 大 小 上 小 士 某 … 容 盖 值 rol 时 ,算法 才 有 可 能 线 二 .当然 违 串 以 将 终止 准 则 征文 为 琴 
数值 下 降 的 幅度 存 比 值 三 小 士 某 一 容 差 限 frol .因为 1el 通常 不 能 小 于 机 器 芋 庶 的 站 记 根 
依 , 所 以 将 ftol 置 为 机 融 精 度 的 数量 级 是 最 合适 不 过 交 (也 可 以 稍 忆 人 : 些 以 钢 受 舍 人 恬 盖 
的 影 叫 )。 

但 是 在 因为 某 种 原因 迭代 无 法 终止 的 情况 三, 上述 效 止 准则 中 动 没有 -和 能 够 " 鞠 效 ”. 
这 时 我 们 不 妨 从 其 个 已 被 认为 是 找到 的 极 小 避 处 开 雁 ,重新 这 行 多 绯 概 小 程 序 , 但 种 做 法 
醒 要 好 扩 有 辅助 输入 参数 里 新 补 始 化 , 便 如 在 下 降 的 单 沌 形 法 中 ,我们 需 出 式 吕 6. 3. 对 音 ， 
钝 形 六 二 1 个 顶点 中 的 六 个 进行 重 刹 设置 ,其 中 p: 为 由 确认 的 极 小 值 顶 点 之 一 。 

“重新 始 ?做 起 来 不 应 该 很 费事 ,内 为 毕竟 算法 已 泾 有 了 -次 收 妆 的 “经 廊 ?, 它 所 收 艾 
到 的 点 妇 是 “重新 开始 ?的 起 点 , 丽 * 重 新 并 始 ? 也 不 只 过 是 全 起 应 算 法 * 重 操 旧 业 ”。 

接 下 来 ,我 人 来 看 :三 灾 维 情况 下 的 amoeba: 时 如 们 运 生 的 : 


Dinclude < 一 math.h > 

共 include "nrutil.h” 

艺 define NMAKX 5000 区 许 计算 岳 数 俩 的 最 多 次 数 

共 tiefine CET PSUM NA 
tor (一 1;j 近 一 ndim 打 二 十) IN 
for Csutn =: 3.0， ij 一 1iic< 一 mptsiir 一 ) sum 十 一 PT 站 iv 
psumij_- 一 sttn3} 

define SWAPD(a:b)y fswap 一 (a)ita) 一 (Db): CD 一 swabry 





xoid amocba(float <* xp foary[j: int ndimy float ftol，floal (* funk)tfloat [)， int *nfunk' 
. 几 轨 尔 医 和 米 德 提出 的 上 降 单 纯 展 法 求 多 元 函数 funk(x) 的 援 小 值 ,其 中 x 1. .phdirt] 为 nditm 维 向 量 , 扯 阵 :> 1.. 


ndim 二 1] 为 输入 参数 , 它 的 nqim 十 1 个 ndim' 淮 的 行 应 量 组 成 初始 单 钝 形 的 rcim 十 1 个 顶点 -输入 项 中 还 包括 刘 旧 
[1 .ndim 十 器 脏 ftol, 其 中 1. -ndqm1] 的 生 一 分 最 都 竺 项 先 初始 化 为 函数 和 nnk 在 单纯 形 的 nadim 十 1 个 顶点 对 的 
值 ,ffo] 巴 参 置 为 收 钱 时 函 元 值 ( 注 意 ! 的 相对 容 差 眼 ,输出 时 ,pr 部 9 又 将 作为 输出 参数 被 同 值 为 ndim 十 上 全 新 的 
点 ,在 这 些 点 处 函数 信 存 极 小 函数 利 的 容 总 限 :ol 范围 内 , 另 一 .输出 条 数 hfunk 将 给 出 程序 中 函数 值 的 求 什 次 数 . 


float ammoYryHoat * xp float y[]，float fsom 呈 。int ndin， 
float Ce fank)rhloar[])y，int ihi，Jloat tac)# 

in iibhiyiloyinhi,j,mpts 一 ndim 二 1; 

floar rtol，sum ，swap，ysavey ylty、<* bxuni 


bsum 王 vector(Clyndimy)i 
xDnfuhK 一 曲 ; 
GET_PSUCM 

for (站 《 


ie 一 1， 首先 确定 最 高 品 5 凌 果 最 佐 的 点 ) ,次 商 点 和 最 低 点 (结果 最 好 的 点 ) 
ihi 一 Y[]>>y[2 ?7 (inbhi 一 2.1) (inhi 一 1.2)) 确定 的 方法 是 对 单纯 展 汕 的 点 作 循 坟 


for (i 一 15i 必 一 mptsii 一 十 ) 1 
i (y[ij <= yiloj) ilo 一 i; 
ix5] > yCihi]) 上 
jnhi 一 ihi; 
让 1 一 让 
) else 这 (7 >y[inhi R&ir ibiy inhi 一 必 
} 


*， 348 。 


rtol--2.0y fabsfryvihi ” yiDilo]iytiabsty[ihi] .fabscyiitlo >))， 计算 从 最 嵩 点 到 前 扫 中 和 和 放 


男 , 旭 果 合适 草 刀 区 
if krxol << ttol) | 若 返 下. 则 在 第 一 情 内 没 姑 作 点 二 和 
SWAP(y[I].y[ilo]》 
for 一 1 过 一 ndin 要 一 二 ) SWAPIP[ 站 Di Ph 
brcaki 
? 
让 (#nfionk 全 一 NMAX) mrerrorfr 和 MAX cxeccdeqdy 7); 
xmfunk | 一 2 新 - 辑 迷 代 乓 开 巡 ,首先 从 高 点 征讨 单 病 形 的 才 而 ,让 下 


一 1 作 外 推 , 即 从 商 点 特 单 线形 反射 


YtIY 一 amatry(P ,7vpsum ndim funk vihi 一 1 0 


计 fytry 扫 一 了 [ilo]》 得 到 -一 个 比 佳 点 稍 好 的 结果 ,因此 用 四 子 2 再 作 “ 沁 关 推 
ytTy 一 amotry(pyyypbsumvndimyfonkyihi,2.0)， 
else if (ytry 宇 一 y[inhi-) 皮 射 点 如 果 赤 如 次 高 点 , 取 一 中 等 程 江 攻 的 点 即 年 六 一 刘 坟 逢 
ysave 一 y[ihi]; 
yy 一 amotryfpyyvpsum*ndimtunkyihist5)， 
让 (ytry 关 一 ysave) : 不 能 去 掉 癌 点 .最 好 围绕 最 低 点 收 艺 
for fi 一 4 一 mptsHl 1) 
dt 一 ac) 
for {j 一 15j< 一 ndim:j 十 + 1 
PE 辣 ” psugm[ 让 一 05*< SPpL 记 一 PLilojLij); 
y[i] 一 (> fank)tpsomyi 
} 
xnfunk 二 一 ndim 跟踪 记录 蚌 数 值 
GET_PSUM 重新 计算 Psum 
} 
} else 一 一 (< nfunk)， 淫 止 估 壮 诅 
} 
Jree_-vecrorf(bsum jndim)， 返回 测试 处 ,并 作 下 … 轮 渤 代 
3include ntuofil.h> 
loaf atmnaotry(float * xp foat y[ ,float psum[], int auitn， 
float (xfunk)kiloat [])，int ihi，float fac) 
从 高 点 通过 单 部 形 的 表面 以 因子 far 成 作 外 推 , 苦 新 求 出 的 点 结果 拢 于 高 点 . 则 以 前 者 代 尼 者 
int ji; 
了 cat facl,fac2yytry, 关 ptry 寺 
btry 一 vector(tl ,ndim ) 
facl 一 (1.0 一 fac)yyndims; 
Fac2 一 jac1l 一 fac3 
for {j 一 1 过 一 ndimijh 十 ) ptry[i] 一 psun[fi]* facl 一 b5hi][j- xfac2) 
ytry 一 《 * Funk)(prry)1 计算 函数 在 试探 点 处 的 竺 
让 (ytty < yLihi3 { 如 果 试 哥 点 的 结果 优 于 最 商 点 , 则 以 前 考 鞠 代 司 者 
y[ihi] 三 ytryy 


for (j 王 1 和 六 一 ndim;ij，| 1{ 
psuru[ 让 十 一 ptry[ 和 ~pLihi2[Cj>; 
pfihi_ .和 一 ptry[j]， 
} 
free _ vector(ptry lpndim7)， 
Terutn ytTy》 
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10.5 多 维 情况 下 的 方向 集 ( 鲍 威 尔 ) 方 法 


从 10, 1 节 到 1. 3 节 中 我 们 已 经 知道 如 何 求 “无 函 数 的 极 小 值 . 苦 从 N 维 堂 间 = 的 某 点 
p 出 发 , 沿 某 一 向 量 的 方向 nm 进行 搜索 , 间 么 任何 一 个 六 元 函数 AP) 都 可 沿 方向 nm 月 - 绯 
方法 求 出 角 小 值 。 因 此 我 们 可 以 设想 ,各 种 各 样 的 多 维 极 小 化 方法 ,都 可 以 用 一 系列 这 样 的 
治 某 一 方向 的 一 维 方法 组 合 而 成 ,各 种 方法 之 间 仪 仅 由 于 每 一 步 中 所 选择 的 下 -- 搂 索 方 向 
na 的 不 河 而 不 同 . 所 有 这 样 的 方法 都 要 假定 存在 一 个 “黑箱 " 子 算法 ,我 们 称 之 为 "linnin” 
(本 季 最 斤 竺 太 详 细 的 程序 给 出 ) ,其 定义 如 下 ， 


jinmin: 给 定 输入 参数 向 量 P,n 及 函数 六 求 出 使 CA 4 让 到 最 
小 的 标量 4 ;然后 以 P 一 im 蔡 代 P. 用 Am 替代 和 ; 儿 : 








本 节 及 后 面 两 节 书 所 有 的 求 极 小 值 三 法 ,都 将 基于 这 各 逐步 一 维 搜索 的 “ 般 思 外 .( 第 
10. 7 中 的 算法 不 需要 精确 的 一 维 搜索 , 它 有 自己 专门 的 近似 一 维 搜索 子 程 享 Insreh) ,本 节 
中 将 讨论 的 方法 在 选择 搜索 方向 时 ,不 包含 函数 术 度 .读者 将 注意 到 ,在 linmin 中 不 需 符 别 

说 明 总 否 要 利用 樟 庆 信息 ,读者 可 以 白 己 选 择 , 优 千 程 度 由 日 标 函 数 本 身 决定 .但 是 大 多 数 
全 上 亲 骨 冯 从 站 于 在 linmin 中 利用 梯度 信息 ,而 在 选择 搜索 方向 时 忽略 这 些 信息 ,因为 这 
样 可 以 大 大 地 减少 避 个 过 程 的 计算 量 。 

但 是 ,如 果 日 标 函 数 的 梯度 不 能 计算 又 该 如 何 呢 ? 读 者 可 能 普 先 会 想到 这 样 一 种 简 锋 的 
方法 : 取 单 位 向 量 。 ,ez .，vex 作为 一 个 方向 集合 ,利用 linmin 算法 , 沿 。 搜索 达到 该 方向 
上 的 极 小 值 ,然后 再 从 这 个 极 小 信 处 下 始 , 狼 第 二 个 方向 。 搜 索 , 求 得 函数 在 e 方向 上 的 必 
小 值 ,这样 一 直 让 去 ,根据 所 需 绕 整个 方向 集 做 尽 可 能 多 次 数 的 循环 ,直列 函数 值 不 寺 减 小 ， 

实际 上 ,这 种 策略 方法 对 ,许多 函数 来 党 应 用 的 效果 并 不 坏 。 但 它 对 其 他 一 些 区 数 求解 
的 效率 就 不 很 高 ,这 其 中 的 原因 非常 有 趣 . 让 我 们 来 考虑 , 某 个 二 元 丽 数 ,其 等 高 线 图 (水 平 
线 ) 恰 好 时 一 个 刁 坐 标 轴 成 某 一 角度 的 狭长 的 山谷 ( 见 图 10. 5. 1) 对 于 这 种 函数 ,在 每 -- 阶 
段 平行 于 坐标 轴 “ 沿 四 谷 的 高 度 下 降 方向 "搜索 的 路 径 , 到 能 是 -条 列 极 小 的 步 长 .在 更 一 般 
的 N 维 情况 ,如 果 郴 数 一 阶 导数 的 大 小 ,在 某 些 方向 上 比 在 其 他 方向 上 大 得 多 ,那么 为 改 策 
到 某 点 就 需要 绕 全 部 N 个 基本 向 量 转 很 多 疾 才 能 达到 目的 .这 种 情况 并 不 属 罕见 ,你 起 不 
想 磁 到 就 越 会 磁 到 ,因此 我 们 不 能 回避 它 。， 

由 此 看 来 ,我 们 显然 需要 比 [ei 更 好 的 方向 集 .所 有 的 方向 集 方 法 都 此 求 在 运行 当中 能 
给 出 更 新 方向 集 的 规则 ,并 使 新 的 方向 集 满足 ; GD) 在 其 中 某 几 个 相当 好 的 方向 上 ,可 使 搜索 
路 径 沿 罕 谷 前 进 很 氏 一段 距离 或 者 (ii) 包 含 基 些 “ 互 不 干扰 ?的 方向 ,它们 具有 这 样 -. 种 特 
珠 性 质 , 即 : 沿 某 一 个 方向 的 “ 维 搜索 , 与 沼 另 一 方向 进行 的 下 一 轮 - - 维 搜 索 ,不 会 相 下 干 
扰 , 这 个 比 G) 更 精细 约束 条 件 可 避免 绕 方向 集 的 循环 万 修正 地 进行 下 去 。 
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在 - 狼 氏 “人 务 “中 ( 财 中 尽 轮 媒 线 表示 ) 衣 坐 标 轴 方 向 搜索 极 小 值 .除非 LI 从 的 方 
位 是 基 佳 的 ,否则 这 种 逐步 一 缴 搜 索 的 方 潜 效率 将 慑 低 , 笛 要 搞 索 很 多 步 方 允 达 到 
极 忆 侦 , 而 王 每 把 的 步 攻 都 巷 小 ,还 和 要 来 区 空 所 主轴 多 次 。 


图 10. 5.1 


10. 5.1 共 斩 方 向 


这 种 * 互 不 由 关 ” 的 方向 ,更 规范 -- 些 称 苍 方向 .这 一 概念 值得 在 此 做 一 盘 详 细 的 数学 
上 的 说 明 。 

首先 ,如 果 潜 某 一 方向 求 -- 函 数 的 极 小 值 , 邯 么 在 ua 方向 的 慨 小 值 处 :该 匿 数 的 榜 度 
必然 与 垂直 ;否则 , 沿 下 方向 还 将 会 有 一 个 非 零 的 方向 导数 。 

下 ”… 步 , 取 某 一 符 殊 点 卫 作 为 谷 标 系 的 原点 , 若 弧 标 系 的 坐标 以 x 标 记 , 则 任意 函数 人 
可 用 泰勒 级 歼 近 似 为 ; 


3 8 
Cx) 一 大 P) 十 这 时 z 十 卫 2 了 Xi， 一 


2 4DrOY 1! 
再 1 





{10.5, 1) 
ex 一 


上 式 中 


二 32/ 
cfrP)》 bpb= wj [7 


我 们 称 矩 阵 A 为 日 标 函 数 在 P 点 的 海 赛 (Hessian) 币 阵 ,A 中 各 元 素 是 画 数 在 刁 点 扩 一 防 
由 近似 式 (10. 5 1) 容 易 求 得 了 的 梯度 为 : 
YY 一 A.x-b 《1] 呈 533 
“上 式 说 明 ,满足 &x 一 b 的 点 可 使 梯度 灾 为 零 , 即 函 数 在 该 必 将 取得 极 值 ,在 10. 7 节 中 我 们 
述 要 用 到 这 一 结论 ,) 


全] 区 2 


当 搜 索 路 径 沿 某 方向 移动 对 ,梯度 光 了 将 会 如 休 变 化 泥 ? 很 显然 
(YY 门 一 和 (6x) 上 站 3 4 


假设 我 们 已 治 某 方 台 mm 达到 某 个 极 小 值 ,现在 打算 沿 一 个 靳 的 方向 y 进行 搜索 ,前 得 是 
沿 v 的 移动 不 破坏 没 u 的 一 维 搜索 ,这 就 是 说 梯度 始终 与 保持 垂直 , 即 梯度 的 变化 与 年 
直 , 以 公式 表示 ,就 是 ;( 由 式 (10. 5.4) 得 到 )。 
0 一 uaeV(i) 一 0 和，Y (]9.5.5》 
如 果 上 式 对 两 个 向 量 u 和 ，* 成 立 , 划 称 它们 基 共 轿 的 .车 一 个 向 量 集 的 所 有 向 量 两 两 满 
足 这 一 关系 起, 那么 称 这 个 向 量 集 为 共 辆 集 . 苦 沿 凑 共 辑 谨 向 集 的 各 个 方向 帆 序 作 一 维 搜索 
求 极 小 值 , 则 在 任何 一 个 方向 上 都 不 需 作 重复 搜索 (当然 ,除非 玻 坏 了 共 罗 集 的 性 质 , 即 在 一 
个 与 方向 集 不 共 箔 的 方向 上 作 一 维 搜索 ,》 
-个 方向 集 方法 成 功 的 关键 在 于 能 够 构造 出 一 个 方向 集 . 其 只 个 方向 线性 无 关 . 旦 两 
两 共 思 。 那 么 对 于 形 如 (10. 5. 1) 的 一 次 式 , 只 需 沿 N 个 方向 作 一 遍 一 维 搜索 ,就 可 以 精确 地 
求 出 其 极 小 值 .对 于 不 具有 精确 二 次 形式 的 函数 , … 轮 迭代 不 能 精确 地 求 出 极 小 值 , 但 经 过 
儿 轮 一 维 搜 索 之 后 ,也 能 在 适当 的 时 候 二 次 收 伍 到 它 的 极 小 值 。 


10.s, 2 ”鲍威尔 的 二 次 收敛 方法 


鳃 威 尔 CPewel) 首 先 提 出 “种 方向 集 方法 ,该 方法 可 以 构造 出 N 个 两 两 共 生 的 沪 应 ， 

其 构造 过 程 如 干 :首先 将 方向 集 ui 初 始 化 为 坐标 轴 向 量 ; 
下 (10. 5.6) 

然后 重复 下 列 各 步骤 ( 称 为 "基本 步骤 ”) ,让 至 函 赦 情 不 再 减 小 : 

* 记 起 始 位 置 为 Pu 

“对 5=1，….V, 将 Pi- 移 至 目标 函数 沿 方向 的 极 小 值 点 ,并 记 此 点 为 P， 

“对 ;1 V 将 0 感 给 0 

,， 咒 由 一 Pv 一 P 

' 将 Pr 移 至 菌 数 在 us 方向 上 的 极 小 点 ,并 记 该 点 为 Pr 

鲍威尔 曾 于 1964 年 ,对 于 形 如 式 (10. 5.1) 的 二 次 型 ,上 述 基本 步骤 经 过 天 辊 迭代 以 后 ， 
可 以 牛 成 一 个 方向 集 ui, 它 的 有 最后 大 个 方向 是 两 两 共 斩 的 .因此 ,在 N 轮 选 代 后 ,总 共 经 过 
NGC 十 1 次 一 维 搜索 , 便 可 以 精确 地 求 出 一 个 二 次 型 的 极 小 值 . 布 伦 特 (参见 [1]) 以 -一 种 易 
于 理解 的 形式 给 出 了 上 述 结 论 的 证 明 。 

但 是 ,鲍威尔 的 二 次 收 焉 算法 还 存在 一 个 问题 , 即 在 每 一 阶段 用 Px 一 P, 取 代 由 时 可 能 
会 导致 各 方向 集 “ 互 相 重 得 "而 变 成 求 线性 相关 .一 旦 这 样 的 情况 发 生 , 则 只 能 求 出 全 N 维 
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空间 中 一 个 子 空间 内 的 图 数 慨 小 值 , 也 就 是 说 .得 到 的 结果 旦 错误 的 .因此 ,该 算法 不 能 用 于 
上 述 情况 . 

解决 鲍威尔 算法 中 的 线性 相关 问题 有 儿 种 途径 ,其 中 包括 ; 

1， 在 每 六 轮 或 w+1 轮 选 代 以 后 ,将 方向 集 u: 重 新 初始 化 为 基 向 基 e;, 这 种 方法 坟 便 
实用 .特别 是 当 二 次 收 葡 性 对 于 门 古本 身 来 说 ,是 一 个 需 痢 重 考虑 的 因素 时 ( 即 目 标 摧 数 非 
常 近 一 次 型 ,而且 结 果 的 精度 要 求 较 高 ,我们 建议 读者 不 妨 试 试 这 种 方法 。 

2,， 布 伦 特 曾 指出 ,将 方向 集 重 崩 为 任意 正 交 抢 阵 的 列 向 量 同 样 也 是 很 好 的 办 法 .他 要 
出 将 冯 问 集 重 置 为 已 计算 出 来 的 算 阵 的 A 的 主 方向 (他 给 出 了 确定 它 的 步 又 ) ,而 不 是 放弃 
己 建 立 的 共 久 方向 上 的 信息 计算 土方 向 的 过 程 从 本 质 上 来 看 ,就 是 一 个 奇异 值 分 解 的 算法 
《 见 第 2.6 节 ) 。 布 伦 特 还 提出 另外 - 些 很 好 的 算法 技 芋 ,而 且 他 对 鳄 威 尔 算法 所 提出 的 改进 
也 可 能 是 迄今 为 止 最 佳 的 一 种 ,具体 算法 及 程序 清单 清 读者 参阅 他 本 人 的 著作 . 进 贸 的 是 ， 
这 些 内 容 部 超出 了 本 书 的 范围 。 

3 还 可 以 放弃 二 次 收 倒 的 件 质 ,而 采用 一 种 更 有 启发 性 的 方案 (由 鲍威尔 提出 ), 邵 沿 
罕 谷 拓 出 几 个 好 的 方向 向 量 , 以 代替 N 个 必需 共 罗 的 方向 ,下 面 我 们 将 要 讨论 的 就 是 这 种 
方法 。 这 一 方法 也 是 阿 克 顿 在 -2] 中 所 给 出 的 鲍威尔 方法 的 翻版 ,下 文中 有 凡 部 分 内 容 就 基 
从 该 书 中 截取 的 。) 


10. 5.3 ” 售 弃 函数 值 下降 最 多 的 方向 


现在 我 们 打算 放弃 二 次 收 义 件 ,但 这 是 不 是 因为 吃 不 着 葡 葡 就 说 葡萄 是 酸 的 .或 者 说 二 
次 收 敏 性 究竟 是 不 是 那么 重要 呢 ? 这 依赖 于 目标 函数 本 身 . 有 些 目标 函数 呈 长 且 迁 豆 的 山谷 
状 , 如 果 一 个 程序 的 运行 必须 象 进行 耻 碍 滑 当 赛 一 样 沿 着 查 弯 曲 曲 的 山谷 路 径 绕 米 绕 去 向 
下 搜索 .那么 二 次 收敛 性 就 显得 没有 什么 特殊 揭 价 值 了 , 沿 着 这 一 长 方向 ,一 种 具有 二 次 收 
伍 性 的 算法 总 是 试图 外 推 到 某 条 抛物 线 的 极 小 值 ,而 这 条 抛物 线 根本 不 能 拟 合 出 来 ,同时 ， 
-1 个 横 截 方向 的 共 耗 性 逐渐 被 这 种 曲折 性 破坏 掉 。 

但 是 ,算法 或 迟 或 早 总 能 收 伍 于 一 个 近 偶 磋 圆 的 极 小 值 (参看 式 (10.5. 1) 中 当 梯 度 b 为 
零 时 的 情况 ) ,那么 ,根据 精度 村 求 , 具 有 二 次 收 策 性 的 算法 可 以 节省 几 倍 NM: 的 附加 的 - - 维 
搜索 计算 量 ,因为 二 次 收 化 忻 在 每 轮 和 欠 代 中 都 使 有 效 位 数 翻 倍 。 

我 们 对 印 威 尔 算法 所 作 的 改进 ,在 基本 思想 上 仍 是 置 Pv 一 P, 为 一 新 的 搜索 方向 ,因为 
它 毕 竞 是 经 过 对 金 部 N 个 可 能 的 方向 试探 以 后 得 到 的 平均 方向 .对 于 长 方向 迁 回 缓 慢 的 山 
谷 ,这 个 方向 可 能 是 沿 新 长 方向 的 好 路 径 .与 原 方法 比较 ,这 里 的 改变 之 处 就 在 于 ,放弃 函数 
值 下 降 最 多 的 原 方向 ,这 看 来 似乎 有 些 不 合理 ,因此 该 方向 是 上 一 轮 和 迭代 中 的 最 好 方向 .但 
是 ,这 也 可 能 是 我 们 所 添加 的 这 个 新 方向 的 一 个 主要 成 分 。 因 此 , 放 奔 它 反而 给 我 们 提供 一 
个 绝 好 机 会 ,可 以 避免 线性 相关 情况 的 出 现 。 

但 也 有 几 种 情况 例外 .有 时 候 不 增加 任何 新 方向 反而 好 些 ,我 们 定义 

访 二 7 记 三 AP 产 = 扰 2Pv 一 P) (10. 5.7) 

这 里 产 为 函数 在 某 “ 外 推 " 点 处 的 值 ,该 点 沿 所 设置 的 新 方向 较 远 .同时 定义 Ay 为 本 轮 浴 
代 中 沿 某 特定 方向 丽 数 值 的 最 大 下 降 量 (Ar 为 一 正 值 》, 则 有 ， 

1 若 Fe> 户 , 则 保持 原 方向 集 不 变 进入 下 一 轮 适 代 , 因 为 这 种 情况 下 平均 方向 Px 一 P， 
已 经 毫 无 用 处 。 
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2， 若 2 方 一 2 十 产 ?[ 太 一 天 一 和 六 六 ( 态 一 产 )47 , 则 仍 以 原 方 起 集 进 入 卜 “ 较 
选 代 。 这 是 因为 D) 沿 平均 方向 函数 值 的 下 降 在 很 大 成 分 上 并 不 是 由 于 某 …- 单 个 方向 上 的 下 
降 ,或 者 让 洛 平均 方向 有 -一 相当 大 的 二 阶 导 数 存在 :这 说 明 我 们 已 经 很 接近 极 小 值 的 底部 。 

上 面 这 种 钝 战 尔 方 法 的 程序 实现 将 在 下 文中 给 出 .在 该 程序 中 , 需 说 时 的 是 , 关 冯 一 征 
阵 ,其 各 列 为 方向 集中 的 元 素 ni; 至 于 其 他 记号 ,它们 对 应 的 内 容 是 不 言 自 明 的 ， 


共 inrlude 一 mmath,h> 
并 include ”nrutii, hb” 


并 define ITMAX 200 多 许 兴 代 的 题 太 次 娄 


史 powejl(float p[],， float * xxiy int ny float ftol， inr *jter，floar * frety toat 《xfone)ycfloa: [2 


求 n 水 变量 的 函数 func 的 极 小 汗 , 输 人 参数 包括 箱 始 点 p[1. .0 、 初 妈 矩 阵 xi[1.,mj51..a]( 雄 列 人 向量 给 出 历 丫 产 
避 信 (通常 是 n 个 单 应 户 量 )》、 以 及 冰 数 的 穿 关 限 ftol( 当 某 轮 选 代 中 , 数 值 的 下 降幅 度 小 于 沪 值 时 , 适 代 次 比 ) 
输出 时 ,p 被 置 为 所 求 得 的 极 小 点 ,xi 为 选 信 终止 时 交 方 向 搞 ,fret 为 到 国 上 P 点 立 苞 数值 ,er 为 法 代 次 数 .在 本 程 
序 中 调用 子 程序 liamin . 


vozad linminffloat pB[] ,float ri[j，inr 中，float fret、 
了 1oat 《wftuncl(float 门 )) ) 

int ivibig,j; 

float del,fp,EfPptt,t,ePtw*pPLtt，*IIEti 


Pt=vectorf1l RD) 3 
Ptt=Yyector(K1l.a)i 
Xitmvactorg1,a) 1 
frete(wtuncykp)i 
for 〈j=1;j<=na;zj++) Pt[jj=p[j] ， 记录 才 始 点 
人 or 《中 tor=1i7++[s*itatr)y 工 
革 ps(*#fret) | 


ibigs0; 
dejl<0.6; 该 值 将 作为 表 教 值 和 战 大 的 上 降 区 ， 
for (imtliicsnii+yr)》 于 在 每 轮 选 代 中 ， 对 方 徊 集中 所 有 方便 进行 循环 
for 〈j=1i;j<=n;j++) xit[j]mrt[jjfi]; 将 这 方向 复制 下 来 
了 ptte{wfTet) 
Linminfp,xit,n,fretvgtnc)i 沿 该 方向 求 概 小 
1 《tabs[fptt-{eftret]) > del) 二 如 果 它 是 偿 今 为 止 冰 孝 值 下 队 量 中 量 . 
delzsfabs(fPtt-(afret)) 1 大 的 、 则 将 其 志 录 下 来 
Tbigsi; 
了 
it 【2.0wfabe(*p-{wfrat7) < itolsftabsttp)+7abetsTret))) { 
Tree_yectorCrit, 1,n)1 终止 准则 


freaa_vactor(Ptt，1L,n) 
ree_vector(Pt ,1,D) 


xeturn 

} 

1 (sitear ms ITMAX) nrexyrorft"powe11 excegding maximum treationS. ) 

for 《je1;j<=n;j++) 构造 外 推 点 和 了 物 动 的 平均 方向 ， 将 老 的 
ptt[j]-2.04*p[j]-Pt[j]; 起 始点 记 孙 下 来 
xit[j]=p[jj-pt[j] 
pt[jJ]J=pfy]; 

了 

fptt=(*func)(PLt) 1 外 推 点 处 的 咕 数 什 


if ffptt < fp) T 
t2.0w(tp-2.0*(atrety+fpPtt)s3qRCfp-fwfret)-del)-dale*SORCYP-fPtt) 
if ts0.0) TI 


Linmin(p ,xit ,na,fret ,func)i; 找 出 新 方向 的 极 小 点 ， 井 将 这 个 新 方 
for 〔jmli;j<=nij+yy) 区 向 记录 下 来 

xi[j] [ibig]sxi[rj] [oz] ; 

xi[j][a]j=xitc[J] 
} 


了 
】} 
】} 返 可 进行 下 的 轮 丢 代 
} 


10. 5.4 ”线性 极 小 化 的 程序 实现 


用 第 10. 1 节 一 第 10. 3 节 中 所 述 的 一 维 搜索 方法 可 以 正确 无 误 地 实现 linmin ,所 不 同 的 
是 ,这 里 要 以 向 量 点 P《 这 些 点 都 位 于 某 一 给 定 的 方向 上 上) 的 形式 重 写 那 些 算法 ,而 不 能 
再 用 标量 >。 尽 管 这 项 工作 很 明确 ,但 程序 实现 却 相当 党 琐 : 其 间 要 有 许多 "for(k-- 1ik< 一 
nk 十 一 )” 的 祷 环 。 

由 于 篇 幅 所 限 ,本 书 中 不 能 给 出 详细 的 程序 清单 ,这 里 的 linmin 只 是 一 种 运行 得 尚 可 
的 框架 , 它 构造 了 一 个 一 元 “模拟 " 画 数 mdim, 这 个 函数 是 日 标 函 数 fune 沿 通过 p 点 的 吉 线 
方向 xi 上 的 值 .linmin 调用 我 们 很 熟悉 的 一 维 算 法 mnbrak( 第 10.1 节 ) 以 及 brent( 第 10. 2 
节 ) 来 求 fldim 的 极 小 值 , 它 同 flaim 的 信息 传递 是 通过 全 程 变量 (外 部 量 ) ,而 “路 入 "mn- 
brak 和 brent. 这 是 linmin 在 将 指针 变 草 传递 给 fldim 时 也 采用 了 这 种 方式 ,其 中 这 人 外 指针 
变量 指向 用 卢 提供 的 函数 。 

但 lnmin 作为 多 维 极 小 化 与 一 维 极 小 化 程序 之 间 的 接口 产生 一 些 不 必 归 的 向 量 复 制 ， 
这 是 它 唯 一 的 缺陷 .一 般 来 讲 程序 不 会 国 此 增加 很 多 的 计算 量 , 但 这 一 缺陷 却 是 无 法 逃避 
的 ， 


失 inelude "nrutil.hw 


共 define TOiL 2 Ce 一 上 传送 到 brent 的 窜 盖 限 


int DCoID1 与 fidim 通信 的 全 局 变量 
floeat x peom，#xjicotmy(Cx nrfoncyffloat [ 》 


void linmin (float p[]，float xi[]j，int ny， float * fret，float( + funcykfloat[])》 
给 定 一 个 = 维 点 pEt. ,mo] 和 一 个 姓 方向 xi[1..n], 从 p 点 开始 洪 五 方向 移动 ,不断 重 景 p 点 ,直至 functp) 取 于 xi 


方向 上 的 极 小 值 , 并 置 xi 为 所 移动 的 实际 向 量 位 移 , 同 时 返回 在 还 有 fret 它 是 函 赦 fonc 返回 在 p 点 的 值 -实际 上 
该 程 储 完全 是 通过 调用 mnbrak 和 breat 来 实现 的 。 


T10at brentrTloaf BAX，f1oatg bX，Tf10a5 Ci 
Loat 〔# 下 ) (1Gaty ， 寺 LOat tol1，?1cat 二 1 ; 

fl1oat fldiam(fLloat xz) ; 

Void mnbrak(Tloat *BXx，fl0at whx，Tl1oac ex，float wa。f1loat #tb， 
iloat *fc，ftfloat 【func)(float)) 1 

ipt j3 

zl1oat xz,XminiTxfb,favbr,ax; 


Dcomnn ; 定义 全 局 变量 
了 Pcomsvector(l.a); 
其 LTCOUyyGCtSzgL DR 
nryuncafunci 
for (jalijcsnayj+y) 
pcom[j]z=p [j] ; 
xicom[j]=xi[j]; 


】} 

axm0 .0 解 区 间 的 初始 颈 和 
xl .0 

ImbTAK《 二 ma, 表 斑 工 ,家 吕 工 ,让 于 己 ， 才 斑 ， 业 人 口 ,下 1 对 imm》 ; 

作 于 工 各 tbTent ar.xvbxz,flqime,TOL ,xmiany》; 

for 〔(j=tiij<enij+r+) 荆 构造 要 返回 的 向 量 结果 


Zi [jj *se xmin; 


"355。 


pP[:] +*= xif[j]i 
free_-vec*or5xicom,1,nl， 


free_vertroTrtpeoe ,ln 


上 


人 incluade "nrutil.b" 


axXterD int ncom; Linr3o 中 定 电 
Pxtern fl15at Pomwexisom,[wnrsunc)ff:cat []1: 


*loat fldimtffloat x) 
必须 性 隐 积 茸 1inmin， 
T 


lot ]); 
了 1oat ixXt， 


Txt=Vectorfl ,ncoom); 
for (〈j=1i]<=nacom;j<+) xt[j]=pcom[j]+xsxicom[j]; 
xz=(eDTfunc)txt) 
fT9e_VeCLOI(XT ,1:nCoB) ; 
TeturD Ti; 
上 
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10.6 ”条 维 共 斩 梯 度 法 


现 仔 我 们 来 考察 这 样 种 情形 , 即 在 某 一 给 定 的 六 值 维 空间 中 的 点 P 处 ,不 仅 天 数 值 
78CP) 可 计算 ,而 且 其 梯度 ( 即 一 阶 仿 导 数 向 量 》A(P)? 也 是 可 计算 的 。 

我 们 只 要 经 过 … 些 简单 的 计算 论证 就 可 以 发 现 使 用 梯度 信息 的 好 处 所 在 : 设 / 为 一 近 
亿 二 次 型 ,如 式 (10. 5. 上) 乓 未 : 


GD me bx 十 二 及 (10.6.1) 


则 / 中 未 知 参 数 的 个 数 与 4,b 中 自 由 参数 的 个 数 相同 ,都 为 读 NCN 十 1) 个 ,具有 N “数量 
级 ,改变 其 中 任意 一 个 参数 ,都 能 使 极 小 点 的 位 置 发 生变 化 ,因此 ,在 收集 到 与 必 " 等 其 级 的 
信息 量 以 前 ,要 想 找 出 月 标 范 数 的 极 小 值 是 没有 什么 指望 的 。 

在 第 10. 5 节 介绍 的 方向 集 方 法 中 ,我 们 是 利用 次 数 达 AN 数量 级 的 独立 一 维 搜索 ,来 搜 
集 到 必要 信息 的 ,而 每 次 一 维 搜索 都 需要 " 儿 次 "( 有 时 是 很 多 很 多 的 儿 次 !) 苯 数 计算 .因为 
每 计算 一 次 梯度 可 以 得 到 六 个 新 的 信息 ,因此 如 果 运 用 得 当 , 作 独立 一 维 搜索 的 次 数 只 需 
六 数量 级 本 节 和 下 节 中 的 算法 实际 上 都 是 如 此 。 

利用 导数 信息 还 可 使 计算 速度 改进 六 倍 ,这 是 很 明显 的 .粗略 估算 一 下 ,可 以 想象 , 计 
算 梯度 的 每 一 分 量 的 时 间 与 计算 函数 值 本 身 的 时 间 大 约 是 一 样 的 .因此 ,利用 导数 和 不 利用 
导数 的 算法 部 需 花 费 A 数量 级 的 计算 量 . 与 计算 丽 数 值 等 价 , 但 是 ,即使 优 城 件 不 看 王 获 最 
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级 为 六 的 计算 量 , 它 优 是 相当 重要 的 :G) 每 计算 一 次 梯度 分 量 , 一 般 可 和 邓 约 的 函数 什 计 算 
不 只 一 次 ,而 是 几 次 , -- 般 可 以 节约 与 一 次 完整 的 线性 极 化 的 计算 等 价 蔓 。 ii) 在 函数 梯度 
各 分 量 的 计算 公式 中 , 常 有 很 高 阶 的 元 余 量 ,如 遇 这 种 情况 ,特别 是 当 明 数值 的 计算 中 也 让 
很 多 儿 余 时 , 则 涕 度 的 计算 基 能 比 N 次 函数 计算 的 量 少 得 多 ， 

初学 者 常 犯 的 毛病 ,认为 只 要 合理 地 引入 梯度 信息 ,就 能 获得 差不多 和 其 他 算法 样 好 
的 效果 ,由 这 种 妨 路 可 推出 如 下 的 并 不 算 很 好 的 算法 , 即 ”最速 下 降 法 ”， 


最 十 上 降 : 以 Po 为 起 始点 , 沿 诗 Pi 的 路 径 , 在 局 部 下 降 樟 度 一 7 
《P,) 方 向 上 作 一 维 极 小 化 搜索 求 得 P，…: :并 将 P; 移 至 Pi+: 点 ,重复 


这 一 过 程 直 到 所 需 的 次 数 。 








最 速 下 降 法 (顺便 提 一 句 , 它 可 以 完全 归结 于 柯 旧 (Cauchy ) 算 法 ) 折 中 到 的 麻烦 与 图 
10. 5, 1 中 所 示 的 问题 一 样 .即使 目标 阴 数 为 -严格 的 二 次 型 ,该 方法 要 在 沿 基 一 淡 长 山谷 下 
降 的 过 程 中 ,执行 很 多 次 步 长 很 小 的 步骤 ,例如 在 一 维 场合 ,你 可 能 会 希望 丢 代 第 … 步 就 到 
达 谷 底 , 第 二 步 便 能 直接 沿 长 轴 下 降 ,新 的 梯 炭 方向 总 是 与 刚刚 经 过 的 方向 答 直 ,外 此 , 策 男 
最 速 下 降 法 时 ,必须 作 适 当 角 度 转动 ,而 这 种 和 盯 转 动 一 般 并 不 能 找到 极 小 值 ( 拓 图 12. 6 
1)。 





























1 


(ta 对 - 狂 长 苯 数 使 用 最 速 下 降 法 ,虽然 该 方法 比 图 10, 5. 1 所 示 的 方法 快 一 些 , 但 奶 不 能 作为 一 种 好 的 算法 ,在 
到 达 谷底 之 前 也 要 经 过 很 多 步 (b) 将 最 速 下 隆 法 执行 过 程 中 的 其 一 步 放大 来 看 .从 局 部 梯度 方向 出 发 (这 -六 
向 与 恰 廊 线 的 切线 垂 贞 ), 经 过 一 维 搜 索 到 达 局 部 恨 小 值 , 此 时 一 维 擅 索 路 径 与 那里 的 索 娜 线 的 切线 平行 . 


图 10. 6. 1 
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与 推导 卡 (10.5.5) 所 作 的 过 论 一 尝 ,我 们 将 曾 希 望 有 一 种 办 法 .不 是 沿 新 的 蛋 度 太 困 下 
降 ,而 是 购 造 一 个 与 原 梯 度 方 向 共 箔 的 方向 :而 且 该 方向 还 要 忌 可 能 地 与 在 此 以 前 沂 有 2 至 
过 的 方向 共 斩 . 能 够 实现 这 一 构造 过 程 的 方法 称 为 共 钱 梯度 方法 。 

在 第 2.? 节 中 我 们 也 曾 详 论 这 共 罗 樟 度 法 , 那 节 的 内 容 是 通过 极 小 化 次 型 来 求解 线性 
代数 方程 ;虽然 共 辆 梯度 法 当时 十 作为 一 种 求解 技巧 来 介绍 的 , 亿 邦 套 公 式 对 于 本 节 求 -个 
以 一 次 型 近似 式 ((10. 6. 1)) 的 图 数 的 极 小 值 这 类 问题 也 同样 送 几 。 我 们 以 任 “向 区 为 起 
点 , 令 ho 一 go, 并 用 下 面 的 递 推 公式 来 构造 两 个 向 基 序 列 ， 

儿 +t 一 中 一 4 有 -= 8 1 一 Yih， 人 2 《1 6 2 


按 这 种 方式 构造 出 来 的 向 量 可 同时 满 症 正 亦 性 和 共 轩 :: 
名 “8g), 一 站 和 和 “hi =: 0 多，h, 一 和 1 到 了 《0.6. 3237 


其 中 (10. 6.2》 中 标量 4; 和 六 的 计算 公 过 是 : 





站 hh， ) 
4， hj 和 hb ， hi 和 .hi Ce 
7 一 g 1”&.11 (10,. 6.5) 

名: 人 / 


《10, 6.2)~ 人 (10. 6.5) 这 组 公式 与 (2.7.3) 一 (2.7.35) 的 不 同 之 处 除了 在 前 者 中 A 是 对 称 的 
之 钦 , 其 他 仅仅 是 记号 上 的 不 同 。( 针 对 求 通 数 极 小 值 问 题 推 导 这 些 结论 的 全 部 过 程 在 波 拉 
克 (Polak)[]] 的 书 中 有 详细 介绍 。) 

现在 我 们 鼻 设 式 (10. 6. 1 中 的 海 赛 (Hessian) 甜 阵 A 是 已 知 的 ,那么 我 们 就 可 以 利用 
《10, 6. 2) 来 构造 一 系列 的 共 辑 方向 ha ,并 沿 这 些 方向 进行 一 礁 搜索 这样 作 六 次 以 后 ,就 能 
求 出 二 次 型 的 极 小 值 .但 是 ,事实 上 A 是 未 知 的 。 

下 面 我 们 给 诈 一 个 著名 的 年 再 来 解决 上 而 的 问题 .假设 在 此 点 P; 恰 有 中 = 一 安 六 P)， 
其 中 了 如 (10,6. 1) 式 所 示 。 再 傻 设 从 P, 并 始 沿 和 方向 到 达 了 的 某 个 局部 极 小 值 点 了 -并 
器 B 一 一 AP 那么 这 个 8- 应 该 与 由 (10,. 6,2) 式 构造 的 向 量 完全 相 司 。( 至 此 ,我 们 


并 没有 利用 盘 构造 出 名 屿 
证 明 ; 由 式 C10, 5. 3) 得 到 时 一 一 全, 忆 十 b 及 
g.， 一 一 和 点" (P 一 4 十 b 一 外 一 和 各 hh 【1 有. 放 ) 


其 中 ^ 的 取 值 及 上 了 达到 该 方向 的 极 小 值 。 但 在 这 个 极 小 值 点 , hv 一 一 hg 一 0 -将 后 
曾 的 这 个 等 式 与 式 (10, 6. 6) 联 立 可 以 很 容易 求 ,而 结果 恰好 是 式 (10. 6.4) 所 未 的 素 达 式 。 
再 以 这 个 侦 代入 式 (10. 6.6) 中 ,所 得 表达 式 (10. 6. 2) 完 全 相同 .证 毕 。 

这 样 ,对 于 既 不 需要 已 知 赫 斯 恩 矩 阵 4, 甚 至 也 不 需 对 其 花费 存 贮 空间 的 算法 ,我 们 已 
找到 了 它 的 理论 基础 。 只 顺利 用 -- 维 搜索 和 刁 度 向 量 的 计算 ,并 设置 一 个 辅助 向 量 存放 序 列 
& 的 当前 疝 量 ,方向 充 列 h, 就 可 以 被 构造 出 来 。 

以 上 我 们 所 讨论 的 算法 是 其 撤 樟 计 法 的 弗 荣 御 一 果 弗 斯 (Fletcher-Reeves) 版 木 的 原 
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形 。 后 来 波 拉克 (Poiak) 和 里 拜 尔 (Ribiere) 对 这 一 版 本 做 了 一 处 小 小 的 改动 ,虽然 改动 个 人 ， 
但 有 些 情况 下 其 意义 却 非 同 -- 般 .他 们 建议 用 下 述 展 达 式 


二 0) 
民 “ 狼 ， 


y 一 《10. 6.7) 


来 替代 式 (10. 6. 5) .介绍 到 这 里 ,读者 肯定 会 问 , 根 据 正 交 条 件 (10. 8. 3) ,这 两 个 表达 式 不 是 
等 价 的 吗 ? 不 错 , 对 精确 二 次 型 它们 是 等 价 的 ,但 在 实际 当中 ,目标 函数 常常 不 是 精确 的 二 次 
型 ,因此 在 求 出 很 设 的 极 小 信 后 ,还 需 另 作 一 恤 渤 代 ,。 实 践 证 明 , 波 拉克 和 里 拜 尔 提出 的 方法 
恰 怡 可 以 非常 漂亮 地 实现 向 识 入 和 迭代 的 过 度 :一 旦 算法 偏离 路 径 ， 出 重 于 h 为 沿 局 部 梯度 下 
姥 的 方向 ,这 就 相当 于 重新 开始 执行 斩 梯 度 法 。 

下 面 这 段 程序 是 波 拉克 -里 拜 尔 方法 的 一 个 变异 版 本 ,我 们 只 要 改变 程序 的 某 -… 局 部 ， 
它 就 变 成 了 弗 莱 彻 -里 弗 斯 方法 。 该 程序 中 利用 了 函数 fune(p),( 其 中 p[1..n] 是 一 个 ” 维 
向 量 ) 和 函数 dfuncfp,df) ,其 中 dfunc(p ,df) 用 来 计算 输入 点 处 的 向 量 梯度 df :..n]， 

程序 中 还 调 有 了 linmin 米 执行 一 维 搜索 .正如 和 以 前 讨论 过 的 一 样 ,我们 须 把 linmin 
中 的 brent 改 为 dbrent, 也 就 是 说 在 一 维 搜索 中 需要 利用 梯度 信息 .请 读者 参 下 面 的 注释 说 
明 。 


##include <tnath,h> 

基 include ”nrut 计 .hy 

#define ITMAX 200 允许 选 代 的 最 太 次 数 

站 define PS , De 一 10 对 收 误 玫 罕 函 数值 的 特殊 情况 进行 调整 的 最 小 教 

共 define FR 玉 REALL free-vecetor(xj,1yn)ifree_vcctorfh ln)ifrec-vectorkegy1vn)5 


void 季 prmnkfloat p[]，int ny float ftol，int * iter, float * fret, 8oat (* func) 人 float [了 )， 
void (*# dfunc)tfloat [], float -])) 
给 定 起 访 点 pL1..n- ,利用 子 程序 fune 提 诬 的 梯度 信息 ,对 函 孝 func 用 弗 业 彻 -里 弗 斯 - 波 拉 元 里 尔 方 法 求 骸 心 值 。 


西数 值 的 收 笋 容 差 限 以 输入 对 数 ffol 痊 出 .返回 项 包括 p 概 小 秆 点 的 坐标 ) .iter( 总 共 执 行 的 迁 代 次 数 ) 以 及 fret 
( 画 数 的 极 小 入 ), 本 称 序 还 调用 了 litmmin 执行 一 维 按 索 . 


void linmintfloatr p[]，tflcar ri[]，intr n，float sfret， 
float 《func)(fioat 个 ))， 

ipnt jits; 

王 1Oat EE, 区 aivEPpydgEi 

1 二 区， 市。 间 Xi 


区 =vactor(1,n) ; 
hvectorf1,n)i 
Xievectorgt,n); 
fp=fe*func) (p); 初始 化 
【edfbnc)gp,ri)， 
for (j=1;j<=nij++) 1 
gj 于 -xif[ji; 
xXa[J]j=h[jJ=g[j] ; 


Tor (itS=1ilt8<sIITNHAXiiItS++) 并 大 代入 环 
中 衬 七 白 工 王 itS 1 
1iomin( 户 ,xiafretifunc); 正常 返 叫 
计 〔2.0*fTabs(e*fret-fp) <= ftolw(fabskrfretlrfabstfp)+EPS)) { 
FREEALL 
reBturny 
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fp={tefunc)(pb) ; 

《szdfumcy(P ,xi) ; 

区 区 = 以 放下. 人 ; 

for {jzal;ij<sn;Jjrr) 《{ 
BE += 芒 [j]*Efj 


1 dgE += xifj]jwxi[j]; 7/ 帅 半 间 甲 癌 斯 方法 
degg +m (rifj+gLj])+xzi[j>; 滤 拉 克 蜡 莽 ,水 三 法 
i (gg “0.0) 【1 不 太 叮 能 出 钢 的 情况 ， 如 果 梯 度 怡 为 站 , 则 
FREEALL 可 以 结束 返 网 
returni 
gamndgB/ 


55: 
for 【=17;jc=hij++》 工 
名 [jj = -xi[j]; 
if[ 让 =5a[j]=g[J]+ 放 amebf]]; 


了 


DTeTror("Too RaDy itarationg ia rpPran") 3 


10.6.1 有 关 利 用 导数 的 线性 极 小 化 之 说 明 


请 重新 闻 读 一 十 本 章 第 10. 5 节 最 后 一 部 分 的 内 容 , 下 面 我 们 所 蔓 做 的 事情 与 它 完 全 相 
同 , 只 是 在 执行 线性 极 小 化 过 程 中 ,利用 了 导数 信息 。 
我 们 把 修改 后 的 jiamin 取 名 为 diinmin; 在 dlinmin 中 所 调用 的 子 程序 dfldim 将 紧 随 


其 后 给 出 ， 


共 inpclude “brutdl. hy 
并 define TOL 2. 0e 一 4 这 是 传送 到 dbrent 的 容 差 限 


imr ncomy 与 dndim 全 局 变易 通 讯 
float * pcom， xicom,Cs nrfunc)tfloat [])+ 
void (xnrdfunjkfloat []，fioat [) 


void 和 inmninKfloat P[]， iloat xi[]，int ny float # 和 et 和 oat f#func)ciloat[]》， 


void 《+ dfuncyCHoar [ fioat -])) 
给 定 一 叭 点 P[1. .nj] 和 一 口外 方 向 xit1. .路 港 共 方向 不 断 移 动 p 点 ,直至 函 教 Panc(p) 取 得 xi 方向 上 的 根 小 值 . 


返回 时 姥 p 为 极 小 值 点 ,并 墅 xi 为 p 所 移动 的 实际 向 量 位 秘 . 同 时 返回 的 还 有 fret, 它 是 阔 数 fnne 在 程序 把 回 的 p 
点 所 取 的 愤 。 实 际 上 该 程序 之 全 是 通过 调用 mnbrak 和 册 rent 来 实现 的 。 


{ 

float dbrenpt(float mL，float br，float cx， 
Tlcat 【ef) (zl1oat)，f1oar 【dt) (FLpaty》，float tol，fLoat FZDiD) 

flLoat fldim(floar X); 

TLoat dfldiatfloat x); 

Yoid smbrak(ft1oat *ax， 1o98Lt wbx，T1oat =cZ，TIOaC ti， 了 Gat *fb， 
?Loat ec， 人 fl1oat (aftnc)tfloat)) 

iot ji; 

于 1oat XXXmiD ,于 Rb ,下 本 ,DX az 

Dcomeni 定义 全 局 变量 

PCo 曙 mvectOCI，D)》 

Ziccmsvaectorr1,p) i 

Prfupncmfunc， 
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nrdfun=dfunc; 
sor (j=1ij<=aij++) { 
Pcom [j]=pTj]; 
xicoa[j]=xi[j]; 
| 
azr=0.0i 划 界 的 初始 顶 测 
XYmtL .DOi 
mnbraik 1 让 并 ,二 炊 工 , 业 记 X ,让 二 a 发 TX , 必 fb.fldiom); 
Ffretsdbrent(axtixxrbrifT1ldicma,daf1ldim,TOL, 主 rzmin) i 
for (j=1;j<=n3j++) 殉 造 材 乒 加 的 向 量 结果 
Xi[j] *= xmiai 
P[j]j += xi[j]; 


Tree_vector ' 和 icom ,1 ,Ia) ) 
free_vector'Pconp,1,R7: 


间 1mCLDde "hrutil.n" 


司 开 工 0 int DCco; 定义 在 dlLinmnin 中 
中 XFO 于 10at PCcoz ,szicoav (enrtunc)(zlcat []}); 
extern void 〔*nrdftunyffloat [{f] ，float [] )， 


float dfldimrfloat x) 


int ji; 
ELoat dfl1=4 0; 
王 1Oa 人 tt 中 X 记 4o 王 - 


tm YeCtor1,nCO3) 

dfmvector(1,ncom) ， 

for (Jm1;jcsncoma:]44) ff[]iepeom[Jj]j+x+xlcom[j]i; 
【fordfunyfxt,df); 

for 〈《j=-1;j<=-nacomij++) af1 +=< dtf[)]*zicomfj]; 
fraa_veactor [df ,1,ncom); 

Tree_YyeGeCtor [xt, 1, neom》: 

Xerura dfli 


参考 文献 和 进一步 读物 : 

Pofiak ， 下、1971，fComazbatarionaz etjords 入 Co5ippisattiomfNew York: Academic Press)，8 2. 3、f11 

Jacobs，D,AA.H， (ed) 1977，THe Stafe ojf 才 e rt im Naemericatl 4nagysig(London:Academic Preas)，Chap- 
ter 111. 上 .7 (by 长 . 罗 , Erodlis)，[2] 


10.7 ”多维 变 度量 法 


变 度量 法 (有 时 也 称 为 拟 牛 顿 法 ) 的 目标 是 从 逐步 的 线 竹 极 小 化 中 不 断 积累 信息 ,使 得 
算法 在 经 过 N 次 线性 极 小 化 以 后 , 便 可 精确 地 收敛 于 一 个 开元 二 次 型 的 极 小 值 , 这 与 前 面 
讨论 的 共 罗 梯 度 法 是 完全 相同 的 由 此 看 来 ,对 于 更 一 般 的 光滑 画 数 , 变 唐 量 法 也 能 达到 一 
次 收敛 。 

无 论 是 变 度量 还 是 共 簿 梯度 法 都 要 求 能 计算 出 目标 函数 在 任 曾 点 的 梯度 ( 即 一 阶 导数 
向 基 ) .与 共 生 梯 度 法 所 不 同 的 是 , 变 度量 法 需要 不 断 存 必 和 更 新 已 有 的 信息 ,这 种 方法 所 需 
的 不 是 数量 级 为 N( 这 里 N 为 维 数 ) 的 中 间 存 储量 ,而 是 一 个 NXN 大 小 的 矩阵 .-- 般 情况 
下 ,只 村 N 不 太 大 ,这 样 大 小 的 矩阵 是 根本 不 成 问题 的 。 
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另 一 方面 ,根据 我 们 所 掌握 的 情况 ,除了 历史 原因 以 外 ,释放 基 法 与 共 和 涕 度 法 相 长 较 
并 不 拥有 任何 压倒 优势 .由 于 变 度 量 法 建立 得 较 早 而 且 挫 广 得 较为 广泛 ,因此 它 现 在 已 经 能 
满足 众多 使 用 者 的 要 求 。 除 此 之 外 ,一 些 用 变 度量 法 开发 出 来 的 优秀 软件 实施 (这 些 庆 答 超 
出 了 本 书 的 范围 . 见 下 ?被 用 于 解决 舍 人 误差 的 极 小 化 、 特 殊 条 件 的 处 理 等 高 难度 问题 .虽然 
本 书 倾 向 于 使 用 变 度量 法 ,而 不 是 共 辑 梯度 法 ,但 我 们 没有 理由 把 这 一 习惯 强加 给 读者 ， 

变 度量 法 主要 分 为 两 大 类, “类 是 戴 维 登 (Davidon)- 弗 攻 彻 (Fietcher)- 胃 威 尔 
《Powell)( 邵 DFP) 算 法 (有 时 简称 Fleteher-Powcll 算法 ); 田 一 类 是 布 罗 依 登 (Broydcn; 弗 
莱 彻 - 姜 德 法 估 (Goldiarb)- 香 农 (Shanno 算法 ( 即 BFGS ) 

BFGS 算法 与 DFP 算法 的 不 同 之 处 仅仅 在 于 含 信 误差 , 收 敏 容 差 限 以 及 -- 些 类 似 的 
“恼人 ”的 细节 的 问题 上 .它们 都 超出 了 本 书 所 讨论 的 范围 ,参阅 [1,2]. 但 是 ,人 们 已 经 普遍 
认识 到 ,从 经 验 上 来 看 ,BFGS 方法 在 这 些 枝 节 问题 上 比 DFP 方法 要 技 高 一 筹 , 因 此 本 节 中 
我 们 将 着 重 研究 BFGS 方法 。 

和 前 面 - 样 ,我们 假设 任意 函数 六 x)7 可 用 (10. 6.1) 式 那样 的 二 次 型 作 局 部 的 近似 ,但 
”是 对 二 次 型 的 参数 Ah 的 值 仍 一 无 所 知 ,我 们 仅仅 只 能 从 函数 值 的 计算 和 线性 极 小 化 中 找 
到 一 些 有 关 的 信息 。 

变 度 量 法 的 基本 思想 就 是 ,用 逐步 选 代 的 方式 求 出 逆 海 赛 (Hesse) 和 矩阵 A 的 一 个 足够 
好 的 近似 矩阵 , 即 攀 造 出 一 个 矩阵 序列 于 ,使 其 具有 如 下 性 质 : 


lim Hi, 一 A-: 0. 本) 


如 果 这 个 极限 值 经 过 N 次 而 不 基 ce 次 选 代 以 后 就 能 到 , 则 是 更 好 不 过 的 了 。 
更 在 ,我 们 来 解释 一 下 为 什么 变 度量 法 有 时 也 被 你 作 “ 氟 牛顿 法 ”. 考 虑 一 种 求 男 数 极 小 
值 的 方法 , 即 朋 牛顿 法 搜索 该 函数 导数 的 零点 。 在 当前 点 的 某 邻 域 附近 ,我 们 有 : 
0 = TD 一 (人 一 xi)。 吕 Ar) 十 世人 x xD) AC 一 xK) (107.2) 
进而 有 下 式 成 立 : 
VAGoo = Vs 十 A，Gx -一 xi) (10.9.3) 


在 牛顿 法 中 我 们 是 通 过 置 W FAx) 一 0 来 确定 下 一 个 迭代 点 的 , 即 ; 
”一 一 (1.7.4) 


上 式 中 左 端 项 是 在 达到 精确 极 小 以 前 需要 经 过 的 有 限 步 长 :而 右 问 项 在 我 们 求 出 精确 的 全 
Cs“A-1) 之 后 便 可 成 为 已 知 项 。 
我 们 所 以 在 “牛顿 法 ”之 前 冠 以 “ 拟 " 字 ,是 因为 算法 中 使 用 的 不 是 函数 了 的 真正 的 海 赛 
抢 阵 ,而 是 该 矩阵 的 当前 近 但 矩阵 .这 样 做 的 效果 常常 比 利 用 真正 的 海 赛 矩 阵 效果 要 好 .这 
个 似是而非 的 结论 并 不 礁 理 解 . 泪 我 们 考 虎 一 下 函数 了 在 zx 处 的 下 降 方向 , 沿 这 些 方向 p， 
天 数 了 的 值 是 减 小 的 , 即 妆 上 "p<0。 为 了 让 牛顿 方向 (10. 7.4) 成 为 干 降 方向 .必须 有 浦 足 : 
YoxD GD xD) 一 一 人 一 XDA 一 RD) (10.7.5) 


也 就 是 说 A 必须 是 正定 抢 阵 ,一般 说 来 ,在 远离 极 小 值 处 ,我 们 并 不 能 保证 海 赛 矩 阵 是 正定 
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的 .对 真正 的 海 赛 矩阵 ,用 实际 的 牛顿 步 邓 只 能 找到 函数 值 增加 的 点 . 拟 牛 顿 法 的 基本 思想 
是 , 先 找 一 个 正定 对 称 的 矩阵 作为 A 的 初始 近似 惩 阵 , 然 后 从 这 个 近似 矩阵 出 发 ,构造 一 个 
抵 阵 序列 {H,) ,构造 的 原则 是 怕 证 每 个 H; 都 大 正定 的 和 对 称 的 。 在 离 峰 小 值 较 过 处 ,这 种 构 
造 方法 能 够 保证 算法 沿 下 降 方向 进行 上 代 ; 而 在 接近 极 小 值 的 地 方 ,更 新 后 的 公式 淅 近 真 正 
的 海 赛 矩 阵 这 样 .这样 我 们 可 以 获得 牛 天 法 所 具备 的 一 次 收敛 性 。 

当 我 们 没有 充分 接近 和 被 小 值 的 时 候 , 即 使 是 对 正定 矩阵 A 采用 完全 的 牛 报 步 又 也 不 

- 定 能 使 示 数 值 下 降 ! 原 因 是 我 们 移动 的 距离 可 能 过 远 , 因 了 亨 使 二 次 近似 变 得 翔 无 意义 。 唯 

一 能 让 我 们 心中 有 数 的 是 :在 沿 牛 顿 方向 移动 过 程 中 ,函数 了 最 初 是 卜 降 的 .这 种 情况 下 ， 
第 9. 7? 节 中 的 划 界 策略 又 订 以 族 上 用 场 , 我 们 可 以 利用 它 沿 牛 顿 步骤 p 的 方向 选择 “: 轮 迁 代 
步骤 ,但 我 们 并 不 能 总 这 样 做 。 

本 书 将 省 略 DFP 算法 的 严格 推导 ,有 兴趣 的 读者 请 参考 -3] 中 的 详细 推导 过 往 。 根 据 
Brodlie(C=) ,我 们 将 在 上 文中 给 出 该 方法 的 启发 式 机 理 . 

以 x+1l 替 代 方 程 (10.7. 4) 中 的 x,, 再 用 所 得 方程 减 去 原来 的 式 (10. 7. 4) 我 站 有 : 


xi-1 一 2 一 各 "Vi 一 了 (1209.7.6) 


其 中 立方 = 祥 Fx) .从 xi; 得 到 :之 后 ,我 们 很 自然 地 希望 新 求 出 的 估计 值 也 ,能 够 象 
和 “一样 满 足 式 (10.7.6) , 即 : 
Mi 一 时 一 于 一) (10.7.7) 


不 仅 如 此 , 它 的 修正 公式 还 应 具有 “Hi 于 十 修 证 值 ” 这 种 形式 。 

它 周 围 有 什么 “对 象 " 可 以 用 来 构造 修正 项 呢 ? 最 明显 的 是 x+ 一 x; 和 袜 斤 ,， vA 这 两 
个 向 量 , 外 加 和 攻 阵 序列 下 .有 这 些 项 来 构造 矩阵 不 可 能 有 无 穷 多 种 方式 ,特别 是 在 还 要 满足 
式 (10.7. 7) 的 情况 下 。 

DEFP 方法 的 修正 公式 给 出 了 其 中 一 种 构造 方法 , 它 具 有 如 下 形式 ， 


(Ki+l 一 Xi) 区 ) (ii 一 ii) 
(5 才 习 )) [7 、 有 台大》 
[和 (YA 一 立 护 让 区 [ 理 , 《7 V 广 ) 
《7 了 8 一 PH 了 7 二 六) 


班 ,-， 也 ， 十 





《10.7.8》 





上 式 中 名 表示 两 个 向 量 的 “外 ?” 积 或 * 直 接 ” 积 ,其 结果 为 一 托 阵 ,um 代 * 的 第 ; 行 第 /) 列 元 素 
为 wz 式 读者 可 以 证 明 式 (10. 7.8) 确 实 满 足 式 (10.7.7))。 
BEGS 的 修正 公式 与 DFP 值 的 形式 相同 ,只 是 多 增加 了 一 项 
.T[LIVA 一 YA HCVYA 一 Yuanu 《10.7.9) 


其 中 定义 为 如 下 向 量 
(Ki 。 Xi) 
(Xi 一 Xi)。，(Y 玉 -，- 吕方 ) 
HCV 天 _， 半 Y_/) 
(Vi 一 立方) HCVY 一 了 大) 


0 三 
(10.7.103 
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(同样 是 以 证 明 式 (10.7. 10) 也 满足 式 (10. 7.7))， 

只 要 了 是 一 个 二 次 型 ,无 论 在 (10.7.8)? 中 加 或 不 加 (10. 7. 9) 这 一 项 ,我 们 都 能 全 到 
“{H 在 N 步 之 内 必 收 敛 于 A ?的 结论 。 对 于 这 个 结论 ,上 赤 者 可 以 尽 区 放心 。 

F 面 的 这 段 涉 代 码 dfpmin 基 拟 牛顿 法 的 程序 实现 ,dfpmin 路 需 调 用 第 9.? 节 由 的 
lasrch .在 第 9. ? 节 中 newt 的 结尾 处 我 们 曾经 提 到 ,如果 变 其 的 比例 选取 不 当 有 可 能 导 纤 算 
法 失败 ,下 面 的 程序 也 是 如 此 、 


苍 inctude 扫 math, h>> 
并 include "nrutil-hy" 


并 define TFTMAX 200 多 许 和 迭代 的 最 大 次 数 

共 define 下 PS 3.0De 一 8 机 器 精度 

并 define TOLX (4 * EPS) x 值 的 收 伍 淮 几 

#Hefine STPMX 100.0 线性 搜索 中 所 允许 的 最 天 省 长 


并 define FREEALL free-vector(xi,1,n)ifree_veetor(pnewvln)ls 
free-matrix(hessin,1vny ln?yifree_vyectorfhdgy，1p)ifree .veetozlgylr)i 
free vectorkdg ,1,D)) 


void dfpminkfloat p[]，int ny fleat gtol int * itery， float * fret， filoat(* funcy(float [ |)， 
void (x dfunc)(Cfloat [J，float [])) . 
第 定 起 始点 p[1. .njcn 维和 时 ), 利 用 子 程序 dfumc 提供 的 梯度 信息 ,用 修改 后 的 戴 堆 登 - 弗 划 御 一 和 睫 尔 广 法 


(DFP) , 即 布 罗 依 登 一 弗 莱 御 一 戈 芍 法 伯 一 香 肖 CBEGS) 方 法 对 本 数 fonc 求 极 小 值 .梯度 霍 点 的 收 煞 容 差 限 以 输入 
当 数 gtel 苔 出 ,程序 的 返回 值 包括 p 1..n]5 极 小 值 点 的 位 置 尝 标 ] ,iter( 总 共 执 行 的 选 代 次 数 ? 坟 及 Jset! 函 数 的 贷 
处 管 ), 本 程序 中 调用 了 子 程序 Ioarel 执行 近 机 线性 极 小 化 。 


void 1PnBkchttat 局 ，f2cat xcold[] ，fl1oat To1ld， 了 2oat 区 [] ，zLcat PP ，Ffloat xf 
10at 二， 了 ]cat SpamaX，1lnt Check ，T10a88 《 中 unCci (zlLoat [] 》》; 

int chack,i,its, ji 

节 1Oat denifacofad ,Tae,fP,3tpaax ,日 IDmD .DOSUDIdE，BUNXI ,七 ezj。test; 

王 10 和 站 插 人 区 区， 局 区 二 卫 人 3 有 3 tlGR ,二 Xi 


dgevectror(i,n)， 
&gmvectOorC1D》i; 
hdg=vector(1n); 
hesgtin=mnatrixt1,ny li,na): 
Panauwevectortl hyi 
Xevector(1l,D)- 


fp={*funcy(p) : 计算 起 始点 吊 数 值 和 堪 康 
《wdfuncy(p.g》: 
for (im1iicsmaiiy+) 革 并 将 递 诺 寺 矩 阵 砷 始 化 为 单位 岳 踪 


for 〈jm1;jcan;ij++) hassin[i] [jz=0.0; 
heamgin[ia[i]=1.0; 


xft[i] = -[i]; 宰 始 化 一 维 搜 索 方向 
sm + pf[i]9p[i]; 

】 

BtPEERXSTPMXENAX{EqFtCSuQ) (ELcat)) ; 

人 0g 《itBmT71BXmJTNAS ; 工 七 有 ++) 荆 选 代 循环 
本 圭 写 目 了 本 1 七 加 ; 


lnsrch(np,tp,g:xiPhevwEFret,stpmax , 放 chocx ,tunc]i 
在 Insrch 中 计算 新 的 函数 值 并 存在 fp 中 以 备 下 -- 轮 线性 搜索 时 使 用 


fp = wzeti 

for (〈ialii<=nii++) 苹 
xi [fiJapaet[i]-ptz] : 更 新 搜索 方向 和 当前 点 
[li]epnav[i]; 
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) 
teBte0.01 检验 Az 的 收 癌 性 


for (isl1;i<=n;it+y)》 工 
Teap=mfabtkxi[i] AFMAXCTabsp[il),1.0); 
好 〈tem 区 > taBT》 tbtmremp: 


IE 【teat < TOLX) 工 


FREEALL 

returp ); 
小 
for (imlii<=en;ir+》 dg[i]mgfi]; 将 诛 樟 麻 存 才 起 来 
【sdfunc)] (了 ,多 ) ; 计算 新 的 梯度 
teGgt=D .0O; 检验 轩 袖 度 的 收效 件 


GeneFMAK{*fret ,1 .0); 

for (ir1ii<eni;i++) 工 
tempwfabs(g[i])*egMAXKfabsrp[i),1.D)Adeni 
if 【temp > te5t)】 Test=tomp1 


】 
IE (teat 《 Btol) 
FREEALL 
returai 
} 
for fisl1i3<emii4+} dg[i]l-grig-ag[i]; 计算 怕 度 的 差 值 
for fi=<liicen;i++] 并 有 异 该 在 值 梯 以 当前 矩阵 
hdg[i]<0.0; 
foz (j=1;j<-nij++) hdg[i] += baasin[il[j]weg[j] ; 
】} 
acnfaa=Bu9dEgneuixieO ,0D: 计 和 车 分 母 购 点 数 


for (i=1;lc=n;i++) 二 
Tac + dg[i]ewzi[i]: 
Tae + dgfiibhdgfri]: 
sumdg += 59R(dg [i) : 
gumxri += SQRKxi [zi]y) ; 

}》 


if 〔facezac > EPSwsumdgwgauezi) 并 若 fac 设 有 足 铝 的 正 数 特性 ， 这 一 步 跳 过 . 
人 acs1.GATS9Ci 不 技 行 
Tadet .0/Tae; 
BFGS 比 DFP 多 出 的 那 一 项 : 
for findii<s=nii+r+) dg[i]=<facexri[ia-fadwhdgfi]; 
for (ir1iti<enii++r) BFGS 收 正 公式 
for 〔【j=miij<enij+t) T 
hensda[i] [jz +e 了 acCkxt[:]wzx[j] 
-fad*hdg[i]ehag[3]+faasdEgFi]wdg[j]; 
} 
for (islii<=mahii++) 萎 计算 上 一 搜索 方向 
xi[i]s0.0; 
ftor〔〈j=”1;j<=-nij++》 xi[i] -= bessin[i][j]sg[j]; 
】 
了 并 返回 执行 下 -- 轮 迭代 
PreFTOr(f"too many itarations in dfpminn)) 
FREELL 


这 里 说 明 一 点 ,由 此 pmin 实现 的 拟 牛 贺 法 只 需 近 似 的 线性 极 小 化 (由 子 程序 lasrek 执 
行 ?就 能 得 到 很 好 的 结论 :而 第 10. 5 节 中 的 powell 以 及 第 10. 6 节 中 的 frpram 则 需要 比较 精 
确 的 nmin 求 执行 线性 最 小 化 。 


10.7.1 变 度量 法 的 进一步 实现 


由 于 售 入 误 莽 的 影响 有 时 会 导致 矩阵 了 接近 麻 异 或 非 正定 ,这 种 情况 虽 属 少见 ,但 却 无 法 避免 其 发 
生 的 可 能 这 时 ,我 们 所 推测 的 搜索 方向 可 能 并 不 是 函数 值 下 距 的 方向 ,而 且 当 前 开 的 近似 奇异 性 也 会 
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“ 移 传 "将 定 它 后 面 的 蕊 ,因此 其 后果 将 二 很 严重 的 ， 

这 类 问题 的 补救 办 法 很 非常 简单 ,我们 在 第 10.4 芳 也 曾 提 到 过 ;… 旦 遇 到 上 述 情况 发 生 的 倾向 , 旋 从 
己 求 出 的 极 小 点 处 重新 开始 执行 该 算法 ,看 看 银 小 点 会 不 会 路 到 别处 去 .这 和 神 处 理 方 法 对 然 简单 易 行 . 促 
却 不 吏 精 绷 .现代 变 度 量 法 谋 处 理 这 一 问题 的 方式 上 要 比 它 复杂 得 多 ， 

让 我 们 从 另 : 角 米 分 析 算 法 .如 时 不 去 构造 A 的 近似 窍 阵 , 而 去 构造 近似 矩阵 A 本 身 , 似 乎 也 不 是 
没有 可 能 ,而 岂 这 样 - -来 ,我 们 不 需 直 接 计 算 (16. 7. 岂 的 左边 项 ,只 要 求解 如 下 的 线性 方程 组 


和 xm 一 Xi 一 一 立 FCx:) 《10.7. -1) 


即 可 . 乍 一 看 ,这 种 想法 很 罚 税 - 臣 为 求解 (10. 7. 11? 的 计算 量 三 达到 六 :数量 级 ,而且 也 看 不 出 它 对 含 入 误 
差 问 题 的 解决 究竟 有 怎样 的 帮助 .其 实 其 中 的 技巧 在 于 ,我 们 存储 的 是 审 阵 上 三 角 分 解 ( 即 乔 莱 断 基 
(Chdqesky)? 分 解 ,参见 第 2. 9 节 ) 后 的 矩阵 ,而 不 足 存 企 A 本 身 ,& 的 关 莱 基 分 解 德 正 公式 是 RN 数量级 ,即使 
在 有 眼 舍 入 误差 企 在 的 情况 下 , 读 也 能 确 俱 矩阵 正定 性 和 非 涝 化 性 质 。 该 禾 正 公式 是 由 者 尔 人 Gil 和 回 : 小 
(Murrsy) 提 出 的 .有 兴趣 的 读者 请 查 现 参考 文献 ? - 


参考 文献 和 进一步 读物 : 

Dennpis ,下 . ，and Sechnabel， 妆 . B，1983，Natnertcetl Refhocds For Imricorrslrazmect 虽 pGzmzzeliDrt ac oo 
ear 严 gaatzonstEnglewood CHtfs，NJ;Prentice-Hzl). 让] 

]acobs ,D. 六, H， ked) 1977， 了 The State of 大 e rt in arrierical 4malysiefLondon:， 大 carlernic Press])，Chap- 
ter 111.1， 8 3 一 6 by 反 , 丈 .Brodiie).{12] 

Polak， 正 ，1971 ，Cozt 罗 atapazal MetFods 3 OpbtimatzationfNew York:Acadecmit Press) ，pp- 56f、 3 


10.8 ”线性 规划 和 单纯 形 法 


线性 规划 (有 时 也 称 为 线性 优化 ) 所 讨论 的 问题 可 归 纳 为 如 下 形式 :对 R 个 独立 变 元 
立 19 9 -9 训 具 , 求 函 数 


z 一 Goiz, 十 Gozzes 十 ,. .十 Gunw2N 1.8.11 


的 极 大 值 . 条 件 是 满足 N 个 基本 约束 条 件 。 


Z1 空 0，j 宇 Dr 空 0 台 0 8 21 


及 型 = 于 :十 十 ?as 个 附加 约束 条 件 , 在 附加 约束 中 ,有 冲 个 具有 形式 


GrtT1l 十 Qiaa 十 ,十 Di 芝 上 (者 空 0) 了 一 1 .ma 《10. 8、 3 
zl: 个 具有 形式 
Oil 十 Qiats 起 ， 十 Cindy 空 页 袜 0 = 十 和 十 my (01084) 
其 余 za: 个 具有 形式 


它 刁 工 L 十 2 吕 避 人 十 ww 一 起 人 f 


赤 一 现 , 十 ms 十 1 4723 十 况 。 十 7 


(让 83. 53) 


上 面 各 式 中 ,参数 az: 可 正 可 负 , 也 串 以 是 零 ; 而 所 有 参数 5 则 规定 为 非 负数 (如 上 述 三 式 中 
最 未 尾 的 不 等 式 所 示 ), 但 这 只 是 一 种 惯 例 而 已 ,因为 我 们 可 以 利用 一 1 去 雪 竺 何 一 个 不 等 式 
,366 。 


的 两 端 , 此 外 ,线性 讽 划 问题 对 约束 条 件 的 个 数 虽 没有 特殊 限制 , 正 诊 它 是 小 上 . 宰 下 放 呈 
大 于 变量 个 数 N 都 无 关 紧 葛 ， 

满足 约 东 茶 件 (10.8.2)(10.8. 5 的 所 有 .szs 俏 组 成 的 集合 称 为 可 生 四 量 ; 签 
求 极 大 值 的 函数 称 为 月 环 函 数 :使 目标 函数 取得 级 大 值 的 可 行 向 量 为 最 优 可 行 铝 量 。 胆 站- 
有 些 情 况 下 最 优 可 行 向 基 可 能 不 作 在 ,总 因 有 阳 个 :6 根本 没有 可 行 疝 盟 存在 , 即 苔 远 的 至 
束 条 和 个 之 问 是 四 荆 排 不 的 ;和 b 月 标 画 数 没 有 极 大 侦 , 弛 就 是 说 在 六 维 空间 中 向 基 个 方 元 

一 个 或 多 个 变量 可 无 限 增 大 而 约束 条 咎 仍 目 能 被 满足 ,此 时 日 祭 函 数 的 值 是 无 轻 的 ， 

如 大 家 所 见 . 线 性 规划 的 研究 对 象 中 包 售 了 洗 许 才 多 的 记号 种 术语 , 疡 们 昌 是 沿 些 自 
志 诗 该 领 环 研 究 的 志 民 道 侣 者 杜撰 盎 来 的 . 实 祭 全 ,线性 规 划 中 的 基本 思想 由 尘 疹 单 为 管 
明 起 抑 , 我 们 先 通 过 儿 个 特殊 的 合子 来 证 妇 线 性 规划 的 基本 问题 ,然后 再 将 它 门 推广 于 一 
般 - 

为 什么 说 线 几 规划 嫩 此 焉 区 昵 ? 菏 先 , 玖 为 * 非 负 性 ?是 对 和 类 变量 r 的 :种 节 常 基 克 
的 约 东 .这 些 冯 代 老 的 基 - 些 实际 物品 的 明博 数量 ,如 枪 雹 数 日 .黄油 基 、 美 区 赵 避 
素 五 ,食物 下 路 中 . 干 蕊 小 时 、. 质 昌 的 单位 等 等 ,这 种 * 非 负 性 ?得 到 的 僵 荐 约 来 和 村 人 御 ( 

2)。 第 一 ,因为 人 和 们 常常 对 一 些 册 人 类 或 白 然 界 施 出 的 如 法 5 线 竹 ?限制 或 界限 感 兴起 ， 
低 营 养 需 求 .最 大 可 支付 开销 、 现 有 作成 资金 的 最 高 使 用 限度 .选民 组 成 紫 容 玖 达 乔 的 最 
低 百 分 比 等 等 ,这 些 都 可 以 册 象 成 为 式 (10.8, 31 一 (Ci0.8.5) 的 形式 .第 三 ,下士 日 标明 数 极 
有 可 能 是 线性 的 ,或 钙 少 可 有 线 生 函数 来 近似 (因为 这 才 是 线性 规划 可 以 钥 次 的 可 是 .我 们 
才 有 如 (10.8. -) 形 丰 的 目标 函数 .总 之 ,有 关 线 性 规划 应 用 情 祝 的 综述 , 读 青 可 汶 参 疼 有 兰 
德 (Bland) 的 著作 --。 

F 面 我 们 给 由 个 线性 规划 阿 题 的 具 居 闹 子 。 企 这 个 例子 中 Nd 一 2 一 1 
(从 而 有 7 一 4): 


1 和， 
“ 让 


极 大 化 > …7 一 ro 十 3 一 
其 中 所 有 变 荆 x 非 负 ,日 
2 十 2423 之 7410 
2 一 ?4 反 0 


2 | 2 > 冯 
十 xa 十 2 二 必 二 8 
这 个 问题 的 解 为 ( 取 琴 位 有 效 数 字 ) Zn Ts 一 3 33， :一 4 73， 二 一 0 97。 在 机 条 1 余 上 的 


篇 幅 中 ,我 们 将 详细 介绍 这 个 短 是 如 付 求 得 的 ,但 在 开始 之 前 ,我 们 先 用 图 10.8.1 苗 绑 -下 
前 面 提 到 的 所 有 术语 。 


2367。 


多 能 本 可 行 的 向 生 
1 了 非 了 股 优 、 
关 。 





图 中 白 示 为 两 个 独立 变量 的 情况 ,可 标 项 数 = 由 等 商 线 给 出 .基本 约束 是 要 求 mm 和 :为 正 数 ,而 
附加 约束 则 将 问题 的 解 划 证 在 某 一 区 域内 { 指 不 等 式 约束 ) 民 局 限 在 降低 子 维 教 的 面 上 ( 指 等 式 
约束 ), 可 行 向 量 要 求 满足 所 有 克 约 束 条 件 ,基本 可 行 向 量 也 须 位 平 允 许 区 域 的 边界 上 ,本 节 特 从 
绍 的 单纯 形 浅 是 在 所 有 基本 可 行 向 量 中 加 进 征 转 移 , 育 到 找到 最 优 可 行 向 最 为 目 。 


朵 10,8,.1 线 生 规划 的 基本 概念 急 江 


10.8. 1 线性 规划 基本 定理 


假设 我 们 从 待 选 向 量 的 全 N 维 空间 出 发 ,然后 (至 少 在 想象 中 ) 把 由 约束 条 徊 依次 所 淘 
涩 的 区 域 " 控 掉 ”, 由 于 约束 条 件 是 线性 的 ,因而 由 这 -过 程 产生 出 来 的 边界 将 是 - -个 平 夸 或 
者 个 超 平面 。 形 如 式 (10. 8. 5) 的 等 式 约束 条 件 迫 使 可 行 区 域 落 在 降低 了 维 数 的 超 平 商 上 ， 
而 不 等 式 约束 条 件 仅 奴 把 可 行 区 域 划分 成 一 些 满足 条 件 和 不 满足 条 件 的 小 块 。 

当 我 们 把 所 有 约束 条 件 都 施加 在 N 维 空间 之 后 ,只 有 两 种 可 能 发 生 ， -种 是 剩 下 了 某 
个 可 行 域 , 另 一 种 是 根本 没有 可 行 向 量 存 在 .因为 在 第 -种 情况 下 , 牙 行 域 是 由 许多 超 平 面 
曙 成 的 , 它 在 几何 上 就 形成 了 一 种 凸 多 面体 或 单纯 形 (参考 第 10. 4 节 )。 如 果 确 实 有 某 个 可 行 
域 存 在 的 话 , 导 么 最 优 可 行 向 量 会 不 会 完全 位 于 其 内 部 某 处 而 脱离 开 边 界 呢 ? 不 会 的 ,因为 
目标 尊 数 是 线性 的 ,也 就 是 说 它 准 会 有 一 非 赴 的 梯度 存在 ,而 这 反 过 来 又 说 明 , 窜 梯度 向 上 
总 能 使 日 标 函 数 的 值 增加 ,直到 碰 到 革 一 边 并 为 止 。 

由 于 几何 区 域 边 界 的 维 数 比 其 内 部 的 维 数 少 一 纵 . 因 此 ,我 们 可 以 沿 投影 在 边界 的 梯度 
一 直 问 上 *, 直 全 和 到达 界 面 的 边缘 ;然后 再 沿 这 个 边 乡 方 向 上 , 依 此 类 推 , 不 管 穿 过 多 少 维 数 的 
数目 ,但 我 们 最 后 都 能 到 达 某 一 点 ,这 一 点 是 原单 纯 形 的 某 信 项 点 -因为 它 所 有 史 个 坐 妹 都 
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是 已 定义 过 的 ,内 此 这 点 必 为 本 时 清 足 某 N 个 等 式 的 解 ,其 中 这 和 个 等 式 是 从 原来 所 有 等 
式 租 不 等 式 的 约束 集合 式 (10.8. 2)~:(10.8.5) 中 抽取 出 来 的 。 

使 原始 约 点 中 的 某 六 个 约束 能 以 等 号 满足 的 可 行 向 量 称 为 基本 可 行 向 量 。 若 六 尖 AM， 
则 基本 林 行 向 量 中 全 今 应 有 六 一 邓 个 分 量 为 往 , 央 为 我 们 全 少 还 需要 这 人 么 多 个 约束 杀 件 才 
能 补足 式 (10. 8. 27 中 的 变 元 总 数 六 ,也 就 是 说 ,在 基本 可 行 解 中 最 多 有 对 个 分 量 是 非 零 的 . 
读者 不 妨 用 式 (10. 8.6) 一 510,8.7? 给 出 的 例子 做 一 下 通 证 , 它 的 解 能 以 等 号 满足 的 约 虽 茶 
件 , 包 括 式 (10.8. 7) 中 的 后 二 个 约束 条件 和 基本 约束 条 件 zx 位 0. 总 数 运 到 了 所 要 求 的 4 
和 

把 前 面 两 段 的 内 容 综合 起 来 .我 们 可 以 得 到 线性 优化 的 基本 定理 :车 最 优化 可 行 向 量 存 
在 , 则 必 有 一 基本 可 行 向 基 是 最 优 的 。( 请 注意 这 里 的 术语 1) 

二 述 定 理 的 重要 意义 在 于 , 它 把 优化 问题 化 简 为 -个 "组 全 ?问题 , 即 在 式 生 0. 8. 2) 一 
《10. 8.5) 所 示 的 所 有 闻 十 站 个 约束 条 件 中 ,决定 最 优化 可 行 解 倒 底 应 满足 其 中 的 哪 和 个 
约束 条 件 的 问题 ;而 我 太 所 区 做 的 就 是 不 断 对 各 种 不 癌 的 组 合 进 行 试探 ,并 计算 等 种 情况 下 
的 目标 函数 值 , 直 到 找到 最 优 的 为 止 。 

但 是 言 目 地 使 用 组 合 方法 又 只 能 乔 瑟 成 拙 ,并 增加 数 不 清 的 计算 量 . 丹 幕 葡 (TDantzig) 
于 1948 年 ( 见 [2 首先 提出 了 针对 这 - :问题 的 单纯 形 方法 ,这 种 方法 的 特点 是 :fi 只 对 某 - 
系列 组 合 进行 试验 ,在 这 些 组 侣 中 目标 函数 每 : 步 都 增加 ; ii) 一 般 经 过 几乎 总 是 不 大 于 M 
或 汉 次数 的 选 代 ( 不 论 邓 和 史 阶 哪 一 个 大 ) ,就 求 出 最 优 可 行 向 量 . 这 里 还 有 一 个 数学 史上 
”的 一 个 小 趣闻 :对 于 第 一 个 性 质 , 虽 然 自从 单纯 形 法 建立 之 后 人 们 就 早已 从 经 验 中 得 到 了 结 
论 , 但 是 共 正 确 性 的 证 明 直 到 1982 年 才 由 斯 摹 芬 .斯 迈 尔 (Stephen Smaie) 得 出 。( 有 关 当 时 
的 报道 ,请 读者 参见 [3]) 


10. 8. 2 ”关于 约束 标准 形式 的 单 负 形 法 


若 在 某 个 线性 规划 问题 中 没有 式 (10. 8, 3) 或 (ti0. 8. 4) 形 式 的 约束 ,而 共有 形 如 起 (10. 
8. 5) 的 等 式 约 束 和 形 如 起 (10. 8. 2) 的 非 负 约 束 , 我 们 称 该 线性 规划 问题 具有 标准 形式 。 

为 了 研究 上 的 需要 ,不 妨 考 察 一 类 约束 条 件 更 严格 的 问题 ,它们 具有 如 下 的 附加 的 性 
质 :每 个 形 如 式 (10. 8. 5? 的 等 式 约 束 中 ,必须 有 至 少 一 个 变量 的 系数 为 正 ,月 这 个 灾 量 只 
在 那个 约束 条 件 中 出 现 .我们 在 每 - -约束 方 姓 中 选择 一 个 这 样 的 变量 ,并 以 它 作为 变 元 求解 
该 约 柬 方程 .这 翌 选 出 来 的 变量 称 为 左 端 变量 或 基本 变量 ,其 总 数 为 M(=xm) 个 ,而 剩 下 的 
一 好 变量 则 称 为 右 端 变量 或 非 基 本 变量 .虽然 只 有 在 Ms<SN 时 才能 得 到 这 种 约束 标准 形 
式 , 我 们 在 下 文中 仍 将 以 这 类 线性 规划 问题 为 出 发 点 来 考虑 。 

读者 可 能 会 认为 这 类 约束 标准 形 , 未 免 有 些 过 于 特殊 化 了 , 它 不 可 能 包括 我 们 起 至 佣 决 
的 所 有 线性 规划 问题 .但 事实 并 非 如 此 ,下 面 我 们 将 要 介绍 的 就 是 如 何 将 任意 一 个 线性 规划 
问题 转化 为 约束 标准 形 ,以 及 如 何 将 单纯 形 法 应 用 十 这 种 约束 标准 形式 

让 我 们 来 看 一 个 约束 标准 形式 问题 的 例子 ， 

极 大 化 z = 2xzy -- 4z “10.8,.3) 





其 中 19 2 9 人 3 zi 非 负 旦 汶 足 
TI 一 2 一 zs 十 s 
(10.8.9) 
3 一 8 一 3 一 二 73 
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此 例 书 六 =4, AM 一 2, 左 端 变 基 为 rrts 右 端 变 量 为 mm,7i,* 这 里 我 们 将 日 标 贤 数 式 (10.5. 8)， 
号 成 了 仅 包 含 右 端 变量 的 形式 ,供应 注意 的 是 ,这 实际 上 并 不 是 对 具 约 束 标准 形式 的 日 标明 
数 的 一 种 约束 要 求 , 因 为 出 现在 是 标明 数 中 的 任何 一个 左 端 变量 ,都 可 以 用 式 C10.8. 9 或 类 
似 的 式 子 以 拓 数 方式 被 右 端 变量 蔡 换 掉 。 

对 于 件 何 一 个 具有 约束 标准 形式 的 线性 规划 问题 ,我 从 部 能 亦 刻 求 出 它 的 -一 个 基本 叮 
行 解 (虽然 这 个 基本 解 不 必 非 是 最 优 的 :方法 很 简单 ,只 要 将 所 有 右 端 变量 都 胃 为 榨 , 江 足 
约 东 的 所 有 左 端 变量 的 值 从 方程 (10. 8. 9 中 即 可 求 得 .单纯 形 法 的 基 证 中 想 就 是 进行 : 系 
列 的 基本 可 行 解 的 变换 .在 每 次 变换 过 程 中 ,将 右 端 变量 与 左 端 变量 互 调 位 置 , 四 此 帆 
部 保持 当前 的 线性 规划 问题 具有 约束 标准 形 ,并且 与 原来 的 草 题 完全 等 价 。 

为 了 在 符号 表示 上 的 方 使 ,我 们 将 方程 (16,8. 8) 和 (15. 8. 9) 所 包含 的 信息 记录 六 如 下 
表格 中 











0Q,NS. 1D) 

读者 应 仔细 研究 式 (16. 8. 10) ,要 非常 清楚 表 中 各 项 对 的 是 哪个 值 , 还 要 知道 对 约束 标准 
形式 问题 ,如 何在 其 表格 霄 式 与 其 表达 式 形 式 之 问 来 司 地 进行 转换 。 

单纯 形 法 的 第 一 步 是 查看 表 的 头 一 行 (我 们 称 之 为 "z- 行 ”以太 标 有 右 喘 变量 的 各 栏 
《 称 为 “ 右 - 列 ”中 各 项 的 值 依 次 让 每 一 右 端 变量 从 其 当前 的 零 值 开始 增加 ,同时 保持 其 余 
右 端 变量 仍 为 零 不 变 , 然 后 考察 这 样 做 的 结果 :目标 函数 值 是 增加 了 呢 还 是 减 小 了 ?答案 引 
2z- 行 中 各 项 元 的 符号 给 出 . 朗 然 我 们 的 目的 是 刘 增 加 琐 数值 ,因此 ,我 们 只 对 那些 二 行 项 中 
为 正 值 的 右 - 列 感 兴 趣 . 在 式 (10. 8. 10) 中 只 有 一 列 满足 上 述 条 件 , 它 的 z- 行 项 为 2。 

下 一 步 要 做 的 是 ,考察 位 于 由 第 一 步 选 出 的 每 个 z- 行 项 下 面 的 那些 列表 值 .我 们 的 问题 
是 , 存 其 一 个 左 端 变量 变 为 负 值 (当然 这 是 不 允许 的 ) 忆 前 , 右 端 变量 可 以 增加 到 多 少 呢 ? 姐 
果 右 端 变量 所 在 的 胞 与 开端 变量 所 在 行 过 交 允 处 的 表 中 元 素 为 正 数 ,那么 该 元 素 将 不 受 祭 
何 限制 :相应 的 左 端 变量 只 会 越 变 武大 .如 果 任 何 右 兽 变 基 所 在 列 的 所 有 表 项 都 是 于 值 . 则 
目标 范 数 无 铬 ,说 明 同 题 已 经 得 到 了 答案 。 

若 在 某 个 信 为 正 的 z- 行 项 下 面 ,有 一 个 或 多 个 表 中 元 素 为 负数 ,那么 我 们 就 须 搞 清楚 、 
到 底 是 时 一 项 首先 限制 了 那 一 列 的 右 端 变量 值 的 增加 .显然 ,这 一 受 限 的 增加 最 可 以 月 右 端 
灾 量 所 在 列 的 元 素 ( 称 为 主 元 ) 来 除 主 元 素 所 在 行 的 “常数 列 “( 最 左边 的 列 ) 中 元 素 而 得 到 . 
圳 得 到 的 数值 绝对 值 越 小 说 明 受 到 限制 越 多 .十 是 ,由 于 选择 了 这 一 主 元 而 使 目标 通 数 增加 
的 量 , 应 由 这 个 数值 乘 以 那 一 行 对 庶 钓 z- 行 表 项 信 得 到 ,对 所 有 可 能 的 右 列 重 复 这 一 过 程 ， 
并 求 出 具有 最 太 增 加 量 的 主 元 ,这 样 我 们 就 完成 了 “ 选 主 元 ?的 工作 ” 

在 上 夯 的 例子 中 , 唯一 的 一 个 信 为 正 的 *- 行 表 项 是 2 , 亡 下 面 只 有 一 个 负 信 项 ， 好 
一 6, 因 此 ,一 6 即 为 主 元 ,其 常数 列 元 素 为 ?3 .由 于 该 主 元 允许 增 加 的 量 为 2 二 161. 继 而 
世 标 盟 数 吕 因 此 增加 (2x2) 二 18 的 绝对 数量 . 

单纯 形 法 的 第 三 步 基 , 给 选 定 的 右 端 变量 -- 个 增值 .使 之 成 为 一 个 左 端 变 最 : 问 时 修改 
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各 六 端 变量 ,让 主 光 所 在 行 的 元 素 减 为 零 而 使 之 成 为 一 个 右 端 变量 .对 上 面 的 例子 ,让 我 们 
先 用 手 算 做 一 下 :首先 解 主 元 所 在 行 的 方程 ,以 日 的 左 端 变 綦 z 玫 示 新 左 端 变量 ri , 即 ， 








2 一 6 > 一 一 到 o 十 车 和 (10.8. :1) 
然后 将 上 式 代入 原来 的 zx 一 行 中 :得 到 ; 
xz 一 2 一 4xy 一 2[ 二 本 站 十 二 z] 二 六 二 三 呈 3 刀 一 号 >: (10.8.12) 
再 将 其 代入 其 他 所 有 堪 端 变量 所 在 的 行 中 ,这 里 只 有 xz*:, 即 : 
8 十 3[ 训 一 再 十 站 四 一 4 一 9 一 二 一 了 0.8.13 


至 此 ,由 式 (10.8.11) 一 (10.8.13) 可 以 形成 如 下 所 示 的 新 表格 ， 
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第 四 步 必 转 回 并 重复 第 一 步 ,寻找 目标 函数 的 下 一 可 能 增值 .不 断 重 复 上 述 过 程 ,直到 
# 一 行 的 所 有 右 端 变量 项 都 变 成 负 值 为 止 .这 表明 目标 函数 不 可 能 再 增加 了 .在 上 面 给 出 的 
例子 中 , 式 (10, 8. 14) 已 经 满足 了 这 个 条 件 , 因 此 求解 过 程 至 此 可 以 结束 ， 

整个 问题 的 解 可 以 从 最 后 一 张 表 的 常数 列 中 读 出 。 在 表 (10, 8. 14) 中 可 以 告 到 ,目标 函 
数 的 最 大 值 为 2/3 , 解 向 量 为 刀 =173 ，z 一 9 ， 辣 一 辐 一 0 。 

现在 让 我 们 仔细 回味 一 下 从 表 (10. 8. 10) 导 出 表 (10. 8. 14) 的 过 程 ,可 以 看 出 ,整个 过 程 
可 以 完全 用 表格 的 过 式 总 结 成 一 系列 规定 的 基本 和 矩阵 运算 ， 

“ 选 出 主 元 并 存储 之 。 

" 存储 整个 主 元 所 在 的 列 。 

“ 将 表 中 各 行 ( 主 元 所 在 的 行 除外 ) 用 其 自 瞎 与 主 元 行 的 线性 组 合 来 替代 ,使 此 主 元 所 

在 列 的 那 一 项 变 为 零 。 

* 用 主 元 的 负 值 去 除 主 元 所 在 的 行 。 

“以 存 情 单 元 内 的 主 元 值 的 倒数 替代 主 元 素 。 

“用 存储 单元 内 主 元 值 去 除 主 元 所 在 列 各 剩余 项 的 存储 值 ,并 用 所 得 结果 蔡 代 主 元 所 

在 列 中 的 各 剩余 项 。 

上 述 一 系列 的 操作 实际 上 可 由 一 个 线性 规划 程序 来 完成 ,这 个 程序 将 在 下 文中 给 出 。 

至 此 ,我 们 已 能 块 任何 一 个 以 约束 标准 形式 给 出 的 线性 规划 问题 了 .只 有 一 种 特殊 情 
深 在 求解 时 可 能 会 遇 到 - 些 麻 烦 , 即 在 某 一 步 中 ,常数 列 中 的 某 个 项 元 变 成 了 零 ,以 致 于 某 
个 左 喘 变量 也 为 零 , 进 而 所 有 右 端 变量 都 成 了 零 , 这 种 情况 下 得 到 的 解 我 们 称 之 为 遇 化 可 行 
解 ,为 了 使 求解 过 程 继续 下 去 ,可 能 需要 将 这 个 退化 的 左 端 变量 与 某 ~- 个 右 端 变量 进行 交 
换 , 有 时 候 这 样 交 换 可 能 要 做 好 几 次 。 
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10.8.3 将 一 般 问 题 转化 为 约束 标准 形式 
关 寺 从 一 般 线 性 规划 问题 型 的 串 标 准 埠 式 的 转化 .有 几 种 很 污 录 的 办 法 可 以 使 转 落 法 


首先 , 需 旧 把 式 (20.8.3) 或 式 110. 8. 414) 光武 的 不 等 不 约束 条 件 例 如 式 (10.8. 7 让 的 二 


三 个 约束 条 件 去 蛋 。 具 体 做 法 是 ,引入 - 些 所 请 的 松弛 变量 , 利 四 它们 明 非 负 性 ,将 不 等 尺 转 
化 为 千 式 .我 们 将 松弛 变量 记 为 , 尼 们 的 总 数 有 加/ 一 zz? 个 .应 注意 闵 是 ,-- 且 将 这 些 松 强 
变量 引入 ,就 要 把 它 们 与 原来 变量 rm 间 样 对 待 ; 则 在 求解 过 程 续 束 时 ,将 它们 忽略 即 避 
例如 ,在 引入 松弛 变量 之 后 ,日 标 通 数 式 (10. 8. 5) 并 杰 发 生 电 化 ,而 式 (19.8. 7 十 杰 成 
了 如 下 形式 ; 
2 二 27 二 YY 7430 
2 YX 
《号 ， 


2 一 .5 十 2X1 一 3 一 全 


2 7 一 0 
《请 注意 松弛 变量 前 的 系数 的 符号 由 相应 的 原 不 等 式 的 方向 块 定 。) 

第 二 , 需 确 保存 在 一 个 由 M 个 左 端 灾 量 组 成 的 集合 ,这样 我 们 就 可 以 用 约束 标 诈 形式 
建立 “个 初始 表格 .换言之 , 希 要 找 一 个 ”可行 的 基本 初始 应 基 ".) 我 们 采用 的 方法 还 是 引 
入 一 些 新 的 安 量 ,这 些 变量 称 为 人 工 变量 ,以 至 = 标记 , 共 总 为 对 个 .例如 ,在 式 (10.3. 15， 
所 示 的 每 一 约 训 等 式 中 都 引入 一 个 人 工 灾 量 ,使 其 变 为 如 下 形式 : 

2 一 了 的 一 一 3 一 
Za 一 一 27s 小 74 -入 
1 510.3.162 
5 十 Ta 一 3274 二 和 5 
2 一 9 一 2 72 1 
至 此 ,总 问 题 已 经 化 为 约束 标准 形 。 

读者 可 能 会 所 出 这 样 -个 问题 :除非 所 有 *; 部 是 零 , 告 则 式 (10. 8. 16) 与 式 (16.8. 15) 
根本 不 等 价 ! 事 实 的 确 如 此 ,但 这 里 类 有 -- 些 玄妙 之 处 ,我 们 在 求解 问题 时 必须 分 两 个 阶段 
进行 ,第 … 阶 段 :用 -个 所 谓 的 辅助 目标 函数 替代 原来 的 日 标 函 数 式 (10. 8. 16) . 即 


1 
此 





三 一 由 一 如 -一生 一 一 《749 221 一 4 2 十 4 一切 一 3 十 2 


《1 17) 
(并 中 ,后 一 个 等 式 是 将 式 (10.8, 167 代 入 得 到 的 。) 现 在 ,我 们 册 对 式 110. 8. 17 所 示 的 博 邮 
目标 阴 数 使 用 单纯 形 法 .显然 ,如 果 所 有 z*': 都 为 零 , 则 辅助 目标 函数 戏 于 非 负 的 *, 将 取得 最 
大 得 .因此 , 乱 们 希望 单纯 形 法 能 饮 在 第 一 阶段 构造 出 一 个 左 端 变量 的 集 台 ,这 些 左 端 变量 
仅仅 从 支 和 和 中 选取 ,而 所 有 zi 都 取 为 右 端 变量 ,这样 ,我们 就 可 以 划 掉 所 有 的 *; , 剩 下 的 
就 是 只 含 zx; 和 > 的 约束 标准 形式 的 问题 了 .因此 , 换 半 之 ,第 一 阶段 的 任务 就 是 构造 … 个 
初始 基本 可 行 向 量 。 在 第 二 阶段 ,我们 的 目标 是 求解 由 第 -- 阶 段 导 出 的 问题 ,但 在 这 时 此 条 
用 原来 的 目标 函 孝 ,而 不 能 再 用 辅助 日 标 函 数 了 . 

-372 。 


刻 果 企 第 … 阶 段 不 能 对 所 有 > 都 取 堆 值 .又 该 如 何 处 理 呢 ? 守 际 上 .这 种 情况 伦 恰 说 
明 ,该 线性 规划 六 题 根本 没有 初始 基本 可 行 向 量 人 存在 ! 也 就 是 说 ,约束 条 件 本 喘 是 自 相 矛盾 
的 ,我 们 只 要 指出 这 一 点 ,就 算 给 出 了 问题 的 解答 

下 面 我 们 将 介绍 ,如 何 将 第 … 和 第 一 阶段 所 需 的 信息 转化 成 表格 形式 .我 们 优 以 由 标 范 
数 及 约束 条 件 沁 式 (i0.8.6) 一 (10.8. 门 给 出 的 可 是 为 例 。 


























人， 
这 个 表 初 看 起 来 似乎 很 嘱 人 , 其实 并 非 如 此 ,在 双 线 框 内 的 表 项 只 大 过 是 将 原 问 是 的 系 
数组 织 成 表格 展 式 而 已 .实际 上 ,这 些 项 加 上 NM,m:,meyowe 的 值 就 是 下 面 的 单纯 形 法 释 
序 所 需 的 全 部 葡 入 参数 .松弛 变量 w 下 面 的 各 列 简单 地 记录 了 M 约束 条 件 中 的 每 个 是 
否 具 有 所 ,之 或 = 的 埠 式 ;事实 上 只 要 我 们 在 造 表 时 是 按 正确 的 顺序 填写 各 行内 容 的 .这 些 
信息 及 和 "avzmx 的 值 都 不 过 是 部 余 信息 而 已 .由 于 辅助 目标 的 系数 (最 末 一 行 ) 恰 好 是 其 对 
应 刻 各 行 之 和 的 负数 ,因此 它们 的 计算 非常 容易 。 
一 个 单纯 形 法 运行 程序 的 输出 需 包 括 以 下 几 项 :(i) 一 个 标志 项 ,指出 运行 结果 的 炎 型 ， 
是 有 解 ,无 解 .还 是 有 无 春 解 ;(ii) 张 更 新 后 的 表格 .由 (10. 8. 18) 得 到 输出 表格 为 ( 商 位 有 
效 数字 ): 























(19. 8. 197 

只 需 稍 稍 数 一 下 二 和 2 的 个 数 就 会 发 现 ,在 输入 表 和 输出 表 中 都 有 M 二 1 行 的 项 元 

《包括 * 一 行 ) ,但 在 输 诈 表 中 只 有 N 十 1--ms 烈 (包括 常数 列 ) 包 含有 用 信息 ,其 他 列 都 属于 

可 以 忽略 的 人 工 变量 .在 输出 表 中 ,数字 列 的 第 一 列 包 括 解 向 县 以 及 目标 函数 最 大 值 的 信 

妃 。 如 果 某 个 松弛 变 基 (yw ?出 现在 表 的 左边 , 则 相应 的 数值 就 表示 其 对 应 的 不 等 式 在 得 到 充 

分 满足 时 所 需 的 基 。 在 输 诈 表 中 . 翡 左 端的 变量 其 丰 零 值 ,而 具有 零 值 的 松弛 变量 则 对 序 于 
373 ， 


以 等 式 形 臣 被 满足 的 约束 条 件 ， 
10.8.4 单纯 形 法 的 程序 安 钢 


下 面 程序 的 算法 蚌 以 库 恩 蒋 (Koenzi) ,特区 鼻 契 (Tzschaciy 积 普 惩 (Zehndsr) 的 得 床 
为 基础 而 实现 的 。 程 序 中 除 要 答 入 ,msoaym 的 信 外 :主要 的 输入 项 是 ,一 个 一 维 电 阵 
aa 的 存 铺 内 容 是 站 表 (10. 8. 18) 中 以 双 线 杠 出 的 部 分 .这 些 输入 值 只 占用 =[1 .mm 一 上 
.n+1 中 的 邓 1 1 个 行 和 只 -1 个 列 .但 在 程序 出 部 却 亚 用 到 矩阵 a 的 第 怪 十 2 行 ( 手 二 
仔鱼 辅助 目标 嚼 数 , 这 种 (10.3.18? 的 表示 完全 -一 样 ), 因 此 程序 需 把 a 说 朋 为 fjoat :1 
半 技 针 必 须 指 击 允 许 范围 为 

ea[r] 1 一 1...m 一 2,k 一 .nn 十 1 《10. .5.200 
的 分 氏 空 间 . 如 烛 不 搞 清 楚 这 . -点 ,后 忠 将 目 无 宅 的 .此 外 ,还 有 :点 不 能 忽 覆 的 是 a 的 各 行 
必须 完全 按 赂 式 (10.8.1)， (10.8.3),(10.8.40， 010.8.5) 的 顺序 输入 , 即 先 输入 H 标 所 获 ， 
鳅 忆 是" 拓 ” 约 东 条 件 和 “ 演 ? 约 东 条 件 ,最 后 输入 "= 条 外 约束"。 

在 得 出 项 中 ,矩阵 #a 的 上 标 由 两 个 返回 的 整数 阵列 朴 定 .iposy[L 门 (7 一 1 49) 名 舍 言 
数 ; 对 应 的 原始 灾 量 x*; 的 当前 状态 由 a 的 第 j 一 1 行 表示 ,它们 即 为 解 向 量 中 的 看 端 变量 。 
《a 的 第 -行当 然 夺 储 的 是 z- 行 .) 具 7 大 了 N 则 表示 这 个 ， 对 也 的 变量 是 松 引 空 量 w% 而 不 
蚌 冤 : 也 即 xx- 二 yi 同 祥 : 对 疡 1..Nizrovr 广 给 出 了 庆 数 ，, 它 所 对 应 的 原始 变量 硅 
当前 状态 是 一 个 右 问 变量 , 夺 储 存在 a 的 第 了 1] 列 中 . PP>wN 的 意 轩 急 上 面相 则 ,所 木 反 的 
是 当 六 只 一 : 十 zz 时 , 它 对 序 的 变量 表示 某 个 人 工 变 基 或 松弛 变量 ,这 个 变量 原先 仅仅 作 
为 肉 部 使 用 , 谭 现 在 应 子 以 完全 忽略 ， 

当 程 序 运行 结果 为 找到 了 -个 有 限 解 时 ,标志 项 icase 被 置 为 0 ;当日 标 国 数 无 办 上 、 
它 被 置 为 一 1; 如 果 没 有 解 满足 给 定 的 约束 条 件 , 则 icase 被 兽 为 一 1。 

下 面 的 释 序 对 退化 可 行 解 的 情况 也 作 了 处 理 ,因此 读者 不 必 担 心 这 种 情况 会 出 现 ,此 
外 ,该 程序 不 需 存储 表 (10. 8. 18) 中 双 线 右边 的 各 列 内 容 ,这 可 能 也 是 会 令 使 用 者 感到 满意 : 
不 仅 如 此 ,我 们 还 在 释 序 中 :对 松弛 变量 的 根 踪 记录 采取 了 -- 和 他 更 加 有 效 的 方式 。 

还 有 一 点 值得 注意 的 是 ,程序 中 收 和 分 性 的 检验 阁 不 如 想象 的 那么 复杂 。 尽 管 程 序 牛 对 带 
.去 不 等 式 的 检验 是 通过 对 某 个 很 小 的 参数 EPS 的 核验 来 实现 的 . 介 它 并 没有 对 这 个 参数 进 
行 测 鉴 ,以 适度 不 同 量 级 输入 数据 的 变化 : 忌 管 如 此 ,我 们 的 程序 ,已 经 足以 适 台 问题 的 需要 
了 ,内 为 许多 问题 的 输入 数据 与 单位 “12 在 大 小 的 数量 级 上 并 没有 相差 很 多 ,但 是 ,如 里 遇 
到 死 循 环 的 情况 , 则 必须 修改 子 程序 simplx 和 simp2 中 的 FEPS。 此 外 ,用 轩 换 变量 的 办 法 
也 是 可 以 达到 解决 问题 的 目的 ,最 后 需要 说 明 的 是 ,与 让 述 介 绍 有 关 的 内 容 ,读者 可 以 参考 
5， 

斗 mcjodce“ntruti.b” 
上 tdeGaeEPS 1 0Oe 6 其 山 EPS 其 此 对 精度 ， 富 次 所 时 人 实 最 的 忆 训 做 蝴 台 


二 dcftse FRRREALEL free_ivectotr(13 1,im)iftee ivetorr]2kynoti 
free_:vestor (1]1.].n 十 ])， 


Y0 洒 8implxtftloar * <aynfm，irta jnt 1， jinlD2，int in3， .nl yicase， int izrov 1]，int iposv[ 门 ， 


八 此 规划 中 的 单纯 形 法 ,输入 和 驳 数 为 ,mnvml,m2 和 1n3, 答 出 参数 sirasa'izror 和 ipasv、 记 们 的 定 文 见 正 交 ， 


”rold simPp1ttLloat #% 有 ict mt，int 1]1[] ，int nanL1，iat iabf。，inc +xp， 
Fl1oat *bmar) 
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pid imp2(F19at *z 和 int int 12[] ，int nl12，jint sip，jint xp， ELoat *gl)》. 
void 上 tipP3Kfoat ww 品 ，int il，int Kkl1，iot ip，int xp); 

iot iiPsiryiSs, 丰 ,kayxp,mi2nll,ni2i 

int 二 11,412,*13; 

二 loat Qq1,bmaxi; 


if 《m ! 二 〔 雪 14 和 24m3)》 nrerraor(nbad input congtraint counts ia simpLx")i; 
lta1Vveczor(1,n+1) i 
12=ivector(1,a); 


13=1vacror(1, 世 ) ; 
DLieni 首先 将 所 有 变量 均 轩 为 右 丹 变量 
for (kz=i ix<=snix++) 11[k]=1zror[k]=k; 对 过 引 表 初始 赋值 
zt2smy 置 所 有 人 工 谈 最 为 堪 疹 家 量 。 并 对 这 ， 
for 《ji=1iiceaii++) 并 二 才 万 始 赋 慎 
讶 〈a[iytj [1] < 0.0》 mrerroz("Bad input zabl4ag in simplz"); 
常数 上 须 为 非 负数 
12[i]=ii; 
iposv[i]=n+ii 
】} 
zotr (iniiicem2;i++y) 13[i]ml; 13 在 后 面 才能 用 到 ， 但 先 在 此 处 初始 赋 昔 
re0; 


这 一 标志 的 设置 表明 我 ] 已 进入 第 二 阶段 ， 即 已 有 了 个 可 行 的 初始 解 。 姻 果 起 点 为 .个 可 行 
解 ， 则 可 以 进入 第 二 阶段 
it 《nm2tm3)》 工 
IIreT1i 
该 标志 说 明 我 们 必须 从 第 一 阶段 开 姑 
for 《em i; 谤 C=tm+rt)》 ;x+) 攻 计算 精 助 目标 亲 数 
qln0.0; 
for 【iem1+1;1<smii++》 ql += ar[i+t] fk]，; 
a[a+2] [kx] * -ql， 


de { 
simpl(a,m+l1o11,nl1,D, 丰 kp, 上 bmax》; 求 辅助 目标 国 数 的 最 大 系数 
437 (bmax <= FEPS 二 erm+2ltfit] < -ZEPS} 1{ 
地 开 CABS 严 ~】) 


辅助 目标 函数 仍 为 负 ， 而 此 不 能 进一步 改进 ， 因 此 无 可 行 解 看 在 。 


FREEALL Yatnurn; 
}》 slea if (bmax <= EpS &LE a[am+2][1] <= FEpS) { 
四 12w 本 1+ 凶 2+1 
辅助 日 标 函 数 为 0. 并 不 能 再 改进 。 这 表明 我 们 得 到 了 一 个 下 行 的 起 妈 解 天 过 
“eolto one "将 所 有 人 工 变 量 清 除 ， 扼 后 进入 第 二 阶段 继续 求解 。 


if 《mit2 <= 劝 ) 工 
for (ip=al2iip<c=bitp++)》 并 
证 〔ipogv[ip] =<< (〔ip+n)) 
3impl(a,ip,1L， 
RLL，1L ,上 kp , 帮 bmar)] ; 
这 《bmaxz 0.0》 
gotD 0n63 


下 


】 
ee 设置 驮 数 以 表明 我 们 将 进入 第 二 阶段 
让 《ml4+1+ < 王 中 12》 
7or 《il=ml+lii<rm12;i++) 
if (13fi-ml] = 1)》 
zor 【XmlL;Kkc=n+l :上 +d+) 
a[i+l][k] <* -ar[i+l] [k]; 


， bzreaki 转 到 第 一 阶段 
旦 :0P2(Ba,a，12 ,了 12 ,生计 PKP, 生 qt ; 选 主 元 ! 第 一 阶段 
地 Cip = 站 ) 岂 由 干 精 助 目标 霄 数 的 最 大 信 无 界 
Ca8e 一 -ITi 因此 不 
人 此 不 存在 可 行 解 


。375 ， 


]} 
one: Biap3(avarl,D,ipvkp); 糙 - 个 坯 端 变 几 和 一 个 右 端 穴 量 进行 交 粹 
这 〈1poayfip] >= 《na+mIi+m2+1))》 “第 -- 阶 身 ?)， 热 后 更 新 索引 表 
Tor 〈kg=1ix<mQl13x++) 
证 《11[k] ==< xp) broaki 
--n1L1; 
for 【ismkiie<csnlt;is++) 11[is]s=lli[ieg+ti]i 
++[m+2] [xp+i]; 
tor (im1i;i<=am+2;i++)》 a[i][kp+l] = -~a[i] tkp+1] ; 
} elLBe { 
1 《ipoay[ip] >=〔(D+al+t)》 工 
kh=ipogv[ip] -ml1-; 
if 《13[xh]) 苹 
13[xkh]=0; 
++ [四 +2] [kp+1] : 
人 pr 【Tie1; Ich+2 1; 工 ++》 


a[il [kp+1] = -a[i]lFkp+1]; 


了 
四 } 
ie=mdizrovy[xb] ; 
izrov [xp]*iposv[ip] ; 
ipogv[ip]=i3; 
》wbhile (ir); 如 采 仍 在 第 一 阶段 、 返 加 划 *do” 处 
全 和 本 。 即 求 -个 初始 可 行 解 的 工作 告 段落， 下面 将 进入 第 -阶段 ， 即 将 该 可 行 解 进 
行 优 
for (1) 工 
eimpl(a,9,11,al1。.0,&kp,wbmax)》; 测试 Z 行 
if 《baax <= 0.0) 《 最 优 解 找 和 到， 各 序 带 伯 返 回 
本 这 蕊 天 目 加 亚 侣 ; 
FREEALL returDi; 
】 
simp2(a, 吕 ,12,n12, 生 ip,kpykql); 选 主 元 (第 二 阶段 》 _ 
zz (ip =< D) 1{ 目标 困 孝 无界， 将 该 信息 记录 下 来 并 
中 让 C 有 SmL 返 间 
FREEFALL zeturpn ; 
】 
3imp3fa,a,o,ip,xp)i 对 一 个 去 端 变量 与 个 右 端 变量 进行 | 
is=izrovtkp] ; 交换 ( 第 二 段 阶 ) 
“izrorfkp]=<ipoav[ip]; 
ipOsSY[ip]= 庆 ga; 
- 并 返回 作 王 轮 选 代 


了 


”在 前 面 的 程序 中 ,利用 了 下 面 几 个 实用 函 雪 。 


并 include 必 mmath. 


Yoijid sirmmplkjtoat * xdasy int mm int 由 []，int nll，inr iabf，int * kpy iloat *bmax) 
”确定 一 些 元 束 的 最 大 值 ,这 些 元 素 的 索引 存 赃 在 已 知 的 列表 外 中 ;标志 iabi 指示 所 求 出 的 最 大 值 是 否 为 所 冲 元 说 皇 
侯 对 信 的 最 大 值 。 


int kj 
float testi 


# kb 一 由 [1 
+rbmax= 一 aLmm 十 3]L* kp 十 1] 
for kk 一 23k< 一 中 3xk 十 十 3 


放 (iabf 一 一 0) 
test 一 armim 十 1]][IILk] 十 1 一 (wbmax)y 
else 


test 一 fabsfa[mm- 一 1][LII[xk] 十 1 一 [absf < bmaxy; 
di (test 00) 


"376， 


#bmax 一 a[ mm 一 1 直 1 
* kb 一 JI[Lk 1; 


了 


? 
六 Gefine 上 PS 1.ne 一 避 


vojd sinl2(floatr w wayintny int 13，inc nl2， iot * 记 ，irtt kp，[cat *#* 踢 lj) 造 主 匹 记 , 包 括 进 出 情况 在 当 


和 
4 


jnt suii'is 


foat dpwl93q， 


# 一 必 ; 
for (i=18ic hl23i 二 一) 
if,fafi2[i 一 1 [ko ri < ， EPS) 任意 吕 能 的 主 元 ? 


xl*， 一 al2- 训 一 111]5a-l20- LUkp 十 3 
# 让 一 12[ 订 ; 
for 《i 一 i 二 Ti 一 叫 241 一 十 ) 
让 一 i2[i]; 
itaftirti][kb 十 1 扫 一 EDS) ， 
9 一 一 a[i 十 1][127aii+1 2- kp 十 :3 


订 (q 拉 *ql)1 > 
关机 一 站 
*# 昌 一 二 ; . 

else 计 (qq 一 盖 *#q1) 1 退化 情况 


[or 忆 一 1jk 忆 一 nik 十 十 ) 
dh 一 -as[xip 一 1][k+TL./a_*ip 十 上 [xp 十 1] 
un0 一 --aii 一 lfk+l]yara 1jLkp 二 |; 
i [qo0 【一 gb) hreaki 


昌 
计 《qd0 过 dp) 关 和 一 1L: 
1 


上 
间 


void Simp3 ffloat ss # av int il，intkl，int ip，int kb) 田 于 灾 鬼 左 庙 变 量 和 右 端 变量 的 - - 些 乍 阵 操作 (参见 
正文 中 的 说 明 ) 


int KE ， ii 
feat Piv 


piv=1.0/a[ip 十 1]Lgp 十 1]， 
for 全 一 Ti 一 这 二 15 十 十 ) 
让 6ii 一 1 1 一 ip) 1 
a[i][kp 十 1] * 一 bivi 
for (kkK==Tkk< 王 kl1 十 13kk 十 十 ) 
证 (kk 一 1 != 一 kb) 
ai -kk] 一 = a[ip 十 1][kk]*arifkp ft 
} 
for fkk 王 1:kk< 王 kI 十 likk 一 十 ) 
让 (kk 一 1 1= kp) asLip 十 1]L[kk] * = piv; 
a[ip 十 13[kp 十 1] 王 piv; 


。377 。 


10.8.5 其 他 线性 规划 方法 简 述 


每 个 包含 N 个 变量 和 开 个 约束 条 件 . 且 有 具有 慰 准 形式 的 线 狂 规划 问题 ,都 有 - -个 与 其 
对 应 的 对 偶 问题 ,该 对 仙 问 题 含有 对 个 变 基 和 N 全 约束 条 件 , 它 的 表 赂 表示 水质 上 就 是 共 
原 问题 (有 时 称 为 原始 规划 ) 的 表格 表示 的 转 置 .从 对 偶 品 题 的 解 当 出 原始 规划 的 解 足 完全 
可 以 做 到 的 ,而 且 这 种 求解 方法 在 !i 算 上 有 时 也 很 有 几 处 .但 它 在 一 般 情况 下 并 不 常 幅 ， 

收 改 的 单纯 形 法 中 有 -一 个 步 桑 与 年 纯 形 法 完全 等 价 , 即 选择 包 几 个 左 端 变 量 和 右 器 变 
量 用 作 交 换 , 尽 管 前 者 的 计算 量 为 与 在 者 禁 比 并 没有 很 天 的 改进 ,但 它 在 对 存 贮 的 组 织 六 面 
的 确 与 后 者 有 不 少 不 同 之 处 ,在 计算 的 中 装 步 又 ,修改 的 单纯 形 法 仅 需 一 个 大 小 为 对 六 至 
矩阵 ,而 不 是 MXN 大 小 的 怎 阵 ,如 果 规 划 问 题 的 限制 条 件 很 多 ,特别 是 对 存 贮 量 的 限 汕 也 
包括 在 其 中 , 那 么 我 们 就 可 以 考虑 用 这 种 修正 的 单纯 形 法 ， 

原始 一 对 偶 算 法 以 及 复合 单纯 法 是 阿 种 不 辐 的 方法 ,它们 部 是 为 了 避免 一 般 单纯 形 法 
的 两 个 阶 改 而 设计 的 :两 者 在 同时 寻找 可 行 解 和 最 优 解 方面 有 .证 的 改进 。 介 日 前 来 春 似乎 
还 没有 什么 明显 的 迹象 表明 这 两 种 方法 能 很 大 地 上 优 于 通常 情况 下 所 合用 的 单纯 形 法 ， 

如 果 目 标 租 数 和 /或 一 个 或 多 个 约束 条 件 , 具 有 独立 变 元 的 非 线性 表达 式 的 形式 , 则 称 
该 问题 为 非 线 性 规划 问题 .有 关 这 类 间 题 的 文献 很 多 ,它们 都 超出 了 木 书 的 范围 非 线性 规 
划 问 题 有 种 特殊 情况 , 即 表 达 式 都 具有 二 次 型 式 ,因此 称 为 二 次 规划 .此 外 变量 只 能 取 昌 
数 的 最 优化 问题 称 为 整数 规划 问题 , 它 是 离散 优化 问题 的 一 个 特例 .在 下 :和 节 中 ,我 们 将 讨 
论 一 类 特殊 的 离 获 优化 问题 。 


参考 文献 和 进一步 读 钨 ， 

band, 民 .G，1981 ，Sefentt 下 c atertcan， vol，2441 (June)、ppb. 126~1<4. [1]] 

Dantzig，(G, 也 1963， 了 near Programtzmairz GzG 已 tiersroni(Princeton， NT;Princeton University 
Press).、[2] 

有 olata， 鸽 ，1982 ，Sectemce，vol。217，p， 39. [3] 

开 uenzl 末 . P. ，Tzschach， 卫 . 司 . ，and Zehnder， CC 和，1971，Napterttel Mtethodsy of Mathermaatieel tp 
mmEzeitot (Mew YoDIK: 页 cademmic Press)，、[4? 

Wilkinson，J HH. ，and Reinsch ，C，1971，Zimear .geEra， vol 11 of 后 azpook or detomeattc 人 emtpaetiz 
hom 【New York， Springer-Veriag). [5 


10.9 ”模拟 退火 法 


横批 退火 法 (参见 [1,2])? 作 为 一 种 适合 于 求解 大 规模 的 优化 问题 的 技术 ,近来 已 引起 极 
大 的 关注 ,特别 是 当 优化 问题 有 很 多 局 部 极 值 而 全 局 极 值 又 很 准 求 出 时 ,模拟 退火 法 兆 其 有 
效 。 在 实用 上 , 它 有 效 地 “解决 了 "著名 的 旅行 推销 员 问题 , 即 在 必须 依次 访问 每 一 个 城市 ( 共 
有 和 个 城市 ) 的 前 提 上 ,为 旅 行 推销 员 设 计 一 条 能 够 返回 起 点 的 最 短 旅 程 .模拟 逮 火 方法 还 
被 成 功 地 用 本 设计 复杂 的 集成 电路 ,也 就 是 说 如 何 最 佳 地 安排 用 上 -万 个 电路 元 件 , 使 它们 全 
部 集成 在 一 个 很 小 的 硅 片 上, 亨 相 互 连 接 的 线路 之 间 的 缠 扰 能 够 达到 最 小 (参见 [3,4]) , 忌 
管 退火 法 的 切 效 莫 凡 ,但 它 的 算法 实现 却 相 对 地 简单 ,这 -点 似乎 有 些 不 可 思议 。 

请 注意 ,我 们 上 面 提 到 的 刚 个 例子 都 属于 组 合 极 小 化 问题 . 现 本 类 问题 通常 也 有 一 个 月 

*，378。 


标 函 数 ,但 是 函数 的 定义 域 并 不 让 简单 地 出 N 个 连续 参 变量 的 组 成 的 Y 维 空间 ,而 是 -- 个 
离散 的 巨大 揭 构 形 空 间 , 例 如 ,由 所 有 可 能 的 城市 旅行 路 线 组 成 的 集合 ,或 者 硅 片 电路 元 件 
的 所 有 可 能 的 分 配方 式 的 集 令 , 构 形 空间 中 元 素 的 数量 相当 巨 大, 根本 不 可 能 穷 党, 而 且 因 
为 集合 是 离散 的 ,我 们 也 不 可 能 * 语 人 台 适 的 方向 连续 下 降 ". 因 此 在 构 形 空间 中 必 方 向 "概念 
就 没有 什么 意义 了 。 

上 后面 我 们 述 将 介 经 如 何在 其 有 连 练 控制 参数 的 空间 中 利用 模拟 退火 法 :这 种 应用 实际 
上 奴 比 组 合 问题 复杂 : 些 , 因 为 其 中 又 要 出现 “狭长 山谷 ”的 情况 。 正 如 在 下 文中 我 们 特 看 到 
的 ,模拟 退火 法 的 试探 步骤 是 “随机 ”的 ;但 在 一 个 狭 窑 且 灌 长 的 等 高 线 山 侣 中, 岂 平 厂 生 的 
随机 步 又 都 嘿 向 上 趋势 ! 因 此 ,算法 中 需要 增加 一 些 技巧 : 

模拟 退火 的 核心 思想 与 热力 学 的 原理 颇 为 相似 ,而 月 尤其 类 似 于 液体 流动 和 结 品 以 及 
信 属 冷却 和 退火 的 方式 ,在 高 温 下 ， -种 液体 的 大 革 分 了 彼此 之 间 进 行 着 相对 腿 贞 秒 动 . 妇 
果 该 流体 慢 侵 地 冷却 下 来 ,热能 可 动 性 便 会 消失 .大量 原 了 常常 能 够 日 行 排列 成 行 , 北 或 一 
个 纯净 的 上 体 ,该 晶体 在 各 个 方向 上 都 被 完全 有 序 地 排列 在 几 百 万 倍 于 单个 原 - 弛 大 小 的 距 
离 之 内 .对 于 这 个 系统 来 说 ,晶体 状态 是 能 量 最 低 状态 ;厕所 有 组 慢 冷 却 的 系统 都 可 以 明 然 
达到 这 个 最 低能 量 状 态 , 这 可 以 说 是 一 个 令 人 惊奇 的 事实 .实际 上 ,如 果 某 种 滚 体 金属 被 迅 
速 冷却 或 被 " 儿 熄 ” ,那么 它 不 会 达到 这 一 状态 ,而 只 能 达到 一 种 具有 较 高 能 量 的 多 晶 状 态 或 
非 结 晶 状 态 。 

因此 ,这 一 过 程 的 本 质 在 于 缓 缓 地 致 淮 , 以 争取 充足 的 时 间 , 让 估量 原子 在 南 失 可 动 性 
之 前 进行 重新 分 布 . 这 就 是 所 谓 退 火 在 技术 上 的 定义 ,同时 也 是 确保 达到 低能 量 状态 所 必需 
的 条 件 。 

尽管 我 们 的 比喻 并 不 算 贴切 ,但 是 迁 今 为 止 本 身 所 讨论 的 所 有 极 小 化 算法 ,确实 与 快速 
冷却 鸳 煌 有 某 些 相关 联 之 处 .已 往 我 们 处 理 问 题 的 方式 都 是 :从 初始 点 开始 ,立即 沿 让 隆 方 
向 前 进 , 志 得 越 远 越 好 ,似乎 这 样 才 能 迅速 求 得 问题 的 解 , 但 是 ,正如 前 画 常 常 提 到 的 ,这 种 
方法 往 梓 只 能 求 得 局 部 极 小 点 , 却 求 不 到 整体 小 点 .自然界 本 身 的 极 小 化 算法 则 基 士 “种 截 
然 不 癌 的 方式 ,所 请 的 玻 尔 兹 螺 (Boltzmann 概率 分 布 

Prob (号 )》 一 exp( 一 百 /T) 《1 3. 上) 
表达 了 这 样 一 种 思想 , 即 : 一 个 处 于 热 半 衡 状 态 且 具 有 温度 工 的 系统 ,其 能 量 按照 概率 ,分 
布 于 所 有 不 同 的 能 量 状态 专 之 中 。 即 使 在 很 低 的 温度 下 ,系统 也 有 可 能 (虽然 这 得 咋 能 性 很 
小 ) 处 于 一 个 较 高 的 能 量 状态 . 因 班 ,相应 地 ,系统 也 能 够 获得 控 赔 局 部 能 量 极 小 点 的 机 会 。 
并 找到 一 个 葛 好 的 ,更 接近 于 整体 的 极 小 点 . 式 (10. 9. 1 中 的 参数 k( 称 为 玻 尔 兹 量 常 数 ) 是 
一 个 自然 常数 , 它 的 作用 是 将 漫 度 与 能 量 联 系 起 来 . 换 句 话说 ,在 有 些 人 情况 下 系统 的 能 量 可 
上 升 ,也 可 下 降 , 但 是 温度 越 低 , 显 著 上 升 的 可 能 性 就 越 小 。 

1953 年 , 米 特 罗 波 利 斯 (Metropolis) 及 其 合作 者 们 首次 将 这 种 原理 涂 透 到 数值 汁 标 中 ， 
他 们 对 一 个 模拟 热力 学 系统 提供 了 :系列 选择 项 ,并 假设 :系统 构 形 从 能 量 已 变化 到 能 量 
瑟 : 的 概 兴 为 避 一 expr--( 一 PP) AT 很 显然 ,如 果 已 < 到 五., 岂 将 大 士 -一 :在 这 类 情况 下 ,对 
均 形 的 能 量变 化 任意 指定 “个 概率 值 一 1, 也 就 是 说 ,该 系统 总 是 取 这 入 选择 项 ,这 种 格式 
总 是 采取 下 降 过 程 , 俱 尔 采取 上 升 步 双 。 日 前 已 被 公认 为 米 特 罗 波 利 斯 算法 。 

为 了 将 米 特 风波 利 斯 算法 应 用 于 热力 学 以 外 的 系统 ,必须 提供 以 下 凡 项 基本 要 素 ， 

1， 将 可 能 的 系统 构 形 的 一 种 丧 述 。 
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2， 一 个 有 关 构 形 内 部 随机 变化 的 生成 丽 数 ,这 些 变 化 将 作为 “选择 项 ”提交 给 该 芝 红 ， 

3， “全 目标 函数 Et 类 似 于 能 量 ) 求 解 己 的 极 小 值 , 贡 为 算法 所 要 完成 的 二 作 。 

4 “个 控制 参数 工 (类 似 于 光度 ?和 “个 退火 进程 ,该 进程 用 来 说 明 系 统 是 如 何 从 两 俏 
向 低 值 降低 的 ,例如 在 温度 工时 兰 次 下 降 步 又 中 要 经 这 多 少 次 随机 的 构 形 变化 以 及 该 好 长 
是 多 大 等 等 .应 说 明 的 是 ,这 里 “高 ”和 " 低 ? 的 含义 , 偿 有 进程 去 的 确定 ,都 圳 要 一 定 的 物 惠 条 
识 和 /或 一 些 模 索 的 实验 。 


10,.9.1 组 合 极 小 化 :旅行 推销 员 问 题 


下 面 是 我 们 用 "旅行 排 销 员 问 题 ? 为 具体 实例 说 虱 模 拟 壕 火 法 的 应 用 : 假 没 -一 个 推销 员 ， 
襄 去 六 个 分 别 位 于 (rev3t? 的 城市 进行 推销 ,并 二 最 后 返回 他 原来 所 在 的 城市 , 昌 求 拇 个 城 
市 只 能 去 “次 ,而 且 所 经 过 的 路 径 要 尽 可 能 地 短 - 这 个 问题 属于 一 类 所 谓 *NP 一 筷 全 全 
题 ". 这 类 问题 求 出 “个 精确 解 所 需 的 计算 时 间 是 随 N 的 增加 以 指数 exp{ 常 数 X 六 ) 增 长 
的 . 当 N 不 断 增 大 时 ,运行 时 间 将 迅速 增加 ,进而 导致 费用 高 到 令 人 难以 接受 的 程度 : 记 行 
推销 员 问题 也 是 从 多 极 小 化 阿 题 中 的 一 种 , 它 的 月 标 函 数 到 具有 多 个 局 部 极 小 值 .在 实际 
应 用 当中 ,常常 有 足够 多 的 条 件 可 以 众多 个 极 小 值 中 选 出 一 个 最 小 的 ,这 个 最 小 值 即使 不 是 
忽 对 最 小 ,也 相当 接近 绝对 最 小 了 .退火 法 的 日 的 就 是 要 获得 这 个 最 小 值 , 同 时 又 更 将 计算 
量 限制 在 w 的 低 阶 次 的 数量 级 上 。 

旅行 推销 员 问 题 也 是 按 模拟 退火 问题 的 方式 进行 处 埋 的 ;具体 如 下 ; 

1. 构 形 将 六 个 城市 分 别 标记 为 ?二 1 中 的 数 , 其 中 每 个 城市 具有 坐标 (zy ) 

一 个 构 形 就 是 数字 1,. X 的 一 个 排列 ,可 以 解 译 为 推销 员 途 径 的 城市 的 顺序 : 

-调整 林 (Lin? 曾 经 提出 过 一 种 所 谓 * 转 移 有 效 集 ”, 这 里 的 "转移 "包括 两 种 类 型 ;4a， 
移 走路 径 的 某 一 段 ,然后 对 这 段 路 径 上 的 城市 用 相反 次 序 重 新 进行 排列 ,并 用 扎 阁 米 
代替 前 者 !(b) 移 走 某 眉 路 径 , 并 用 位 于 城市 加 的 随机 选取 的 另 ` 段 路 径 来 取代 被 移 


CD 


走 的 路 径 。 
3. 目标 函数 ”在 旅行 准 名 员 问题 的 -- 种 最 简单 的 形式 中 ,目标 函数 刁 正 被 定义 为 旅途 
的 总 长 度 





岂 mm 
尼 一 工本 VCn 一 二 十 全 一 攻 G10. 汪 2 


这 里 认为 第 六 十 1 个 点 与 第 1 个 点 是 重 台 的 。 但 是 为 了 表明 模拟 退火 法 的 灵活 性 .我 
们 还 要 用 到 下 面 的 技巧 ,假设 推销 员 无 端 端 地 害怕 飞 城 密西西比 河 , 在 这 种 情况 下 ， 
我 们 对 每 个 城市 给 定 一 个 参数 Ai, 如果 该 城市 位 于 密西西比 (Mississippi) 河 以 东 ,A， 
取 1, 若 在 密西西比 河 以 西 出 取 一 1, 对 于 目标 函数 五, 我 们 将 其 改写 为 : 





互 一 [Vc 一 T 十 (和 一 3 壮士 厅 下 一 由. 条 《10.0.3) 
4 一 】 


由 于 每 过 一 次 河 都 将 以 4 作为 惩罚 ,四 贡 现 在 我 们 设计 的 算法 的 目标 ,就 变 成 了 陡 
找 尽 可 能 回避 过 河 的 最 短路 径 。 路 径 长 度 对 过 河 次 数 的 相对 重要 性 将 由 我 们 选择 的 
4 来 确定 。 图 10. 9. 1 表明 了 所 得 的 结 昔 .显然 ,这 种 技巧 可 以 推广 到 包含 许多 相 也 冲 
突 的 是 的 要 求 的 极 小 化 问题 当中 . 
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(a) 





(b) 





(c) 


图 人 a 表 示 的 是 从 四 个 随机 分 布 的 城市 中 间 找 到 的 一 条 (接近 ) 景 短 禾 径 , 点 线 标 识 的 是 一 条 河流 ,但 这 是 对 过 
河 没有 附加 释 为 项 的 情况 .在 图 h) 中 对 过 河 施 加 的 息 为 网 很 大 ,而 图 中 县 示 的 解 本 身 的 过 河 次 数 也 相间 地 只 
有 少 福 不 能 再 少 的 两 次 .在 可 (c) 中 攻 罚 项 为 页 ,这 就 是 说 , 挫 销 员 实际 上 成 了 盗 者 偷 湾 的 走私 者 ! 


图 10. 9,1 用 模拟 退火 法 解决 旅行 排 销 员 亲 题 
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4. 退火 进程 ”这 一 步 需 昌 借助 试验 来 确定 .首先 要 进行 - 些 随 机 调整 ,然后 利用 它们 来 
确定 从 转移 到 转移 过 程 中 将 会 商 到 的 4 值 之 范 困 .对 参数 工 取 一 初始 值 (这 个 补 始 
值 要 远 远大 于 通常 所 能 遇 到 的 4 的 最 大 值 ). 并 以 倍增 的 步 民 下 减 ,每 次 使 了 总 巷 
减少 10 听 。 我 们 拿 每 个 新 的 常数 开 值 去 坛 各 种 100N 重 构 形 ,或 ION 成 功 的 重 构 
形 ,无论 哪 个 在 前 出 现 就 取 哪 个 . 当 实 在 不 能 再 进 -- 步 减 小 忆 时, 则 停止 : 
下 咖 的 旅行 推销 员 程 序 利用 了 米 特 罗 滤 利 斯 (Metropolis) 算 法 ,并 展示 了 模拟 退火 技 
术 应 用 于 组 合 问题 的 几 个 主要 方面 。 
芽 ineludc <stdqio.h 盖 
并 include <)inath.bh> 


十 define TFACTR 心 9 退火 进香 :每 步 中 1 的 下 降 值 咎 该 因子 决定 
开 defink 只 LENSasiboesda acrttD 一 人 a))< [tb 一 (aa 十 CCP (ce 六 CCtd Ce) 


vbid anneat(iloat xj, float y ]，int iorder[ ，int acity) 
本 算法 用 于 或 解 在 ncity 个 城市 之 间作 往返 旅行 的 最 短路 低 ,其 中 这 raity 个 夭 市 的 倍 人 亚当 款 存 贮 在 数组 xnki 
ty] 和 >y[1..rcity] 中 ,数组 iorder[1.、 nsity- 表 雯 途径 城市 的 顺 上 . 在 输出 区 中 ,iorder 中 的 元 圳 将 被 匿 为 茹 全 
nrity 的 某 排 列 ,本 柱 序 将 运 可 它 所 能 求 品 的 地 佳 村 打 路 他. 





int irbititCunategned 1on 名 #i3aad) 1 

int 四 etrohfzloat da， 节 1Oat 已 ) 1 

float ran3(1on 训 +tdhtm) 

float zavcatftlaat x[] ，flcat 7[]，iat icrder[] ，int hcitt，int 了 门 ) ; 
void reversafinht iorder[] ，in5 aclty，tpt 由 门 ); 

float trmcet[zkoat xf] ，fl1ogt y[] ，int iordar 门 ，int ncity，dnt 8 门 ); 
void trnaptfint iorder[] ，int ncit 了 ，iat QT ); 

int an3 ,never ,liamit :Ti2) 

int ,jasucc，nnadeci 

static int ma[7] 

long idam; 

nsignad 10DE iseed; 

loat Path,de, 蕊 ; 


moverezOO0*rncity; 在 任何 温度 上， 所 试 路 径 的 最 天 次 数 
Dlinmits10rncity; 在 纺 续 进 行 之 前 ， 成 功 的 路 从 改变 的 大 次 数 
PatheO.0Oi 

TO,5; 


For 《ie=tit<ncttyiiyry) 革 计算 衬 娩 四 季 的 长 虚 
il=iordarti]: 
i2=icorder[i+l]: 
path += ALEN(z[it] ,x[i2] ,y[i1] ,y[i2]) ; 


》 
leiorder[acity] ; 将 路 短 头 经 相 和 并 结束 销 奈 
i2=iorder[1] ; 
Path += ALENKTr[il] ,cr[i2] ,y[it],y[i2])， 
idum = ~1; 
Saede111: 
for 【j=<1ij<<100;j++) 工 试验 in 个 温度 值 
DSDUCC=Di 
for (yn1;X<enoveITik++) 攻 
do 并 
了 [1]=1+Kint) (ncitywran3{ 业 jdum》] 1 达 样 段 的 起 给 点 光 
了 [2]=1+Kint] 〔(ncity-1ywran3( 此 idum]); … 隘 的 结尾 
讶 (na[2] >e mnf1i]) ++n[2]， 
mn=1+fkn[l]-a[2]+ncity~1》 % pcity); an 对 不 作 于 当前 枝 | 的 城市 数 
} wbilae (nn<c3}; 
tdeceirbit1l(ziaeed) ; 
博 定 足 示人 敌 段 反 转 或 段 输送 
if 《idec =e 0) 【T 做 输送 
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pn[3]zn[2]+(int)y 【abafnn-2)*ran3S( 上 idum))+13 
hn[3]slvfa[3]-1)》X ncity); 
答 送 到 “全 不 在 当前 路 各 上 的 某 处 


dastrncstfxiy,iorder ,ncity:R) i 计算 代价 
anganattopfde ,) 做 也 闪 
if [aas) 
+4+naucci 
path + dei 
trnspPtKiorder ncity,n); 篇 选 工作 结束 
了 
] elae { 做 据 反 转 
de=Tevc6t[F,y,iorder,ncigy,a)i 计 罩 代 和 价 
站 急 mq 本 上 roptda ,七 ) i 作 两 汐 
《ans] 
+4DEUCC 
Path +” dei 
everse[iorder,hcity, 了 E); 之 成 段 反 转 
; 上 
让 〈nsucc >=s nilioit) breakt 如 果 成 功 的 转移 超过 次 数 则 提前 结束 


} 

PrintXtnsa aa YL1O-6E XE 和 2.67 Nan IT = vt， 
昌 Path Length =" ,Pata)i 

PrintitrnSucceesiul Moves: Y%6dSn" ,nsucc) 

七 和 了 FACTR; 

it 〈《DnBucc 天 < 站) 工 atUIDi 


退火 进程 
如 果 不 成 功 叫 返 加 


全 include 所 rnath.h 盖 
闪 define 和 ALENKaybyc:d) sqrtCfttb) 一 (a))x (by 一 (a)) Crdy 一 (ec)) 《td 一 (ec 四 ) 


fleat revcsttfloat xz ]， float y[], ins iorder[], int neity.、 int n[]) 


该 子 稳 序 返回 的 悬 反 转 某 绽 定 路 径 所 需 的 代价 丽 数值 .多 数 中 nciry 为 城市 数 ; 数 失 尖 1 neity yy 1- - bcity “为 二 
些 城市 的 位 置 坐 标 jinrder[n, ,neity] 为 当前 路 线 ; 数 蛆 mn 的 头 两 个 元 束 ni ] 和 a[ 纪 分 别 代表 将 此 被 友 转 的 路 名 段 
的 起 点 城市 和 黎 点 城市 .了 程序 的 给 出 项 de 为 反 转 所 需 区 代价 秆 , 住 真 正 匆 元 转 过 程 并 不 是 由 于 程 乍 执行 。 


float xx[5],yy[5],dey 


int jyiii 


} 


na[3] 一 1 二 《Ga[l 一 ncity 一 2 吕 ncity); 


找 出 af[11 以 前 的 堪布 


na[ 人 一 1 十 (n[2” 阁 heityD5 … 找 出 h[2j 妇 后 的 溅 市 
for 昌 王 15< 扫 一 4 十 一 ) 1 
站 一 iorder[no[i]， 求 四 个 所 涉及 到 的 藉 市 的 玲 标 
xx[ 门 一 x[ 
Y7[1 一 7-ii- 
de 一 一 ALEN(xx[]j,xx[3],yy[1J,yyr3]); 计算 断 开 路 径 段 两 塌 所 需 的 代价 
de 一 一 ALEN(Cxx[2],xx[4],yy[2],yy[4])， 以 太 肝 相反 顺产 重 新 连接 所 需 的 代价 


de 十 = 一 ALENKxx[1],xx[Lda]j,yr[1],yyfd4]); 
de 十 = 一 ALENCxx[2],xx[3],yy[2],yy[3-); 
return ds 


void reyerse 【int iorder[]，int ncityy int n[) 


该 子 程序 的 作 轩 是 执行 一 段 路 径 的 反 娃 过 程 , 输 人 参数 ierderf1.. mcity] 给 出 当前 的 路 线 病 应 ， 向 晤 mn 的 前 思 个 抱 
素 中 心 [1- 和 nf2 分 别 为 将 机 被 反 转 的 路 径 的 起 点 和 奖 点 城市,n[3j] 和 anf4] 则 分 别 为 紧 楼 nf13 之 前 和 紧 随 a[2 -之 
天 的 暗合 城市 的 球 号 ,其 中 ni3] 和 md] 几 议 数 rercest 给 出 。 在 输出 问 ,iorder 又 将 兵 作 为 运 回信， 它 的 恋 义 是 ni11 
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到 n[2] 路 段 被 反 站 后 的 入 种 路 线 。 


jnt nn,jsk ,jitmp; 


nn 一 (1 十 (Cn[2 一 nLI] 一 mcity) 狼 meity)3724 为 实现 反 转 操作 ,必须 变 罗 这 乞 基 和 扎 市 
fpr (j 一 1 天 一 hnij 二 十) 
kk 一 1] + 《〈(n[] 十 ;一 2) 只 ncity) 从 段 的 端 部 开始 , 顺 译 交换 城市 好 
1 一 1 十 《Cnf[ 绍 一 j 十 neity) 双 peity )， 崩 盏 到 达 路 杰 的 小 心 


itmbp 一 iorder [k 】 和 
jorder[k 一 iorder[i]; 
in-qer[1 一 irmb+ 


了 


##include 天 math. 上 >> 
闪 defime 和 LENKa bcyd)y sqrttfpby 一 atby--(a))TTCtd) 一 [ec)) (fd) 一 5c7))》 


flcat trncattfloat x[], float y[，int iorderL]，int ncity，int nl) 


该 子 程序 返回 的 是 输送 某 掺 疝 定 路 径 所 稍 的 代价 所 数值 . 输 和 套数 中 ncity 为 城市 的 个 数 :xL1. .ncityj 和 YL，nci 
ty] 为 这 些 城 市 的 位 置 坐标 ,数组 m 的 前 二 个 元 素 分 别 为 ,将 要 被 输送 的 路 径 朋 的 起 ` 止 点 城市 以 及 这 段 路 补 将 机 窜 
捆 人 处 的 标志 城市 播 在 该 城市 之 后 ), 该 子 程序 的 输出 质 de 为 计算 出 来 的 输 适 代价 值 ,但 实际 的 输送 操作 并 不 由 
该 子 程序 执行 


Hoat xx[7],yy「?],des 


int jy 

n[4 王 1 十 Cn[L3] 猎 nelty)4 找 出 信和 naf[3] 之 后 的 城市 . . 
n[5] 王 1 十 (Cn 十 nciry 一 2 史 neity]y .位 十 n[12 之 前 的 一 个 减 市 . . 
n[6]:=1 十 (n[22 的 nciry)ys ,位 于 nmL2J 之 司 的 一 个 蕊 市 .、 
for (j=15j< 一 6 jj 二) 1{ 


iiordern[j] >; 求 出 六 个 城市 的 有 关 坐 标 
Xx| jj 一 [ii 
yy[ 订 一 yfii]， 


} 

de 一 一 ALENKxx[2],xx[6],yy[2],yy[6])3 计算 直列 操 作 所 需 代 价 , 断 开 hn[1 2 到 [22 

de 一 一 ALEN(xx[1],xx[5],yy[1],yy[53)， 亲 的 路 名 :打开 n[3] 和 na[ 和 之 间 的 空间 

de 一 .ALEN 人 xxTI3],xx[4],yy[3],yyL4])， 连接 这 个 空间 中 的 路 匈 段 :以 及 过 捷 nLs]p[6] 


de 十 = ALENCxxf1],xx[3],yy[1],yy[33): 
de 赴 一 ALEN(Kxx[2],xx[4],yyr[2],yy[4])， 
de 十 一 ALENKxx[5],xx[6],yy[5],yy[6]): 
return dei 


并 inclode "nrutil. hy 


voidq trnsptfint iorderL]，int hciry， int n 了 ) 
该 子 程序 的 作用 呈 执行 真正 的 眉 输 送 操作 、. 边 入 花 数 iorder[1. .ncxty] 丛 出 当前 的 路 径 顺 序 , 数 组 n 共有 6 个 元 末 、 


其 真 叉 分 别 为 :nfl 1 和 mL24 盆 别 代表 将 要 被 输送 的 路 径 自 的 起 点 城市 秘 泪 点 城市 tnl3] 积 中 4 为 两 个 相 名 的 城市 . 
ma [1 至 n- 人 路 入 入 姑 将 放 入 它们 中 隔 !n[5 -和 [6] 分 划 为 af1] 之 前 和 nr23 之 后 的 次 个 城市 ,在 这 六 个 元 素 中 
[4,n[5] 和 mn[6] 上 由 函数 trncst 险 出 .在 输出 靖 ,iorder 将 根 撕 路 径 作 的 移动 和 变化 玫 出 相应 的 禾 改 。 


int rdlym2,rp3poy jjj，x* jorder4 


jorder 一 ivrectortl :ncity71 


mL 一 1 上 《Cn[ 纪 一 hn[I] 十 ncity) 儿 peity)i 按 出 世 于 m[ 菇 和 af2] 间 城市 个 数 
m2 一 ] :上 (na[5]- na[4] 十 ncity) ncity)# .vantt] 到 n5] 加 的 城市 个 数 
m3=1 十 【人 naL3] 一 hn[6] 十 neity) 凤 beity]s ,nr6] 和 nf「3] 的 城市 个 数 
bn 一 1 和 


*， 384。 


forf 一 1 昌 过 三 ml 一 十 ) 
ji 一 1 ~ 《0G+nfLl] 一 2 沁 ncity)4 复制 所 选 路 径 眉 
jorder[nn 十 一 ]=:iorder[ji 


} 
这 m2 盖 0)7 了 
fori 王 15j< 一 m25 十 十 》 复 测 [4] 到 n[5- 间 的 路 径 豚 
用 一 1 十 (0 一 a[4] 一 2) 贤 peity》+ 
jorder[nn 一 十 ] 一 iorderTjj2 
了 
} 
计 (rm3>ny 
If (一 13j< 一 m31 十 十 7 1 量 后 ,复制 nL6] 到 nl3] 阿 的 路 径 段 
ji 王 1 十 《0 十 n[L6] 一 >》 皮 ncity)3 
jorder -nn 十 十 ]= 一 iorderi 


} 

fer (j 王 14< 扫 一 ncityjj 十 十 ) 将 jorder 措 贝 回 iorder 
iorder[j 一 joraet[jj 

free_iyector fjorder ,lnctty>i 


} 
并 inpclude 扫 rmath.h 人 > 


int rnetrop(iloat de float 上 


该 子 程序 为 米 棕 罗 波 利 斯 算法 的 穆 序 实 现 ,metrop 返回 的 是 一 个 布尔 型 变量 ,由 该 变量 决定 是 奋 接受 -一 个 使 下 绪 
函 阔 * 产生 改变 量 de. 的 重 构 形 , 如 时 de<0 则 metrop=1( 真 ) + 而 当 de>>0 时 ,metrop 为 真 的 概率 是 *xp( 一 de ,这 
里 才 是 “个 击 间 火 进 召 决 定 的 光度 值 . 


feat rao3(long * 这 um) 
gtatic Long glium 一 1# 


retutc de 扫 0.0 | | ran3(&gljidum) < cxPt 一 de/t); 
人 
】 


10. 9. 2 ”模拟 退火 法 在 连续 极 小 化 问题 中 的 应 用 


模拟 运 火 法 的 基本 思想 也 可 以 应 用 于 具有 连续 内 维 控制 参数 的 极 小 化 问题 当中 , 例 
如 ,在 某 个 函数 fx)( 这 里 为 一 个 N 维 向 量 ) 有 许多 局 部 极 小 点 的 情况 下 ,求解 它 的 ( 理 
想 的 全 局 的 ) 极 小 值 . 这 时 米 特 罗 波 利 斯 算法 所 需 的 四 要 夫 可 以 具体 化 为 :1) 目 标 亲 数 即 为 
(xz) 的 值 ;2) 系 统 状态 描 态 即 为 N 维 空 间 中 的 点 x13) 类 似 于 温度 的 控制 参数 工 以 及 一 个 
使 工 恶 渐 降 低 的 退火 进程 仍 为 原先 的 定义 ;4) 描 述 构 形 内 部 随机 变化 的 发 生 器 即 为 一 个 从 
x 到 YX 十 Ax 采取 随机 步 豫 的 方法 。 
”在 上 述 四 要 素 中 问题 最 大 的 是 最 后 一 条 .目前 已 发 表 的 文献 中 "9 ,介绍 了 几 种 不 同 
的 选择 Ax 办 法 。 但 我 们 认为 ,这 些 方法 都 不 算 成 功 .问题 在 于 “效率 ”二 字 :当局 部 的 向 下 运 
动 存在 时 ,如 果 某 个 随机 变化 发 生 器 几乎 总 是 作出 向 上 运动 的 决策 ,那么 它 的 效率 就 很 低 。 
我 们 认为 ,一 个 好 的 发 生 器 在 等 高 线 的 “ 窗 谷 ”中 仍 应 保持 高 效 性 ; 当 算法 在 接近 收效 到 极 小 
点 处 时 , 它 的 效率 也 不 应 越 变 越 低 .在 上 面 我 们 提 到 的 也 篇 文献 中 , 除 [7] 中 介绍 的 方法 之 
外 ,其 他 所 有 方法 都 表现 不 同 程度 的 低 效 性 。 

下 面 我 们 将 要 介绍 的 这 种 方法 ,利用 了 下 降 单 纯 形 法 ( 见 第 10, 4 节 ) 的 一 种 修改 后 的 形 
式 。 首 先 我 们 将 米 特 罗 波 利 斯 算法 四 要 素 中 的 系统 状态 描述 ,由 单个 点 x 改 为 一 个 具有 R 十 
1 个 点 的 单纯 形 ; 单 纯 形 的 “操作 "和 第 10, 4 节 中 介绍 的 相同 ,分 为 反射 .扩张 和 收缩 三 种 , 然 

作 - “385。 


后 我 们 将 一 个 正 的 . 呈 对 数 分 布 的 随机 变 荆 ( 与 温度 了 成 比例 ) 添 加 到 存 贮 的 函数 值 沾 (该 
青 数 值 与 单纯 形 的 每 个 顶点 都 有 关联 )， 再 从 每 个 被 当 作 昔 代 的 新 点 的 函数 值 中 减 去 一 个 类 
似 的 随机 变量 。 利 普通 的 米 特 罗 波 利 斯 方法 一 样 ,这 种 方法 总 是 接受 一 个 真正 的 下 降 步 骤 ， 
”但 有 时 也 接受 一 次 上 升 步 台 . 在 极限 过 程 了 7- 一 0 中 ,该 算法 怡 好 变 成 了 下 降 的 单纯 形 法 . 牛 收 
伍 到 一 个 局 部 极 小 点 。 

在 了 的 某 有 限 值 处 ,单纯 形 将 扩展 到 -- 定 的 规模 ,其 大 小 接近 于 在 这 个 温度 值 所 能 达 
到 的 区 域 ; 然 后 单纯 形 在 这 个 区 域内 部 做 随机 的 省 动 等 转 式 布朗 运动 ,并 在 该 讨 程 中 抽取 --- 
些 新 的 .近似 随机 的 点 作为 样本 。 一 个 区 域 被 利用 的 效率 与 其 狭 窜 度 (对 椭 球 状 山 侣 ,站 寡 的 
主轴 出 率 ) 及 方向 性 均 无 关 , 如 举 温 度 降 低 得 足够 缓慢 ,那么 单纯 形 和 将 极 有 可能 收缩 旭 那 个 
区 域内 ,而 那个 基 域 内 包含 已 过 到 的 最 低 相对 极 小 。 

由 十 存 所 有 模拟 退火 法 的 应 用 场合 中 ,足够 缓慢 ”-- 词 的 舍 意 根据 问题 的 不 同 吉 以 专 
相当 大 的 细微 区 别 ,内 而 成 功 与 否 往往 取决 于 如 火 进程 选 择 , 下 面 几 种 可 能 性 我 们 认为 值得 
一 试 : 

“每 经 过 zm 步 移动 之 后 ,将 T 减 到 (1.-e)7 ,这 里 exym 的 具体 值 要 通过 实验 确定 ; 

” 设 总 的 移动 步 数 为 天 ,每 经 过 入 步 移动 立 后 将 了 天 到 Te01 一 克 玉 ) ,其 中 由 为 到 

目前 为 止 所 经 过 的 步 数 的 票 加 值 .a 为 一 常数 ,可 取 为 1.2,4 等 ve 的 最 佳 值 取决 二 各 
种 深度 的 相对 于 极 小 的 统计 分 布 , 稍 大 一 些 的 值 在 较 低 温度 时 , 需 化 费 的 迁 代 次 数 
将 更 多 ; 

， 每 经 过 六 步 缀 移动 之 后 , 置 了 为 8 乘 一 户 , 其 中 及 为 一 个 阶 数 为 1 的 常数 ,其 具体 

信 由 试验 确定 :大 为 目前 单纯 形 中 最 小 的 丽 数 值 ;A 曾经 遇 到 的 最 佳 函 数 .但 应 注意 
的 是 ,了 的 降低 帽 度 一 次 不 要 超 过 某 个 分 数值 y。 

另 一 个 策略 方法 上 的 问题 是 , 当 单纯 形 的 某 个 顶点 被 放弃 并 让 位 于 * 永 远 的 最 佳 点 "时 ， 
是 和 否 需 要 来 取 重 新 开始 的 步骤, (但 我 们 必须 保证 在 进行 这 项 工作 时 ,这 个 “永远 的 最 佳 点 ” 
当前 并 不 在 单纯 形 中 !) .对 于 有 些 问题 重新 开始 (例如 ,只 要 漏 度 降低 了 因子 3 即 执行 重新 开 
始 步 又) 的 效果 极 佳 ; 而 对 于 另外 一 些 问 题 ,重新 开始 不 仅 没有 任何 效果 反而 会 产生 负 作用 ， 
上 壕 两 种 截然 相反 的 情况 ,我们 都 找到 了 例子 可 以 作为 例证 。 

将 下 面 的 程序 amebsa 同 第 10. 4 节 中 与 之 相应 的 amoeba 进行 比较 ,你 会 发 现 ,参数 tter 
的 使 用 方式 在 两 个 程序 中 略 有 不 同 。 

##jnclude 扫 math-h> 遇 

杠 include "nrtutil. hy 

##dejine GET 一 PSUIM \ 2 

fcr 人 一 15n<< 一 ndimgh 一 十 ) 人 
ES sum 十 一 b[m][n]iN 


extern long idutm 册 主 程序 定义 和 初始 值 
下 cat tt 与 amorsa 进行 通信 


void amebsa [float * xpby float y[]， int ndimy float pb[ ,toat * yb, float ftol， 
float〔《*# funk)](hoat [jint xiter,float temptr) 


用 模 扫 进 火 与 Nelder,Mead 的 下 降 单 缉 形 法 祖 结 合 的 方法 求 多 元 函数 funk(x) 的 极 小 人 ,其 中 x[L1.. ndim- 为 一个 

ndim 维 向 量 . 作 为 输入 参数 的 拓 阵 [1 ndimtt][1..ndim] 共 有 ndim 一 1 后 ,每 行 均 为 一 个 rdire 继 向 量 ,分别 代 表 

切 始 单纯 形 的 香 个 顶点 amebsa 的 输入 项 还 包括 汞 量 y[1. .ndim 十 1]、 浊 点 数 ftol 以 及 iter 和 temptr, 其 中 y 的 各 

个 元 素 将 宅 初 始 化 为 因数 funk 在 了 的 ndim 十 1 个 顶点 (即行 ) 的 导 ;ftol 为 孙 数 值 所 要 达到 的 相对 收效 容许 归 . -月 
* 386“。 包 








油 足 要 求 ,程序 将 尽早 返回 ;itet 和 :emptr 的 意义 分 别 是 画 孝 值 的 半 押 次数 和 温度 ,得 序 在 其 退 火 温度 temptr 处 进 
行 iter 次 函数 值 计算 后 返 加 ,而 接 下 夹 要 做 的 事 就 是 根据 退火 进 释 请 低温 度 temptr, 重 定 iter 并 再次 调用 该 程序 
(每 次 调用 时 其 他 委 数 保持 不 变 ) ,如 果 iter 以 正 倩 返 回 , 则 说 风 焉 庄 正 常 收 策 . 妇 果 第 一 交 调 用 时 yb 被 初始 化 为 - 
个 很 太 的 数 , 风 yb 和 ph[1..ndimJ 赂 依次 运河 已 通 到 的 最 佳 函 数值 和 顷 佳 点 "这 个 最 佳 点 可 以 永 近 不 基 弟 纯 形 中 
的 点 


filoat amotsa(float * spB，fioat y[ ,了 ipat psumi]，int ndimy float ph[i]， 
float x yb fioat《* fungytiloastr T])，int ihi，float *yhi、 foat fec)3 

foac rarlklong *idum); 

int ivihivile,jmvnymprs 一 hidm 一 | 

有 oat rtolysumyswapyyhivyle,ynhiysaveyplyytryy，+psum; 


psum 一 vector(] :zkjieaty; 
性 一 一 emptr; 
GET PSUM 
for 6 
je 一 1; 确定 最 高 芯 ( 即 养 点 ) .次 高 点 和 是 低 点 ( 即 最 佳 点 ， 
jibi 一 2 
ynhi 一 yio 一 y[ 十 tt log(ranl(&idum)3y; 我 们 所 ”看 到 "的 顶点 总 是 处 于 随机 的 热 起 伏 状 态 
ybi 一 y[2. 十 ttL* logCranltbiqurm) 7)# 
上 (ylo 之 yhiy ! 
ihi 一 1; 
ilo 一 24 
yn 二 一 7hiy 
yhi 一 ylol 
ylo 一 ynhi' 


for【〈i 王 35 所 一 mptsti 填 十) 对 单 起 形 中 的 点 进行 循环 
开 一 yttw logfranlfgidamy)) 更 多 的 热 起 快运 加 
Gy < 一 ylo) 上 


ilo 一 1 
ylo 三 YL 
} 
让 (yL > yhi)y 
ynhi 一 yzhiy 
ihi 一 1 
yi 一 yt 
， else it Cyr > ynhi) ! 
ynhi 一 yt; 
} 
ttOl 一 2.0r iabskyhj 一 mo)7rfabs(yhi)y 十 fabs 【zlo)75 计算 从 熏 高 点 到 县 低 点 的 范围 ,车 合 平 要 未， 
则 返回 
这 《rtol < ftol | xiter < 0) 1 者 返回 ,将 最 性 点 和 最 佳 值 放 人 模 1 中 
swap 一 ?[]]; 


y[1]=y[ile]; 

y[ic 一 swap， 

for (a 一 1fn< 必 一 ndimyn 十 十 ) : 
swap 一 p[1J[n》 
p-1]j[n- = 一 p[ile]Fn]y 
bile][Ln -一 swap; 


breaky 
} 
*w iter 一 一 2 开始 新 的 … 轮 近代 , 首 移 从 高 点 通过 单 久 形 的 老 机 , 以 因子 
一 1 做 外 播 , 即 从 高 点 对 单纯 形 进 行 反射 ， 
ytry 盖 arrotsa (byvpsufmtyrndiriypb:ybyFunk,ihiy&yhi, 一 1.0); 
让 (ytry 窒 一 ylo) 1 得 到 了 七 最 佳 点 还 村 好 的 缚 果 ? 央 此 用 关节 2 哥 像 一 一 次 外 推 
ytry 一 armmntsaspy ypstmsndiniybbyyb funkiihiygyhi,2.D); 
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上 else 这 (ytry 全 = ynhiD { 反射 后 的 点 五 如 次 识 点 ,内 此 需要 找 一 个 中 县 的 和 点 
央 做 一 次 一 维 收 第 
ysavwexyhi; 
ytf7 一 ameatsafpyyspsumvndim pb,ypbfunkihi, 屿 yhi,0,S)3 
i 计 《ytry > 一 ysave》 ! 似乎 无 法 准 脱 高 点 , 明 好 围绕 有 最低 点 也 印 最 供 点 .此 洒 梭 帝 
for xi 一 Li 一 mptsii 十 十 )》 | 
itil= io ! 
for(〈j= 王 1H<ndimi 十 十 
paum[ 写 一 0.5x (pf - 开 十 Lo3iji]); 


PITD 站 = psurrf 


7[ 门 二 (xx funk)fpsumy); 


} 


# iter 一 一 ndimy 
FT 工 PSUYXM 重新 计算 3SUm 
上 
else 十 十 (#iter)5 记 世 洁 数 器 


4 
free-vyectorfpsur ,1vndimy) 


并 include < 拓 math.h 
并 jnclude ”nrutil. hb” 


extetn long 刘 umy .由 在 上 让 可 序 中 定义 和 富 始 版 依 
oOxtetnm 下 oat tt 本 3 在 amobhsa 中 定 文 


float armotsatfftloat *# #+Dp， oar y[ ,float psum[]、int ndim, ioat pb[-， 
引 loat * yb, float (< fiunkytfloat [jint ihiy fioat xyhi， float fac) 
从 高 卡通 过 单 钙 形 的 表面 ,以 因子 fae 作 外 推 , 姑 果 禄 到 的 新 点 较 好 ,由 用 它 取 代 高 京 。 


{t 
革 ioat rarltiong * idumy: 
int 外 
float faclyfac2yflu,ytryy，x Ptty1 


Ptry 一 vector(lyndim)i 
facl 盖 (1.0 一 fac)rndim 
fac2=*faclt…faci 
for j 王 1 一 ndimbj 十 十 ) 
ptry[j 和 =peum[j] * fac1 一 PLihi 儿 jj]x fac23 
ytry 一 5《#funk)(Cptry)3 
ii (yrry 扫 一 *yb) { 存储 至 今 最 好 扩 
fcertj 一 15j 近 一 ndqimjj 十 十 ) pb[j] 一 ptry[j] 
# yb 一 yy1 
》 
yfiu 一 yty 一 tt w [og(ttanl(gidum))1 我 们 曾经 对 所 有 的 当前 顶点 斌 加热 起 伙 运 三 
it fyflu < wyhil { 但 这 蛙 我 们 要 焉 少 热 起 恢 , 目 的 是 给 单纯 形 
y[ihi]=ytryi 个 热 布朗 运动 ,就 拿 控 受 任 何 提议 的 变化 一 样 
#yhi- 一 yflu) . 
for 日 =17< 忆 一 hdimaj 十 十 ) 
psum[ 让 十 一 ptry[j] 一 pEihi [j]; 
p[ihi] 订 盖 Ptry[ 订 * 
} 
free~vectorT(KptryiIindimy)s 
returh yflu) 
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模拟 退火 法 在 优化 方法 中 将 处 于 什么 样 的 地 位 、 纷 演 什么 样 的 角色 ?对 于 这 个 乒 题 目前 
还 设 有 足够 的 实践 经 验 来 明确 回答 它 。 但 是 这 种 方法 确 有 几 个 极为 帝 人 注目 的 特点 ,与共 他 
优化 技术 相 比 显得 尤其 突出 ， 

首先 ,这 种 方法 不 象 “ 急 功 近 利 的 小 人 "那样 表现 * 俩 材 ", 也 就 是 说 , 它 能 迅速 求 出 其 些 
局 部 极 小 值 ,但 那些 实际 上 是 不 利 的 极 小 值 并 不 会 竹 易于 当 , 假 如 给 定 一 些 足够 “ 般 的 重 枸 
形 , 这 种 方法 会 在 深度 小 于 工 的 局 部 极 小 信之 间 卓 由 地 游 动 。 当 了 值 降 低 , 这 些 只 备 频 访 
问 条 件 的 极 小 值 的 数目 也 将 逐 泊 减少: 

第 一 点 ,这 种 方法 中 有 关 构 形 的 判定 是 趋向 于 以 种 合乎 逻辑 的 顺序 进行 的 : 涯 狐 市 参 
数 了 很 大 时 ,那些 引起 最 大 能 其 差异 的 诸多 变化 将 被 迄 去 .7 减 小 时 ,这 些 判 定 就 变 得 更 但 
定 , 相 应 地 ,算法 将 注意 力 就 更 多 地 转向 解 的 绞 精 细 的 改进 方面 ,例如 ,在 旅行 捧 销 员 问 题 
中 ,如 果 密 西 比 河 迁 加 于 旅途 之 中 ,而 卫 和 值 很 大, 那么 ,在 很 高 的 工 值 卜 , 具 能 做 出 跨 河 两 
次 的 判定 ,而 位 于 跨 河 两 岸 的 “ 些 特定 路 径 只 能 在 稍 后 的 步骤 中 才能 确定 下 来 。 

以 热力 学 原理 为 借鉴 的 方法 远 不 止 我 们 所 讨论 的 这 些 内 容 , 它 们 还 可 以 推广 到 更 广泛 
的 应 用 领域 ,我 们 可 以 定义 一 些 与 特定 热 基 和 丧 类 伏 的 量 , 这 些 量 对 于 监测 算法 癌 其 个 可 接 
受 解 逐步 接近 的 过 程 是 很 有 帮助 的 .关于 这 些 内 容 的 讨论 该 者 可 参考 [1 中 的 介绍 ， 
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第 十 一 章 “” 特征 系统 


11.0 引言 


一 个 NXxRN 阶 矩阵 A 如 果 满 足下 式 , 则 它 具 有 一 个 特征 量 x 和 相应 的 竺 处 值 ， 
入 。X 一 大 《11.D.1) 
显然 ,特征 量 x 的 任意 倍数 也 是 特征 向 量 , 但 我 们 不 认为 这 样 的 倍数 旦 不 同 汐 特征 向 量 ( 稚 
向 基 也 不 认为 是 特征 向 基 ) .显而易见 , 仅 当 在 满足 下 式 时 , 式 (11.0, 1) 才 成 立 ; 
det 上 一 外 | 一 0 《1 2) 
如 上 昔 展 开 上 式 ,就 可 得 到 -个 N 阶 多 项 式 , 其 根 就 基 特 征 值 . 这 也 证 明了 总 存在 N 个 特征 
值 ( 不 一 宇 是 不 同 的 ) .来 自 于 重 根 的 相同 的 特征 值 称 为 秽 化 .用 特征 方程 求 根 的 方法 来 求 特 
征 什 ,这 不 是 好 的 计算 方法 .本 章 我 们 将 学 习 一 些 更 好 的 方法 ,以 及 寻找 对 应 的 特征 量 的 有 
效 方法 。 
上 面 两 式 同 样 说 明 在 六 个 特征 值 中 ,任意 一 个 特征 蔓 都 有 一 个 (不 一 定 是 不 同 的 ?对 应 
的 特征 向 量 : 如 果 4 确定 为 某 特征 值 , 则 扼 阵 A 一 验 总 奇异 的 ,而 我 们 知道 ,每 个 奇 措 矩阵 在 
它 的 零 空间 里 至 少 有 一 个 非 零 向 莉 ( 参 见 第 2, 9 节 关 于 奇异 值 分 解 ) 。 
如 果 将 式 (11.0. 1? 两 边 加 上 , 则 很 容易 发 现 ,任意 矩阵 加 上 一 个 常数 z 乘 以 单位 矩阵 
乒 得 到 的 乱 阵 ,就 将 相应 的 特征 值 改变 或 平移 了 一 个 常数 r, 在 这 种 平移 下 ,特征 向 量 不 变 . 
我 们 将 会 看 到 ,这 种 平移 特征 是 很 多 计算 特征 值 算法 中 的 重要 内 容 ,我 们 同样 看 到 , 零 特 入 
值 没有 什么 特殊 的 意义 。 任 何 特征 值 都 可 通过 平移 成 为 零 特征 值 ,或 者 零 特 征 值 平移 成 为 非 
零 特 征 值 。 


11.0. 上 定义 和 基本 事实 


一 个 符 阵 如 果 等 于 它 自 身 的 转 别 , 则 称 为 是 对 称 的 : 
和 一 上 残 ep 一 ee 《12.0.3) 
如 果 一 个 矩阵 等 于 和 白 身 转 置 的 复 共 和 ( 它 的 埃 尔 米 特 共 三 ,用 ”+ ”表示 ), 则 称 它 为 埃 尔 米 
特 (Hermitian 的 或 自 贺 的 


入 一 和 或 op 一 (11.C, 4 
如 果 年 阵 的 转 置 等 十 它 的 逆 , 则 称 它 为 正 变 的 : 
Ar 和 一 和 7 一 1 《1].0.5) 


如 果 和 矩阵 的 埃 尔 特 共 鱼 等 于 它 的 首 , 则 称 它 为 画 矩 阵 . 最 后 ,如 果 一 个 扎 阵 与 它 的 埃 尔 米 特 
共 斩 可 以 交换 , 则 称 它 为 正规 的 ; 
在， 砚 ” 一 上 。 丰 (11, 7.6) 
对 于 实 矩阵 来 说 , 埃 尔 米 特性 和 对 称 性 是 同一 的 . 西 正 性 和 正 父 性 是 同 ~- 的 ,前 旨 这 廿 类 不 
辐 的 攻 阵 都 是 正规 的 。 
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和 抢 阵 的 " 埃 尔 米 特性 ?在 矩阵 特征 值 问题 中 的 重要 性 ,在 于 埃 尔 米 特 纶 阵 的 特征 值 部 是 
实 的 .相反 地 , 实 非 对 称 乱 阵 的 特征 值 可 能 包含 实 值 , 也 可 能 包 令 成 对 的 复 共 二 值 .而 对 十 埃 
尔 米 特 的 复 托 阵 米 说 ,其 特征 值 一 般 者 是 复 的 。 

“正规 的 ?这 一 概念 在 特征 值 何 题 中 是 很 重要 的 ,因为 具有 非 返 化 特征 值 ( 不 同 的 ) 的 正 
规 符 阵 的 特征 六 量 是 完备 正 交 的 ,它们 可 张 成 一 个 六 维 的 向 晤 空间, 对 于 具有 退化 特征 债 
的 正规 气 阵 ,我 们 可 以 将 对 应 于 退化 特征 值 的 特征 向 量 进 行 线 生 组 合 来 代 蔡 它 的 特征 向量 。 
利用 这 一 原则 ,我 们 总 可 以 从 格 兰 姆 - 施 密 特 (Gram-Schmidt) 正 交 化 方法 (参阅 任意 - -本 线 
性 代数 书 》, 找 到 一 组 完备 正 交 的 特征 向 基 , 就 象 非 退 化 的 情形 一 样 . 若 矩阵 各 列 是 正 交 的 特 
征 向 量 集 , 则 显然 这 竹 阵 是 此 垂 阵 。 一 种 特殊 的 情形 是 ,由 实 对 称 矩 阵 的 特征 向 基 爸 成 的 征 
阵 是 赴 交 的 ,因为 该 矩阵 的 特征 向 重 都 是 实 的 ， 

如 果 - 个 矩阵 是 非 正 规 的 ,如 任何 随机 非 对 称 的 实 矩 阵 : 则 一 般 不 能 找到 任何 一 组 规 一 
化 正 交 的 特征 向 量 , 甚 至 不 能 找到 任何 一 对 正 交 的 特征 向 量 (除非 出 于 偶然 )。 这 六 个 非 规 

-化 正 交 的 特征 向 最 “常常 "能 张 成 一 个 N 维 回 量 空间 ,但 不 是 总 能 这 样 做 ,也 就 是 说 ,这 些 
特征 癌 量 不 总 是 完备 的 。 这 样 的 矩阵 称 为 是 亏损 的 . 


11.0.2 左 特 征 向 量 和 右 特征 向 量 


非 正 规矩 阵 的 特征 向 量 不 能 保证 它们 之 间 是 正 交 的 ,但 它们 却 与 另 一 组 我 们 将 时 定义 
的 向 量 有 正 交 的 关系 .迄今 为 止 , 我 们 提 到 的 特征 向 量 都 是 满足 式 (11. 0 1) 与 矩 活 A 右 浅 
的 列 向 量 。 更 准确 地 讲 , 应 称 这 些 向 量 为 右 特 征 向 量 . 我 们 同样 可 以 发 现 ,满足 下 式 的 左 乘 以 
矩阵 A 的 行 向 重 ， 

x，, 息 一 人 (11.9.7) 
这 样 的 向 量 称 为 左 特征 向 量 . 将 式 (11,0. 7) 两 边 取 转 置 ,我 们 可 得 , 左 特 征 向 量 就 是 A 转 置 
的 右 特 征 向 量 的 转 置 .现在 与 式 (11.6.2) 比 较 , 并 且 利用 矩阵 的 行列 式 等 于 其 转 置 的 行列 式 
这 一 事实 ,显然 左右 的 特征 值 是 恒 等 的 。 

如 果 乱 阵 & 是 对 称 的 , 则 左右 特征 向 量 从 好 是 互 为 转 置 ， 也 就 是 说 ,分 量 的 数值 是 相 
同 的 .相似 地 ,如果 矩阵 是 自 季 的 , 则 左 、 右 特征 向 量 是 互 为 埃 尔 米 特 共 鱼 的 .对 于 一 般 的 非 
正规 情形 ,我 们 有 如 下 的 计算 : 令 Xs 表示 为 出 右 特征 向 量 按 列 排列 形成 的 矩阵 ,X, 表示 为 
由 左 特 征 向 量 按 行 排列 形成 的 矩 血 , 则 式 (11.0. 1) 和 (11.0. 7) 可 重 写成 

点， 惧 R 一 XpR。diagfai An) 

Xr 和 一 diag(hh, hv)。 

将 前 一 式 两 边 左 铺 以 Xi ,将 后 一 式 两 边 右 姜 0 
《其 [ss)。diag(Al-..Av) 一 diag(A，， 4 《其 ，XR) 111.0.9) 
这 说 明 左 右 特 征 向 量 之 点 积 构成 的 矩 体 0 但 是 ,只 有 对 角 和 矩阵 
本 身 和 具有 相 异 元 素 的 对 角 和 矩阵 才 可 以 交换 ,因而 ,如 果 特 征 值 是 非 退 化 的 , 则 左 特征 向 重 
除去 所 对 应 的 右 特征 向 量 以 外 ,应 是 与 所 有 右 特 征 向 量 相互 正 交 的 ,反之 亦 然 ,通过 妥 一 化 ， 

对 于 任何 非 退 化 特征 和 值 的 矩阵 来 说 ,相对 应 的 左 . 右 特 征 向 量 点 积 总 可 以 成 为 单位 -一 
“如 内 特 征 值 是 退化 的 , 则 与 退化 特征 值 相 对 应 的 左 , 右 特征 向 量 都 必须 进行 线性 组 合 ， 
才能 得 到 分 别 与 左 或 右 特征 向 基 的 正 交 性 .这 总 可 以 通过 一 种 燃 似 于 格 兰 姆 - 施 密 特 止 交 北 
方法 的 过 程 来 实现 于 是 可 以 调整 归 一 化 的 方法 ,就 可 以 使 对 应 的 左右 特征 向 量 的 非 零点 积 
” 39] 。 


《11.5.&) 


成 为 单位 一 .如 果 对 应 的 左右 特征 向 量 的 点 积 为 零 , 则 说 明 这 样 的 特征 向 量 是 不 完备 的 : 江 
意 , 不 完备 的 特征 向 基 只 有 在 退化 特征 值 的 情况 下 出 现 , 但 在 这 种 情况 下 ,也 并 不 总 基 如 此 
(事实 士 , 对 于 "正规 的 ”矩阵 就 次 不 会 发 生 ) .详细 讨论 参 包 文献 [1]。 

不 管 是 退化 或 非 退化 的 情形 ,最 后 对 于 丰 零 点 积 的 归 一 人 产 生 如 下 结果 : 如 果 道 答 阵 
存在 钓 话 , 诺 特征 向 量 按 行 构成 的 矩阵 是 有 特征 向 量 按 询 构成 的 抢 阵 的 逆 。 


11.0.3 和 拖 阵 的 对 角 化 
将 式 (11.0.8) 的 第 -- 式 左 乘 Xr, 并 利用 Xr 和 慌 提 为首 惠 阵 ,得 到 


XR AAA，Xn 一 diag( 和 ,hv) (11.5.10) 
这 是 对 矩阵 A 的 相似 变 柳 的 - -种 特殊 情形 : | 
A 一 工 :AZ (1.5. 11) 


其 中 Z 是 某 个 变换 拖 阵 .相似 变换 在 特征 计算 中 起 着 决定 性 的 作用 ,办 为 相似 变换 不 改变 
一 个 矩阵 的 竺 征 值 .这 很 容易 愉 以 下 推导 看 出 
det'Z-1 AZ 一 Mi 一 detlZ (AAA 一 AM) :2Z| 
一 del 立 | dt; 和 一 AL det| 于 | 《11.58.121 
一 det| 权 -- AI 
式 (11.0, 10) 说 明 , 任 何 具 有 完备 特征 向 量 的 称 阵 (包括 所 有 正规 矩阵 和 “大 多 数 ” 随 机 非 正 
规矩 阵 》, 可 以 通过 相似 变换 而 对 角 化 ,实现 对 角 化 的 变换 夭 阵 之 列 就 是 右 特 征 向 量 ,而 亡 的 
道 短 阵 之 行 就 是 左 特 征调 量 。 
对 实 对 称 官 阵 来 说 ,特征 向 量 是 实 的 并 且 是 规 一 正 交 的 ,因而 变换 矩阵 是 正 交 的 。 昕 以 
这 一 由 似 变换 也 是 一 种 下 列 形式 的 正 交 变换 : 
和 一 了 和 Z 《11.0.12)》 
实 的 非 对 称 性 矩阵 可 以 通过 它们 的 完备 特征 向 量 进 行 对 角 化 ,但 变换 捧 距 不 一 定 是 实 的 . 实 
际 情 况 是 ,一 个 实 的 相似 变换 可 以 “基本 上 ?实现 对 角 化 。 它 可 以 将 矩阵 简化 到 沿 主 对 角 线 只 
有 一 些 两 行 两 列 的 小 块 ,而 其 它 部 分 元 束 皆 为 零 . 每 一 个 两 行 两 列 的 小 块 对 应 一 对 复 共 辆 的 
复 特 征 值 。 在 这 一 章 的 以 后 部 分 将 会 看 到 利用 这 一 思想 的 一 些 程序 。 
几乎 所 有 现代 特征 系统 的 计算 程序 的 “重大 策略 ,都 是 通过 一 系列 相 估 变换, 将 于 阵 入 
接近 对 角形 式 ， 
点 一 了 PriAv.pb 一 Pr PT vaA'.P，P， 
一 prl.pir. pr. AP .PP -~ 等 
如 果 最 终 得 到 了 对 角形 式 , 则 特征 向 量 是 总 变换 的 列 向 量 
一 P.，P:。，P ，,,， 《11.0.15) 
有 时 :我们 不 移 要 一 真 变换 成 对 角形 式 . 例 如 ,我 们 只 关心 特征 值 而 不 是 特征 向 量 ,那么 ,将 
矩阵 A 变 成 三 角形 式 已 经 足够 了 , 即 对 角 线 以 下 (或 以 上 ) 的 元 素 都 为 零 。 在 这 种 情况 下 , 对 
角 元 夭 已 经 是 特征 值 了 ,这 可 以 通过 将 式 (11. 0. 27, 用 子 行列 式 展 开 来 验证 。 
有 两 组 不 同 的 技术 可 以 用 来 实施 上 上 述 重 大 策略 式 (11. 0. 14) .实际 上 ,它们 联合 起 来 使 
用 效果 最 好 ,所 以 大 多 数 现代 特征 系统 程序 都 使 用 了 这 丁 组 技巧 .第 一 组 技巧 是 ,由 -一 系 现 
用 来 完成 不 同 特殊 功能 的 “原子 ?变换 P, 构成 ,例如 将 某 一 特定 非 对 角 元 穴 零 化 ( 雅 可 比 
Jacobi) 变 换 ,第 11. 1 节 ); 或 将 某 一 特定 的 整 行 或 整 列 宁 化 ( 讲 斯 贺 德 (Householder) 变 换 ， 
“392。 
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第 11. 2 节 ; 消 去 法 ,第 1i.5 节 )。- 股 山 光 ,有 限 次 这 样 的 简单 变换 不 能 将 整个 矩 贬 对 角 化 .于 
是 让 两 种 选择 ,或 者 用 有 限 次 这 种 变换 完成 大 部 分 约 化 工作 (例如 ,转化 成 -- 些 殊 如 三 对 角 
形 或 海 森 伯 格 (Hesscnhbcrg ) 的 特殊 形 信 ) ,然后 再 司 用 将 要 提 到 的 第 二 组 技术 :或 者 反复 应 
用 这 一 系列 有 限 次 简单 的 变换 ,直到 矩阵 与 对 角形 式 之 问 的 莽 别 可 和 忽略 .这 后 -种 方法 在 概 
念 上 最 简单 ,所 以 我 们 将 在 下 -… 节 中 讨论 它 . 具 管 如 此 ,对 于 N 大 于 一 10, 这 种 方法 在 计算 
上 的 非 有 效 性 大 约 有 常数 因子 一 5, 所 以 效率 很 低 。 

第 二 种 更 加 精巧 的 技术 称 为 因子 分 解法 .假设 拭 阵 A 能 被 分 解 成 一 个 左 因 千 区 和 一 - 
个 右 因 子 Ex , 则 


和 = 了 Te 或 等 价 地 FI 和 一 Ts (11.0.316) 
妇 果 我 们 将 这 两 因子 变换 相 乘 ,并 利用 式 (11. 0. 16) 中 的 第 二 式 ,得 到 
le hy Er ，Avkr (11.0.17) 


上 式 可 以 看 作 是 对 A 进行 了 一 个 相似 变换 ,其 变换 矩阵 是 Fz! 在 第 11. 3 节 和 第 11. 6 节 中 我 
们 将 讨论 体现 这 种 思想 的 QR 方法 、 

分 解 因 子 法 同样 地 不 能 妤 过 有 了 腿 次 变换 就 准确 地 收 伍 ,但 某 一 些 较 好 的 因子 分 名 法 确 
能 更 快捷 而 可 车 地 收敛 ,并 且 当 伴随 了 一 个 使 用 简单 相似 变换 的 适当 的 初始 简化 时 ,它们 则 
是 应 选择 的 方法 。 


141.0.4 “成 品 化 特征 系统 程序 的 特征 系统 软件 包 ” 


现在 ,读者 可 能 局 经 意识 外 ,特征 系统 的 求解 是 个 很 复杂 的 问题 确实 如 此 ,这 正 是 本 书 
所 涉及 的 少数 凡 个 主题 中 的 一 个 .关于 这 个 主题 ,我 们 建议 使 用 已 成 员 化 的 程序 .本章 的 目 
的 是 ,要 正确 地 告诉 读音 这 些 成 品 化 程序 的 内 部 工作 情况 ,以 便 使 你 在 使 用 它们 时 能 审 愤 地 
在 出 选择 ,并 且 当 出 现 错误 时 能 明智 地 予以 判断 。 

当今 几乎 所 有 的 成 品 化 程序 都 可 以 追 斋 到 它们 的 前 身 , 即 克 ilkinson 和 Reinseh 发 表 
的 kt 自动 计算 手册 ,第 二 卷 , 线 性 代数 》CPanagoog or 4ztoreattc Comtztttatiorty of 工 ,Fn- 
ear 418ge8ra)t 中 的 程序 .这 一 本 包含 了 许多 位 作者 论述 的 出 色 参 考 书 , 它 们 是 这 ~ 领域 的 
圣经 手册) 中 公开 部 分 的 FORTRAN 程序 是 EISPACK 程序 集 汪 。 

本 章 中 程序 都 征 从 k 手 册 }? 或 EISPACK 中 的 程序 转译 过 来 的 ,所 以 理解 了 这 些 程序 将 
会 有 助 于 增进 对 那些 典型 软件 包 的 理解 

IMSL 和 NAG- 都 提供 了 用 FORTRAN 编写 的 专用 程 享 的 实施 ,这 些 程序 基本 上 是 
《手册 } 中 的 程序 。 

一 个 好 的 “特征 系统 软件 包 ? 将 提供 进行 如 下 所 需 计 算 的 不 同 的 程序 或 途径 ， 

* 所 有 的 特征 值 但 不 求 特征 向 量 

”所 有 的 特征 值 和 某 些 对 应 的 特征 向 量 

“所 有 的 特征 值 才 所 有 半 应 的 特征 向 量 

区 别 这 些 的 目的 是 为 了 节省 计算 时 间 和 人 在 储量 ,计算 那些 并 不 够 要 的 特征 向 量 是 很 浪 
费 工 时 的 .人 们 经 常 只 需 知 道 几 个 最 大 的 或 几 个 绝对 值 最 大 的 、 或 用 个 负 的 特征 值 所 对 应 的 
符 征 向 量 . 如 果 只 需要 不 到 总 数 四 分 之 “的 特征 向 量 ,那么 采用 计算 这 些 部 分 特征 向 量 的 方 
法 要 比 计算 所 有 特征 向 量 的 方法 更 为 有 效 。 

个 好 的 特征 系统 软件 包 除 了 可 以 分 别 解决 上 述 不 同 问 题 外 ,还 应 分 别针 对 下 列 不 同 
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类 型 的 矩阵 : 

， 实 、 对 和 陈 .三 对 角 型 多 阵 

， 实 、 对称 、 带 状 ( 只 有 少数 次 对 角 或 超 对 角 元 素 是 非 零 的 ?矩阵 

， 实 .对称 和 宅 阵 

， 实 . 非 对 称 矩 芽 

， 复 . 埃 尔 米 特 矩阵 

` 复 , 目 才 尔 米 特 矩阵 

区 分 这 样 的 目的 局 翌 是 为 了 节省 时 间 郑 序 屠 量 。 它 是 通过 采用 在 任何 特定 应 用 中 都 适 
用 的 最 依 通 用 程序 来 达到 这 个 日 的 的 。 

和 面 ,我们 给 出 实施 有 关 直 述 同 题 的 优秀 程序 所 处 的 章节 。 

计算 实 对 称 二 对 角 雹 拭 阵 的 所 有 特征 值 和 特征 向 量 ( 第 11. 3 节 ? 

， 计 算 实 对 称 矩 阵 的 所 有 特征 值 和 特征 向 量 ( 第 11, 1 节 一 第 11. 3 市 ) 

"计算 复 埃 尔 米 特 抢 阵 的 所 有 竺 征 值 和 特征 向 量 (第 11. 4 他) 

”计算 实 卡 对 称 和 矩阵 的 所 有 特征 值 , 不 计算 特征 向 量 (第 11. 5 节 一 第 11. 6 节 ) 

我 们 也 将 在 第 11.? 节 中 讨论 如 何 用 逆 迭 代 的 方法 求 得 非 对 称 盾 阵 的 某 些 特征 向 量 


11.0.5 广义 的 和 非 线 性 特征 值 问题 
许多 特征 系统 程序 包 还 可 以 处 理 所 谓 的 广义 特征 向 题 ， 


和 站。 和 一 人 人 B.X 《1 1g) 
其 中 上 和 有 B 者 是 第 阵 。 在 很 多 这 类 问题 中 ,了 B 是 非 奇 异 的 , 它 能 用 上 向 等 式 处 理 : 
(B-: 上)。X 一 AX 《11.5C. 19)》 


通常 各 和 B 是 对 称 的 ,并 且 昌 是 王 定 征 阵 , 在 式 (11. 0. 19? 中 和 卸 阵 8 :4 是 非 对 称 扼 阵 , 担 
可 以 通过 采用 第 2, 9 节 中 乔 菜 斯 基 (Chlisky) 分 解 B 一 L'L7 方法 ,将 它 转换 成 对 称 特征 值 问 
题 .: 式 (14.0. 18) 乘 以 L 上 ,得 

(LT 。xX) 一 AL X) 141.0.202 
其 中 

人 一 下 1 (LI7 《11.0.217 

抢 阵 C 是 对 称 的 并 且 与 原 阿 题 式 (11.n. 18) 有 相同 的 特征 值 . 它 的 特征 函数 是 L7.x. 构 成 开 
和 矩阵 的 有 效 方法 是 ,首先 求解 方程 


下。L7 =: 各 《11.0.227) 
得 矩阵 YY 的 下 三 角 元 总 ,然后 , 对 于 对 称 窍 阵 C 的 下 三 角 元 素 , 可 通过 求解 
L CC 一 了 《1]1.0.235)》 
另 一 类 广义 的 标准 特征 值 问 题 是 特征 值 4 中 的 非 线 姓 问题 ,例如 ， 
(生生 十 BA 二 C)，X 一 0 《11.0,24) 


这 类 问题 可 以 通过 引入 - -个 附加 的 未 知 特 外 向量 y, 并 求解 2NX2N 醒 特 征 系 统 , 而 转换 成 
线性 问题 .这 个 特征 系统 是 
0 
一 Alve 一 中 中 = 一 时 《11.0,257) 
这 类 技术 归纳 为 4 的 高 阶 问 题 .M 阶 多 项 起 产生 线性 能 MIY XJN 阶 特征 系统 (参见 [7?》: 
"394。 
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11. 1 对称 矩阵 的 雅 可 比 变换 


雅 可 比方 法 是 由 一 系列 形式 (11, 0. 14) 的 正 交 相似 变换 组 成 的 每 一 步 变换 ! 雅 可 比 旅 
转 ) 是 用 来 将 某 一 非 对 角 元 素 零 化 的 平面 旋 较 ,相继 的 变换 会 把 以 前 已 经 索 化 的 元 素 再 赋 
值 ,尽管 如 此 , 非 对 角 元 素 会 变 得 越 来 越 小 ,直到 在 机 器 的 精度 内 和 挎 阵 对 角 化 -将 所 有 变换 畦 
乘 起 来 ,就 得 到 特征 向 量 的 矩阵 (如 式 (11.0. 45) 的 形式 ), 而 最 终 对 角 化 矩阵 的 对 角 元 素 就 
是 特征 值 。 

对 所 有 实 对 称 矩 阵 来 说 , 雅 可 比方 法 是 非常 简单 易 行 的 .但 当 和 矩阵 维 数 大 十 10 以 后 ,这 
种 算法 将 会 以 一 个 显著 的 常数 因子 慢 下 来 (与 第 11. 3 节 中 将 要 介绍 的 QR 方 攻 相 比 较 )。 不 
管 怎样 , 雅 可 比方 法 比 大 多 数 更 有 效 的 方法 要 简单 得 多 .对 于 计算 代价 不 址 考虑 的 主要 问题 
的 场合 ,并 且 维 数 适 度 的 矩阵 ,我 们 推荐 使 几 这 种 方法 ， 

基本 的 雅 可 比 旋转 P 是 如 下 疹 式 的 矩阵 





1 
性 $ 
P。 一 下 CU.1.1) 
= 妃 
有 本 





其 除了 在 行列 数 部 为 请 和 的 对 角 元 素 为 两 个 元 素 c 外 ,其 它 对 角 元 素 为 1 ,除去 两 个 元 素 ， 
和 一 : 外 ,所 有 其 它 非 半角 元 素 都 为 零 。 和 ，* 分 别 是 旋转 表 的 余弦 和 正弦 , 故 习 十 呈 :-1。 
一 个 式 41i, 1. 1) 的 平面 旋转 按 如 下 方式 变换 敌阵 和 
A 一 PP， 和 A，Pnm (11.1.2) 
Pa 'A 只 改变 & 的 请 行 和 9 行 ,而 APoo 只 改变 & 的 户 列 和 94 列 . 注 意 , 这 里 用 药 下 标尺 和 
9 并 不 是 指 Pm 中 的 元 素 , 而 是 用 以 表明 抑 阵 是 哪 -种 类 型 的 旋转 , 即 标明 它 所 作用 那些 行 


we 


和 列 . 因 此 , 式 (1.1.2) 中 从 被 变化 了 的 元 只 是 产 好 的 行 和 询 , 写 出 碳 下 形式 . 


Ge ] 


| 
宛 ， 吕 p 呈 痉 pm 
上航 ” 一 : ， 宝 让 本 
2 人 ah 刘 4 
L 玫 m ng 


将 式 (11. 1. 2? 乘 出 来 .并 利用 AA 的 对 称 性 ,我 们 得 到 如 下 明确 的 公式 


Crp 一 ( 们 ,一 和 Cr 


7 天 声 7 天 9 人 1 :4 
ECm 一 CUnm 十 S Crp 
azp 一 Ceapn 十 zw 一 2 eerpv 中 
aqe 一 52app Teeaty 一 28cQ1 用 罗 
Qz 一 (一 xD) 十 SCCdpp 一 cy) 1011. .3 


雅 可 比方 法 的 思想 是 ,试图 通过 :系列 平面 旋转 格 非 对 前 元 素 零 化 .相应 地 . 令 。，-6 
从 式 (11.1.7? 给 出 如 下 的 旋转 角 表 达 式 


日 二 cot29 一 


如 果 我 们 令 上 =syc,8 的 定义 可 以 重 写成 
世 十 20 一 1 一 0 (11.1.9》 
这 一 方程 较 小 的 根 对 应 着 一 个 数量 上 小 于 r/4 的 旋转 角 。 每 一 步 做 这 样 的 选择 就 可 给 
出 最 稳定 的 化 简 , 利 用 二 次 求 根 会 式 并 对 分 母 进行 选择 ,我 们 可 以 写 出 这 一 较 小 的 根 为 


站 E 
乡 8 Cg 纪 pp f]1 8 


2 
六 7 2 





二 《11.1.10) 
19| 十 Y 更 干 1 0 
如 果 如 很 大 ,以 至 于 名 将 会 在 计算 机 上 溢出 ,我们 令 :=17(2 人 ) -于 是 就 有 
1 
- 一 js 
| 
5 一 t (1.1.12) 


当 我 们 数 信 地 应 用 式 (11. 1.4)--(11.1.7) 时 ,我 们 将 它们 重 写 , 以 使 伟人 澡 差 达 介 最 
小 。 式 (11.1.7? 由 下 式 代替 

am 一 (11.1,134 
剩 下 公式 的 指导 思想 就 是 ,将 它们 的 新 值 写成 旧 值 加 上 :个 小 的 修正 .于 是 我 们 利用 式 (11， 
1,7) 和 (1l,1,13) 将 式 (11. 1.5) 中 的 so。 消去 ,得 到 


Q&pp 一 Qpp 一 经 加 (11.1.14) 
类 似 地 有 ， 
a0g 一 ae 十 1 和 《t1.1.15) 
arp 一 arp 一 SCam 语 Ferp) (11. 本 16》 
ar 一 ae 十 Sare 一 Fare)》 (11.1.17》 
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其 中 r (=tanp /2) 定 多 为 


一 TH 1,1.18) 
可 以 通过 所 有 非 对 角 元 素 的 平方 和 看 出 雅 可 比方 法 的 收 生 性 
二 Cl,1,.19)》 
由 式 (11.1.4) 至 (1i.1.7) 可 得 加 
S 一 3 -2lco (1.1.20) 


(因为 转换 是 正 交 的 ,对 角 元 素 的 半 方 和 相应 地 增加 2|a。|:。) 于 是 8 的 序列 单调 递减 .由 为 
序列 的 下 界 为 零 , 而 且 我 们 可 选择 ax, 为 我 们 所 需要 的 值 , 故 这 一 序列 可 以 收 剑 到 零 ， 
最 终 吕 以 得 到 在 机 器 精度 内 的 对 角 矩 阵 D. 它 的 对 角 元 训 给 出 原来 委 阵 A 的 特征 值 ， 
由 于 
D 一 Y7T ,和 YY (人 2 
其 中 
Y 一 P、,P 。P.，，， (11.1,22》 
P; 是 :系列 相继 的 雅 可 比 旋转 矩阵 。Y 的 列 是 特征 向 量 ( 由 于 和 .Y 一 Y.D) .它们 可 以 通过 
每 一步 计算 


YY 一 YY，,P， (11.1.23? 
而 得 出 ,其 中 最 开始 的 Y 是 原来 的 逢 阵 A。 详 细 地 , 式 (11.1. 23) 可 写成 
到 人 了) 
Pop 一 CU 一 Son 《tl1.1.24) 


Pr 一 Srp 十 Co 

也 可 象 式 (11.1. 16) 和 (11. 1. 17) 那 样 , 用 z 将 这 些 公 式 重 写 而 减 小 伟人 误差 。 

剩 于 的 唯一 问题 就 是 消 元 的 次 序 问 题 ,1846 年 雅 相 比 最 初 算 法 是 ,每 -- 步 搜索 出 答 阵 的 
上 三 角 部 分 中 的 最 大 元 素 , 并 将 其 置 为 零 。 这 对 于 手 算 来 说 ,是 … 种 合理 的 方法 :但 住 汁 算 
机 , 仅 只 寻找 最 大 元 勾 这 一 项 就 使 每 一 步 雅 可 比 旋转 的 运算 量 是 NM: 而 不 是 N， 

一 种 更 好 的 方法 叫 循环 雅 可 比 法 ,就 是 按 严 格 的 顺序 来 到 化 各 元 素 . 例 如 ,可 以 简单 地 
按 行进 行 消去 :Poe,P,… Po; 然后 P,P: 等 等 .对 于 非 退 化 特征 值 的 情况 ,原来 的 方法 和 
这 种 循环 雅 可 比 法 一 般 都 是 二 葡 收 伍 的 ,这样 一 组 z(= 一 1)72 个 雅 可 比 旋转 叫做 一 次 清扫 。 

下 面 是 基于 参考 书 " 中 的 程序 ,并 使 用 了 两 项 改进 ， 

“在 前 三 次 清扫 中 .我 们 只 对 las|>= 的 元 素 进 行 8 旋转 ,其 中 = 是 某 一 间 值 


e 一 去 号 (11.1.25) 
其 中 3。 是非 对 角 元 的 模 数 之 和 
8 一 (11.1.26) 


< 


' 四 次 清扫 之 后 ,如 果 jam 冬 |anp! ,并且 arm: 饼 law| ,我们 则 令 |zw ;=0, 并 趟 过 这 次 
旋转 .比较 的 标准 是 lam1<10 汪 2|arp ,其 中 忆 是 机 器 的 十 进 制 有 效 位 数 ,对 lao| 也 同样 
处 理 。 

在 直列 程序 中 恬 Xn 的 对 称 和 矩阵 a 存储 在 数组 a[1..nj[1..a] 中 。 输 出 时 a 的 超 对 角 元 
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素 都 已 被 估 坏 ;但 对 角 和 次 对 角 元 素 还 是 原 米 宛 阵 a 的 值 .向量 d[1..nj] 返 回 a 的 特征 值 . 
在 计算 过 程 中 它 作 存 当 前 a 的 对 角 元 素 值 . 窍 竹 vlanajLl.nj 和 给 出 归 一 化 特征 向 是, 其 中 
第 k 列 对 冰 特征 值 d[k]。 参 数 nrot 是 达到 收敛 所 需 的 斐 可 比 旋转 次 数 。 

典型 的 矩阵 需要 6 到 18 次 清扫 ,也 就 是 3 到 5 次 雅 可 比 许 转 。 每 次 旋转 载 要 4” 次 
操作 .每 次 操作 包括 乘 和 加 ,因而 总 运算 理 12*: 到 20m 量 级 的 .计算 特征 值 的 同时 若 还 需 计 
算 特 征 向 基 , 则 每 次 旋转 的 操作 数 从 4 变 成 bn 次 , 促 增 加 了 50%% 的 运算 量 ， 
共 include <math.b>> 
其 incl]ude "ntutil. hy 


#define ROTATE(Ca ij,k,1)g= 一 a[ 门 -jh=aLk]0 :asD][ 洒 一 gsYfh 十 gxtauDis 
a k][1]:=h 一 sxtg 一 hn*1au7 


void jseubitfloat < “sintnyfloat d[ ,float yx “yinr xmnrot) 


汁 算 实 对 并 提取 allnl ln 的 床 有 特征 值 和 特 竹 应 最: 输出 此 对 角 以 上 元 京 被 琶 坏 .d[]. 3] 返 轩 上 殷 料 征 
亿 , 蓉 瑟 对? 1 .nl 1 .na 的 列 是 a 然 上 旺 一 出 特 从 店 量 ,nrot 好 加 所 需 的 绯 林 比 旋转 次 数 。 


ant Jiqvip,a 
f10&8t Tesh,tbetay au as 血 ,3 .EC,sb,Zi 


D=yaectorK1,D) ; 

Z=Vecrort1,n) ; 

for 《ip=<1iip<s<niiPprt+》 攻 对 单位 拓 阵 初始 由 什 
tor 〔iqn1i;iziqc=n;iq++) v[ipJ[iq]=0-0i; 
[ip] [ip]“d.0， 


了 
for 《ipm1;ip<=n;ip+r) 工 将 b 积 d 初 妈 化 屿 竺 成 3 的 对 前 元 胡 
b[ip]=d[ip]=a[ip] [ip] 
z[ip]=0.03 该 庙 量 将 和 沦 (11,1.141 式 中 的 绍 ng 
证 积累 
本 PITOt=0O; 
tor fizs1i;iice50;i++) { 
日 了 = 售 -站 ; 
for fip<1iip<=<n-1;ip++) 攻 将 非 对 角 元 素 汶 帮 
for 《iqeip+li;iq<eniiq++) 
3 了 +fe fabg(afip]iiq]); 
上 
if [au = 0.0) [ 正 带 色 赂 ， 依 杭 于 四 次 收 租 到 机 啥 
frea_Yyector(Z, ina) 上 溢出 
free_vyector(tb,d,nah i 
TetQrti 
】 
if (Ki《 4) 
treahs=.29+8mA(mwD) i ，… 在 前 二 次 扫 捕 中 
Bl168 
TIT93bmD .Di -这 以 后 


for 【1p<13tp<*n-iy ip+r+) 攻 
for 【1iq=1iPp+liiq<=niiqt+r+y 女 
g=100.0rfabg(fafip] [iqj); 
四 次 扫 指 后 ， 如 果 非 对 角 元 素 很 小 ， 则 上 跳 过 旋转 
if (> 4 k (float)(fabs{fd[ip])+g) = 〔ftoat)fabgKkd[ip]) 
此 k 【ifloat) [tabsftd[iq]}+g)》 “= (fl1cat)fabafd[iog])) 
引 [ip] [iqg]>=0.0， 
else if 《tabs(aFip][iq]》 > tresh) { 
h=d[1qj-G[ip] ， 
if 《(f1oat) ffabsth)+rg) == (float)fabg(h)) 


tsta[ip] [iq]lyzh; it 17(20) 
else 区 
thetaz0,54hy(afip]fiq]); 等 式 【11.1.10). 


tset.DOA(Eabs(theta)+sqrt[t-D+thetasthot 鱼 )) 
if (theta < 0.0) 蒂 = -t; 2 


。 398， 


Cs1.0ASqrt( +ttz 和 中》 ; 

SmteC 了 

tau=sAf1,D+c) 1 

=tta[1lp][ia]; 

2[ipa] -= bi: 

2[ial +w bi 

df[ip] -= hi 

d[idj = Pi 

afip]jfriqj=0.0; 

5 1 么 了 < 吕 族 转 的 情形 
RDOTAYE(a; j ,ip,j,iq) 

了 

for 〔]j=ip+ 上 ij<siq-1i;jas+] 区 沁 芯 j < 9 旋转 的 博 彤 
MOTATS Ka,ip,j,j,iq》 

上 忆 

for (j=iq+1;j<<aijJ++) 引 < 了 < 和 施 转 的 情形 
ROTATE(aip ,jiq,j) 

】} 

for 〈j=1ij<=naz]y+) 1 
RDTATE(v，j ,ip,j,ig) 


++tanTOL) 
了 
了 
for 《ipz1l;ipcsniiptrt+) T 
bfipl +s z[ip]， 
dtip]jbfap] ; 将 d 条 改 成 tapd 的 和 
z[ip]=0,0; 并 重新 初始 化 > 
了 
小 


PTeTIOY("Too many iterationg in routine jacobjn); 


注意 ,上 述 程 序 是 俐 说 下 益 被 置 为 零 。 在 不 满足 此 条 件 的 机 器 上 ,必须 修改 此 程序 ， 

输出 时 的 特征 值 不 是 按 顺 序 的 。 如 果 需 要 排序 ,可 以 调用 下 列 程序 将 程序 jacobi 或 小 
章 其 它 程序 的 输出 重新 排序 (所 用 的 方法 是 直 楼 插入 法 ,其 运算 量 是 wz 而 下 是 NWlogN 量 
级 .但 出 于 原 程序 小 刚刚 使 有 了 一 个 MY: 量 级 的 过 程 来 寻找 特征 值 ,所 以 这 点 开销 不 算 大 .) 
void eigsrtffloat df[]、0oat ws *vy intn) 

纵 定 扫 eobit( 第 11. 1 节 ? 或 tqlt( 第 11.3 节 ?的 笨 出 标 征 值 d[1. .oa] 和 特征 向 量 v[]1.， n-Lt, ,no], 本 释 序 将 符 征 什 按 遂 

天 的 次 床 ,并 对 和 煌 引 向 属 做 相应 的 略 整 - 诸 用 方法 是 直接 狂人 法 


tnt 上 ji 


fioat hi 
for fi=1jj<niil 十 ) 
p=U[k 一 让 
for 人 一 i 一 1 和 之 一 nij1l  》， 
if kad[ 门 一 P) p=d[k- 门 ; 
这 kk !' 一 i) 
dfk]j=d]; 
d[D=p 
for 0j 一 1;j< 扫 一 ni 二 下 { 
pb =v[i2rii 
v[Ljf 一 v[i[k 
v[ DIE 一 pb; 
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112 将 对 称 矩 阵 简化 为 三 对 角形 式 :吉文 斯 约 化 和 豪 斯 质 德 约 化 


正如 已 经 提 到 的 ,找寻 特征 傅 和 特征 向 基 的 最 优 策略 是 ,首先 将 年 阵 化 成 - -个 简单 的 形 
式 , 再 开始 一 个 适 代 过 程 . 对 于 对 称 矩 阵 来 说 ,最 好 的 简单 形式 是 三 对 佣 形式 ,吉文 斯 约 化 是 
对 雅 可 比方 法 的 一 个 改进 . 当 把 和 血 简化 为 三 对 角形 式 时 我 们 就 停止 运算 ,而 不 是 把 它 一 直 
化 到 为 对 角形 式 .这 就 可 以 使 整个 过 程 用 有 限 步 完成 ,而 不 是 象牙 可 比方 法 那样 - 直 适 代 到 
收 策 。 


11,2, 1 吉文 斯 (Givens) 方 法 


对 于 吉文 斯 方法 ,我 们 按 式 (11, 1, 1) 选 择 旋转 角 来 将 某 ~- 元 素 堆 化 ,但 这 一 元 双 不 在 四 
个 " 角 " 上 , 即 不 是 式 411. 1. 3) 中 的 aspvare 和 se。 我 们 特地 选择 Pa 来 将 aa (对 称 地 还 有 u3 
替 化 然后 我 们 选择 Ps 将 aa 零 化 。- 般 地 ,我 们 选择 序列 

PP: ..， 了 PP Ps 

其 中 Pi 用 来 将 at, 广 , 堆 化 ,这 种 方法 能 够 奏效 是 由 于 按照 式 (11. 1. 4)arp 和 ae 人 r 关 庆 rwg) 
是 旧 值 xsr* 和 xzr* 的 线性 组 全 .因而 如 果 ap 和 sam 已 被 零 化 , 当 约 简 过 程 继续 进行 时 它们 仍 保 
持 为 零 . 最 从 需要 玉 /2 次 旋转 ,而 这 种 方法 的 直接 实施 需要 4/3 量 级 的 弱 法 次 数 ,这 不 包 
括 为 求 得 特征 向 量 而 进行 的 矩阵 乘法 。 

随后 将 要 讨论 的 吉 斯 贺 德 方法 象 吉 文 斯 约 化 方法 一 翌 稳 定 而 且 双 们 地 有效, 所 以 通常 
不 使 用 吉文 斯 方法 .最 近 的 工作 (参见 [1]) 表 明 ,通过 将 吉文 斯 方法 重新 表述 整理 .可 以 将 操 
作 次 数 减 少 一 倍 , 并 且 可 以 如 免 取 平方 根 的 运算 ,这 使 得 这 种 算法 可 以 和 豪 斯 贺 德 约 化 方法 
相 亮 争 尽管 这 样 ,我 们 还 是 没有 是 够 的 经 验 为 理由 来 认为 这 种 方法 比划 斯 贺 德 方法 更 可 
取 。 


11.2.1 这 斯 贺 德 (Householder ) 方 法 


襄 斯 贺 德 算法 用 "一 2 个 正 交 变 换 将 zXzm 的 对 称 窍 阵 A 约 简 成 三 对 角形 式 。 生 个 变换 
将 一 整 行 和 一 整 列 中 的 相应 元 娄 军 化 .基本 的 成 分 是 如 下 形式 的 豪 斯 锅 德 矩阵 P 
了 一 1 一 2w，w7 1102.11 
其 中 w 是 满足 |w|:= 1 的 实 向 量 .( 在 当前 的 表示 中 ,两 个 向 量 s 和 b 的 外 积 或 矩阵 积 写成 
a* 和 ,而 它们 的 内 积 或 标量 积 写 成 对 b,) 惩 阵 P 是 王 交 的 ,因为 
PP? 一 (一 2w.wT) vt 一 2w .wwT) 
一 1 一 4w .WwW7 十 4w ww) ，WT7 《HE 2 2) 
一 1 
所 以 了 一 P .但 因 杞 一 P, 于 是 P 一 PP ,这 就 证 明了 的 正 交 性 、 
"400， 





将 也 重 写成 





DU，v，U 。 
了 一 5 三 7 六 ss 
其 中 的 标 基 二 屋 
三 二 2 
现在 了 可以 是 任何 向量 .假设 % 是 矩阵 和 的 第 : 列 代 表 的 向 量 。 选 择 
一 X 王 xie {11.2,.5) 
盘 中 ei 是 单位 向 量 !1,0... .0 ,有 关 符 号 的 选择 后 面 将 讨论 .于 是 有 
P'x 一 x 一 下 … 二 |xYet) 。 藉 
2 于 |) 
一 其 2.x|: 干 2 X| 却 《11.2.6) 
= 和 一目 
一 士 |xiei 


这 表 即 豪 斯 贺 敌 矩阵 ? 作 轴 在 给 定向 量 x 上 就 将 零 化 除 第 一 个 元 素 外 的 所 有 元 素 . 


为 了 将 对 称 矩 阵 4 化 为 三 对 角形 式 .我 


] 选 择 第 一 个 圳 斯 视 伏 矩阵 的 向 量 x 为 矩阵 4 


第 一 列 下 面 的 2 一 1 个 元 素 . 于 是 以 下 4 一 2 个 元 帝 将 被 办 化 ， 


间 于 人 光 生生 人 的 和 让 全国 生生 和 汪 
10 : 1221 | 
下， * 点 一 10 ; Gat 

3 全 无 基部 分 
ER ” 《11.2.7) 
at ieqta Qu 人 | 

无 关 部 分 

0 : 





这 里 我 们 将 罕 阵 写成 分 块 的 形式 ,” ”>P 表示 


-个 人 ma 一 LI) X (一 1) 维 的 屯 斯 贺 苯 矩阵 简 


单 地 就 是 向 量 [ea. . .am] 的 模 的 正 值 或 负 值 。 


完整 的 正 交 变 换 是 
ian ; 直 媳 下 0 
| 0 
A 一 PP A:P=- 0 
| 无 关 部 分 
10 
这 里 我 们 已 经 用 到 了 P7= 了 。 


现在 选择 第 二 个 豪 斯 贺 共 矩 狂 的 x 为 第 二 


列 下 面 的 "一 2 个 元 素 , 从 而 构成 矩阵 


， 01]。 





上 5 0 
们 1 着 ee 
6 
| 


[5 60. 


左上 和 的 单位 块 保证 了 第 - 步 已 经 一 对 角 化 了 的 部 分 不 会 被 破 环 ,而 (2 2) 维 的 至 斯 贺 德 
矩阵 一 2 开交 新 的 行 班 一列 二 对 角 化 .显然 ,一 系列 - 2 个 这 样 的 安 深 这 可 将 拓 血 全 化 


P, == 


| 

j 

j (11.2.3) 
| 





为 二 对 角形 世 。 
为 了 避免 直接 做 下 阵 乘 法 卫生 ,我 们 计算 - -全 向 大 
和 "1 有 
p = 所 六 (1 1 
则 
A.P-A ,0 -- ， 一 生 一 pv 


站 - 呈 ,ADP-= 人 入 --p:u7 一 0 十 2 天 0 ,ui 
其 中 灭 定义 为 





天 = 111.2. 11) 

如 果 记 
母 三 bp 一 五 0 人 3 

就 得 到 
和 一 和 一 4 一 uv 时 《11. 2 全》 


这 是 一 个 计算 上 很 用 的 公式 。 
按照 参考 文献 [2] ,下 面 给 出 的 豪 斯 次 德 约 化 积 字 是 从 A 的 第 ” 列 开始 ,而 不 是 如 工商 
介绍 的 队 第 “ 列 开 始 。* 有 关 的 公式 如 下 :在 第 产 步 (mm >1:2…… 和 2 一 2 向 量 u 其 有 形式 
上 (11 2. 1d) 
其 中 
ft 三 站 一 下 十 1= nn 一] .3 《11.2,. 15) 
和 (在 以 前 的 记 且 为 .< 是 
G 一 (ai 和 一 ,一 1 六 全 R 
为 “ 减 小 舍 人 误 盖 , 选 择 式 (11, 2. 14) 中 的 = 的 符号 与 ，, 盖 ;的 符号 相同 。 
各 变量 的 计算 按 干 列 顺 序 进行 ;au, 媚 ,大 ,9 和 ,在 进行 第 六 步 时 ,和 的 最 后 记 一 1 
行 和 列 已 被 三 对 角 化 。 
如 举 基 后 三 对 角 拢 阵 的 特征 向 其 已 被 找到 (例外 ,通过 下 - 节 的 程序 ), 则 和 的 特征 而 
最 就 是 将 下 列 联 合 变换 作 族 到 那些 棕 征 向 基 上 。 
也 一 已， 了 PP ..P，: 交 且 Eee 他 克 | 
在 所 有 了 P 交 定 之 后 可 通过 递 知 来 得 到 ， 
他 一 记 .: 
Qi --Pi QQ:， J 一 中 一 3 .. 1 
* 402， 





Q -Q， 11 .213) 

下 面 程序 的 输入 是 实 的 对 称 答 阵 a-1. .nj][1 ao], 输 出 时 ,ea 中 包含 有 止 变 拖 阵 9 的 元 
素 。 向 量 d[1,,n- 被 晋 成 二 对 贡 矩阵 A 的 对 节 元 素 , 而 向 量 s[1..n] 从 e[2] 到 eln 存 有 站 
非 对 角 元 素 ,其 中 e-1j 一 0- 注 意 由 于 汁 算 中 a 被 重新 写 入 数值 ,如 打 后 续 计算 中 需要 的 活 ， 
应 该 在 程 序 调 用 前 将 复制 并 保存 起 来 : 

不 需要 对 中 加 结 果 设 帝 特 殊 的 存 情 数 组 . 企 第 严 步 ,向 量 和 日 只 有 1,.…… 的 郊 素 旦 
非 零 的 (回忆 一 下 ?一 2 一 下 一 ]) :而 a 只 有 第 1 … 一 上 元 素 是 非 零 的 . 回 量 * 的 元 素 是 按 
照 第 wa 一 1 .的 顺序 确定 的 ,所 以 可 将 向 量 p 的 非 零 元 存 铺 在 向 量 * 的 疝 未 确定 部 
分 ,向 量 g 可 宇 P 一 旦 不 再 需要 时 写 在 p 的 位 置 上 .将 u 看 储 在 a 的 第 ? 行 ' 并 托 u 羡 存储 
在 a 的 第 : 列 , 约 化 结束 之 后 ,可 用 存储 在 a 中 的 中 和 五 来 计算 抵 阵 避 ,因为 @Q, 的 去 呈 -- 
/十 1] 行 和 列 是 单位 矩阵 , 放 只 需 计 算 前 = 一 7 行 邢 前 2 7 列 , 这 就 可 以 重新 在 入 a 中 虫 和 na 
纯 的 对 应 行 夭 列 ,四 为 后 续 Q 不 再 需要 这 些 位 置 的 元 素 。 

下 面 给 出 的 程序 tredz 还 包括 一 项 改进 ,如 内 在 任何 - 步 中 ,数量 = 是 过 或 * 小 量 ", 就 可 
以 跳 过 对 应 变换 .一 个 简单 的 标准 ,例如 下 式 

dg < 在 批 器 上 可 表示 的 最 小 正 数 
机 占 精 度 


在 大 多 数 情 况 下 是 合适 的 ,实际 上 ,所 应 用 的 是 一 种 更 详细 的 标准 .定义 基 


= 袜 ms 人 L1,2.197 
如 果 在 机 器 精度 下 < 一 0, 我 们 就 跳 过 这 次 变换 碍 则 我 们 重新 定义 ,将 
cat 蛮 为 ou (11.2.20) 


并 用 重新 定 标 了 的 变 基 进行 变换 。( 一 个 豪 斯 贺 德 变换 只 取决 于 矩阵 元 素 之 间 能 比例 。) 

注意 , 当 所 处 理 的 拭 阵 的 元 素数 值 大 小 跨 跃 很 大 数量 级 时 , 需 将 抑 阵 进行 置 恢 ,要 尽量 
置换 威 小 的 元 素 在 抑 阵 的 左 芋 角 , 这 一 点 很 重要 .因为 约 化 是 藉 右 下 角 开 始 , 而 大 小 元 素 的 
混杂 会 带 来 很 大 的 会 入 误差。 

程序 tred2 被 设计 成 与 下 一 节 的 程序 tqli 联合 使 用 。tqli 是 用 来 计算 对 称 汪 对 角 定 阵 的 
特征 值 和 特征 向 基 的 。 夺 计算 实 对 称 扎 阵 特征 值 和 特征 向 量 的 靶 术 中 ,tred2 和 tqii 的 结合 
是 已 知 最 有 效 的 方法 。 

在 下 列 清单 中 ,由 注释 标 出 的 语句 只 有 在 计算 特征 向 量 时 才 有 用 .如 果 只 需 计 算 特征 
值 , 则 在 大 = 值 情况 下 ,忽略 这 上 坚 注 出 的 语句 可 以 使 tred2 的 运行 速度 提高 -一 们 ,在 较 大 a 
值 的 限制 下 ,只 计算 特征 值 的 豪 斯 辕 德 约 化 的 运算 量 是 22373 阶 , 而 特征 值 和 特征 向 量 都 计 
算 时 需 用 4n*/3 阶 的 运算 量 ， 


下 inelude < 所 mmath,h>> 


void tred2tfloat * <*ay intny float dj, filoate[]y) 
对 实 对 称 和 矩阵 引 1 ,nj[1.. 区 的 豪 斯 就 碍 约 化 :输出 时 ,a 被 产生 变换 的 正 交 矩 阵 @ 取代 .d.1..n] 运 回 三 对 龟 矩 阵 
的 对 角 元 辟 ,e[1. .oj 返回 非 对 角 元 次 , 且 有 。sL1J=0.。 正 旬 注 释 中 注 明 的 ,有 些 语 句 在 只 需 特 证 值 的 禧 况 下 可 星 
去 ,这 时 a 中 不 返回 有 胃 的 情 息 .在 其 它 情况 下 ,这些 谢 句 应 包 含 疼 程序 中 。 


int 1LXK,j,ii 
Loat Sealebhbh,E, 上 ; 





For 《imnii>ze2ii--》【 
ai 上 
baCcaLlen0.0i 
It glL > 8) 苹 
于 oz 【=1;k<=1;x++) 
Bea1e +5 下 aba(&a[i] [xy ; 


ji 《scal6 == D.0) 跳 这 变 欣 
afi]=a[i] 个 1; 
6lsae 忒 
下 bt 【Ke1ixX<cr=l;K++] 十 
a[i][x] /= Scale; 将 妹 定 的 a 用 天 变换 
h += a[ilfk]*afi]fk]， 在 请 下 形成 " 
} 
Ta[i] [1] ; 


gz 人 f = 0.0 ? -sqrfth) : sqrt(hl)， 
6[i]eScalere 反 ; 


b -= feg; 和 民 丰 上 让 1.2 .1 式 
ai [1]=z-5; 特 u 在 入 1 的 第 上行 
玫 m0Di 


zar (js=1;jc<s1ijr+) 
7 四 9X 让 BateReRt Can be 0mitted if eigenvector6 nor wanted 中 
aa[jJ [ij=a[i] [jJAb; 将 和 闻 入 sa 的 笠 | 列 
gm0 .9 ， 在 攻 中 形成 U 的 一 个 开 素 
or 【〔k=13;k<sj ;x++) 
芭 +a a[j]txjsari]l[k]; 
or 【kk=j+1ik<=];k++》 
名 + afx]fj]jsa[iy[x] ; 


efj]=g/b; 在 上 的 竺 时 不 是 的 元 春 中 形成 P 的 岂 素 
1 + ef[j]j*a[i]jfj]; 
} 
hhef/fht+h) 形成 开 .(C11.2.11 六 
for 《js=*11j<<1iJ++) 世 形 长 忆 并 存 人 总 中 了 的 信 痛 上 
f=afi] [ji 注意 有 erl]zafi-1] 
旺 [j1=g=a [j] -hhw 3 
for (kswI;X<=] ;++) 约 化 上 .51 .2.13， 丰 
a[j] [] -~ 【fr[X]+Bgw 久 [ii] [x] ); 
】 
】 
】 的 34 
e[i=afi][2]; 
d{i]=5i 
fa 9XT SthL9Bent can be Caitted ix aiganvector6 DaDL Vanted 7 
dftew0.0， 
6[lts0.0; 


1+ 《Contrenrg of tbia 1Ioop Can be 0RicVr6ed IT sigeanvyectore aot 
MD 交 @d XCdPt 和 Cr 基 和 3gd2 二 di[z]=ari] [zi 7 


for (il1ii<eaidy+r) { 材 始 和 抵 阵 变 热 的 积 景 
=-1i 
if (dfi) 1 当 ; - 上 有 时 呈 过 这 雇 
+ Tor {jntjij<sl1ij++) 工 
gmO-0; 
了 OF 【K*j ;<m1 7;X+t+》 利 弄 a 中 存 凡 的 u 和 上 邱 来 形成 P.Q 


区 +am 血 [i] [x]e[] [jj] : 
or 《kml ;区 < 工 ;ky+) 
aa[k]fj] -= gee[k] [ij; 


】 
》 
生 [1 站 =a[i] [i] ; 这 - -名 保留 
a[i [i]=1.0; 为 上 -次 近代 将 4 是 新 时 成 单位 拭 阵 
TDrF (Je=1;jc=1ijt+)》 a[]]Ii]ma[il[jjso.0: 
} 
和 
参考 文献 和 进一步 读物 ， 
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11.3 三 对 角 和 珑 阵 的 特征 值 和 特征 向 量 


11.3.1 特征 多 项 式 的 赋值 


一 旦 把 虎 先 的 实 对 称 怎 阵 约 化 为 三 对 角 和 矩阵, 确定 它 的 特征 值 的 一 种 可 能 的 途径 就 是 
直接 好 找 特 征 值 的 多 项 式 如 (4%) 的 根 . 对 于 任何 试验 值 ,三 对 角 抵 阵 的 特征 多 项 式 都 可 以 
通过 一 种 有 效 的 递归 关系 进行 求 值 ( 例 如 , 参 [12) ,递归 过 程 中 产生 的 较 低 阶 多 项 式 形成 一 
个 斯 特 梅 轧 (Sturmian) 序 你 ,该 序列 可 用 来 将 特征 信 定 位 于 实 轴 上 的 某 些 区 间 . 然 后 可 以 进 

- 步 使 用 象 二 分 法 或 牛顿 法 那样 的 寻根 方法 来 更 精确 地 确定 区 间 .。 相 应 的 特征 向 量 可 以 通 
过 道 迷 代 找 到 。 

基于 上 述 思 想 的 程序 可 以 在 参考 文献 [2,3] 中 找到 .然而 ,如 果 只 需 计 算 一 小 部 分 特征 

值 和 特征 牺 量 , 则 下 面 讨论 的 因子 分 解 的 方法 更 加 肥效 。 


11.3.2 CR 和 人 算法 


QR 算法 的 基本 思想 是 ,任何 实 抢 阵 可 以 分 解 成 下 列 形式 
点 一 人 ,有 R ， (11.3,1)》 
其 中 @ 是 正 交 的 ,而 R 是 上 三 角 的 .对 于 一 般 惩 阵 ,这 种 分 解 可 以 通过 采用 豪 斯 锅 德 变换 ， 
逐 列 地 将 矩阵 A 的 对 角 线 以 下 部 分 零 化 来 构 虑 。 
疯 在 ,考虑 将 式 (11, 3, 1) 中 因 寺 交换 所 得 到 的 矩阵 ， 


4A' 一 R.Q (11. 3. 2) 
因为 Q 是正 交 的 , 式 (11.3, 1) 给 出 =Qr.A。 所 以 (11.3. 2) 式 变 成 
4 一 QAQ (11.3,3》 


我 们 看 到 A' 和 A 的 一 个 正 交 变 换 。 

可 以 验证 ,QR 变换 保持 了 和 矩阵 的 下 列 性 质 , 对 称 性 .三 对 角形 式 和 海 森 伯 格 (Hesser- 
berg ) 形 式 (将 第 11. 5 节 中 定义 ) 。 

将 和 的 因 地 之 -- 选 为 上 三 角 抢 阵 没有 特别 的 意义 .也 可 以 等 价 地 使 它 是 下 三 角形 式 ， 
这 就 叫做 @Z 算法 ,因为 

各 一 @. 工 111, 3, 4》 

其 中 二 是 下 二 和 闻 的 。( 这 种 标准 的 ,但 又 使 人 迷惑 的 术语 刃 和 工 代 表 和 矩阵 的 右 近 或 地 边 为 非 
爱 。) 

回忆 一 下 ,在 第 11, 2 节 中 豪 斯 贺 德 方法 将 矩阵 三 对 角 化 时 ,我 们 是 从 原来 揽 阵 的 第 
(最 后 ) 列 开始 的 .为 减 小 伟人 误差 ,我 们 那 时 建议 尽 基 将 矩阵 的 最 大 元 素 放 到 右 下 角 。 如 果 
我 们 现在 希望 将 所 得 到 的 三 对 角 抢 阵 对 角 化 , 则 QZ 算法 比 QR 算法 的 舍 人 误差 小 ,所 以 今 
后 我 们 使 用 QZ 算法 。 
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外 上 算法 包括 一 系列 正 交 灾 换 ， 
呈 :一 Q 工 ， 
Ai siLQ， (一 Qr AQ) 
下 列 定 理 ( 不 是 那么 显然 人 ) 基 关于 - 般 矩 阵 A 的 算法 的 基础 :CD 如 果盘 的 特征 值 具 专 不 司 
的 绝对 值 |: , 则 当 s 一 时 4 一 [下 三 角形 式 ]。 对 和 角 线 上 出 现 竟 特征 值 按 某 络 对 信 递 增 
的 顺序 排列 Ci) 如果 人 入 有 疡 重 特征 值 | 1:|, 则 当 。 一 关上 脸 和 ,一 [下 三 角形 式 _, 但 除去 -个 
特征 值 一 ;的 祖 维 对 和 子 块 阵 。 这 一 定理 的 证 明 篇 幅 狠 长 , 可 参见 :41。 
QZ 算法 对 于 一 般 筷 阵 的 运算 量 是 每 次 夺 代 Oo ,这 对 于 一 般 筷 阵 来 说 运算 量 太 大 
了 .但 它 对 于 三 对 角 和 邱 阵 每 次 迭代 的 运算 量 只 有 On ,而 对 计 海 森 柏 格 矩 陈 趾 人 2 . 忱 
这 算法 用 于 这 两 种 形式 的 矩阵 是 很 有 效 的 。 
在 这 一 节 中 ,我 们 只 考虑 A 是 实 . 对 称 的 二 对 角 知 阵 , 因 而 所 有 的 特征 值 4: 是 实 的 ,根据 
上 述 定理 ,如 果 任 一 4 是 重 的 , 则 人 在 次 对 角 和 超 对 角 上 主 少 有 祖 一 1 个 零 元 .于 是 ,年 阵 可 
以 分 虱 成 能 够 单独 对 角 化 的 子 惩 阵 , 而 且 在 一 般 情形 下 ,由 戏 角 块 带 来 复杂 性 就 无 闫 紧要 
了 
在 上 述 定 理 的 证 胡 过 程 中 ,人 们 发 现 , 一 般 超 对 角 元 素 近 下列 方式 收敛 于 零 


《5 如 5 CR 
aa 六 一 07) (11.3.5) 


虽然 Mi<.4i 但 如 果 与 4 很 接近 的 话 , 收 敛 的 速度 可 能 很 慢 . 收 敛 可 以 通过 位 移 的 技巧 来 
加 速 :如 果 大 是 任意 常数 , 则 A 一 上 具有 特征 值 4, 一 上 。 如 果 我 们 分 解 


《二 





人 (11.3.73 
于 是 
As+: 一 Li ，Q: 十 上 1 
一 QI AQ (11.3.8) 
则 收敛 由 以 下 比例 确定 
几 ， 一 天， 
A 一 大， (11.3 9) 


这 种 思想 是 要 在 每 一 步 选 择 位 移 量 六 ,以 使 收 和 倒 的 速度 最 快 . 对 于 位 移 量 的 - -种 好 的 切 
始 迪 拌 是 使 六 接近 最 小 的 特征 值 N .于 是 第 一 列 的 非 对 角 元 素 将 很 快 趋 于 零 . 可 是 六 通常 
吕 先 并 非 是 已 知 的 。 在 实践 中 ,一 个 很 有 效 的 方法 (最 然 没有 证 明 它 是 最 优 的 ) 是 ,计算 4 的 
首 2X2 对 角 子 矩阵 ,然后 令 环 等 于 高 om 最 近 的 那个 特征 值 。 

更 一 般 地 ,假设 已 经 找到 A 的 * 一 1 个 特征 值 . 则 可 以 删 去 前 > 一 1 个 行 和 列 而 将 气 桥 简 
化 成 


:人 4 ] 
刀 
好 
各 一 ee cd 引 1 ) 
必 | 
| Gn-. 癌 
| 0 el 


选择 上 等 于 前面 2X2 子 第 阵 的 特征 值 中 较 接近 4 的 那 一 个 -人们 可 以 让 明 梁 用 这 种 谨 法 
“406 。 


后 , 算 污 的 收 笋 性 般 是 三 次 方 的 (在 退化 特征 值 的 情况 下 ,最 厅 也 是 二 次 改 伍 的) 。 这 栏 快 
的 收敛 速度 使 这 种 算法 很 具有 吸引 力 。 

注意 经 过 位 移 后 ,特征 值 不 再 技 绝对 值 递 增 的 顺序 出 现在 对 间 线 上 . 兰 需 所 的 话 , 吕 笛 
用 程序 eigsrt( 第 11.1 节 ) 。 

正如 前 面 提 到 的 ,一般 矩阵 的 @ 上 分解 由 一 系列 豪 斯 贺 德 变换 来 完 式 .对 于 二 对 前 年 阵 
来 说 ,用 平 宙 旋转 pw 更 加 有 效 , 使 用 变换 序列 了 ,Ps，.， ,P。,,。 将 元 素 gz。 
等 化 .对 称 地 ,次 厄 角 元 束 en ,az，…. .av ,也 被 零 化 .因此 ,Q, 是 这 些 平 面 旋转 的 乘积 

人 一 了 他， 了 P 知 .PP 和， 《11.3.12-) 

其 中 已 将 wi. 堆 化 ,注意 式 (1i1.3, 11) 中 的 不 是 Q 而 是 Q7 ,因为 我 们 兽 定义 工 -.Q7-A， 


11. 3.3 具有 隐 含 位 移 的 QL 算法 


迄今 为 止 ,所 提 述 的 算法 都 是 很 成 功 的 。 然 而 ,如 果 矩 阵 A 的 元 素 在 数量 级 上 相差 委 
多 , 则 从 对 角 元 中 减 去 一 个 很 大 的 太 会 导致 小 的 特征 值 损失 精度 ,但 是 , 隐 仿 位移 的 QL 算 
法 避免 了 这 一 问题 。 

隐 仿 位移 的 @7. 算法 在 数学 上 等 价 于 原来 的 QZ 算法 ,只 是 计算 中 不 需 从 A 中 将 有 1 沽 
去 。 


这 种 算法 基于 下 述 引 理 :如 果 A 是 一 个 对 称 非 奇异 算 阵 ,并 日 B 一 Qr.A-Q, 基 中心 是 正 交 的 , 贞 有 是 
具有 正 的 非 对 角 元 素 的 二 对 角 矩 阵 , 则 只 要 Qr 的 最 后 . 行 给 出 后 ,Q 和 卫 就 能 完全 确定 .证 明令 7 代 志 
拒 阵 Q7 的 第 ; 行 向 量 , 则 @ 就 是 拭 阵 包 的 第 ; 列 向 量 .关系 式 B-Qr 一 Qr,A 可 表示 成 ， 


有， fg 攻 
aa 有 王 gf 
县 | | 、 人 (11.34.12) 
5 】 二 隐 
2 所 gr qr 
上 壕 穹 阵 方程 的 第 行 是 
and 十 Do9 一 吧 和 K1.3.13) 
册 为 妨 是 正 交 的 
二 9 一 5 
如 果 将 式 (11. 3, 13) 隐 边 右 gq, 则 发 现 
六 一 职 和 gu (11.3.151 
由 于 q 已 知 , 故 上 式 是 已 知 的 .再 山区 511. 3. 13 给 出 
oo 和 6 
其 中 
到 .1 一 Ag 5 交 光 
尾 已 知 的 ,所 以 
1 1, 3. 18) 
或 者 
3 ze 1 t11.3. 19) 
共 上 且 


“34157， 


9 一 2 ti 1 .3.200 
“其 中 假设 ce 不 为 零 )?。 类 似 地 ,可 座 推 证 出 如 果 已 若虫,q，:…、 gd 和 脚 杯 大 于 z 一 7 的 w8 各 7, 就 可 
以 知道 脚 标 为 "一 上 一 包 的 有 关 量 ， 
将 上 述 引 理 町 证 实际 计算 ,假设 通过 某 种 睛 法 找到 了 -- 个 三 对 角 征 阵 &;+) 满 足 
太一 而。 广 。， 忆 ， 1 3. 213 
其 中 豆 7 有 是正 况 的 并 与 原来 QL 算法 中 的 司 有 相同 的 最 后 的 一 行 - 则 有 羡 : 一 避 和 太一 Ai。 
在 原先 的 算法 中 ,从 蕊 11.3. 117 我 们 看 到 Q; 的 最 后 一 行 与 8 ”的 最 后 一 行 相同 .网 忆 “一干 .Po 是 
一 个 用 来 将 &, 一 如 1 的 第 (= 一 1 元 素 零 化 的 平面 旋转 。 
从 式 (11.1.1) 出 发 进行 简单 的 计算 给 出 它 的 参数 
Je < 
夫 人 7 ee 
Men id 中 
村 隆 P9iv AP 除去 类 个 多 余 元 率 外 是 三 对 角 的 ， 


人 【TEL 3 22 


【二 二 3 


因 
本 X 又 居 


现在 必须 合用 个 最 乒 行为 [0,0, ,1 的 正 交 竺 阵 将 上 述 征 阵 三 对 角 化 ,这样 Qr 的 最 后 一 行 就 和 
P 菩 :的 最 后 一 行 相同 ,这 可 以 适 过 一 系列 豪 斯 贺 一 或 吉文 斯 变 搞 来 完成 ,对 于 式 人 11.3.234) 这 样 牺 匠 形 式 
的 甜 阵 来 说 ,吉文 斯 方法 更 好 .我们 在 平面 (nx 2, 1) 中 进行 旋转 使 元 素 fa-- 2,m) 零 化 (对称 地 ， 亡 素 
(na 一 2 也 将 被 清 零 .) 这 样 便 得 到 一 个 除去 客 余 元 素 ( 3C 1 和 人 3 2) 外 部 已 三 对 角 化 了 的 
竹 阵 ,我 们 再 由 在 平面 (fr 3 2) 上 的 散 转 零 修 这 两 元 到, 如 此 类 推 .十 是 我 们 需要 * 一 2 个 吉文 斯 旋转 的 
序 询 ,这 就 导 敏 

QI 一 可 一 玫 下 . PS : (3.241 
其 中 王 是 古文 斯 旋转 ,而 Pu,- ,是 原先 算法 中 那 种 平面 旋转 . 式 (112. 4.21) 给 出 了 下 … 次 选 代 所 需 的 入- 注 
意 , 位 移 量 点 已 经 隐 含 在 公式 式 (11. 3.22) 中 了 ， 


下 面 基 于 文献 [2,3] 的 程序 tqli(“ 三 对 角形 QL 隐 含 位 移 方法 习 ,在 实践 中 运行 良好 ,对 
生前 几 个 特征 值 的 迭代 次 数 可 能 是 4 或 5 次 ,但 同时 右 下 角 的 非 对 角 元 素 也 会 相 凡 地 减 
少 后 面 的 特征 值 就 只 需 很 少 的 计算 量 就 可 求 出 ,每 个 特征 值 的 平均 迁 代 次 数 - - 般 为 1. 3~ 
1.6 次 。 每 次 选 代 的 操作 数 为 O(Ca) ,并 有 很 高 的 有 效 系数 (一 20n) 。 因 此 ,对 角 化 所 需 的 操作 
总 数 为 ~…20zX (1. 3~1, 6)2~ 30m2。 如 果 同 时 需 计算 特征 向 量 , 则 注释 中 标注 出 的 语句 需 包 
含 在 程序 中 ,而 且 将 增加 高 达 3m 的 运算 量 。 


六 inelude 入 tnath.h> 
共 inctrde "ntrutil, hn 


void tqiicfloat d[ ,foat s[]，、int py，float * #Z)》 
为 确定 实 对 黎 三 对 角 矩 阵 .或 者 事先 由 第 11.2 节 中 程序 tred2 售 化 了 的 实 对 浆 算 妊 的 特征 倘 和 特征 向 量 , 本 程序 采 


用 的 悬 隐 含 位 称 的 以 算法 ,输入 时 ,dl1..n- 中 存 有 三 对 角 矩 阵 的 对 角 元 素 ,办 出 时 它 返 回 特征 值 , 向 量 el1. .2 输 
人 三 对 角 策 阵 的 次 对 角 元 索 ,e[1] 为 任意 值 ,和 输出 时 ,*e 中 的 值 己 筱 破坏 .如 果 只 需求 符 征 值 , 鹅 序 中 有 儿 行 由 注释 机 
明 的 语 馈 可 以 略 去 如果 需要 求 一 个 三 对 入 得 阵 的 特征 向 量 , 见 矩阵 z[1..n]!1..a] 中 输入 单位 矩阵 ,如 采 需 竖 求 
一 个 由 程序 rred2 已 的 化 的 天 阵 之 特征 向 量 , 则 > 由 tred2 输 出 的 矩阵 作为 输入 .天 管 忠 在 哪 种 情况 下 ,z 的 第 k 列 返 
呵 与 d[k] 让 对 应 的 央 一 化 特征 谍 量 。 

*，408。 


TIOoat ythag(float 和 ， 闻 ost b); 
inat ml1viter,itvki 
?loat %:T,p,gsfdd,c,b; 


for (in2;ic<=n;i4+) @[i-t]eafi]; 为 方便 重 编导 中 元 素 
e[n]=<0.0; 
for 【1l=1y1lc<=a;1++) 工 
490; 
do 攻 
了 or (四 =1 ; 王 <=D~1;m++)》 区。 寻找 一 个 单 的 小 的 次 对 角 元 束 
ddenfaba(d[m] )+zabsg(d[m+1])3 用 来 分 虱 更 阵 


+z 《ttLoat)tfabefe[m])+dd) = dd) break; 


】 
iy (aa !< 1) { 


】 


1 《itaryf =<= SO) nxeITOI("ToD 昌 a07 Iterationa in 基 qlin) 3 
ge(d[1+t]-dfl])A7(2.0*recl]) 1; 形成 位 称 - 
TepyY| (有 :1.0) 1; 
2 [1]/(g+*SIGNCr, 区 ED) ) 3 这 是 dm 一 大 s、 
[2 
“0.0; 
for 《imd-1;iysl;--》 并 如 同 原来 @ 工 方法 “ 样 的 平面 转 山 ， 
Tamesa[i] ; 随后 吉文 斯 旋转 ， 用 昼 恢 揽 三 
bcee[i] ; 对 角形 式 
e[i+1]=Kr=<Pythag( ,过 )) 1 
1 (Fr mm 0.9) 从 上 溢 处 恢复 
d[i+1] -= pi 
e@e[a]=C.0; 
break 
Sm 人 / 工 i 
CEALi 
gemd[fi+i]-pi 
xsetd[i]-g)e*as+2,.0rCeb 
d[i+1]eEg+KPpaasT)》 
gmCax-Dbi 
中 jzt 1Cop Cun be omytted iT aigsuvactors nor YaDtad97 
for (km=1;Ec=na;x+r+) 1 形成 特征 向 量 
Yez[x] [i+i]; 
zfr] [i+4]=pez[x]{fi]+cez; 
zfx] [1]=c*z[x] [i]-gez: 
】 
} 
让 (Fr aa 0.D hz i > 下)》 Continue 
dr[1] -=”p; 
e[1]=E; 
e[s]=0.0; 


] while 个 } 王 1); 
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11.4 去 尔 米 特 矩阵 


在 复 域 巾 , 实 对 称 矩 阵 所 类 侯 的 是 埃 尔 米 竺 (Hermite) 生 路 ,满足 式 (11.0.4). 雅 中 比 变 
换 可 以 用 来 寻找 它 的 特征 信和 特征 向 基 , 妇 后 用 豪 斯 锅 灾 换 将 它 约 化 为 三 对 角形 式 以 ， ,而 
用 QF 迁 代 一 样 .以 前 的 程序 jaeehi,tred2 和 tqli 在 复 城中 的 形式 与 在 实 域 中 极为 类 也 , 具 
体 的 工作 程序 ,参见 [1,2]， 

-一 种 圭 代 的 方法 本 书 中 字 用 的 程 让 ,其 将 次 尔 米 特 司 乱 化 成 实 对 称 问题 :如 只 CA 
十 沼 是 一 个 埃 尔 米 特 矩阵 . 则 nx 复 兰 征 伟 问 题 为 


(十 邮 ) 一 六) 一 Au 二 iv CU 45 

等 价 于 -个 2rX22 的 实 问题 

A -- 了 B -on 
攻 A 网 攻 天 人 
注意 式 (11. 4.2) 中 的 22x 2n 迄 玫 是 对 称 的 :如 果 习 足 埃 尔 米 特 的 , 则 AT 一 A, 并 且 B :一 
B. 
对 应 于 一 个 给 定 的 特征 值 ,向量 
攻 栋 GL4 3) 
了 - 


也 是 一 个 特征 向 量 , 它 可 以 通过 将 (41.4. 2) 中 两 个 昔 含 的 第 阵 方程 写 开 来 验证 这 一 点 :本 
而 ,如 果 ,是 习 的 特征 秆 , 则 扩展 问题 411. 4. 2 的 2 个 特征 值 是 和 .ia， 
1 .hi 也 就 是 说 ,每 个 重复 两 次 .特征 向 量 是 air 和 iu 十 iv) 的 成 对 形式 , 即 它们 只 
相差 一 个 非 党 质 性 的 相位。 因而 求解 扩展 问题 (11. 1.2), 并 挑选 一 个 特征 值 和 .对 特征 向 
量 ,就 得 到 了 原 米 矩阵 C 的 特征 值 和 特征 向 量 。 

计算 这 个 扩展 的 抢 阵 比 产 来 的 复 怎 阵 运算 需要 洛 倍 的 存 鱼 量 。 从 原则 上 说 , 谋 计 算 时 
间 上 用 复数 算法 比 用 扩展 问题 求解 的 效率 要 高 一 倍 ， 
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11.5 将 一 般 矩 阵 化 为 海 森 伯 格 形式 


在 前 儿 节 中 ,所 给 出 的 对 称 撼 阵 的 算法 在 实践 中 很 邻 人 满意 .相反 地 ,对 于 非 对 称 矩阵 
就 不 可 能 找到 同样 令 人 满意 的 算法 。 这 有 两 方面 原因 .首先 , 非 对 称 抢 阵 的 特征 值 可 能 对 年 
阵 元 素 的 微小 变化 很 敏感 :其 次 ,矩阵 本 身 可 能 是 缺损 的 ,因而 找 不 到 一 套 完备 的 特征 应 量 。 
我 们 强调 的 这 些 因 难 是 任何 数值 计算 方法 都 不 能 “医治 ”的 , 它 是 其 些 非 对 称 矩阵 的 内 在 性 
质 , 我 们 最 大 护 基 说 汪 是 , 竺 法 过 程 不 要 使 这 类 问题 的 症状 加 别 。 
舍 和 人 误 卷 的 出 现 只 能 使 情况 变 得 更 糟 .在 有 限 的 靖 度 下 ,人 们 甚至 于 不 能 找到 … 种 简便 
"4410，。 


的 方法 来 兰 定 一 个 给 定 第 阵 究竟 是 否 缺 损 . 压 隶 当 前 的 算法 一 般 都 是 试 着 去 发 更“: 纤 完备 
的 特征 向 量 , 全 于 结果 怎样 ,得 白 胀 户 自己 刊 别 -. 如 只 有 两 个 特征 向 量 捞 卑 平 行 , 则 泳 末 听 有 
可 能 缺损 。 

除去 介绍 有 关 文 献 和 搜集 上 上 :2 1 中 的 程 这 外 .我 们 将 把 特征 向 量 的 加 题 改 在 一 迪 , 市 
只 给 出 特征 值 的 算法 .如 果 只 需 受 “小 部 分 特征 向 量 , 则 可 参阅 第 11. 7 布 并 考 虚 用 道 达 代 的 
方法 来 找寻 它们 :找寻 非 对 你 省 阵 的 全 带 特 往 所 量 的 问题 己 赵 出 了 本 书 的 范 财 . 


11.5S.1 配 平 


竺 进行 某 种 算法 时 ,特征 值 对 舍 人 泛 差 的 敏 成 程度 可 以 通过 瑟 下 的 这 各 米 冻 人 -本 数 得 
过 程 导致 的 特征 系统 的 误差 一 般 是 与 窃 阵 的 欧 儿 思 得 (Fucligean) 范 数 丰 正比 . 岂 就 是 汽 ， 
与 所 有 元 素 的 平方 和 之 平方 根 成 正比 。 配 平 的 思想 就 是 .用 相 世 变换 将 惠 阵 寻 志 各 行列 的 
洛 数 变 得 相 接 近 , 从 而 在 不 卜 变 特征 值 的 前 提 下 使 下 阵 的 总 范 数 减 小 .对 称 和 矩阵 是 一 个 已经 
配 平 了 的 乞 阵 。 
配 乎 是 一 个 六 ?次 运算 量 的 过 程 .所 以 下 述 程序 balanc 的 运行 时 间 永 放 不 会 多 上 浅 只 
征 值 所 需 时 间 百 分 之 几 .。 因 而 建议 读者 总 柳 先 将 非 对 称 先 阵 配 下. 这 样 只 会 太 大 提高 山 些 极 
度 不 平衡 眠 阵 的 特征 值 计 算 的 精度 。 
正如 [| 中 讨论 的 ,实际 的 算法 是 基于 奥 斯 伯 恩 (Osborne), 它 由 对 外 许 阵 了 完成 的 - 
系列 由 似 变换 组 成 .为 了 避免 在 配 平 过 程 中 引入 舍 人 误 莽 ,了 p 的 元 素 聚 制 为 用 于 泽 点 算术 的 
基 启 的 适当 知 次 (例如 ,对 大 多 数 视 器 基数 是 2, 但 对 于 JIBM 主机 体系 结 风 的 基数 是 16 )。 
输出 是 一 个 对 于 某 种 范 数 已 经 配 胖 的 矩阵 。 这 种 范 数 是 取 所 有 目 阵 元 素 的 绝对 人 之 和 , 它 比 
用 欧 几 里 各 范 数 更 方便 ,而 且 同 样 有 效 :-- 种 范 数 能 有 大 的 约 化 蕴含 着 另 一 种 范 数 也 有 大 的 
约 化 。 
注意 , 妇 果 矩阵 的 一 行 或 … 列 的 非 对 角 元 素 全 部 为 零 , 则 它 的 对 角 元 束 号 是 一 个 特征 
值 . 如 果 这 个 特征 值 恰巧 是 很 病态 的 (对 于 抢 阵 元 素 的 微小 变化 很 敏感 ) ,那么 党 用 程序 hqr 
《第 11. 6 节 ) 确 定 它 时 ,将 会 带 来 相当 大 的 误 善 ,如 果 我 们 事先 检查 整个 矩阵 ,就 能 驳 定 这 些 
孤立 的 特征 值 , 并 将 硼 应 的 行 和 列 从 矩阵 中 去 掉 。 读 者 应 当 考 虑 这 伴 种 事先 检查 昆 否 在 应 
用 中 有 用 处 。( 对 于 对 称 符 阵 ,我 们 给 出 的 程序 在 任何 情况 下 都 能 准确 地 确定 孤立 的 木 征 
值 。) 
程序 balanc 并 不 记录 对 原 米 矩阵 所 进行 的 相似 变换 本 身 , 因 为 我 们 只 美 心 斗 找 非 邓 称 
和 阵 的 特征 信 而 不 是 特征 向 量 . 如 果 急 要 跟踪 这 些 变 搞 的 话 , 请 参阅 参考 文献 屿 ~-3]。 
并 include 所 tnath.h> 
并 define R 民 ADDIXX 2. 0 
void balanc (laot * >ay jinan》 
给 定 一 个 外 阵 [1. -o] -mn- 本 各 央 用 一 个 具有 相同 将 和 企 值 多 丈 平 了 的 年 阵 取 找 它 -而 对 称 刘 隆昌 已 部 阳平 的 . 
族 立 妊 庆 对 它 不 起 覆 用 .和 对 数 RADIX 号 机 器 后汉 点 基数 . 
at 1a6，j， 工 ; 
TYlcat BT,g,f,cvsqrdzxi 
sdyrdxnRADIXHRLDIX ; 


1astnoi 
Wbila 【1ast me 0) 革 


"41 ， 


】 as 二 amT 
for (in1;iKen;i+t) 计算 行 和 列 的 范 数 
Ta .人 3 
for 〔j=1;]<c=en;j+t+) 
4E (3 li 荆 
& += Eabsa(a[j] fi]); 
TY +f= fab3sfa[l] [j]); 


了】 
f (c 奸 了 ) 1 若 两 普 都 为 非 零 

ge=rZRADIX; 

Y=1.D; 

SmC+F 

while (c<g) 二 寻找 机 器 基数 的 整数 戎 、 使 它 楼 近 杞 半 的 矩阵 
王 mm RADTX， 
ss Sqrdz 


E=xxXRADII; 

uhid1e fcy>E) 区 
/ae RADIX; 
C se Sqrdxi 


】 

if (crryyz 《 0.9548) 《 
工 二 3 蕊 mi; 
必 =L .OA 
for 〔j=tij<n;ij++》ar[if[j] eg 采 出 类 惧 的 变 搞 
ztor 〔j=1ij}cenij++》 afj]fil ce 了 

】 

》 
} 
} 
1 


11 5. 2 约 化 成 海 森 伯 格 形式 


找寻 一 般 算 阵 的 待 征 系统 的 方法 与 对 称 情 带 是 平行 的 .首先 ,我 们 将 矩阵 的 约 化 成 一 种 
简单 的 形式 ,然后 我 们 对 这 种 简单 的 形式 进行 某 种 选 代 . 这 里 我 们 所 用 的 简单 形式 为 海 森 伯 
格 (Hessenberg ;形式 .一 个 上 海 森 伯 格 和 矩阵 在 其 对 角 线 下 ,除去 第 一 个 次 对 角 线 上 元 素 二 外 
全 部 为 零 .例如 ,对 于 6X6 的 情形 , 非 零 元 素 是 : 


X XXX 其 和 关 失 
区 关 一 X 关 
2 

关 - 

X 欠 > 

X > 


至 此 ,应 该 能 够 :眼看 出 ,这 样 :种 形式 可 以 通过 一 系列 之 斯 贺 德 朗 搞 得 到 ,每 一 宪 换 将 算 
阵 一 列 中 的 相应 元 素 零 化 。 训 斯 德 贺 方法 的 确 是 :种 可 接受 的 方法 .然而 ， -种 替换 的 方法 
是 ,类 似 高 斯 选 土 元 的 消去 法 的 过 程 .我们 选用 这 种 消去 法 ,是 因为 它 比 豪 斯 锅 盘 方法 效率 
高 一 倍 ,而且 我 们 也 想 向 读者 介绍 这 种 方法 .可 以 构造 出 这 样 一 种 矩阵 , 它 对 于 豪 斯 贺 德 约 
化 的 正 交 变换 是 稳定 的 ,而 对 于 消去 法 是 不 稳定 的 ,但 这 种 惩 阵 在 实践 中 尾 极 为 罕见 的 

真 接 高 斯 消去 法 不 是 一 种 矩阵 的 相似 变换 .因此 ,实际 所 用 的 消去 过 程 有 点 不 同 , 在 第 
r 步 开始 之 前 ,原来 的 矩阵 A 三 Ai; 已 经 变 成 &,, 它 的 前 > 一 1 行 和 > 一 1 列 已 经 化 为 上 海 束 他 
格 形式 .第 > 步 由 下 列 操作 构成 ， 

“ 找 出 第 > 列 中 对 角 元 以 下 的 元 素 中 最 大 的 ~- 个 .如 果 它 为 零 则 卡 过 以 下 两 项 操作 ,这 

.412 ， 


一 步 就 完成 了 ,否则 就 假设 最 大 元 素 在 第 ~- 行 。 
* 将 第 上 行 和 第 * 十 1 行 相 交换 .这 是 一 个 选 主 元 过 程 . 为 了 使 这 种 置 作 成 为 相似 变换 ， 
同样 交换 第 ” 询 和 第 ~ 一 1 歼 。 
对 ;一 十 2sr 十 3 ，，N ,计算 乘 数 


mr+l 盖 


从 第 行 中 减 去 症 .-， 乘 以 第 > 十 1 行 。 

为 了 使 这 种 消去 成 为 相似 变换 , 阿 样 将 ”%.,… 乘 以 第 ; 列 加 到 第 "十 1 列 上 去 ， 
一 共 需 N 一 2 个 这 样 步 骤 . 

如 果 放 和 阵 苑 喜 的 大 小 数量 级 相差 很 多 , 则 应 试 着 重新 安排 抱 阵 ,以 使 最 大 元 素 凤 于 左 上 
季 ,这 就 可 以 减 小 售 人 误差 , 叶 为 整个 过 程 是 从 亚 向 右 进 行 的 。 

因为 我 们 只 关心 特征 值 .程序 emhes 不 四 踪 记录 所 进行 的 相似 变换 ,对 于 较 大 的 六, 运 
算 基 大 约 为 5R276 。 


检 include < 所 rnath.hb> 
共 define SWAP(gh) ty 一 (g5fE) 一 [hifhi 一 yi 


Yoid etmhes 《ilost * *<9yintn)》 


” 师 消 去 法 将 窍 阵 约 化 上 成海 和 森 伯 格 形式 . 实 尼 nxo 非 对 称 定 阵 a[1..n][L1..a] 由 只 有 相反 特征 值 的 土 海 森 检 格 息 阵 
所 代 兰 ,建议 (但 本 必 须 ) 这 行 本 程序 前 先 测 用 balane . 物 出 时 , 海 森 柏 插 红 阵 在 ali.j] 中 全 ji 十 1)- 上 共有 ji>: 十 1 的 元 
霹 应 看 作为 零 , 但 返回 一 些 无 用 的 随机 数 。 


int 昌 ,j, 开 ; 
了 1ORtL 了 , 甘 ? 


于 BY 【 阳 = 之 ;可 < 卫 : 本 ++) 荆 瑟 在 正文 中 称 为 r 十 1 
ID.Di 
Im 
for 〔jmm;jc=a;j++) 二 寻找 证 元 
1T 《fabgfa[j]ia-il》 > fabs(fx)》 工 
Xm8[j] [由 -1]; 
ie 
】 


] 
if (i lm gg) 工 变 撞 行 和 列 
for 《j= 旬 -Tijxan;j++》 SWAPKA[i]f]] ,acm][ 了 1 
Yor 《js1;j<=<ni;j#++) SWAPK[j]ii] ar [m] 
了 
ai tm) 执行 消去 
for 〔izm+1;1<anii++] 攻 
王 【(yea[il[m-1])》 :0.0) 
y ji 
航 [+] [i-t] 王 yi 
for 【jj 四 ;j<=a;ij++) 
[t] [j] -一 7*aia][j] ; 
or 【j=1i;ijJ<e=az]j+t+) 
a[j] [m] += 了 *a[j] ri; 


" 413。 


参考 文献 和 进一步 读物 ， 

镍 ilkinson ，]- 开 ，and Reinsch , 下 .197] ,Jaratr geBra ， ve， DEF Deadpopg Jor Aiatpoaatir foprpasatin 
TINew Yerk: Sbringsr-Verlsg)， [1 

Smitfn ， 甩 .Tet nn，1978，Ryatriz 柜 Eestiem 开 otlrrles 一 开 T 户 Ai 天 Carde，2nd cq ，vOI 6 of LeeruUtc 
Notes in (Compurer Science 【INSew York :Springer-Verlag)， 2] 

Stoer,， ]. ，and Hulirscl，R，1986，Jatrodaciiomn 扣 Nercal nagwsitNew YOUrTk:Springer-Verlaa ) 、 


有 .5.4 13- 


11.6 实 海 森 伯 格 矩 阵 的 AR 算法 


回忆 一 下 带 有 位 移 的 QR 算法 的 下 列 关 系 虑 : 
刀 (4 一 到 1) 一 入， 人 了 
其 中 四 是正 父 矩阵 ,而 只 是 上 三 角 扼 阵 . 并 唱 有 
有 -一 及 人: 十 入 1 
一 Qi AQ 
QR 变换 保持 原来 官 阵 4= 皇 A: 的 上 海 森 伯 格 形式 ,并 月 每 次 达 代 的 运算 最 是 〇 02) . 本 对 于 
- 般 宅 阵 来 说 , 却 是 DO(m 妆 当 5 一 于 帮 , 收 伍 于 这 样 -种 形式 ,在 这 种 形式 中 特征 于 或 者 
企 对 角 线 上 被 分 离 出 来 ,或 者 是 对 角 线 上 - -个 2X2 了 矩阵 的 特征 值 . 
正如 我 们 在 第 11. 3 节 书 指出 的 ,位 移 是 快速 收 全 的 关键 .这 里 :个 关键 的 区 别 足 让 对 称 
实 矩 阵 可 能 有 复 特 全 值 .这 就 意味 着 位 移 基 居 可 能 是 复数, 显然 需要 使 用 复 算 法 。 
发 管 如 此 ,可 以 通过 一 个 聪明 的 技巧 来 避免 夏 算法 .这 一 技巧 依赖 于 一个 类 似 于 第 11.3 
节 中 出 于 隐 含 位 移 扒 样 的 引 理 . 我 们 现在 需要 的 引 理 可 陈述 为 :如 果 了 是 一 个 非 奇 异 床 于 ， 
满足 
B ,QUO 一 Q'H (11 9》 
其 中 心 是 止 交 和 矩 路 ,而 匡 是 上 海 和 闲 柏 略 的 , 则 @Q 和 8 山 避 的 第 一 庆 完全 允 定 .( 如 果 了 开具 
有 下 的 下 次 对 角 元 素 , 则 这 种 确定 是 唯 -- 的 :) 这 :- 引 理 可 以 用 类 似 于 第 11. 3 节 中 对 三 填 角 
扎 阵 所 做 的 排 证 来 证 明 。 
这 … 引 理 在 实践 中 的 应 用 是 采用 两 步 Q&R 算法 ,或 音 取 两 个 实 的 位 移 量 总 和 到 .或 者 
是 对 复 共 斩 的 值 肪 和 太一 有 ,这 就 给 出 了 一 个 实 年 阵 A，， 
一 《12.35.4) 
其 中 的 Q 由 下 刀 关 系 确定 


A, 一 到 1 QT R. (131.5.5》 
4 一 Qi AQGT (11 -5.6》 
AL =Qr3 Rh (1.5.7) 
应 用 愉 (11. 6.6) ,等 式 (11. 6.7) 可 重 写成 
A, 一 & 1 一 QQ Ri vQ (11.3.8) 
于 大 .如果 我 们 定 六 
M 二 (A, 一 天 1 。，(A ， 克 1) (1 上 和 


则 等 式 (11.0.5) 和 (11.6.8)? 给 出 
和 六 14 生 


其 中 
& 一 QQ 11.S， 11 
R ，R.- ，R， 人 
等 式 (141.6, 1) 可 重 每 成 
AQ 3 
二 是: 想 设 我 们 能 通过 基 种 方法 找到 “个 上 海 森 想 格 和 阵 H , 满 是 
AQ 一 QQ 9 1 83 14 


其 中 国 是 正 交 算 阵 .如 果 @ 与 @ 有 村 同 的 第 一 列 ( 也 就 是 驴 与 @ 有 相 癌 的 第 于 站 .而 六 
-= 本 放 且 各-:= 开 。 

和 的 第 一行 林 以 接 如 下 方 潜 找 到 .等 式 人 1.8. 10) 去 有 昌 et 二 和 切 企 的 止 痉 
矩阵 .全 何 一 个 符 阵 可 以 通过 堪 潍 一 ee 降 而 二 - 关 化 :这 … 条 列 权 蒜 名 本 殉 陈 是 
人 - 列 上 ),P:( 作 巍 在 第 一 殉 上 ) :PP，.: 寺 是 Q=P Pi， 人 

- 行 就 是 P: 的 第 一行, 罗 为 多 ae 我 全 吏 耕 必 绵 去 找 
满足 式 411.6.14) ,并 且 与 了 有 同样 的 第 “ 行 的 妨 . 

莹 斯 俩 德 算 阵 P 是 几 M 的 第 - 列 岂 定 的 .因为 A, 基 上海 森 们 格 彤 式 的 ,等 式 5]1.6 9) 

次 明 M 的 第 -一刻 育 形式 [re0 60] ,其 中 
疡 一 ko 十 二 十 下 -十 全 sc 
9 一 cifa: | -as 一 克 站 .ti 


_ 汶 此 

P. 一 ] -2w (ii 和 
共 中 凤 只 有 前 三 个 元 索 非 索 5《 宣 江 11.2.5)。 于 是 所 琴 Pi A,P7 除 去 二 个 和 多余 元 素 过 外 共 上 
兹 森 伯 格 形 式 : 


蕊 < 
兴 并 

六 六 汉 立 
X 


区 
只 


PP AP: 一 


46. 7) 


并 X 立 X 江 
尼 





网 
六 XX 关 X 尖 





兴 当 


这 个 矩阵 可 以 通过 一 系 裂 斯 贺 德 相似 变换 重新 变 成 上 海 森 们 格 形 式 , 而 不 影响 它 的 第 
行 . 这 样 的 豪 斯 货 德 古 阵 中 的 第 -个 ,P,, 作 用 年 第 一 列 第 二 .三 得 四 元 素 上 ,并 将 第 -二 和 第 
外 元 素 零 化 -这 就 产生 了 一 个 和 式 (11.8. 17) 形 式 析 辐 的 迄 阵 ,只 是 三 个 多 余 元 素 癌 后 推 了 
一 列 : 


+ 415“。 





六 

X MX XXX > 六 
X 其 X X 并 
XXX 《1 118， 
X X XXX X 头 


广 
这 样 继续 直到 P。; ,我 们 看 到 每 步 的 察 斯 贺 德 矩阵 有 .个 只 有 第 "1 1 和 2 区 素性 半 
零 的 向 量 w. ,这些 元 素 是 由 当前 具 阵 的 第 人 r 一 1) 列 的 第 ~,r 一 1 和 上 十 2 元 素 决 定 的 .注意 了 
与 PP。 :有 相同 的 结构 ， 


结果 是 
P,，:., .PP .APT. PPI， 一 也 《ii 81 
其 中 也 是 上 海 森 柏 格 形式 .于 是 
-QQ = P,，.:...P,.P. 《11.. 201 
和 
A,， ;一 H 《11.5. 211 


每 “ 步 的 原点 伺 移 都 取 为 当前 扼 阵 A, 的 右 下 角 处 zxX? 宪 阵 的 特征 值 .由 此 给 出 


开 ， 中 此 ;43 二 Qnm-:n -1 夺 Qnr 


天 二 的 《了 1. .22 
将 式 (11, 6.22) 代 入 式 (11.6. 15)》, 我 们 得 到 
太一 ce al)(e al) 一 alias ijjasn 十 ap) 
和 一 [as 一 (om 一 oa 一 (an in :一 和 《231 
7 一 CQaiQaz 


我 们 记 经 明知 地 归 类 其 些 项 ,以 减 小 当 存 在 小 的 非 对 角 元 时 可 能 带 来 的 舍 信 误差。 由 于 昌 斯 
贺 德 矩阵 只 和 元 素 间 的 比例 有 关 , 我 们 可 以 路 去 式 (11 6. 23) 中 的 因子 axt。 

剖 之 ,为 完成 双重 步 久 R 选 代 , 我 们 构造 -系列 的 豪 斯 观 德 抵 阵 Pr 一 1… .2 一 ]。 对 
于 p; 我 们 使 月 式 (11. 6. 23) 给 出 的 户 , 和 对 于 剩 上 的 和 阵 , 刀 ,e 和 由 当前 算 阵 的 
Gor 一 1) .Cr 十 1yr 一 1) 和 (r 十 2,r 一 1 元 素 确 定 .可 以 通过 将 豪 斯 贺 德 矩阵 2w ww” 部 分 的 非 
零 元 剖 写 成 如 下 形式 , 刚 威 少 算术 操作 的 次 数 
( 户 士 7( 士 Y 
| “[L1 97(p 士 S) rr( 庆 士 ?)] (11,8. 241 


2mwvw7 一 | 3/( 士 9) 


FA 示 





其 中 
站 一 下 十 全 十 六 (11,8.23) 
《我 们 简单 地 将 每 一 元 素 除 以 一 个 归 一 化 因子 ,参见 第 11. 2 节 中 的 公式 。)》 
按 这 种 方法 进行 , 收 黎 通常 是 很 快 的 .对 于 一 个 竺 征 值 有 两 种 可 能 的 方式 可 以 结束 所 进 
行 的 选 代 . 首 先 , 如 果 own-, 变 成 是 "可 多 略 的 “, 则 eu 是 一 个 特征 值 我 们 于 是 可 以 删 去 矩阵 
的 第 = 行 和 第 ” 列 并 继续 寻找 下 一 个 本 征 值 .第 一 种 情况 ,av-:. 二 :可 能 变 得 可 忽略 .这 时 右 
“416。 


下 角 的 2x2 种 陈 的 牧 征 依 就 是 原来 筷 阵 的 特 红 侦 . 我 们 删 去 第 二 和 第 2 1 生 积 外 .六 大 续 
进行 下 面 的 计算 . 

对 特征 俩 收敛 振 的 检 哈 与 可 忽略 的 次 对 第 元 素 的 检验 相 结 人 台 , 这 种 可 忽 力 的 次 半 和 远 
索 使 更 阵 能 分 裂 成 了 遇 阵 .在 那些 可 和 忽略 的 中卫 二 守 全 最 太 的 一 人 个, 如果， 我 
们 就 找到 了 “个 特征 入;: 姑 昌 7= 二 二 ,我们 就 找到 了 了 亚 个 特征 值 : 谷 则 ,我 们 就 毕 续 进 生 
于 也 所 阵 从 第 ; 行 刘 第 ”* 行 的 达 代 ( 刻 果 没有 小 的 次 对 角 元 素 守 就 没 恤 单位 1 ， 

确定 ; 入 之 下 :检查 了 并 阵 从 第 庆 行 到 第 行 ,是 否 右 两 个 连续 次 对 角 元 素 的 滋 积 足够 
以 至 于 我 们 能 秆 对 一 个 更 小 的 子 征 阵 进行 计算 。 例 如 ,人 在 第 交行 ,我 们 从 靖 42 下 洁 

直 小 降 到 ;十 1. 用 式 (11.8.23) 让 算 ze 和 >: 但 要 将 公式 中 的 主 用 各 代替 ,> 且 关 一 代 
枕 , 如 果 这 些 是 一 个 双重 步 QR& 中 特 的 "第 "党 斯 货 德 讽 阵 开 素 , 司 几 这 一 党 斯 锅 德 起 阵 
将 会 导 敏 (ma 十 1. 关 DC 一 2 一 上 和 (十 2 位 置 了 上 的 元 素 为 非 零 。 我 位 可 求 这 些 区 
素 中 的 前 两 个 元 素 与 树 邻 的 对 角 元 素 so -om .emn 和 urn3i 比 较 臣 来 较 小 -个 令 人 满 
姐 的 近似 标准 荐 

人 126) 

上 述 过 程 很 少 是 不 收敛 的 ,经 验 告诉 我 们 ,如 内 - 一 个 双重 步 GR 迭代 中 的 位 移 与 所 阵 范 
数 是 司 一 量 线 的 , 懂 么 通常 收 伍 很 快 。 相 应 地 ,如果 10 次 送 代 还 没有 确定 出 一 个 特征 值 . 下 
次 达 代 通 常 的 位 移 就 旧 换 成 由 下 式 定义 的 新 的 位 移 

丰 . 十 有 一 1.5X(e ii 十 |a il) 
希 丰 二 芝 生 隐 六 二 二 再 | 六 寺 司 全 囊 和 天 

其 中 央 子 1.5 可 以 任意 挑选 ,以 减 爷 无 效 的 移动 。 在 20 次 不 成 功 进 代 后 ,这 一 策略 重复 使 
四 ,如 采 30 识 选 代 不 成 功 , 则 程序 宣告 失败 。 

这 里 丧 述 的 QR 算法 的 运算 基 合 计 为 每 次 迁 代 一 5&*, 其 中 上 是 当前 矩阵 的 阶 数 .每 个 
特征 值 的 总 运算 量 一 38。 这 一 估计 和 忽 略 了 先 阵 分 裂 或 稀 朴 性 可 能 带 来 的 效率 ， 

下 列 程序 aar 是 基于 上 述 算法 ,这 来 源 十 文献 上 1,2 。 


芋 ineluje < 天 Insth.h 盖 
切 include ”nrutil.hy 


| 


soid hgr (float 关 关 皇 tn 3319 Hoal wr[ ，[loat wii) 


寻 式 上海 琳 从 格 矩 隆 a[ 1. ,0.1 ,n] 的 所 有 扶 证 值 输 入 前 a 可 以 是 第 11.5 节 中 elmbhes 的 输出 : 编 刀 时 a 的 硕 介 已 
被 玻 坏 .特征 笛 的 实 部 和 庚 部 分 别 出 wcLt. .na 和 will..m 返 加 ， 


《 
jnt mn , 阳 , 了 ,X ,jita ,让 ,ma iD 
1oat 节 ,y: 关 arrtgI， PSADDIBi 
anorpefabg fariJ[); 计算 犯 阵 范 数 ， 有 可 能 将 它 用 来 定位 小 的 单 
for (im2;ic=n;i+r》 的 次 对 角 元 素 


Toxr 《jeki-1) ij<m;j+t) 
amnoTE +a 六 和 bgKBEi] [j); 


Rmthi 
tm 只 有 .-- 个 大 外 的 位 务 才 发 生变 化 
While fnha >e I) 开始 寻找 下 -- 个 特征 值 
二 上 ae0D 
do 工 
for (lzaayl>s2;1-~} 1 开始 途 代 ， 寻 找 小 的 单一 的 次 对 角 元 素 


3stabBfa[1-1] FL-1])+fabs(arllrl]); 


if (ss == 0-0)》 9=anotmi 
if 【人 (float)(fabska[1] [1-11) + 5) mm 和) break3 


xma[nn] [zn] ; 


了 《1 sm 


nn 并 栈 到 -个 根 


WwWT [nn] =x+f 7 


Wi [np--]=0.0; 


} else 荆 


y= 妊 [Da-1] [zi-1] ; 

We [rn] [um-~1]*+a[nn-t]j [on] 

iz 《1 = 《ma-1)) 1 找到 站 个 恨 
pe=O ,54fy7-X) 


pyptv， 
Z=Sqxt(fabs(q))3 


4 了 ; 


3f (q >= 0.0) 并 六 对 实数 根 


Zz=Pp+STGHCz ,Pi 

wr[nn-l]=vur[oo]=x+zi 
i《z) wTr[an]=z-vyzi 
wi [nn-1]=si[an]<0.0; 


} elsa { …- -对 复数 椒 
wr [nn-l] rr [on]j=xtP3 
wi[an-1]= -~(wirnn]=sz); 
了 
ID -aa 2i 
+ else 没有 找到 根 ， 释 续 迁 代 
if 〔itg mw 30) nrarrort”Toop Dan7 iteration 名 in hnqr") 7 
if {fits <= 10 11 its == 20) { 形成 特殊 的 位 移 
人 + 严 工 | 
for (iml;ixsnn;i++》 af[ii[il -= xi; 
se=ahata[nn] [nn-1]》*+?absfafnn-1] [nn-2]); 
yY=YeO ,76wBi 
WwW = -~0.4375w8+B: 
二 十 全 号， 
for 《m= (nn-2) ; 包 >=];@--) 攻 形成 位 移 并 寻找 2 个 连续 的 小 
zema [由 ] [ 昌 ] ; 的 次 对 角 元 素 
工 = 关 ~ 世 1 
3=y-2; 


】 


or 


】 


P=treB-v)Yafm+t] fm]j+a[m]lfm+Ll]; ;11.6,.23! 式 
4=a [aa+1] [m+1] ~z-T-~S; 
T=a&[a+2] [m+i] ; 


SmfabsP])+fabs(q)+Tabskfr) ， 为 防止 上 广 出 或 下 溢出 而 改变 
中 fa Si 尺度 

qz 9; 

工 pm 3i; 


1 (内 < 1) break 

msabs(a[ 血 ] [ 岂 -1] )q (fabs(q)+Etabs(T)]; 

wmfabs(p]s [iabsta[m-t] [m-1] )+*fabsfz]+tfaba(afmtl] [fm+1])); 
if 《(float)(urv) mm v) braak; (11.6.26) 式 


《immt+2;1cennmiit+)》 了 
afi] [i-2]=0.0， 
if (ft Is= {o+2)) a[a]jfa-3=<0.0) 


fcr (〔(X> 本 ;KK<=nn-1;k++) 工 


对 从 第 上行 到 第 nn 行 及 从 第 六 列 到 第 nn 列 施 行 双 马 尽 峭 要 


ji (FE Im 下 ) T 
p=a[t] [x-1]， 开始 设置 圳 斯 袖 德 向 量 
qea[x+1] [kx-1l15 
Tr=0.0i 
证 (kx 5= 《na~1))》r=a[x+2] [-1] : 
j【(xznfabsfp)+fabatqg)*Tfabstr)) := 0.0) T 


B /= xi 为 防 目 上 潍 出 或 下 出 而 改变 
日 A= xi 尺 认 
TEA= ER 


上 
i 诗 〈(Be-.SION{sqrt(Ppyp+qtrq+ryr) pi) != 0.0) 区 
放 (x mm 严 ) 区 
if (1 != 3) 
afk] [k-1] = ~afr] fk~1]: 
} al1anm 
所 [kx] [fx-1] = 一 3*#X; 
pP += ai; 全 :8 2 起 
T=PXZs;i 
J“q978i 
Z=T/ai 
9 Am Pi; 
z /= Pi 
THor (jekij3cwnni]++) 荆 行 调整 
B=afx] [j]*qra[k+l] [j] ; 
这 (kx !m 《nn-l))》 区 
P *= FT*+a[k+2]fj] ; 
[x+2] [jj] -= Pez; 


] 
aa [x+1] [和 -= Payi 
a[k][j] -= peI; 


】 
minR = Dnck+3 ? pm : x+3i 
for 【is1;i<mammib;i+y》 工 刘 调 整 
pe=xw*a [IJ] [X] +7*a [IJ [k+1j 
if (x ! 王 App-l)) T 、 
PP += 王 中 下 [i]) [X+2] ; 
妊 [i [x+2] -二 Pezi 
a[i]fk+1] 一 pedi 
和 fi] fkl -< P; 
】 


】 
》 shile f{1L < ln-1); 
》 
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11.7 用 逆 迁 代 法 改进 特征 值 并 寻找 特征 向 量 


逆 迭 代 的 基本 上 思想 很 简单 . 令 了 是 线性 系统 的 解 
(A 一 rl,y=b 《171 
其 中 b 是 -个 随机 向 量 ,而 = 华 近 A 的 其 一 特征 值 4 .这 一 过 程 可 和 渤 代 进行 ;用 y 代替 并 
解 出 新 的 y, 新 的 y 更 接近 真实 的 煌 征 向 最 。 
我 们 可 以 通过 将 y 和 展 并 成 4 的 特征 向 量 x, 的 线性 组 合 ,来 肴 看 首选 代 法 的 工作 原 


理 。 
了 一 之 oo 
b 一 了 pp 的 用 了 人 
克 


“二 9。 


于 是 式 (11.7.2) 给 出 





| T)X， 汪 、， ]XN， 1 
4 
以 而 有 
了 了; 
如，=- ”一 -- | 1 
在 置 
和 
攻 办 时 人 
y 一 人 站 下] 避 二 这 洒 


如 桌 z 接 近 和 人, 则 只 要 全 大 是 意外 岂 本 小 ,7 类 过 修了 于 某 种 时- 从 的 和 -进而 ,这 “二 特 的 全 
一 步 达 代 部 给 出 式 41 7， 0 交 -个 苦 次 :所 以 .好 下 分 得 很 汗 的 特 生 全 长 
收 笋 很 快 。 
髓 设 在 第 二 步 夫 代 ,我 们 解 等 式 
(和 DY = bx (3 R》 
其 中 必 和 rs 大 我 们 感 》 人 前 估 i 殉 如 和 27 化 号 -个 
bs hs 一 上 ,精确 的 特征 向 量 和 特征 信 浅 足 


和 X- 站 这 这 六 和 
本 足 
(下 一 中 1)  X == (1 -re 和 
内 为 式 人 11.7.6) 中 航 y 是 xs 浆 进 -- 和 此 近 傣 ， ii -化 首 令 
| 1.1.97 


通过 将 改进 的 狂 测 值 y 代入 式 人 1 7.8) ,得 到 特征 值 的 “个 改进 的 估计 和信。 纪 据 式 (6 1.?， 
6) , 亦 边 是 良将 in 称 作 新 值 nx- 我 引发 疯 
] 
be，y 
上 述 公 式 看 赵 来 很 简单 ,但 实际 计算 中 可 能 很 茜 于 。. 痛 先 , -个 需要 重新 攻 坊 的 口 题 屿 
是 何 时 使 用 道 选 代 . 大 多 数 工作 量 晨 解 线性 系统 (11. 7. 5)。 所 以 -- 个 可 能 的 策 铬 是 , 癌 先 几 
提 阵 A 约 化 成 一 个 简单 的 形式 ,使 得 式 (11. 7.6) 床 容易 求解 .显然 ,这 样 的 形式 对 于 对 陈 夭 
阵 来 说 是 二 对 角形 式 ,而 对 于 非 称 矩 星 来 说 是 海 森 伯 格 红 式 .然后 ,使 用 道 先 代 来 产生 引 有 
的 特征 向 量 .这 种 方法 对 二 对 称 矩 阵 的 运算 量 为 OCN ) , 它 还 不 及 前 面 提 到 的 Q7 诡 法 存 
效 。 实 际 上 ,一 瑟 要 求 计算 加 分 之 :以 上 数 景 的 待 征 向 其 ,即使 荐 最 好 的 道 选 代 租 床 也 不 及 
@7 方法 有 效 。 所 以 只 在 当 已 知 有 较 好 的 特 行 值 ,并 只 需求 其 中 几 个 选 出 的 特 剑 向 旺 卜 村 
使 用 逆 送 代 方 法 。 
读者 可 以 痢 己 写 一 个 简单 的 道 代 达 代 程序 ,使 用 六- 分 解 来 组 式 (11. 7 6) 。 齐 并 可 以 曲 
三 决定 是 使 用 我 们 在 第 二 章 中 给 出 的 一 般 LC 人 
殊 形 式 .注意 ,因为 式 (11. ?. 56) 的 线性 系统 是 近乎 过 异 的 ,我 们 必须 小 心 使 用 第 2. 3 太 让 
7 分 解 , 它 用 -个 上 常 小 的 数 来 代 蔡 零 证 元 。 
在 本 书 中 ,我 们 不 给 出 一 个 一 般 的 逆 选 代 程 序 . 本 为 要 考虑 听 有 可 能 出 现 的 情况 古 业 内 
又 烦 的 .在 文献 -1,2 中 给 省 了 程序 。 如 果 你 使 用 这 些 程序 或 兰 自 岂 反 程序 ,不 列 的 斥 占 是 很 
"20。 


(11.3. [95 


有 用 的 。 

人 们 在 开始 的 时 候 , 给 出 “个 代 袁 特征 值 。 的 数值 ,选择 “个 由“ 小 的 随机 应 基 b. 作 
为 对 特征 向 量 x 的 初始 猜测 ,并 求解 式 (11.7.6). 新 的 向 量 y 比 pm 大 一 个 * 增 长 因 -下 ”| . 它 
理所当然 应 该 大 些 。 同 样 特 征 值 的 变化 ,根据 式 (11.7. 10) 本 质 上 应 是 1271yi 它 应 该 小 一 
些 -. 下 列 情况 可 能 出 现 : 

如果 开 始 时 增长 因子 太 小 , 则 可 以 肯定 我 们 选择 了 个 “ 坏 ” 的 随 向 量 .这 不 仅 可 能 

旦 由 于 式 (11.7.5) 中 的 访 很 小 ,同伴 ,也 可 能 由 于 是 缺损 矩阵 情形 ,这 时 式 (11.7.35) 
根本 不 能 使 用 (详细 情况 参见 [1 或 [3]). 我 们 应 返回 到 起 始 并 赵 择 一 个 新 的 初 巡 向 
基 。 

“ 变 蕊 量 |b 一 bx:| 应 小 于 某 容 差 下 ,我 们 能 崩 它 作为 停止 选 代 的 标准 ,一 直 远 代 到 满 
足 此 标准 ,最 多 进 行 5~190 次 友 代 、 

“经 过 几 次 达 代 后 ,如 果 |b-: 一 bx 减 小 得 不 够 快 ,我 们 应 根据 式 (11. 7. 10) 或 试车 修正 

特征 什 如 果 在 机 器 精度 下 n+ 一 rz 我 们 戴 不 要 再 去 修正 特征 向 量 调 应 放弃 选 代 , 否 
则 就 用 新 的 特征 值 开始 另 一 轮 和 迭代。 

我 们 不 是 每 步 都 修正 特征 值 , 其 原因 是 因为 用 ZZ7 分 解 线性 系统 (11. 7.6)? 时 ,如 果 x 
是 固定 的 则 可 以 节省 分 解 .我 们 在 每 次 更 新 pk 时 ,只 需 做 回 代 .对 十 具有 固定 zx 的 先 代 次 
数 是 以 下 两 者 的 折衷, 或 者 以 一 次 收 生 但 由 于 每 次 改进 玉带 来 OCY5 的 运算 旺 , 或 者 以 线 
性 收 敏 但 由 于 保持 固定 的 mm 所 需 运算 量 为 OCN?) ,如 果 已 经 应 用 本 章 前 面 络 出 的 某 个 程序 
确定 了 特征 值 , 则 它 可 能 修正 到 机 器 的 精度 ,于 是 就 不 攻 更 新 它 。 

有 两 种 病态 情况 可 能 会 在 逆 选 代 过 程 中 出 现 。 一 种 是 重 根 或 离 得 很 近 的 根 。 这 是 对 称 阵 
情况 中 为 常见 的 问题 , 道 选 代 对 于 一 个 给 定 的 初始 猜测 mx 只 能 找到 一 个 特征 向 量 。-- 个 好 的 
策略 是 ,扰动 rm 的 最 后 几 个 有 效 位 并 再 次 运 代 。 这 样 ,常常 能 得 到 一 个 线性 无 关 的 特征 向 量 。 
一 般 说 来 ,必须 采 歌 特殊 的 步骤 来 保证 线性 无 关 特 征 向 量 的 正 交 性 .鉴于 雅 可 北 和 人 Q/ 算 
法 , 世 使 在 多 重 特征 值 的 情况 下 ,也 会 自动 产生 正 交 的 特 征 向 量 ， 

第 二 个 闪 题 ,特别 对 于 非 对 称 矩阵 来 说 ,是 关于 缺损 的 问题 .除非 做 出 一 个 "好 ”的 初始 
估计 ,不 热 增长 因子 会 很 小 .更 有 其 者 , 选 代 对 问题 没有 改进 ,在 这 种 情况 下 ,解决 的 办 法 是 
选择 随机 的 初始 向 量 , 解 一 次 式 (11. 7. 6) ,并 只 要 任何 向 量 给 出 一 个 可 接受 的 大 小 的 增长 因 
子 : 刘 就 停止 欠 代 .通常 只 需 进 行 几 次 试验 。 

对 于 非 对 称 和 矩阵 的 一 个 进一步 的 复杂 情况 是 实 矩阵 可 能 有 一 对 复 共 簿 的 特征 值 .这 时 
和 将 不 得 不 使 用 复数 算法 从 式 (11, 7. 6) 解 出 复 向 量 . 对 于 任何 中 型 (或 大 型 ) 非 对 称 答 阵 ,建议 
避免 使 用 道 选 代 法 ,而 选用 包括 复 算 法 的 QR 方法 。 该 者 可 以 从 文献 [1 ,2] 和 其 它 地 方 找到 
这 类 程序 。 


参考 文献 和 进一步 读 牧 ， 
Wilkinsony， 本 日 .and Reinxschb，(C， 1971，Ernear Atgebra，vol，] ol 瑞 ang5oo Jor aromatic 人 Op- 
tionz (New York: Springer-Verlag),p- 418，-1] 
Smich ，R. 工 . ，et al]，1976，R1azri geri5ySTEI2 届 0ptifte5- 瑟 PSPACK Gride，2znd ed. ，vol 6of Lecuare 
Notes ia Computer Science (New York:， Springer-Veriag]，[2- 
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第 十 二 章 “” 快速 傅 里 叶 变 换 


12.0 引言 


有 有 -天 炎 重 要 指 计 算 问 题 遇 入 - 般 钊 "* 博 用时 (Fonrieri 变 换 法 "或 " 谱 分 析 读 ?” 拖 畴 之 
内 。 对 于 其 中 某 些 计算 回 题 来 说 ,埔里 叶 变 换 只 是 一 村 计 算 工 县 ,是 抑 成 数据 的 某 种 苯 遂 灌 
和 镍 前 效 计算 工具 ,而 鸡 了 其 它 ，- 些 情况 .大 们 关心 的 癌 题 芋 是 和合 旦 时 变换 5 或 下 关 交 "内 率 
谱 思 其 自身 内 在 的 含意 是 什么 .这 两 种 问题 具 丰 种 其 同 钴 方法论 
主要 用 于 上 史 原 河 ,使 博 里 叶 方法 和 谱 分 析 法 妆 文 献 一 直 与 “市 典 的 ? 数 全 分 析 的 文献 
没有 什么 联系 ,但 在 当今 的 时 卡 ,就 毫 无 理 白 再 这 样 割 离 乒 了 . 情 里 叶 方 法 在 研究 中 下 做 为 
平凡 的 方法 ,我 信也 不 再 讽 其 为 高 深 葛 测 或 秘 不 可 宣 的 了 .可 同时 ,我 们 也 感觉 到 许多 汁 掉 
机 用 户 在 这 领 咸 内 的 经 验 比 其 它 筑 城 , 例 如 微分 方程 或 数值 积分 领域 的 经 验 档 地 要 少 尘 - 
所 灸 ,我 们 对 解 本 结果 的 分 析 些 做 得 更 完 束 此 ,数值 算法 基本 上 将 在 第 12.2 节 并 着 ,天 便 由 
叶 恋 换 放 法 的 各 种 立 用 和 将 放 在 十 三 章 中 讨论 ， 
”一 个 物理 讨 程 孜 可 以 在 时 域内 ,通过 把 物理 量 六 作为 时 间 上 的 函数 产 乓 来 措 述 ;也 可 以 
看 频 域 内 ,通过 将 振 始 鼠 ( 通 常 是 -- 个 包含 相位 的 复数 ) 作 为 频率 了 了 的 函数 如) 来 摘 过 ,其 
中 一 江 Js 在 许多 情况 下 ,把 上 OO 和 百 ( 廊 考虑 为 阿 遇 数 的 两 种 林 同 狗 表 达到 式 是 
条 有 用 的 。 良 据 依 里 叶 变 换 方 程 便 可 实现 这 西 个 表达 之 问 的 相互 转变 : 
(六 | free 
全 村 
AGE) 一 六 Caret 
如 果 上 以 秒 为 单 实 , 则 方程 式 (12.0. 1) 中 是 以 周期 每 秒 或 幸 效 (Hertz) 为 单位 ( 赫 效 是 
频率 单位 ) .当然 , 方 竹 也 吕 采 用 其 它 单 售 。 如 果 瑚 是 位 咎 :>( 米 ] 的 卫 数 ,五 则 为 反 波 氏 ( 周 期 
数 / 往 米 ) 的 师 数 ,等 等 . 若 岐 者 是 一 你 训练 有 索 的 物理 学 家 或 数学 家 ,就 可 能 更 习 民 本 使 用 
角 扶 率 os( 单 位 为 弧 廊 / 秒 ) .w 和 大吾 (wo) 和 己 ( 门 之 闻 的 关系 为 


三 2z/ 五 (o) =[ 拓 六 Jo (12.、). 2) 
虽 方 程式 人 42.0. 岂可 写成 如 下 形式 
吾 (w) = 上 下 (ereet 
(12. 3 
h(D “二 | (oemalu 


我 们 开始 时 三 用 的 是 这 习惯 单位 w, 可 后 来 我 们 有 拷 改 变 ! 医 为 若 使 用 了 单位 . 则 有 关 2r 的 
困 式 便 可 不 用 记 住 了 ,特别 是 在 第 12.1 筷 中 当 我 们 处 理 离散 样本 数据 时 更 屁 如 此 。 
内 方程 式 (12. 0. 1) 中 ,可 明显 看 出 傅 里 叶 变 换 是 线性 运算 ,两 个 本 数 之 和 的 变换 应 等 二 
函数 变换 之 和 。 ,个 常数 洪 以 一 个 通 数 之 积 的 灾 换 .应 等 了 上 同一 常数 乘 以 函数 变换 的 和 ， 
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在 时 域 直 , 国 数 AGO 可 能 具有 “个 或 多 个 特殊 对 称 性 。 它 可 能 证 纯 实 函数 或 者 纯 虚 函 
数 , 也 中 能 是 偶 折 数 At) = 一 (一 六 ,或 者 奇 函 数 t 一 (人 在 频 域 中 ,这 些 对 称 性 导出 了 
5 廊 和 五 (一 廊 之 问 的 大 系 。 下 表 列 出 了 在 了 时 式 和 频 域 中 对 称 性 的 对 应 关系 : 





假如 … 2 有 
上 9 是 实 丽 数 杂 ( 开 六 := 

At) 是 虚 国 数 再 人- 让 一 一 L 呈 (站 

天 (t)? 是 价 函数 厂 (一 亡 一 妃 ( 廊 ( 即 五 (万 是 悄 国 数 ) 

At 是 青 函 数 五 (一 万 = -一 五 ( 方 ( 即 五 ( 户 是 奇 画 数 ， 

Atr) 是 实 偶 函 数 zZ5 门 是 实 偶 函 数 

At 是 实 奇 函 数 五 (/) 旦 虚 奇 尊 数 

上 (t 屋 虚 偶 函数 她 ( 廊 是 虑 偶 函 数 

hi) 晨 虚 奇 丙 数 杂 ( 亡 是 实 奇 函 数 


在 以 后 的 章节 中 ,我 们 将 会 看 到 如 何 利用 这 些 对 称 性 来 提高 计算 效率 。 


下 面 还 有 傅 里 叶 变换 的 一 些 其 它 的 基本 性 质 。( 我 们 用 符号 “后 ?表示 一 个 变换 对 。) 如 果 
站 人》 
是 一 对 变换 对 , 则 其 它 变换 对 为 


大 (qt ) 记 》 让 “时 间 标 度 变 换 ” (12.0.47) 
二) 局 (OP) “频率 标 度 变 换 ” (12.9.5) 
丰 信 有 和)》 沁 瑟 ( 门 er “时 间 平 移 ” 《12.9,6) 
Fe 人 人 届 ( 丰 一 万 ) “频率 平移 ” (12.0.7) 


利用 两 个 函数 #eo) .8 和 它们 相应 的 傅 里 时 灾 换 如 CA .G( 方 ,我 们 可 以 组 成 两 种 情况 别 
有 意义 的 组 合 . 这 两 个 函数 的 卷 积 记 作 六 * 六 ,其 定义 为 ; 


geh | DA rar (12.0.8) 


注意 ,gx 天 是 一 个 时 域 函 数 ,而 且 gx AsAxe- 几 此 推导 出 函数 gx* 广 是 以 下 管 单 变 换 对 中 
的 … 员 。 
世 # 页 人 CT( 门 再 (六 “ 眷 积 定理 ” 112.0 9) 
换言之 , 卷 积 的 傅 里 叶 变 换 恰好 等 于 传 里 叶 变 换 的 乘积 。 
这 两 个 后 数 的 相关 函数 , 记 作 Corrtg ,六 ), 其 定义 为 


Corrlg 认 一 | gr +Dhtrdr 62.4 19) 


该 相关 画 数 是 上 的 函数 , 称 + 为 滞后 时 间 , 所 以 , 它 依赖 于 时 域 ,而 且 可 以 证 明 它 是 以 下 变换 
对 中 的 一 员 
CorrtgR) 外 (让 九 :CCF) “相关 定理 ” (12.0.11) 
[更 一 般 而 言 , 这 变换 对 中 的 另 “ 员 是 GC7) 瑟 (一 六 ,但 通常 情况 下 我 们 限制 g 与 尹 都 为 实 - 
盘 数 ,所 以 我 们 冒昧 地 特 变 再 ( 一方 一 五， (这 个 结果 证 明 , 一 个 函数 的 和 傅 氏 变换 乘 以 另 
-天 数 傅 氏 变换 的 复 共 辑 就 得 到 它们 的 相关 函 数 的 傅 氏 变换 。- 个 函数 与 其 自身 的 相关 称 
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为 它 的 自 相 关 .。 在 这 情况 下 , 式 (12.0.117 成 为 以 下 变换 对 
Corrgr , 交 )43|L 1 ”Wiener-Khinehin 定 埋 " 人 下 和 2] 克 5 
无 论 我 们 是 在 时 城 还 是 在 频 域 年 计算 ,一 个 信号 的 总 功率 总 是 相 癌 的 :这 “ 缚 论 就 是 则 
斯 维尔 (Parsetval) 秒 理 : 
疙 功率 =| | 天 人 cl 一 | Ce (12.0. 131 


通常 ,人 们 想 和 类 道 包 含 在 地利 六 一 < 频率 区 间 内 的 “ 荔 谈 大 小 ”在 这 种 情况 下 .和 八 们 通 
常 相 区 分 业 , 负 频率 访 而 了 蒜 认 为 地 昨 从 U 估 零 朱 率 "或 上 请 流 ) 变 化 到 一 s 这 时 ,大 们 总 这 
表 数 卢 的 单 侧 功 率 谱 密度 (CDSD ) 为 
己 厅 站 二 (六 王 十 | 琳 ( 一 门 : 0 过 不 < 人 
因此 ,总 功率 巧 好 是 己 (《 方 从 了 一 0 到 /一 尖 的 积分 。 各 晒 数 上 0) 为 实 丙 数 , 则 式 (12.0.1b 中 
两 项 相等 , 故 已 ( 方 =2| 尼 (六 上 。 要 告 诚 的 是 ,大 们 会 偶尔 看 到 承 定 义 的 PSD 没有 这 个 因 
子 2 .严格 地 说 ,这 应 称 为 双 侧 功率 谱 密 度 .可 足 有 些 飞 许 未 明确 地 指出 所 假定 的 是 单 删 述 
是 双 侧 谱 帘 度 .多 12.0.1 将 这 两 种 定义 作 了 对 比 . 











为 
出 
( 吉 
琶 
峰 
撑 
一 一 -一 
0 厂 
(by) 
ke) 


函 教 平方 的 内 线 十 的 血 积 ,如 (ai 它 等 了 在 止 频 率 域 上 单 刘 功率 谱 密 度 昌 线 下 的 夯 检 ,如 
(b);, 也 等 于 工 , 奥 频 率 域 上 双全 功率 密度 曲线 上 的 面积 ,如 (=) 


图 12.0.1 单 侧 和 发 侧 功率 并 的 趣 范 氏 
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旭 备 消 数 下 六 元 限 幅 庄 症 st 中 全 化 : 则 -- 盘 言 总 动 率 和 功率 谱 密 度 将 是 无 穷 
交 于 臣 寺 用 一 兴趣 的 时 单 位 时 间 的 ( 单 市 吉 双 个 ) 动 率 论 密 庆 . 通过 选取 范 数 五 的 一 
个 发 而 有 限 的 芍 段 来 计算 它 的 PSD( 即 ,计算 在 有 限 长 度 虐 段 内 等 于 At 而 其 立 区 域 守 十 
零 的 一 .个 国 数 的 PSD) . 然 二 ,用 记 取 的 截 段 氏 诬 除 以 所 得 的 PSD .在 这 种 情况 上 ,由 斯 尔 定 
理 表 明 , 在 下 频 闪 域 上 插 位 时 间 的 单 划 PSD 的 称 分 依 等 和 于 信号 上 (的 均 方 振 师 值 。 

读者 可 能 会 但 心 , 单 位 时 了 间 的 PSD 是 频率 于 的 末 数 ,那么 当 人 位 用 越 来 越 长 的 数据 堆 
段 来 求 它 的 值 时 , 它 的 收 伍 忻 如 何 ?这 个 右 趣 的 问题 正 是 “功率 谱 估 计 ?* 主 题 中 的 内 容 , 将 在 
后 面 第 13.41 节 一 第 13.7 节 中 讨论 。 现 在 只 给 出 一 全 机 略 回答 ;在 所 有 频率 上 ,除了 加 些 头 () 
只 有 有 有 限 振 吐 的 离散 正弦 波 ( 或 余弦 波 ? 分 量 的 频率 以 外 ,单位 时 间 的 PSD 收 生 到 在 限 和 。 
在 此 它 频 率 上 , 它 成 为 一 个 人 函数, 即 个 陡 直 突 峰 , 它 的 宽度 越 来 越 罕 ,但 它 的 库 积 却 收 伍 
到 该 频率 离散 工 上 分 量 的 均 方 振幅 值 。 

迄今 为 止 ; 我 们 已 阐述 了 术 章 将 用 到 的 所 有 解析 公式 ,只 有 -个 例外 : 即 在 计算 工作 中 
特 站 是 在 带 实验 数据 的 计算 上 和 作 中 ,我 们 儿 乎 从 来 不 给 出 一 个 连续 函数 请 来 计算: 而 是 
ee 上 的 一 系列 测试 值 Ac) :在 这 看 来 似乎 不 重要 的 事 裤 中 ,所 包 食 的 深奥 导 容 

一 节 讨 论 的 主题 ， 


12.1 离散 样本 数据 的 傅 里 叶 变 换 


在 最 普通 傅 况 ,函数 Ko 在 等 中 时 间 问 隔 上 被 取样 ( 即 在 这 些 时 间 间 隔 上 贞 数 侯 被 
记录 )., 设 4 表示 相 邻 梓 本 问 的 时 间 问 亲 ， 十 是 忻 不 信 的 序列 为 ， 
卢 ， 一 睛 (全 ) 为 一 ..- 3 2， 1,0， 3， .- 112.1.11 
时 间 间 隔 4 的 倒数 称 为 取样 率 . 例 如 ， 如 呆 4 用 落 度 量 RN | 
数 。 


12.1,.1 取样 定理 与 混 答 现象 


对 于 任何 取样 间隔 4, 都 有 一 个 特殊 的 频率 广 , 称 之 为 泰 村 斯 特 (Nyquist) 临 界 频率 ,给 
出 如 下 


/一 款 有 


如 果 上 共有 休 奎 斯 特 临 和 界 频 率 的 一 个 正弦 波 在 它 的 正 波峰 值 处 被 取样 , 则 下 一 个 样本 值 将 到 
在 负 波 谷 处 ,然后 样本 值 再 -次 取 在 正 波峰 值 上 ,以 此 类 推 - 也 可 以 说 是 :一 个 正弦 波 的 临界 
取样 是 每 个 周期 有 两 个 样本 点 ,人 们 常常 逸 用 取样 亲 隔 A 的 单位 来 测 晤 时间, 在 这 种 情况 
下 ,人 这 斯 特 临 界 频率 恰好 是 常数 172 。 

奈 诗 斯 煌 临 界 频率 之 所 以 重要 , 旦 因为 有 两 个 彼此 相关 又 互 不 相同 的 理由 。 一 个 理由 是 
件 有 盖 的 事 , 另 一 个 理 出 许 什 不 利 的 事 。 首 先 谈 谈 这 件 有 益 的 事 , 这 就 呈 众 所 周知 的 取样 定 
理 : 如 果 一 个 连续 上 后 数 Ai 以 间 卫 取 样 ,并 且 范 数 的 振幅 谱 带 宽 受 限 , 最 高 频率 小 于 人， 
即 如 尘 对 于 所 有 |./: 江 7 , 瑟 ( 六 一 和风 函数 总 (可 由 它 的 样本 值 六 完全 确定 。 实 际 上 0 
可 用 以 下 公 * 式 表示 
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< Sin 2rft -3323) 
1 一 3 
有 外 光 理由 可 说 明 这 是 一 个 引 估 注 日 的 定理 ,型 出 之 一 是 定理 表明 ,在 其 种 意 叉 上 说 ， -个 
达 宽 有 限 的 范 数 ,其 "信息 量 ? 比 普 通 和 连续 国 数 的 "和 挡 妃 显 ? 陪 万 限 地 小 - 通 带 ,大 作 拷 外 理 的 
这 些 具有 物理 背景 的 信和 叶 其 宽 总 足 有 限 的 (或 至 邻近 伏 丰 限 带宽 ) .例如 ,信号 通过 -个 其 和 有 
己 知 有 限 频率 响应 的 放大 器 .在 这 和 请 况 下 , 取 栏 竺 理 生 诉 我 们 ,此 倍 号 的 全 部 信息 量 可 以 
通过 皮 样 被 记 杂 下 交 , 共 取 翌 率 4 等 十 所 通过 的 放大 器 的 最 高 频率 的 两 倍 ( 盆 看 起 ,1 2， 1， 
网 


了 

















{C) 


5a) 中 所 示 的 连续 了 表 只 在 有 地 时 向 回 陋 了 具 不 为 零 ,(b) 中 所 未 的 是 图 Ca)? 的 博 里 叶 变换 ,其 不 是 带 
宽 受 限 的 ,而 是 对 折 胡 频率 都 在 有 限 据 枉 . 苦 原 来 的 丽 数 以 取样 间 宣 立 进 行 取样 如 (3 中 所 示 , 则 其 栏 
本 席 列 的 博时 叶 容 换 如 人 ?所 示 , 它 只 定义 在 正 负 奈 奎 斯 特 属 界 频率 心间 ,范围 以 外 的 协 谈 被 折 回 并 
混和 束 到 该 范 忠 上 .只 有 在 皮 们 以 前 ,将 原来 的 函数 通过 发 通 就 波 后 ,六 种 效应 才能 消 驹 。 


图 12.1. 1 交 报 混 登 效 永 的 方法 
接 下 米 淡 谈 这 个 不 利 的 理 申 。 它 关系 到 对 一 个 带宽 频率 不 是 限制 为 小 于 奈 奢 斯 符 临 界 
频率 的 连续 函数 进行 取样 的 效果 .在 这 种 情况 下 ,将 出 现 位 于 频率 范围 一 上 <.A< 广 以 外 的 


所 有 功率 谱 密 寡 都 错误 地 移入 了 该 频率 范围 ,这 一 现象 称 作 混 松 效应 正 是 通过 离散 取 祥 的 
作用 ,频率 范围 (一 天 大) 以 外 的 任何 频率 分 基 都 被 混淆 (错误 地 转移 ) 进 了 该 区 域 .读者 自 
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已 醋 以 很 容易 地 确信 , 当 且 促 当 方 和 疡 辣 距 其 号 1 的 倍数 ,其 这 倍数 答 好 汶 (-- 二 六) 的 
频带 宽度 , 则 两 个 波 exp(2zr 六 0 和 expf2ri7a0 在 加 隅 上 会 党 出 局 样 的 样本 值 .这 时 ,一 
且 对 信号 进行 了 离散 取样 , 便 无 法 再 消去 所 混 杰 的 功率 .克服 混合 效应 的 方法 有 :(i) 知 道 信 
号 的 自然 限制 带宽 -一 或 者 ,也 可 将 连续 傣 忆 通 过 模拟 滤波 ,强制 实行 己 知 桩 宽 的 归 制 ， 
《ii 以 足够 高 的 取样 率 进 行 取 丹 ,以 使 在 最 高 精度 处 ,每 个 周期 能 至 少 得 到 两 个 取样 点 :上 
真 图 12. 1. 1 国明 了 这 些 思 想 . 

为 了 从 取样 定理 角度 来 观察 混 亚 效应 .我 们 可 以 持 这 样 的 观点 :如此 -个 连 球 吸 数 马 被 
完全 皮 样 , 则 举 我 们 从 离散 样 水 序列 来 估算 人 它 的 知 赃 2 我 们 可 以 妥 必 5 或 者 还 评 这 
样 假设 好 ) 在 一 六 至 /频率 范围 之 外 ,其 傅 里 叶 变换 等 十 过 .十 是 ,我 们 可 根据 这 一 惧 设 现 
0 到 最 小 : .要 
光 到 这 一 点 ,我 们 注意 观察 , 当 频 率 从 低 趋 向 /. 或 老 冰 率 从 高 艳 向 ， 产 时, 傅 电 叶 空 换 是 否 
己 经 趋向 于 零 . 相 皮 , 若 傅 里 叶 变换 趋 于 某 个 有 限 值 , 则 说 明 频 率 范 赎 以 外 的 分 其 可 能 二 经 
混和 到 闽 临 界 频 率 范围 之 内 了 


42. 1,2 刘 散 依 里 叶 变 换 


现在 ,我 们 从 有 限 个 函数 的 样本 点 来 估算 这 个 申 孝 的 乱 里 叶 变换 。 假 如 我 们 有 六 个 连 
续 利 邻 的 样本 什 
天 二 下 (人 ， 有 sa， 0 5N--1 (人 2.1.4) 
黄 中 习 为 取样 售 隔 ,为 了 使 问题 简化 ,我 们 还 假设 N 是 慢 数 ,如 果皮 数 加 ( 科 只 在 有 限时 间隔 
隔 内 不 为 零 , 那 么 应 假设 整个 这 有 限时 间 间 隔 应 包容 在 给 出 的 这 六 个 点 的 区 加 内 。 归 外 .如 
果 男 数 上 (永远 延伸 下 去 ,那么 应 假设 这 AN 个 样本 点 至 少 应 晴信 的 一 些 览 昂 的 样本 扣 ， 
它 与 其 它 时 间 的 A(5 形 式 祖 似 。 
有 了 六 个 输入 数 ,我 们 显然 可 以 得 出 仅仅 是 8 个 独立 的 输出 数 . 因 此 ,我 门 不 必 芭 沾 
算 在 -六 到 天 范围 内 所 有 /和 值 的 和博 里 中 变换 FC7) , 而 只 项 在 离散 值 
一 …. oY 信 
0 
处 求 吾 ( 六 估计 值 . 式 (12.1.5)? 中 盖 的 两 个 端点 值 正 好 对 应 于 厌 奎 斯 特 临 界 频率 范围 的 下 
限 和 王 限 ,如 果 赎 者 很 内 行 , 就 会 注意 到 式 (12.1,5) 中 必 的 值 有 上 1 个 ,而 六 是 N 个 :由 
此 得 出 ,的 烦 个 端点 以 不 是 无 关 的 (实际 上 它们 是 相等 的 ) ,而 其 他 所 有 的 值 是 无 关 的 ,这 
便 将 总 数 半 减少 到 六 个， 
祭 下 的 步骤 尾 , 有 一 个 离散 和 式 来 近似 式 (12. .12 中 的 积 分 ， 
开 ( 和 > 访 有 (De dt ， 上 ie2mi7 一 “之 十 运 全 人 人 2 


更 = 站 


此 处 ,等 趟 (12.1. 4 和 (12. 1 5) 已 用 于 最 本 的 等 式 中 。 我 们 称 起 (12. 1. 6) 的 如 未 乱 趟 为 N 
个 点 拓 的 离散 傅 里 叶 变 换 , 记 作 为 于 
五 ,一 、 户 eenA 站 2 .7 


离散 傅 里 叶 变 招 将 六 个 复数 CA) 映 成 了 N 个 复数 ( 瑟 ) , 它 不 依赖 于 任何 维 参 数 , 亿 如 时 标 
& . 当 将 一 组 数 看 成 是 以 间隔 A 取样 的 连续 丽 数 的 样本 值 时 , 武 (12.1,6) 给 出 了 这 组 数 的 
427。 





《12. 1.53》 


离散 傅 里 叶 变 换 和 上 数 的 连续 傅 出 叶 变 换 之 癌 的 关系 ,这 关系 式 (1 1. 的 证 以 重 守 二 翅 
好 (ss [全 攻 

其 中 六 由 式 (12.1.5) 给 出 。 

迄今 为 止 ,我 位 直 认 为 上 蕊 612.1 六 中 的 指数 由 全 汪 蛇 化 到 和 524 釜 柯 二 112 
5)) ,然而 ,不 难看 出 ,在 式 们 2. 1.7) 中心 是 以 局 则 呈 短 环 . 因 此 王 = 理 上 
2…..). 当 估 们 记 住 了 这 型 变换 ，: 般 可 设 刀 中 疝 站 是 其 0 到 六 1 加 变化 (一 个 二 垂下 
期 .2 和 大 (ix 中 的 ) 也 在 同一 范围 内 蛮 化 :所 以 N 个 数 钊 N 个 数 的 哑 射 是 很 尘 蜡 全 
遵循 这 个 约定 .就 必须 记 住 零 频 府 对 应 寺 =0 正 频 吝 61 扩 对 诬 二 什 1 窒 站 计 痢 
率 一 并 /<0 对 应 二 NA/2TTSOSSN 一 1。 值 一 NA 区 对 应 和 7/ 一 大 :也 对 应 二 1 了. 

类 似 十 连续 傅 里 叶 变 换 . 离 散 情 里 叶 灾 换 也 其 有 和 对称 性 . 倒 旭 .本 式 512.0. 34 忆 且 去 
中 ,只要 和 藉 丰 ( 昌 改 成 各, 开 (六 上 改 成 下: 则 训 中 所 存 的 对 称 性 都 战 立 (5 回 样 .时 间 记 " 亚 ， 
*“ 奇 "性 涉及 到 大 在 下 和 六 一 上 处 的 值 究竟 屁 恒 等 过 是 二 为 相反 数 ) 。 

离散 愈 里 叶 道 变 换 就 是 由 总, 浴衣 计 恢复 成 这 组 数组 点 ,其 公式 足 


各 一 人 Ye 人 


注意 (12.1.9) 和 (12.1.3) 两 式 之 间 仪 有 的 差别 是 :人 iD 改变 了 指数 的 符号 :7 将 结 求 除 必 
玉 。 这 意味 着 ,计算 离散 博时 叶 变换 的 程序 在 稍 加 修改 三 同 桩 也 适用 二 计算 逆 代 换 。 
帕 斯 维 尔 (Parsevyal) 定 理 的 离散 尺 式 是 


各 于 一 1 
= 方 之 1 (2 .1.1m 
三 J 习 一 让 


卷 积 定理 和 相关 定理 (方程 (12.0.93 和 (12.0.11)) 也 有 离散 形式 .将 在 第 13,1 节 利 13.2 革 中 
分 别 进 行 讨 论 。 


12.2 快 球 傅 里 叶 变 换 (FTFT) 


计算 w 个 点 的 人 博 里 叶 变 换 , 如 式 人 12. 1,7), 需 要 和 少 计算 其 ?许多 年 来 ,直到 的 军 全 下 
期 ,标准 答案 是 :定义 砍 为 复数 


三 三 cai 《 汪 六 
风 式 612.1,7? 可 写成 
= 
局 -= 全 ，IPnekha 《12. 2.21 
是 一 由 


换言之 ,向 量 吃 乘 以 一 个 官 阵 ,该 矩阵 在 (2 如 处 的 元 素 为 常数 风 的 2xk 次 畦 .这样 .矩阵 
相 乘 的 结果 产 牛 . :人 向 量 , 其 分 量 就 是 顾 ,. 这 个 矩阵 乘法 显然 需要 六 个 复数 乘法 运算 和 加 
上 生成 复数 史 所 需 的 少量 运算 。 因 此 ,离散 人 博 里 叶 变 换 早 现 为 :个 DCM 过程. 可 是 ,这 神 
表面 规 象 是 虚假 的 ! 事 实 上 ,离散 傅 里 时 变换 可 以 用 一 种 称 为 快速 傅 里 叶 变 换 的 站 法 ,站 
FFT 来 计算 .只 需 O(CYlog:N) 次 运算 。wlog:N 和 症 问 的 差别 是 巨大 的 .例如 . 当 入 .0， 
在 一 个 每 秒 运 算 占 万 次 的 计算 机 上 ,粗略 好 说, 它们 之 间 就 是 占用 30 和 钞 CPU 时 间 和 贞 星 
期 CPU 时 间 的 差 蜀 .直到 60 年 代 中 期 ,从 库 利 5 殉 . Cooley) 和 国 凯 . 砚 .Tukey) 的 工作 
中 ,人 们 才 逐 朵 熟悉 FFT 算法 .回顾 历史 ,现在 我 伍 知道 ,从 1850 年 高 斯 (Gauss) 走 ,了 有 
428 。 


十 几 个 人 分 别 独立 地 发 现 了 计算 DFT 的 有 效 算 法 ,并 在 某 些 情况 下 得 以 实现 (和 考 | 1 ，， 

FEFT 的 "再 发 现 ? 者 是 1942 年 片 刀 尔 森 (Danielson) 利 兰 癸 电 5Lanczesy 俩 人 .人 忆 六 拭 和 洼 
了 算法 的 “种 最 清晰 的 推导 .丹尼尔 森 和 兰 乱 斯 让 附 了 人 办 氏 为 六 的 离散 傅 忠 时空 换 可 
以 重新 写成 两 个 界 长 各 为 YY72 的 离 敬 傅 里 叶 变 换 忆 利 。 其 中 “个 变换 二 原来 入 个 点 中 的 
偶数 点 爸 成 , 另 一 个 变换 由 奇 区 总 作成 * 让 明 简 单 旭 于 ， 


ae 3217 中: 六 
岂 一 > 本 
了 了 一世 


Na-1 六 2 一 ， ， 
全 2 1 
A 人 0 吕 玉 让 和 由 六 十 六 如 2 六 


了 和 Ca 3 
Ne ] 2 
TS Na Re 
ee 六 0 全 人 1 S 2 上 2-、 
ee 全 二 册 


一 有 一 Ta 

最 后 - 行 中 , 亚 与 式 (12.2. 1) 中 的 死 是 同一 复 常 量 . 政 是 由 原 六 的 倡 分 量 得 到 的 . 界 长 为 
N/ 的 和 傅 里 叶 变 换 的 第 让 个 分 量 : 而 既是 由 奇 分 量 得 到 的 界 长 为 72 的 对 应 记 的 . 太 需 注 
意 , 共 '12.2.3) 中 最 后 “ 行 的 k 是 从 m 到 六 问 旱 化 ,入 不 是 仅 塞 到 六 ?2 。 然 而 , 灾 柳 上: 和 
f2 对 & 而 言 其 循 了 周期 为 辣 52 ,所 以 政和 下 要 嫩 复 防 次 循环 才能 获得 所 有 E. 

丹尼尔 森 - 兰 佐 斯 引 理 的 巧妙 之 处 就 是 在 于 它 可 以 递归 地 使 用 。 在 将 计算 卢 的 问题 简 
化 为 计算 下 和 到 以 后 ,我 们 可 以 再 做 同样 的 简化 ,将 政 简化 成 计算 它 的 R754 偶数 项 输入 
数据 的 变换 和 N74 奇数 项 数据 的 变换 .换言之 ,我 们 可 以 将 克 和 玖 分 别 定义 为 在 数据 逐 
次 细 分 后 ,数据 的 偶偶 点 和 偶 … 奇 点 的 离散 傅 里 叶 变 换 . 

虽然 有 一 些 其 它 情 况 的 处 理 方 法 ,但 最 容易 的 情况 还 是 ,原始 六 为 2 的 由 寡 次 项 的 
FFT. 恕 果 数 据 集 的 界 关 不 是 2 的 竹 次 时 , 则 可 浴 上 一 些 零 值 ,直到 界 长 2 的 上 : 疾 次 :( 在 
随后 的 章节 中 ,将 给 一 些 更 复杂 的 建议 .) 有 了 这 种 对 X 的 限制 ,显然 我 们 可 以 继续 应 用 尼 
尔 森 - 兰 优 斯 引 理 ,直到 我 们 将 全 部 数据 细 分 成 界 长 为 1 的 变换 ,什么 是 界 长 为 1 的 傅 蛙 叶 
变换 呢 ? 它 正 是 把 一 个 输入 数 复制 成 它 的 一 个 输出 值 的 恒 等 运 算 ! 换 言 之 ,对 于 听 有 log:N 
个 e 和 o 的 每 个 模式 ,都 有 一 个 一 点 变换 , 它 正 是 输入 数字 中 的 一 个 大 

Foaeaeomoe 一 上 对 于 某 个 aa 【上 和. 和 4 

《当然 ,这 个 一 点 变换 事实 上 不 依 起 于 上, 央 为 它 对 k 的 循环 周期 为 1.》 

于 一 步 策 略 是 ,断定 娜 个 > 值 对 应 于 式 (12, 2. 4) 中 哪 一 个 < 和 o 的 模式 .答案 是 :将 e 
和 " 模式 的 次 序 赴 个 ,然后 令 e==0,o 一 1 ,期 得 到 于 值 的 二 进 制 数 。 能 明白 为 什么 这 样 做 吗 ? 
因为 将 数据 逐次 细 分 价 数 和 奇数 就 是 逐次 检验 ”中 的 低位 比特 位 (最 低 有 效 位 )。 这 个 位 序 
其 倒 思想 与 丹尼尔 森 - 兰 佐 斯 引 理 一 起 可 以 开拓 成 一 种 更 灵巧 的 方法 ,使 FFT 更 为 实用 : 假 
如 我 们 将 数据 亡 的 初始 向 量 ,把 它 重 排 成 位 序 般 倒 的 须 序 ( 见 图 12. 2. 1) ,以 致使 每 个 数字 
不 再 按 原 7 的 顺序 排列 ,而 是 按 ; 的 二 进 制 数 颇 倒 后 得 出 的 数 排列 .于 是 ,丹尼尔 素 - 兰 优 斯 
引 理 的 递归 应 用 的 凡 部 操作 就 变 得 十 分 简单 ,所 给 的 点 是 一 点 变换 。 我 们 组 合 相 邻 的 一 对 点 
就 得 到 两 点 变换 ,再 组 全 这些 两 点 变换 对 的 相 邻 对 ,又 得 到 4 点 变换 ,以 此 类 推 ,直到 整个 
数据 集 的 一 半 和 兄 一 半 组 台 成 最 终 的 灾 换 。 每 组 合 -- 次 需 N 阶 运算 ,并 且 明 显 地 有 log 入 
次 组 合 , 因 此 整个 算法 是 Nlog:N 阶 运 算 量 。( 假 设 分 类 成 位 序 苏 倒 顺序 的 过 程 , 其 运算 量 不 
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大 于 logsN 稚 , 通 常情 这 也 让 是 如 此 

















19) Th》 


ia) 耳 个 数 年 过 癌 的 对 应 关系 -作料 妆 末 h;? 获 村 中 关上 当 症 山上 项 新 非 列 ,位 序 就 全 重新 
重 序 是 快 囊 傅 里 片 变 换算 法 (FFT) 的 必须 部 分 
图 12.2.1 有 牢 颜 例 重 新 排序 “ 蚊 组 5 界 长 为 8) 


于 是 ,FFT 算法 的 结构 分 为 两 个 部 分 -第 -部 分 :将 数据 豆 理 成 位 序 颠 倒 的 次 序 , 芷 二 
的 荐 .这 并 不 占据 更 风 的 存 健 空 间 , 因 为 它 只 包含 元 岩 的 父 换 (车 天 和 大 的 位 序 矣 例 . 吕 到 
充 是 帮 的 位 序 颠 倒 .) 第 二 部 分 ,有 -个头 行 Jog:w 次 的 外 循环 ' 辫 依 钦 计算 界 长 为 二 .1t， 
8 .AN 的 变换 .对 于 这 一 过 程 的 每 一 步 米 说 ,为 了 畴 行 丹 尼 尖 琳 - 兰 佐 斯 引 理 ,有 了 两 个 堪 会 
的 内 循环 ,其 涉及 到 已 计算 的 子 变 换 和 拇 个 变换 的 元 素 ,通过 限制 外 部 调 形 正 纺 和 余 苞 到 多 
层 循 环 , 可 以 使 运算 更 有 效 , 在 外 层 循 环 中 只 调用 它们 legs2 次 。 倍 角 的 正弦 和 党 弦 卜 计 委 
是 通过 内 循环 中 简单 的 递 灶 关系 进行 的 (参考 式 \5. 5.57)， 

下 面 给 出 的 FFT 算法 程序 是 以 有 伦 套 CN. M. Brenneyr) 原 来 写 的 一 个 程 户 为 基础 输入 
量 是 : 复数 据点 的 个 数 (nn)， 数据 数组 (qdata[-, .2*nn7)y 和 isigny isign 必须 冉 成 一 :成 

1 , 它 是 式 412. 1.7) 中 指数 上 1 符号- 当 isigr 填写 一 1, 则 程序 基 计 算 闻 变换 式 (-2. 1 

9) 一 -只 在 程序 中 没有 滋 上 等 式 中 出 现 的 忆 一 化 因子 1 和 ,用 卢 吕 以 当 己 补 加 上 

注意 ,变量 nn 是 复数 据点 的 个 数 . 实 型 数组 (dara[1.,2*nn- 的 实际 办 长 是 2 倍 nr ,而 
每 个 复数 值 占据 了 丙 个 相继 的 存 久 单元 , 换 育 之 ,data .是 态 的 实 部 ,dara -2] 是 六 的 虑 部， 
以 此 类 推 . 直 到 datat2 * nn 一 本 是 /的 实 部 ,dartas[2 * nn] 是 六 ,的 虚 部 :对 于 nn 个 复 
数 :FFT 程序 返回 以 同样 方式 毕 缩 的 天， 

零 蜂 率 分 量 Pr 的 实 部 和 虚 部 在 data[L1] 和 data[2 中 :最 小 的 非 零 正 频率 的 实 部 和 朝 部 
在 dat-.3] 利 dataf4] 中 (数值 上 ) 最 小 的 非 零 负 上 光 的 实 部 和 虚 部 在 data[2 * nn 一 1 和 
data[ 2* nnj] 中 。 数 最 上 增长 的 正 频率 他 储存 实 : 谍 对 datra[5] 和 data-6], 直 利 dara[nn--] 
和 data[nnj] 中 .数量 上 增长 的 负 频 效 存 储 在 data[2r nn 一 3 和 data[2 * nn 一 2 直到 data 
_nn 十 3] 和 d nn +4」 乙 中。 最 后 ,这 对 data nn 一 1 和 data[rnn 十 2j 存 储 -- 个 混 要 点 的 实 部 

430。 


和 虚 , 这 混 榴 点 


所 秋 大 正 频 率 秆 最 小 负 颗 率 , 污 沽 谋 该 斌 着 熟 导 各 频 谈 说 的 这 琴 内 千 排 列 
方式 ,如 图 ;2. 2， 


所 示 , 汉 为 这 是 … 种 实 出 标准 排列 


型 省 摄 
2| 








界 长 为 2 闪 的 实 型 策 阵 
界 长 为 2A 的 实 型 恕 阵 











QQ [b) 


(a) 输 入 数 给 亿 舍 Y(2 的 算 这 ?个 时 间 上 的 内 慰 本 值 .形成 让 发 为 2 的 实 型 赂 组 ,其 实 部 和 放 吝 交待 二 可 03 办 册 
数组 是 色 含 六 个 频率 值 二 的 复 传 中 叶 灶 庄 . 实 部 和 庶 厄 也 父 蔡 相 孙 , 数 钥 友 鹤 频 赤 开始 ,和 逐 评 排列 到 电 上 下 虎 率 :六 
一 处 也 了 以 作为 基 小 的 负 频 率 ). 然 后 紧 若 基 抽 闻 农 . 愉 次 最 小 的 僚 顿 素 “ 自 才 划 恪 好 位 于 党 以 下 的 人 芷 频 这 


岗 ;2,.2.2 FFT 的 输入 和 输出 数 纤 


这 里 要 棍 醒 读者 ,即使 输入 数组 从 零点 起 雄 , 即 范 于 为 data[0...2*nn .人才 可 以 全 
用 这 fourl 程 序 而 不 作 修改, 在 这 种 情况 中 , 当 fourl 算 调用 时 只 x 拓 简单 地 风 dats 鸭 指 针 减 
1 和 用 fourltdatae 1"1024,1)* 这 时 了 的 实 将 返回 到 daraf0 1, 而 虚 部 返回 到 daia “11、 
以 此 类 蕉 . 见 第 1. 2 节 、 


攻 includs 必 rznath,h>> 
区 define S$ 姑 AP(a,bl tetmpr 一 :ayfal 一 人) 由 ?一 tempr 


void fourlffloatc dzta[]，unsigned long nny int isigny》 
假如 isiga 输入 为 十 1 , 则 置换 后 区 data[1. .2 xn 7 是 给 入 的 离散 傅 里 开 变 换 : 或 者 假如 二 pn 输入 为 --1， 则 次 恢 闻 
的 data[1.….2 * nn] 是 给 入 的 nn 人 离散 傅 里 叶 的 造 灾 换 -daia 是 界 长 为 =n 的 复数 组 或 者 等 从 于 界 民 为 3 snn 他 安 
冰 纳 :nn 必须 是 2 的 恪 数 军 !( 这 点 未 惟 称 ') ， 


unsigned Iong nsmmarmyjiistep,ii _ 
double VEeap nr,wpFy epiywivthetai 关于 二 和 角 递 雪 的 权 精 度 
节 1cat tempT ,templ 


:23] 。 


Dasnn << 1 i 
jsjl 
for 〔i=1ii<aii+rse2》 区 这 足 位 序 频 钊 部 分 的 程序 
if 人 jj ，i) 
SWAPtdata[j] ,data[i]): 交换 陵 人 复数 
SWAPtdata [J+ij ,data[trz]) ; 
了 
Z=u >> 1 ; 
While (四 >= 2 ij > m) 工 
了 = 有; 
四 >>= 1; 


j 全 中 


] 
下 面 开 始 是 程序 的 丹 足 尔 森 -- “此 斯 部 分 


mmaxx 之 : 

while (n > mmar] 1 妃 行 1ogs np 次 外 箱 环 
IST9p=Mm3x << 1 
thata=isignwf6.283185307179597pmax) ， 关于 兰 削 递 籽 的 柯 始 同 值 


vtemp=Sin(KO,5ytheta) ; 
wPI = -2.0wVtempeytenp; 


vPl=sin(thbeta) ; 
WT= 寺 .他 ; 
is0.Di 
for 《me=13;g<mnnar;m+=2) 萎 这 是 两 个 相 套 内 祷 环 
for 【jizmyi<a=zaii+miatePp》 荆 
了 =+Hmmaz， 这 是 丹尼尔 森 … 兰 优 斯 公式 


tempreuwretlata[j] -viwdatafrj+1l]l; 
emPimwrwdle 二 aa[J 二 1] + 号 ieQaC 和 [jj] ; 
dat [jjndata[i] ~tempY3 
datarfj+1lmdata[i+1]-tempi3 
datafi] += 《onpFi 
二 at 入 [i+1] += TBGmpiy 

】 

Te TSEB 加 BeWT ) 申 WPI 一 可 评 WW 入 主 中 全 7 三 角 递 归 

立 TmwIaNPIARLSIPwwPiYSIi 

了 


Dumaxsigtepi 


(程序 four3 的 双 精 度 版 本 称 为 dfourl, 它 用 于 第 20. 6 节 的 程序 mpmul 中 ,读者 可 很 容易 地 
进行 这 种 改变 ,或 者 也 可 以 内 数值 程序 集 软盘 中 获得 改变 好 的 双 精度 的 程序 。) 


12.2.1 其 它 EFT 算 法 


我 们 簿 该 提 到 ,对 于 上 述 给 出 的 基本 FFT 算法 还 有 … 些 变形 算法 .正如 我 们 已 经 看 到 ， 
上 述 算 法 ,首先 将 输入 元 素 重 排 成 位 序 其 倒 的 次 序 , 热 后 用 iogsN 个 选 代 建 起 输出 变换 。 在 
文献 中 ,这 种 算法 称 为 时 间 抽 选 FFT 算法 或 库 利 -图 凯 (Cooley-Tukey)FFT 算法 . 现 还 可 以 
导出 男 -种 FFT 算法 , 它 首先 对 输入 数据 经 过 一 系列 logsN 次 选 代 ,然后 将 输出 什 重 排 成 
位 序 其 倒 的 次 序 . 这 种 算法 称 为 频率 抽 选 FFT 算法 或 最 御 - 图 凯 (Sande-Tukey)FFT 算法 。 
在 一 些 应 用 中 ,例如 卷 积 (第 13. 1 节 ) 来 说 ,人 们 先 将 数据 集 放 入 傅 里 呈 域 内 ,然后 经 过 某 些 
操作 后 ,再 返回 来 ,在 这 情况 下 ,可 以 避免 所 有 的 位 诺 颠 倒 。 使 用 频率 抽 选 算法 (不 用 位 序 站 
倒 ) 进 入 "不 规则 的 " 传 里 叶 域内 ,在 那里 进行 操作 ,然后 用 逆 算 法 (也 不 用 位 序 颠 俩 ) 再 返回 
到 时 域 . 虽 然 ,这 样 处 理 在 理论 上 看 是 很 完美 的 ,但 实际 上 节省 下 了 很 多 的 运算 时 间 , 因 为 位 
序 颠 倒 只 呈现 PAY 运算 量 的 一 小 部 分 ,并 且 在 频率 域 中 ,大 多 数 有 用 的 运算 都 要 求知 道 哪 

,432 。 


于 哪些 频次 

另 -: 疾 FFT 算计 并 不 拭 界 去 为 以 的 初 给 数据 集 细 分 成 办 长 为 1 的 基本 变换 .而 是 网 
We 2 较 小 守 次 ,例如 N 一 1 ,基数 为 4 的 FEFT; 或 六 一 8, 基 数 为 8 的 FFT。 于 是 ,这 些 

水 生变 疾 可 用 最 优化 编码 的 小 段 来 完成 ,这 些 最 优化 编码 是 利用 了 这 种 特别 小 的 N 之 独特 
六 对 称 生 .例如 , 当 和 =4 时 ,所 参与 的 二 角 正 弦 和 余弦 全 部 是 士 1 或 0 ,所 以 许 案 生 法 可 省 
卫 . 只 刮 下 大 是 的 加 法 和 减法 ,这 方法 能 比 简单 的 FFT 算法 快 20% 或 36 估 ,这 是 很 有 意 
义 的 . 候 并 不 是 压 国 一 切 的 优 越 。 

如 卉 民 为 和 而 入 不 是 2 的 窜 次 的 数据 集 ,也 有 一 些 FFT 算法 。 它 们 是 通过 使 用 类 似 

十 显 尔 灰 一 兰 任 斯 中 理 的 方法 ,将 初始 门 题 逐 次 细 分 成 一 些 较 小 的 条 题 , 这 时 不 是 每 次 一 半 

- 池 申 深 公 ,而 是 每 次 月 可 除 尽 N 某 个 最 小 的 素数 因子 去 细 分 .w 的 最 大 的 素数 因 地 越 大， 
这 种 方 尖 的 效果 越 差 . 旭 呆 本 身 是 素数 , 则 不 可 能 再 细 分 ,那么 用 户 (不 管 他 是 否 知道 ) 正 
及 出 着 慢 速 的 埔里 叶 变换 , 它 必 X 阶 ,而 不 是 Niog:N 阶 运算 量 。 我 们 建议 这 币 FFT 方法 
苔 待 以 后 去 霸 清 楚 。 然 而 也 许 有 - 些 例外 , 即 威 努 格 特 (Winograd) 傅 计 豆 搞 掠 辐 . 戌 努 格 
社 算 法 在 某 些 方面 是 类 似 于 基 4 和 妆 8 的 FFT 算法 , 威 努 格 特 已 推导 出 高 度 做 信 玉 码 可 用 于 
个 的 入 ,例如 N 一 2.3,4:5,7 8.11,13,16 等 ,进行 离散 博 里 时 变换 .这 种 算 抽 把 且 用 了 淋 显 
的 方法 纪 合 子 风 子 ， .在 分 尽 次 处 理 之 前 和 其 之 后 ,这 一 方法 都 包 会 营 沁 本 用 新 排序 ， 
它 爷 许 在 算法 内 对 冬 法 次 数 作 有 效 归 并 .对 于 “ 些 特 别 的 N 伪 , 减 邦 让 生 娘 流 可 以 比 
4 的 迷 数 宕 的 简单 FFT 算法 要 有 效 地 快 (例如 , 快 一 们 ). 热 而 , 巡 廉 大 直 扰 势必 须 

5 在 这 些 变 换 中 包含 相当 复杂 的 生生 生财 信条 本村 扫 不 本 村, 辐 相生 于 各 事实 过 和 
权衡 比较 。 

最 后 .一 类 有 趣 的 快速 求 卷 积 的 灾 换 是 数论 变换 。 这 些 结构 二 用 某 个 大 束 数 N 1 为 术 
的 整数 筑 法 来 代 雁 1 的 六 次 根 , 严 格 地 说 ,这 已 根本 不 是 傅 里 叶 变 换 ,但 是 它们 性 角 十 分 相 
似 , 原 上 且 运 算 速 度 快 得 多 , 另 一 方面 ,它们 的 用 途 旬 相关 和 卷 积 一 样 受到 一 些 随 条 ,这 因为 变 
拉 本 向 己 扩容 易 解释 为 “频率 " 谱 了 。 
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12.3 实 函 数 的 FFT. 正 该 变换 和 余弦 变换 


常见 的 四 这 种 情况 , 即 期 望 求 FFT 的 数据 由 实 值 样本 六 (一 0 ,RN 一 D 题 成。 为 了 
使 用 fourl ,我 们 将 这 些 样 本 放 入 一 个 复 型 数组 中 ,并 令 其 所 有 虑 部 为 零 . 计 算 世 得 的 变换 
Fa 一 0 六 一 1) 谓 足 FE- 一 Po 因为 对 于 FFuz 及 其 它 C(N/2) 一 1 个 独立 值 严 ..， 
-1 来 说 ,这 个 复 信 数 组 都 是 实 值 , 故 它 与 原来 实数 据 集 有 相同 的 2(N/72 一 1) 十 2= 入 个 
“和 月 由 度 ”. 然 而 ,从 执行 时 间 和 对 存储 需求 - 考 来 看 ,对 实 型 数据 采用 宪 爹 复 虱 的 FFT 算 
法 ,其 效率 是 很 低 的 读者 可 能 会 想到 ,还 有 - -个 更 好 的 方法 ， 

SS ， 


有 两 种 更 好 的 方法 .第 一 种 十 "成 批 咎 天 法 ”将 孙 个 单独 的 实 克 数组 人 台式 给 入 鉴 纪 :上线 
纽 台 产 式 是 ,能 使 各 日 单 独 的 变换 从 汁 算 结 果 中 分 疯 计 来 .这 部 方 法 在 以 下 程序 twofft 中 
实 衣 , 这 类 似 于 搭配 销售 , 购 货 者 只 需 头 一 件 获 品 凡 却 被 强迫 买 了 了 件 .可 是 请 记 住 , 寺 - 相 
大 独 卷 积 亚 说 .这样 可 使 西 种 函数 的 博 里 上 呈 变 换 都 包括 了 , 故 这 是 一 举 责 得 的 更 种 六 第 
二 种 方法 着 :巧妙 地 将 实 型 得 入 数组 组 全 成员 氏 只 有 一 站 交 复 型 数组 ,而 术 雪 效 余 芝 专 证， 
然 乒 . 叮 对 这 一 纠 较 得 的 界 长 执行 复数 则 FFT ,这 里 有 个 诀 窖 由 避 如 条 从 结果 中 得 到 所 天 
亚 的 答案 .这 在 以 下 realtt 程序 中 实施 . 


12.3.1 两 个 实 函 数 周 时 变换 


首先 .我 们 说 明 如 何 利用 变换 六 的 对 夭 性 米 -次 处 埋 两 个 实 丽 数 。 因 凡 和 输入 数 拨 和 丈 
记 型 的 , 故 离散 傅 末 中 变换 的 分 量 满 足 | 


天 一 【Fn (2 1 
其 中 录 号 表示 复 共 罗 - 同 理 , 纯 虚 集 合 的 Bi 的 离散 傅 里 叶 变 换 有 相反 的 对 和 你 件 : 
CS ,一 一 《5G》 【1 人 . 321 






上 


央 此 通过 诺 缩 两 个 数据 数组 分 别 four1 复 型 输入 数组 的 实 部 与 虚 部 ,我 们 可 以 局 时 永和 
界 长 -多 为 w 的 两 个 实 丽 数 前 离散 情 里 叶 变 欣 ,然后 . 借 栈 十 两 种 对 称 往 , 吕 以 将 填 算 落果 的 
变换 数 纪 分 离 成 两 个 复 型 数组 ,程序 twotft 实施 了 这 点 家 法 。 


Yo 间 :woiit 杂 loat datal[ ，flear qdata ?| ,foat ftfl 
float fft2[]、unsigned long :20 
给 还 两 个 输入 实数 组 Cata1 1. .0 和 data2.1. ,0 本 从 放 计 用 前 烙 four 和 过 洒 两 个 总 地 给 出 数 锚 Ht1 和 时 汪 夺 主 
个 复 界 长 为 芭 则 实 维 数 为 [1. .2n 它们 外 省 各 自 的 Han 的 离散 博 虹 中 变换 .7 必须 是 2 扰 束 数 次 等。 


veid fourlGfloat data ]，unsigned jong nm，int isigny 
ubsigned long nn3,nn2 ,jj 
float rem remyaif yaim 


nn3 一 1 二 (nn2 一 2-n 一 D); 

er gj 一 jj 一 25j 生 一 nj 十 一 .一 一 2 ， 和 将 向 全 实 型 数 级 组 台 记 -个 复 昨 汐 旨 
fftl[ 一 1 一 datallu|; 
fft1[j 一 data 拒 裤 ; 





fourlgtfftlyns1)， 求 复 迎 数 细 的 迹 叉 
并 [2L 匡 一 企 H1[2]; 
和 全 下 引 ] 一 攻 c2L2 一 站 3 
for (一 3j 雪 一 nb 十 1 一 2)》 ! 
reb==0.3=# StL[ 站 十 fa1[nn2 j); 腹 对 区 性 分 离 虑 个 安 换 
rcm 一 0.5x ffttl0i fitzon2 一 中) 
al--0.5< [tt[ 十 1 一 ffr] nrm3 一 门 )， 
8jia 一 避 5# (人 fr1Lj 一 人 一 Htl[on3 j); 
ff(1[j 一 reps 将 它 太 按 两 个 复 型 数组 缚 和 出 来 
fr1[D 一 aim3 
fl1[nn2 一 让 一 repy 
Htl nn3 一 门 = -aitni 
ft2. 一 aip; 
fft2[ :一 I 王 一 renay 
fft2[nn2-- 门 一 上 pi 
fft2[nn3 一 ] 王 remi 
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着 过程 又 是 怎 伴 的 呢 ? 假 设 有 阿 个 复 变 换 数 组 ,每 一 个 都 具有 式 (12. 3. 1) 的 对称 性, 于 
么 就 可 知道 这 两 个 变换 的 道 变换 都 是 实 函 数 . 能 人 否 在 单个 的 FFT 中 对 两 个 变换 求 站 蛇 ;* 这 
种 求 道 变换 其 至 比 求 变换 更 容易 :可 利用 FFT 足 线 性 的 这 一 圳 实 , 形 式 第 :次 恋 光 圳 上 : 
倍 第 一 次 变换 的 总 和 .可 用 four1 并 设 isign 一 --t 米 求 道 。 计 算得 到 的 复数 组 的 实 渊 和 上 叭 部 
就 是 两 个 所 求 的 实 函 数 。 
12,. 3.2 单个 实 函 数 的 FFT 

第 一 种 方法 允许 我 们 不 用 完 余 位 便 可 执 生 单 个 函数 的 FEET ,为 了 实施 这 示 广 法 .我 全 
将 这 数据 集 一 分 为 二 ,形成 两 个 大 小 只 有 一 半 能 实 邢 数值 .我 们 可 以 招 上 述 程序 几 于 这 :组 
数组 ,当然 结果 将 不 是 原始 数据 的 变 换 . 它 将 基 琴 个 变换 的 错乱 集合 ,但 其 每 个 变换 部 右 我 
们 所 需 的 “ 半 信 息 .幸运 的 旦 ,这 种 错 起 是 可 处 理 的 ,作法 如 下 : 

止 确 浊 分 原始 数据 的 方法 是 ,把 倘 数 项 的 六 镍 为 一 个 数据 集 , 奇 数 项 的 广 作为 另 -- 数 
据 集 .这 样 做 的 巧妙 之 处 旦 .可 以 选取 盾 始 实 型 数组 ,并 地 它 当 必 一 个 界 长 只 有 半 肯 复 型 
数 乌 来 处 理 , 第 “个 数据 集 荐 这 复 塌 数组 的 实 部 ,第 2 个 是 它 的 虚 部 ,如 同 twefft 中 规定 的 
一 样 , 而 不 需要 重新 组 会 安 排 , 换 言 之 ,太一 .Ai 二 GO 一 0 YY2 一 1), 我 们 将 这 数 纪 
提交 给 fourl, 它 将 返回 一 个 复 型 数组 豆 , 王 天 十 IECe=0，.N7V2 一 1), 计 且 


wj 1 
严 " 一 了 
二 一 人 
《12. 3.3) 


Wj21 
ER 72) 
关 一 1 ee 

则 一 ? 


程序 twofft 的 讨论 是 告诉 读者 如 何 从 瑟 。 中 分 出 两 个 变换 到 和 疏 。 现 在 ,如何 做 才能 
将 它们 变 成 原始 数据 集 广 的 变 搞 Pr 呢 ? 我 们 建议 回 瑚 一 下 式 (12. 2. 3): 


天 二 OA 《2 3 革 》 
根据 我 们 的 实 型 数据 集 ( 胃 充 复 型 数组 ) 的 变换 五 。 直接 来 表达 ,其 结果 是 
PP 一 于 CH 2 《ia .3.5 


几 点 注意 事项 : 
' 出 于 芭 -= 开 , 所 以 没有 存储 整个 频谱 的 点 。 正 半 频 已 足够 ,并 能 如 间 原 始 数据 . 样 
存 入 问 一 数组 中 .事实 上 ,这 一 运算 可 以 同 址 完成 。 
“即使 如 此 ,我 们 仍 需要 数值 媚 ， 一 0，.. ,NA2 ， 而 fourl 只 给 出 数值 z 一 5 ,，， 
N72 一 1。 利 几 对 称 性 可 补救 ,并 有 召 w* 一 互 。 
“数值 Pu 和 xs 都 是 实数 且 独 立 , 为 了 确实 把 整个 F 搬入 原始 数组 空间 ,把 Ev,。 置 和 
寻 的 部 是 比较 人 台 适 的 。 
四 尽管 形式 复杂 ,但 以 上 过 得 是 可 道 的 ,首先 从 fo 中 脱离 出 Fw 然后 构成 
到 = 本 (Pe 十 Fo) 
]  ，，， 全 2.3 6) 
并 
再 明 fourl 来 寻求 玉 , 一 玖 2 十 志和 全 的 道 变换 。 令 人 惊奇 的 是 ,具体 的 代数 步骤 实际 上 与 
435 。 


正 向 变换 的 那些 步骤 完全 相同 ， 
下 面 是 相应 的 典型 程序 ， 


芋 include -rnath. h 全 


vcid realft 【cat data[]，unsigned long ny int isigny》 
计算 一 塌 个 实 仁 数 据点 的 生 电 叶 恋 浪 - 州 复 博 生 时 安 换 航 正 半 烽 率 克 搞 六 些 数 扬 f 候 在 情 在 要 钥 40r 3 


5 


复 灾 换 的 第 :- 个 和 最 后 个 分 量 的 实数 但 分 内 下 回 音 大 da:a 1 和 dala[2 中 :mn 必 狐 导 2 将 坏 大 : 尖 人 天 于 宇 王 耻 
算 复 数 揣 数 组 的 进 变 换 , 中 杆 该 数组 足 守 值 效 据 抽 杰 搞 5 在 这 种 请 品 下 . 攻 续 果 必 须 溢 熙 1501 订 : 


Yoid four1tE1oat data[]，unsigned 1opg nn，int isign) ; 


nadLEbadd 1omag iil.i2,13,i4np3i 
flott Cle0.5,c2,btr,bli,bh2r,h2i; 
站 eab] 昌 及 认 : 帮 证 ， 生 的 T WP 二， WFL 全 全 竹 , 世 全 二 镁 3 


thetae3 .ti15S26535697937 (double) (hn>>1)1i 


革 7 【 习 让 1 和 ae 1)》 荆 
2 至 -0. 末 ; 
ouFLtdeatm,a>>ti,t; 
】 4]1g 人 区 
C2m0.3i 
二 batc 曾 王 ~ 上 hetai 
】} 
Te 本 P= 庆 了 (CC .5 七 heta) ; 
VPIT = -2.0wwteapewtemp 
Tim 呈 《人 bd 志和 ) ; 
wrs1.O9Wti 
语文 于 可 入 于 
DpP3ean+3; 
or 【3a 呈 :ice(a>7>23》id++) 并 


14{tSmaog3-fi2=i+(yl<iri-1))); 


种 17 让 由 中 攻 从 血浆 昌 后 了] + 最 二 Ti33) ; 
Hiiagi3Klatafi2]-dataiid]) : 
IN -htasa[i2]*data[ia] ) : 
Stagbs featsftt]-data[i3] ) ， 
YeH2r-visb2i 
站 zwa21+Nisb2r : 
rwrehdrwulwb21 
王 “以 1iewrwbh2i+wlrb2r; 
训 ja 上-wiswpiyuT; 
Te 


co 芭 苹 






十 《地 1zemdata[1])+data[2] ; 


ta[2] ; 


了 和 : 芝 
1 alzedatar[1])+data[2]); 
bi9fblr~dasaf2T) 7 
下 ONELE 二 (ErE 血 ,Q27>1 1) 
了 


12.3.3 快速 正 汞 和 余弦 变换 


为 三 甫 速 归 而 届 双 靖 从 


递归 的 孝 始 赋 侦 


此 处 是 正 癌 变换 
否则 设置 六 变 换 


情况 1 = ] 以 下 分 别 完 成 


两 个 分 次 变 坑 品 从 dats 中 分 离 出 来 


此 处 重新 纽 合 以 形成 原始 实 
实 变 换 


递归 式 


地 数据 的 真 


园 时 挤 压 第 一 个 和 量 喇 一 个 天 据 合 它们 


孝 在 原始 数组 中 


此 处 是 iaign=-! 的 赣 变 换 


在 阴 数 的 傅 里 叶 变 换 的 其 它 用 途中 ,还 可 用 来 解 微 分 方程 ( 参 


用 迪 性 条 件 是 : 1) 它们 在 边界 上 取 有 零 值 , 或 者 2) 在 边界 上 它们 导数 
让 ,常用 的 变换 是 正弦 变换 ,给 出 如 下 ， 
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参阅 筑 19. 4 全). 灶 解 航 最 常 
为 莹 . 在 第 -种 情 汽 





天 一 广 sin(r 访 AN 正弦 恋 换 f12. 3.7) 
人 
其 中 亡 ( 一 0,，.. ,一 1) 是 数据 数组 , 且 六 一 0。 
乍 一 在, 上 过 好 象 就 是 离散 传 里 叶 灾 换 的 趾 部 .可 是 , 引 弦 的 变量 与 用 讽 散 企 畦 叶 变 换 
来 计算 的 室 量 值 相 差 ? 倍 。 正 芒 变 换 只 使 用 在 0 至 2r 区 间 内 一 个 完 伞 范 数 集 的 … 些 正弦 
函数 ,并且 如 同 我 们 将 看 到 的 ,余弦 变换 也 只 使 用 -- 些 余 纺 函数. 相 比 之 下 ,标准 的 FFT 却 
使 用 了 正六 和 余弦 两 个 函数 ,并 且 只 使 用 各 函数 集中 的 “ 半 ( 见 图 12. 3. 1)。 


xcS 




















绘制 了 博 里 时 变换 人 a). 正 变 的 fb) 和 余 芯 变换 (ec) 所 使 用 的 基 上 歼 .每 种 请 沈 斤 示 了 前 五 个 基 函 数 ( 到 于 情 里 
叶 杰 换 , 基 本 数 的 实 部 称 坊 部 都 予以 展示 ) ,虽然 相同 的 下 水 数 发 生 在 布 止 一 个 的 变 贫 中 ,但 基 昂 数 岂 基 不 问 
的 -例如 , 正 粥 变换 中 标号 为 (1)、(5),(5) 的 基 炒 不 出 现在 倩 里 叶 变 换 中 .在 表明 的 民间 内 , 任 章 晒 数 可 由 一 
.个 基 画 数 集 的 全 “ 末 歼 集 展 开 ,. 但 是 , 若 用 正 或 变换 向 合 引 变 换 展开 数 ,最 好 函数 与 各 请 基 曾 数 的 法 界 茶 位 
柏 匹配, 即 零 丽 甫 伪 为 正 粥 变换 , 零 导 故 值 为 余弦 灾 换 . 


图 12. 3.1 快速 正弦 天 余弦 变换 


可 以 使 表达 式 人 (12. 3. 7)" 强 制 适合 ”于 一 种 形式 ,这 种 形式 可 允许 用 FFT 来 计算 .这 一 
思想 是 ,通过 困 数 的 最 后 列 袁 值 来 扩展 给 定 函 数 的 右 端 ,我们 将 数据 的 界 长 扩大 一 - 倍 , 其 方 
趟 是 使 它们 成 为 关于 J 一 六 的 奇 函 数 , 此 时 产 =0。 

Jo ij 三 一 万 70 ~] 《12.3.8) 
考虑 这 个 扩展 责 数 的 FFT， 


。437 。 


2 1 
， 了 2 本 ， 
上 尽 省 3 1 


该 和 式 熊 一半, 从 产品 到 2 一 1 可 用 站 一 2N 7 和 : 


重 二 本 
志 ， 1 
的 2 六 SEE 站 
站 有 
- 全 和 
习 本 二 下 省 
浙 以 
只 -1 
0 2 
二 一 、 5 了 0 过 
站 


吧 > 区 Si 


医 此 ,除了 因子 27 外 ,我 1 站 从 扩展 函数 的 FFT 中 得 忽 正 弦 交 志 

这 种 方法 由 于 扩展 了 数据 .使 得 计算 获 率 降低 了-- 半 :这 种 低 效 率 显 现在 FFT 的 逻 出 ， 
臣 为 变换 的 每 个 泡 索 的 实 部 部 屁 零 .对 于 一 扒 问 题 , 效 率 降 低 - 半 尚 能 接收 , 持 别 是 考虑 至 
这 “方法 的 简单 性 ,但 当 我 们 计算 一 维 或 一 绯 的 偏 微分 方程 时 , 效 兴 将 降低 到 原来 的 1:4 尸 
178, 所 以 应 努力 消除 这 种 低 效 忻 . 

从 原始 实 型 数据 数组 广 中 ,我 们 可 以 构 送 个 靖 巧 数组 ， ,并 将 辫 运 用 于 程序 reaift 
中 -然后 ,本 用 输出 来 构成 我 们 所 求 的 变换 .对 于 数据 万 羡 =1,， .1) 的 正弦 变换 .辅助 
数组 为 

To 一 总 


《12.3 12) 
人 一 SinCJTAN CA 十 >. 门 二 > 了 【《 廊 了 1 =: ji 本 


过 


一 教 组 与 原始 数组 的 维 数 相 于 - 汗 齐 ,第 -- 人 j=: :2 是 对 称 的 , 旦 第 - :项 是 反对 称 
基本 当 realft 月 于 >， 寺 ， 其 结 果 只 有 下 式 给 帅 的 家 部 fs 和 上 庶 部 瑟 ; 


只 ， 二 ieDsT28 记 AD) 


了 
Xi 


二 (三 十 扩 Jsin(jrAjeos(2mr 这 NT 


温 一 玉 


1】 
至 广 ， 27sinOUrpN icos(C2 大 AN 
时 咱 
《2 一 交 
2 [sin (2 挟 LN 一 sin 人 人 二 向 一 


二 人 《12.3. 13》 


折 
惟一 > ; SIn(27 有 AN ) 


到 之 (太一 扩 .1) 了 Sjnt2FIRrAN) 


-1 
一 ， 渤 St 的 ) 
一下 
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一 恨 ， (12.3.14) 
所 以 ,ss 可 以 磋 定 如 下 : 
一 下 开 一 一 由 0 CNA2 1) 2 3 15) 
天 的 偶数 项 可 以 直接 确定 .而 奇数 质 击 要 递 扑 ,在 式 (12.35 15) 中 设 =0 利 用 因 二 一 六 
求 得 
户 一 去 R， (2. 3 16) 
实用 枉 序 为 ， 
include 所 math,b>> 
void sinfr 《ileat y[]，ihr mn) 
计算 存 竺 在 煞 组 y 1..n | 中 - 遇 mn 个 实 俏 数 据点 的 下 防守 换 :n 必 肛 是 2 的 宕 次 。 丰 出 口 y 被 它 的 恋 换 所 代 千 ,这 个 
程 弃 , 不 加 任何 改 罕 节 可 计算 下 弦 记 次 能 递 变 玖 ,但 在 这 种 请 况 下 ,得 出 数组 应 乘 以 2/a。 


《 
void realft(float dat 和 [] ，unmeipgmed long 口 ，iat isign)i 
int j ,P2=D+2， 
?loat Bun,71L1,y2; 2 
double thetasi=0.0usrst.0,upiy,wprvetemp; 为 三 角 逆 归 而 设 双 和 精度 
thata=3.14459265358979/(double] ni; 递归 的 初始 贞 值 
wteapaih(O0.5#theta)i 
WPIT = 一 2 .0# Wi 七 要 硬 忆 中 三 GEP 
PP 土 =3mK 七 hGta) 
了 [1]=0.0; 
?or (je2;j<ntay>>1)411 和 +) 
wr= (weap=vr)swPr-wtswpi+wri 计算 辅助 数据 的 正弦 
dm 全 让 WPDI 二 SP 中 WP 王 十 可 为 继续 远 归 需要 余弦 
7lewiwty[j]+y[a2-j]); 构造 轴 助 数组 
ye0.5*(y[j]-y[o2-]]); 
了 [ 订 =y1+y2; 和 A -7 项 有 关联 
了 [nm2-j]=y71-y2; 
} 
Tealft(yvay17; 求 畏 助 数组 的 变换 
7 了 [10.5; 对 以 于 奇 数 项 的 和 式 初始 工 值 
3Ups7 了 [2]=0 .6i 
for 【j=1;j<sn-1;j+s2) 区 
su += y[j] ; 
y[ 切 =yf[j+1] ; 变换 中 偶数 项 直接 确定 
7[j+1]=stum; 通过 运行 和 式 奇 数 项 被 购 定 
省 


有 趣 的 是 , 正 粥 变换 亦 是 其 自身 的 逆 变 换 。 如 读者 应 用 正弦 变换 吊 次 , 便 可 得 到 原始 数 
组 ,但 只 是 乘 上 了 - -个 因 了 N72。 
微分 方程 忆 一 种 常见 的 边界 条 件 是 ,边界 上 函数 的 导数 为 零 , 在 这 种 情况 下 , 王 常 的 变 
换 是 余 访 变换 ,定义 这 种 变换 有 几 种 可 能 的 方式 .每 种 定义 都 可 认为 是 一 种 结果 ,该 结果 可 
以 通过 不 同 的 扩展 方法 ,从 给 定 的 数组 构造 一 个 双 倍 界 长 的 偶数 组 来 获得 ,或 者 也 订 以 必 所 
扩展 的 数组 中 是 否 包括 2N 一 1.2N 或 其 它 一 些 点 的 数 来 求 得 实际 上 , 许 许多 多 可 能 的 形 
式 中 只 有 两 种 是 有 用 的 ,所 以 我 们 只 讨论 这 两 种 形式 。 
余 防 变换 的 第 一 种 形式 用 二 1 个 数据 点 表示 为 
一 到 [ 十 《一 1 十 方 cos(r 久 AN) (12. 3.17) 
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该 结果 是 将 给 定数 据 扩 展 成 为 关于 /一 的 偶数 组 而 获得 的 ,并 有 
ja 一 0 一 1 《12.3. 183 
阁 将 扩展 数组 代入 式 (12. 3. 9) , 接 普 类 似 地 按 椎 导 式 (12, 3. 11? 的 步 姜 , 就 烙 发 现 这 博 里 叶 
变换 是 余弦 变换 式 上 2. 3. 17) 的 两 倍 . 关 于 式 (12. 3, 17) 另 一 种 方法 正 是 前 面 已 提 到 的 奖 比 
否 火 ,高 斯 - 洛 巴 托 求 积 公式 (参见 第 4. 5 节 ), 它 常 应 月 于 交 伦 肖 - 柯 幕 斯 积分 (Clenshaw 
Curtis)( 参 见 第 5. 9 节 公 式 (5. 9. 47)。 
另外 一 种 方法 ,可 以 计算 这 个 变换 而 不 降低 一 半 效 诸 。 北 时 ,和 辅助 隔 数 是 


史 一 本 GOT 一 sn(rrNDG 人 J 一 0 1 《12. 3，: 昌 3 
薪 换 公式 (12.3, 15), 贡 在 程 这 realft 给 出 
五 六 一 民 一 天 十 将 & 一 0 NA 一 1) (12. 3 20 
在 此 情况 下 ,对 于 奇数 二 递归 的 起 始 值 是 
是 一 | 
已 一 于 ( 久 一 放 ) 十 定 1ieosCiaAN) (12.3 211 


该 和 式 中 没有 出 现 Rt 和 靖 , 所 以 可 以 在 数组 y 生成 过 程 中 累计 该 和 式 。 
这 个 变换 也 是 其 自身 的 道 变换 ,所 以 下 述 程序 能 用 于 求 变换 及 逆 恋 换 .请 注意 , 虽 铸 该 
余 芝 恋 柳 的 形式 有 N 十 1 个 输入 和 输出 ,但 它 仅仅 传送 界 长 为 N 的 数组 到 程序 realft 中 去 ， 


区 jiuctude 所 mathh 盖 
奸 detine PI 3,1415926533589793 


void cosfrlkfloat yLj，int n》 
计算 实 值 数 据点 的 一 组 拒 1..n -的 条 必 恋 条 ,所 诅 变 数 据 荐 代 了 数 玫 y 中 的 原始 数据 .n 必须 尽 2 的 圭 次 该 班 闻 
三 用 改变 就 可 以 计算 余 监 变换 ,但 此 时 输出 数组 必须 采 2。 


void rcalftffloaf datal ] ，tmsigned long ny int tsign)i 


tnt jn2i 
jloat sutin,ylvy2; 

--double thetawi 一 0.0:wpbiywprvwt 一 1.0wtempbr 对 三 角 什 归 雹 妈 精 度 
heta = Pl/ns 史册 的 裕 始 吸 人 


Wwtempb 一 sinK0.5# Theta)t# 

wpr 一 一 2.0x Wtermp + Witemapti 
wp 一 sin(thetay 

surm 一 05 (y[1] 一 yn+-1])， 
y51]= 一 0.5x (yz[I] 二 y[n 二 ID)， 


n2 一 nn 十 21 
for 昌 一 25j< 一 人 >>1)Hj 十 +) 1 因为 y[ny2 十 -不 变 , 所 以 不 必 司 六 一 2 上 
WT 一 (wTremp 一 wWt)》 + 友 pT 一 Wi WPpj 十 WwWTi 执行 递归 
wii 一 Wi+ WpBI 十 Wtenip xs WPI | Wi 
了 1 一 0.5x《y[ 订 一 y[n2 一 门 2 计算 辅助 函数 
82 一 (y[ij 一 y[n2 一 让 )i 
z[ 门 一 员 一 wx y23 1 和 N 一 1 项 有 关联 
yLn2 一 避 = 了 十 wj y2? 
stim 十 一 wT 9# 725 为 了 用 于 后 面 所 呈现 的 变换 而 求 和 
} 
realfr(yay]) 计算 帮助 阵 数 的 变换 
y[n 十 1 一 y[2]， 
y[2] 一 sums wum 是 式 (12. 3. 21) 中 的 六 值 
for (一 4 和 suijT 一 2 
sum 十 一 yDj] 戈 (i2.5.20) 
[让 一 sumy 
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涉 芝 沪 宝 换 的 ， 稍 - .种 重 此 综 形 式 定 六 碎 杂 


FK(7 十- 





六 一 2 CS 2 〈12. 3, 222 
共 逆 灾 换 
人 于 T() 小 二 ) 
万 一 着 定 和 cos -一 页 《12.3. 23)》 
二 一 “ 


这 里 , 利 式 上 竟 符 号 ”“ "表示 对 一 0 的 那 项 有 一 系数 172 在 前 面 .这 一 花 式 可 以 由 扩展 给 定 
的 数据 来 至 现 ,定义 扩展 的 数据 从 7 一 0 .六 一 [| 到 六 :No 2 一 1, 在 这 种 情况 下 , 它 
对 点 六 -六 是 偶 的 和 周期 的 (四 此 关于 /一 ~ 半 也 是 倘 的 ) .这 种 形式 (12. 3. 23) 与 高 斯 - 切 
沁 志 去 求 积 有 关 ( 参 见 式 (4. 5. 19)) ,也 与 切 比 委 大 近似 (第 5.8 节 , 式 (5.8.7)) 和 和 克 伦 肖 - 柯 
带 斯 俱 分 (第 5.9 节 有关. 

在 “交错 ?网 格 上 解 微分 方程 时 ,余弦 变换 的 这 种 形式 足 有 效 的 ,其 中 在 网 格 点 之 间 的 中 
途上 变量 被 置 十 中心. 它 也 是 数 提 压 迪 和 图 像 处 理 领域 中 的 标准 形 臣 。 
在 本 情况 下 , 伍 出 的 辅助 函数 区 估 于 式 (12. 3. 19) : 


(十 六 
ae 六 ( 广 一 元 xin 丈 一 《三 凡 7 0、 1 


阳 





执行 类 似 于 式 !12. 3. 12) 至 式 (12. 3, 15) 所 采用 的 步骤 ,可 推导 得 


Fe 一 cos 驹 Ri 一 sin 对 有 (12.3.25) 
下 -1 一 Sin 全 Rs 十 cos 环 和 十 天 2 (it2.3.26) 

注意 出 方程 (12. 3. 26) 得 : 
大 xv : 一 可 Rev 《12. 3.27) 


所 以 偶 分 量 可 直接 从 式 (12,. 3, 25? 求 得 , 谭 奇 分 量 串 由 式 (12. 3. 27) 起 始 , 从 一 N72 一 1 逐 
渐 递 推 直 (12. 5. 26) 炒 得 。 

因为 这 变换 不 是 其 电 身 的 反 密 换 , 所 以 我 们 必须 其 倒 上 述 步 骤 而 求 出 道 变 换 . 实 际 程序 
如 下 ; 


并 incelude <marh.h> 
共 dcfine PI 3. 143592654589793 


void cosft2(float y[ 门 ，imt ny， int isigny 
计算 实 复 数据 的 “ 纶 *[1. .0 的" 交 洪 " 傅 弦 变 换 。 所 得 变换 数据 替换 了 数 氏 y 中 原始 数据 .n 必须 吡 2 的 村 次 。 令 
ijsigns | 1 基 余 汞 变换 ;站 玉 ia = 一 1 址 这 余 嘴 变换 。 在 送 变 换 运 算 时 ,输出 数组 要 区 上 2jn。 

元 
void rea]zt(float data[] ，Unsigned long nint iatgny》; 
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了 二 

1108t 3um,aunl,yL,y2,7tenp， 

dovbl1e theta,ui<0.0utlwpt,wprersnti.O,wrl,wteampi 
Double precision for the trigonpmetric recurrences. 


thata=0 ,5#PIAni 递归 的 避 姑 莽 值 
WITHiecOsg theta 
Weinfthbataa) 1; 
WPr = -~ 了.OwwiTyWiti 
wpinsin(2.0rthata] ， 
if (ieign == T] 吉 正 向 变换 
for {is1iicsnz2;ii++)》 并 
ylmO-Sw( 了 [i]+t 了 [no-i+l1]y; 计算 辅助 珊 数 
y2mswidy( 了 [i]-yfn-i+1])， 
yfi]=y1+y2; 
了 [n~iyr1]=yY1~72; 
Vrle etemp=er1)*wpr-uilewvpifwrli 执行 递归 
Vilswitywpr+LeamPevPt+wIt; 


了 
Tealytf 了 ,an,1) 交换 辅助 函 孝 
for (i=3;i<c=n;t+=2) 工 偶数 项 
Ta (W 广 9 胡 P 一 NI) 本 WP 天 一 WRP 了 二 工 7 
侣 二 到 全 站 WPETWT WPWP 二 二 昌 和 3 
Jy1=y[ijzwr-y[i+lwwii 
y2=y [iy1]*Rz+y[ijevwsii 
-他 [=y17 
y[i+t]e=72; 


》 
aums0 .5*yf2] ; 用 去 玉 wy/2 对 奇数 项 类 归 作 初始 冉 值 ; 
for 【ieni1L>a2;i-s2) 荆 

umtmsumt 对 奇 手 项 执行 递归 ， 

sum + 了 [] ; 

7 了 [ft]=msuml; 


下 
》alae if (iaign == -1) 苹 逆 变 换 
7temp=y [na] ; 
Yo7 《ii= 了 ii>m4;u -sa2) [im7[t-2] -7[di]: 奇数 项 的 闭 
7[2]=2.0*yTegp; 
Yor 《lw3ilc=nii+e2) 十 算 只 es 和 六 
Vwrs(wtemap=wr]wwpr-wiywpi+wri 
克 主 严 囊 了 中 BrPI 十 访 亡 才 下 也 证 和 P 荆 + ， 
了 ley[iwWE+7{I41] 中 全 
y2=y[i+t]ewr-y[i]ewd3 
yfi]=yli 
y[L+1J=y2; 


Te&lztfy,n,-1) 1; 

for 《imlii<=an/2it++) 《 反 埠 辅助 数组 
ylny[i]+y[n-i+1]; 
Y2=(0,.57wit)yw(7[i]-y[a-i+l]); 
y[i]=0.5wK714+y2》3 
y[p-i+Ii]=0.54(yL-y2); 
grYtem (wenp=NT1) wwPT-UY19UPi+wr1; 
WwWITtmwd1LywPT+wtentp 和 wpiyrwlli 

小 


实施 该 算法 的 ， 砷 父 替 方法 是 ,将 万 的 偶 抱 素来 复制 到 前 N72 个 存储 单元 ,而 将 六 的 
奇 元 束 以 倒序 复制 其 次 /2 个 存储 单元 ,从 而 月 成 辅助 范 数 .可 是 ,如 果 没 有 暂 存 数组 , 实 
施 这 交替 算法 是 不 容易 的 ,四 此 我 们 较 喜 欢 用 上 述 的 同 址 算法 。 

最 后 ,我 们 提 到 ,对 小 的 扩 数 存 千 着 快速 余 艾 变换 , 它 不 依赖 辅助 画 数 或 不 使 用 FFT 
程序 ,下 是 池 常 ”至 浊 定 前 小 维 数 N 硬件 编码 后 直接 计算 余弦 变换 。 
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12.4 二 维 或 多 维 的 FFT 


设 有 -个 定义 在 二 维 网 格 0 究 负 实 一 1 ,0SASCNV 一 [的 复 冰 数 户 ( 才 我 们 可 以 
在 同 笠 的 网 格 上 定义 它 的 一 维 离散 博 里 夺 变 换 是 复 函 数 囊 (m ma) 


1 8 一 1 
刀 (naa) 二 六 人 exp(2mEpaztsAiiexp(2rrR NA ps [2.4 
we 一 丰 


将 “下 标 为 2 "的 指数 放 到 关 开 点 的 利 式 之 外 ! 或 者 藤 倒 求 和 的 次 序 , 将 "下 标 为 1 "的 沾 数 
放 到 关于 护 的 和 式 之 外 .我 们 可 以 发 现 , 连 续 地 在 每 个 指标 上 计算 原 丙 数 的 一 维 FFT 就 能 
求 得 二 维 FFT.。 用 符号 表示 为 
吾 (maz) 一 指标 1 的 FEFT( 指 标 2 的 FFT5A(R,)]) 
二 指标 2 的 TFT( 指 标 上 的 FFT[ 关 (有 ,Ra:)])》 
当然 ,为 了 实用 ,N: 和 Ms 两 者 部 应 该 是 FET 的 某 个 有 效 界 长 ,通常 均 为 2 的 每 次 。 用 一 维 
FEFT 的 程序 按 晨 式 (12.4. 2) 编 制 的 二 准 FFT 程序 比 最 初 形 南 上 看 起 来 要 笨 朱 :点 . 思 为 
一 维 的 程序 蓝 求 它 输 入 数 锯 按 一 维 复 卉 数组 呈 连 续 顺 序 , 思 此 可 发 现 ,这 祥 将 从 和 多维 输 入 数 
组 中 无 目 境 地 复制 数据 出 来 ,然后 又 将 数据 复制 回去 .因此 这 是 不 值得 推荐 的 技术 .当然 .应 
.该 采用 多 维 的 SFT 程序 ,下 面 我 们 给 出 一 个 程序 。 
显而易见 ,可 将 式 (12. 4. 1 上) 推广 到 二 维 以 上 。 设 世 维 的 一 般 表 达 式 是 
避 ，--1 六 .1] 
刀 人 np 二 信 .. Sexpt2rikuneANi) 沪 二 4 
名 0 大 = (12,4.3) 
X exXPK2 到 了 AT) 在 ( 天 ， 。 克 ) 
其 鹭 和 大 的 范围 从 0 至 NM 1 oz 和 大 的 范围 从 0 至 Ne 一 1。 在 式 (12.4.3) 中 要 调用 
多 少 次 一 维 PFFT? 相 当 光 ! 首 先 对 太 , 大 -的 人 等 不 值 作 FFT, 求 出 工 下 标 中 的 变换 . 然 
后 对 大 rz 不 的 每 个 值 作 FFT, 求 出 工 一 1 下 标 中 的 变换 ,以 此 类 推 . 妇 果 采 下 上 
述 这 种 做 法 :就 只 有 依 著 某 个 已 作 过 多 次 和 全 面 程序 操作 的 人 了 。 
式 (12.4.1) 或 (12.4,3) 的 疙 变换 正如 期 望 的 那样 :和 将 指数 的 宇 变 成 ~: 并 在 下 个 式 子 
前 乘 上 一 个 整体 因子 17(CN x…Xw), 冤 维 FFT 也 具有 类 做 一 情 况 中 已 讨论 址 的 许 赂 
其 它 特性 ; 
“ 在 变换 中 频率 按 环绕 顺序 安排 ,但 现在 是 对 每 个 部 独 的 维 数 。 
“输入 数据 也 按 环 绕 顺 序 处 理 .假如 经 过 这 周期 的 鉴别 (在 任何 绯 数 ) 它 们 是 不 连续 的 ， 
.443 ， 


则 四 为 不 连续 性 ,在 尚 频 [频谱 将 会 有 某 些 这 着 的 功 这 站 妇 介 总 的 活 . 处 理 广 法 训 
是 移 去 多 维 的 线 件 入 势 、 

“ 芒 上 要 进行 空 司 滤波 ,并 月 为 环绕 效 诺 而 你 惧 . 需 雪 围 绕 多 维 数 弓 过 办 在 二 拒 33 
充 。 介 是 ,请 注意 在 多 维 变换 中 零 元 填充 的 代价 有 汉 大 -如 末 使 用 了 过 多 的 二 元 培 ， 
将 耗费 大 其 的 存储 .尤其 足 在 三 维和 更 高 维 的 情 活 : 

“如 果 一 维 或 多 维 的 变换 不 存在 足够 的 带宽 限制 的 活 , 滋 玖 消 洛 会 必 全 。 





这 里 我 们 提供 的 程序 foura 是 根据 布 伦 尔 CN. M. Brenner) 护 写 的 个 程 床 派 .是 家 
的 ,作为 输入 . 它 要 求 :(iD)-- 个 标量 .说 明 维 数 的 个 数 , 例 如 2;61)-- 个 向 量 , 说 时 每 个 绯 获 及 
界 长 .例如 (32.84)。 请 注意 这 些 界 长 必须 才 是 2 的 赛 次 . 片 朋 是 在 每 个 方 基 上 复 值 上 个 数 : 
(ii 一 个 通常 等 于 十 1 的 标量 . 它 表 示 姑 求 变换 还 是 迹 灾 榨 ; 最 后 (iv) 数 据 数组 。 

关于 数据 数组 说 几 铝 :程序 fourn 是 以 -个 “ 实 数 炒 组 米 存 取 数 纽 , 即 du: 1， 
CN Nr)], 其 界 长 是 工 维 界 长 乘积 的 是 倍 . 假 设 数组 表示 为 工 维 复 数组 . 革 单 个 分 益 
的 顺序 刻下 :GD) 每 -复数 值 合 用 两 个 连续 的 存储 单元 , 实 部 列 后 眼 庶 部 ;02 当 大 们 搜索 数 
组 时 第 :个 下 标 变化 最 慢 而 最 末 … 个 下 标 变化 最 迅速 ( 奴 厅 5C 标准 语 计 中 "以 行 在 储 ”，: 
5 下 标 变 范围 从 ] 至 它们 的 最 大 值 (分 别 为 RN .Arv 一 1 而 不 是 从 0 芷 入 1. 
Ni 1 . .Ni 1. 几乎 所 有 使 fourn 工作 失 族 的 原 迪 都 是 由 于 对 数据 数组 的 上 述 硕 席 志 
正确 理解 的 结果 .( 于 12. 4, 1 说 明了 输出 数据 的 格式 。 


-数据 [11 2 个 浮 点 数 的 行 








. 1 
天 员 和 交大 而 
数据 |2WN2j---… 
输入 数据 是 二 维 Ni XNs 数 组 上 nt 以 复数 的 行 存储 ) , 畏 出 以 复数 行 存 弯 , 每 行 寺 应 于 络 定 的 妨 司 ,应 略 折 


示 , 每 -- 行 中 频率 产 的 排列 完 念 如 图 12. 2, ?所 泵 ,种 ss 分 别 悬 沿 1 和 3 方向 上 的 反 样 回 隔 ,( 实 ) 数 组 汇 罕 的 总 
孝 为 ?Ni wz, 程序 foum 也 能 用 于 商 于 二 维 的 情况 ,并 及 以 显而易见 的 方法 准 广 存储 的 排列 . 


图 12.4.1 二 维 FFT 葛 输 出 55A 六) 中 频率 的 在 情 排 列 
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并 include <Inatl.h > 
江 define S 有 有 PCapy temptr 一 (si0ayx (brby=tenDT 


void fourn (float data7]，unsigned nn[ ，int nelim 、iot sigoy) 


用 daca 的 ndim 纵 离 散 博 壬 叶 安 换 姬 杭 安 自 洁 的 data, 尖 iign 输入 几 j.nn[1..ndimj 是 训令 每 维 天 复 伯 全 数 ， 

的 整 型 数组 ,但 们 必须 全 部 是 2 的 昭 实 :data 奸 实 型 数 年 其 由 长 汽 这 些 界 狼 滋 表 ,的 是 倍 ,在 这 数组 中 数据 忆 洛 淮 提 思 

数 经 存 倩 :每 人 元 壳 的 实 部 和 虚 部 瑞 避 憾 床 放置 .并 也 当 大 们 江 qdnra 进行 时 , 数 红 的 要 有 岂 序 号 增 溃 好 直 还 .生生 
-本数 组 , 郧 等 于 以 行 存 财 散 组 . 若 jsign 输入 为 一 ], 册 dnsa 被 空 信 的 逆 宣 次 乘 以 秘 和 有 绯 数 的 异 攻 过 和 所 夫人 


int idiam; 

unsignod iong il,i2,i3,i2revvi3rev,ipl,ip2,iP3ifplifp2; 
Unegigned Long ibit ,tk2, 吕 .DPrev,Drem,ntot; 

了 loat ampi tempr 3 

double theta,wi,wpi,wpr,wr,NteaP; 关于 三 角 递 椎 的 刀 精 度 


for 【ntotst,jidims1;jidin<sndim;idim++) 计 其 只 值 的 总 个 娄 
Dgot *< nn[idam ii 
nPrevas1i; 
faer (idim=ndimi idim>amliidid--)》 1 维 数 二 的 总 循环 
mn=nnfidimj ; 
Dremratot/y (nenpPreV) 7 
1pleepretr << 了 
ip2eiplwai; 
ipP3=ip2enrez; 
oreve1i 
zor 〈i2=1;142<=ip23124=iPpzt) 工 这 是 程序 的 位 序 亏 全部 分 
if (i2 < i2rey) 1 
for (its<i2iil<=i2+ipl-27il1+s2) 1{ 
for 《zi3ai1i1l3catp3iz3+etpP2) T《 
i3revsi2rev+i3-i27; 
SWAP(dati[i3] ,dat[i3rev]); 
SWAP(data[i3+1] ,data[i3rev+1]); 


】 

》 

zbitasizp2 >> 11; 

while (ibit >= ipjl te i2rev > ibit) 工 
Et2rav 一 “1btiti 
aibtit >>m 1 

了 


z2rev +w ibiti 


】 
ifpleiplt; 这 里 开始 程序 的 开 尼 尔 森 一 兰 佐 斯 部 分 
中 ie (ifpl < ip2) { 
IfYp2=ifpl << 1; 
thsta=niaigny6.28318530717959A(ifp2Aipl); 对 三 角 递 推 初始 晤 值 
empbmainD.5wthetay) ; 
WPT wm 一 2 .0#WTLSmD#STem 记 ) 
VPieain(theta) ; 
ar<1.0i 
Yi0.0; - 
for (ia=1Titz3cmigtPplii3+mip1) 《 
for (ilwel3ifil<=i3+dip1-2;21+s2] 于 
for 【i2=41;12<=4P3;12+mifp2y [ 
X1m123 丹尼尔 森 .- 兰 儿 斯 公式 
2ekltigpli 
七 硬 PT 二 【于 】 OA) wr 闻 data[r2] 一 (flLont)wiydats[X2+1] ; 
tempi=tfloat)wrsdata[fa2+1]+ffLoat]Jwiedata[r2]; 
dat&[x2]=qata[xi]-tompri 
data [2+1]=dat 了 [1+1]- 七 ampii 


，。445 。 


data[xk1i] += 七 ampri 
data[k1+1] + tampi; 

】 2 

arsfstemp=vr)ywpr-wiswpi+swri -有 角 递 推 

这 vbwPLYwtBmPr*WPI+Wi 3 

ifpleifp2; 
nprev em ni 
} 
了] 


12.5 二 维和 三 维 实数 据 的 俏 里 叶 变 换 


在 恒 像 处 理 领域 中 ,.- 维 FFT 是 特 姑 重要 。 一 帼 图 像 通 常 表示 为 象 素 强 度 值 利 “个 
维 数组 , 半 且 是 实数 (通常 为 正 数 ). 大 们 通常 要 求 从 画像 中 滤波 出 高 频 或 低频 的 特效 分 其 . 
或 者 将 图 像 与 某 些 仪器 的 点 扩展 函数 作 卷 积 或 解 卷 积 , 所 以 ,FFT 的 运 月 是 十 分 有 效 委 技 
术 。 

在 一 维 情况 下 :FFT 的 通常 月 法 症 .在 代表 二 维 空间 方向 的 二 维 网 格 土 为 求 位 陛 5 邯 由 
夏 的 或 万 有 引力 的 ;而 求解 泊 松 方程 . 烛 里 潭 (物质 分 布 式 电 从 分 布 ) 和 所 求 位 能 也 都 是 冬 
数 。 在 一 维 三 维 中 上 其 有 大 型 的 数组 ,通常 存 嵌 芋 很 受 重 视 . 所 以 ,在 蕉 可 能 的 范 上 皮 .以 " 回 
- 址 "来 实 施 FFT 是 很 首要 芍 . 我 们 希望 有 -- 科 序 , 其 作 川 与 多 维 FET 得 序 fourn 相似 (第 
12.4 节 ), 但 它 是 对 实 型 输入 数据 操作 而 不 复 型 数据 操作 .本 节 我 们 将 给 出 这 一 程 剖 . 栓 序 的 
导出 与 第 12.3 节 中 推导 出 的 一 维 程 序 realft 相似 (希望 在 这 -一 点 上 复习 寺 节 内 容 , 特 圳 是 式 
《12. 3.5))， 

我 们 可 以 很 方便 地 峰 式 (12. 4. 3) 中 的 独立 变量 ，. .mr 视 为 在 波 数 空间 的 .个 了 上 维 
各 其 ,并 且 有 整数 格 点 上 的 值 .而 变换 刀 om ,期 可 扫 成 媒人 2) 。 

很 容易 知道 , 灾 换 豆 (m 在 它 世 继 的 每 继 上 是 周 戎 性 的 .特别 是 , 若 已 ,已 ,有 . 表示 
成 向 最 CY: ,0,0， .0AN0 0 1 等 等 , 册 


理 人 十 开 ) = 五 0 71. 忆 (| 上 .5.1) 


对 于 任意 输入 数据 一 实 型 或 复 地 ,等 式 (12. 5. 1) 都 成 立 。 当 数据 是 实数 ,我 们 有 附加 对 和 你 
性 
甩 ( 一 (212. 3, 2) 


等 式 (12.5.1) 和 (12, 5. 2) 表 阴 ,该 全 变换 能 馆 二 便 地 从 格 点 值 > 的 子 集中 获得 ,该 子 集 有 


U<:2< AVI 一 上 


0 < Mac vs 一 1 
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输入 的 数据 数组 






float aatail.nrzlf12 nn. nn3l 


给 出 的 频谱 数组 1 奴才， 





和 四 强 和 











全 部 数组 被 假 没 为 复 一 继 ( 电 左边 ) 的 范围 [1. ,nnlJ, 它 伸 出 纸 面 .输入 数组 是 一 级 三 维 实数 组 data 
11..nnl 上 1 nano2 中 1..nn31 5 对 于 一 失 时 证 设 为 nrl=1)。 输 出 数组 可 杭 为 居 让 站 -nnl 站 .cn 
,noa372 十 所 维 的 一 个 其 型 数组 ,对 好 的 总 率 为 种 产 的 分 量 以 环绕 次 序 在 姥 , 且 只 存 情 户 的 工 自 率 
部 分 ! 其 余 可 通过 对 种 性 求 得 )。 实 际 上 ,输出 数据 几 平 拂 返 民 到 输入 数 钥 dsrs 中 , 候 部 分 存 傅 实 获 
外 speqa -lnnl:[l. .2 nn2l 中 . 详 见 正文 。 


峡 12.5.1 笠 序 rtfr3 中 箱 入 和 输出 数据 的 安排 


事实 上 ,这 个 子 集 的 数 全 是 过 二 完全 卫 , 国 为 在 变换 数 舍 之 间 在 厅 妊 加 的 对 枯 关 你 - 苑 
在 袜 =0 和 zz:72 处 。 但 是 ,这 些 戏 称 性 是 很 复杂 的 ,并 且 它 们 运用 后 会 室 得 覃 后记 瑟 
所 以 ,我 们 仍 在 式 (12, 5.3) 的 网 格子 集 上 计算 FFT, 慌 管 这 样 会 要 求 少量 冤 外 的 在 请 阐 关 ， 
即 变 换 不 是 完全 * 同 址 ”事实 上 , 占 二 变换 总 可 以 实现 的 。 但 是 我 们 发 现 : 实 际 上 ,我 们 下 邱 
能 向 用 户 讲解 清楚 ,如 何 分 解 出 变换 的 输出 , 即 如 何 寻 找 某 些 特殊 频率 处 变换 的 实 部 和 叭 部 
分 量 ) 。 
我 们 将 实施 三 准 情况 工 =38 的 多 维 实 傅 里 叶 变换 .并 卫 有 输入 数据 大 铺 为 一 组 实 型 
准 数 组 data[1. .nnl][L1..nn2].1,.nn3]。 这 个 实施 允许 用 来 处 理 二 维 数据 , 它 同 样 丰 效应 
只 需 简 单 地 选取 ni 一 1 注意 ,必须 设 第 一 绒 等 于 1) :全 少 四 辑 上 而 言 ,和 葵 慷 法 将 以 复 旬 : 
维 数组 成 也 地 引 间 ,其 中 我 们 能 够 调用 SPEC[L1. .rrtl 1,.rn22 [lnn3]( 瑚 见 起 (2 
3))。 企 变换 的 三 维 数据 中 ,前 两 维 的 频率 值 分 别 为 寺 和 户 , 以 环绕 顺序 存储 ,如 二 频率 存在 
第 一 个 序号 值 中 , 基 小 的 正 频率 存储 在 第 二 个 序 叶 秆 中 ,最 小 复 频率 存储 在 最 末 序 蔷 宁 ,等 
等 (参见 导出 程序 fourl 和 fourn 的 讨论 ) .三 维 数据 中 第 三 维 仪 仅 返 回 舌 谱 的 正 半 部 分 ,上 
页 划 12. 5.1 表 明了 这 种 有偿 辑 存储 结构 . 复 痊 出 谱 的 返回 部 分 是 图 下 方 的 阴影 部 分 。 
相对 于 丈 辑 而 言 ,输出 谱 的 物理 结构 要 与 逻辑 结构 少许 不 同 ,因为 对 于 相同 的 实 型 和 复 
型 数组 ,C 诸 言 没 有 合适 的 、 易 十 移动 的 结 枸 -下 标 范围 SPEC -1.,.nnl [], .nn2  : 
nn372] 返 回 到 输入 约 数 组 datar1.， nnl]Ll,nn2 [na3] 中 ,具有 对 应 关 甩 为 
Re(CSPECDl [Li2]ii3]) = 一 datra[ia Li2z][2*i3 一 1 
Im(SPEC[il-[i2][i3]) 一 data[il-[i2iL2*i3] 


《]2. 3.44， 


其 余 “ 同 此 ?的 值 SPECL1. .nnl]f[l ,nn2 inn273+ 1 是 返回 到 二 维 浮 点 型 数组 spec: 1. 
nnlj:-1,.2*nn23, 其 具有 对 应 关系 为 


ReCSPPC[Lil][i2]Lnn372 十 1) =:spetlLiliL2x# 记 -一 1 
Im(SPECRS1][i2][nn372 十 1j) 一 spedlLil L2*i2] 


注意 ,speq 中 包含 频率 量 , 其 中 第 三 个 分 量 广 在 奈 斯 特 临 界 频率 芋 关 上 .事实 上 ,在 某 些 应 
用 中 ,此 值 将 被 忽略 或 设 成 零 ,因为 此 处 的 值 在 正 , 负 频率 之 问 是 被 混 迷 的 ， 

根据 以 上 这 些 介绍 , 称 之 为 rlft3 的 实现 程序 有 些 虎 头 蛇 尾 . 察 看 程序 中 最 内 层 循 环 , 它 

对 最 后 面 的 变换 下 标 实现 方程 式 (12. 3, 5) .对 i3=1 单独 地 编码 是 为 了 将 数组 spedl 填 满 以 
便 鞭 换 输 入 数据 的 数组 被 覆盖 .三 个 for 所 包 财 的 循环 (对 下 标记 ,i3 和 il ,从 内 癌 包 ?事实 
上 可 以 按 企 意 顺 序 完 成 ,因为 它们 的 作用 是 可 以 互 换 的 。 我 们 选择 了 如 程序 中 所 示 的 的 顺序 
有 以 下 几 点 考虑 :(i) i3 绝对 不 能 是 最 内 循环 ,因为 兰 它 是 最 内 循 坏 , 则 wr 和 wi 的 递 推 基 
系 变 得 累 赣 了 .ii 在 虚拟 内 存 的 计算 机 上 ,必须 是 外 循环 ,因为 数组 data 中 的 结果 ' 以 忆 
语言 的 数组 仓 鱼 闫 序 ) 非 常 大 ,并 且 是 以 块 序列 的 次 序 进行 任 取 的 。 

请 记 住 ,与 例 行 程序 fourn 中 所 完成 的 计算 相关 的 复 型 FTT 的 实际 工作 相 比 较 ,程序 
rIf(3 中 所 有 的 计算 都 可 用 一 个 对 数 因子 被 忽略 ,因为 C 语言 中 没有 很 方便 的 复 型 变量 , 奈 
以 复 型 数 的 操作 完全 是 根据 实 部 和 虚 部 分 别 执行 的 .下 面 的 例 程 rtft3 昆 基于 赖 丝 基 《G.B， 
Rybicki) 提 出 的 较 早 的 例 程 。 


上 fjnciude 过 math.h 人 > 
“4 呈 。 


112 8) 


rodTiiS Cost > as hnrl = xpeq TSiRe ng Dn，uTnstRrurd Jeug an2， 
asigned long mn Sinl is gny》 
鹿茸 名 和 茹 肖 Gan ar an3 mL 对 点 于 天 玲 闸 组 的 情况 该 很 闻 ( 人 :8 


个 复 朵 这 畏 生 PE: 半 出 昭 引 ar 本 各 寿光 一 个 师 芋 | 堆 示 率 阳 土 时 率 值 ,让 speqi1. nl3 
包 扫 条 - 晤 这 分 全 的 条 甘 斯 特 企 内 电 村 价 第 开 贡 第 -) 需 庚 分 届 是 中 堆 戎 案 、 正 壬 滨 和 前 闭 党 的 局 痢 皇 流光 玫 存 
请 上 , 详 见 正 文中 匠 述 复数 得 疝 下 家 排 到 对】 ig3-- 上 起 行道 变换 (要 甫 上 个 国 于 ne at 0n00 虑 二 
出 禾 组 satst 看 成 党 让 炉 组 ) 汕 移入 要 提 由 天 放生 到 :于 “pe 带 有 到 :和 礁 数 nntnn2samn3 通 常 必须 放生 于 




















void crattLo8t data[] ，tngigned 1ong nnif] ，int ndi，int jsign)i 
exd nraTrorchar error_text]); 

urnsigneG Tong il,i2:i3,jl,j2,j3,pnn[4J,ii3， 

doubJle +rhbeta,wiyvpisprsr,wtempi 

fl1sat “1,C2,btr,bli,h2r,h2ii 


放 【〔1+kdata[nnl] [on2] [an3]-wdatafl][1] [1 !a mmnliean2wnn3) 
RYerrort"LLft3: Problem uith dimensions or contiguity of data 3aFIayNa") 1; 
54=0.5; 
c2 = -0.5*isign3 
theta=isjigna(S.28318530717959yon3); 
wemp=siotO.5*theta)3 
wpr = -2.0wwtempeytenpi 
wpi=aln(Kthetay: 
malli]snnl; 
nn[2]=nn2; 
nnft3]ann3 >> 立 ; 
if (isign =<=s 1) 正 变 棉 的 情况 
fourn [tdat&[t] [1] [1]-1,mn,3,isign): 概 大 部 分 计算 时 间 化 在 此 处 
for {il=1i;iitLt<snnl:ii+r+)》 
for (i2=1,j2=<0;i2<=nn2;i2++) { 司 鞭 地 将 data 数 组 扩 人 成 3Paeq 
3Pe 刀 [ii] [++j2]=data[il][i2][1]; 
speq[i1] [++j2]=datazil1l[i2][2] ; 


】} 
for [il=1;ilc=nna1;il++) 并 

Jlsfil !e 1 Yannlil+r2 : 1); 

堆 冰 率 好 其 自身 的 映射， 其 他 技 照 负 轿 这 以 坏 绕 次 序 定位 . 

in wrap-around crdet 

wr=1.0; : 角 递 推 初始 转 值 

Wi=D ,Di 

for 《ii3rt.i3=lii3<=(an3>>2)+113234++，Li3+<2) 

for (i2=1ii2<=nn2;i2++) { 
if (ia == 1) 工 等 式 【12.3.5)， 
j2=(i2 !4= 1 ? ((nn2-i2)<<1)+3 : 1)》， 
birvcis(datafil]fi2] [+]+apeqfjll1321)7 
hli=clstdafta[il]fi2] [2]-epeq[jdi]rj2+1); 
h2i=c2rktdata[iljy[i2] [1]-epeq[jl[j2]); 
hb2r= -c2*(data[il][i2] [2]+speq[jll[j2+i]y; 
datfaftit] [i2] [1]=hlr+h2r; 
darafil][i2j[2]=bhli+h2i; 
spsq[jl]j[j2]=hlr-h2ri 
speq[jl1]j [j2+1]=<h2i-htii 
》 elge 

j2z=(i2 != 1 ? zn2-12342 ;1); 
js3=na3y3-(i3<<i); 
hirs<clwfdata[illfti21[it3t+data[jll][j2][j31): 
hjiscdly(data[il] [12] [ii3ae1]-data[r[j1]jfj2][j3+li]); 
h2i=c2*(datatil][i2][ii3]-dara[jlt[rj2][j3] ) ; 
h2r”-c2*(datafit] [i2][ii3+1l]+daca[jll[j2][j3t+t]》; 
darca[ilt][i23[ 袜 3] = 和 tryUTYi2I- 中 sh251 
data[il] [I2] [ii3+1] bt1+wreb21+wish2F; 
data [jli] [jz] [j3]=hdz~wreh2r+eith2i 
datatj1][j2][j3+1]= -bti+wrsh21+wiwh2xr; 


249。 





】} 


] 
wT=Kwtgmp=zI)awpT-wisywpi+wIi 立 现 递 扒 
Wiswjisuwpr+vTemprupPi+ywi3 
》 
} oa 
if fisign <= -1) 道 罕 换 的 情 六 


fiourn(kdata[l]l[i][1]-1,ma,3,isiga)i 


现在 ,我 们 给 出 风 个 程序 段 ` 说 硼 如 条 太一 维 丰 三 淮 数 据 调 用 mt3 何 程 。 注 意 , 汶 个 俩 
程 实际 上 并 不 能 瓜分 二 维和 灶 三 维 数据 ;一 缠 也 和 三 绯 … 伴 钴 理 , 只 基 第 一 维 数组 由 ， 空 党 为 
1 因为 第 “ 猴 让 仕 最 外 层 称 下 ,所 以 实际 上 演 专 引 总 代 何 低 效 率 . 





Sa 妃 菊 席 失 有 纯 轴 或 不 习 的 二 逢 图 像 .t)03 国信 用 各 宗 nift3 经 过 低 通 滤波 后 的 峡 窗 .只 乓 
用 姑 显 怀 闪 特性 的 区 域 变 成 了 大 区 。 


图 12.5.2 


惠 一 个 程序 届 是 -- 维 数据 的 FFT, 人 允许 对 它 作 某 种 处 理 , 如 滤波 公理 ,然后 取 基 得 杰 
换 。 图 12. 5. 2 显示 了 这 段 代码 使 用 的 例子 : 当 一 幅 轮 廓 鲜明 的 图 像 的 高 频 空 奈 分 量 被 鸭子 
《此 处 ?max(1 一 6 产 / 关 ,0) 卸 制 后 ,轮廓 变 得 异 糊 起 来 ,第 - :个 程序 段 举例 说 明 -个 二 维 
FFT, 其 中 二 维 方向 具有 不 同 的 长 度 .第 三 个 程序 是 一 个 卷 积 的 例子 , 它 可 以 用 来 计算 :: 维 
分 布 入 池 所 产生 的 位 能 。 


区 include <stdlib, jh 
共 imrlude "nrutil. hv” 


蕉 definae N2 256 注意 党 -个 分 帮 必 滞 没 为 1 
并 define N3 255 


inl Plainfvoid > /+# examiplel z 
这 段 牌 序 说 时 如 和 何 对 一 帼 256x276 的 数字 鲜 价 进行 滤波 ， 
| 
Yoid riff3ttioat > 二 天 data。[leat 全 人 sped ，unsigncd long rnl， 
umnsished Jon 名 hn2，unsigneq loog nt3，int isign)， 
[.oat x # 共 datayy speqdi 


data 一 [3tensortl, 1.1 LN 
+ 症 50。 


sheq 一 matrixT1 1 12+ Ni 


四 这 旦 图 像 必须 装 入 daba 数 反 
rlff3tqdatavsfey liN2 al1y 
四 这 册 数 衣 dats 村 sp)ed 居 且 飞 必 适 当 交 ! 颜 过 的 沪 波 洁 j 
tlir3kdattsspeqy 1 NON3，1); 
人 这 和 书 忆 被 王波 全 让 象 应 流 从 sa:a 数 铀 中 各 :下 


Free. FnaatrlIxYsbed yy] 2+AN2) 
rree_f3tensaorrqaray LN2, 1 Nd7 
teturt 


妆 define N1 32 
芷 defihe NN2 人 4 
娘 define M3 16 


Int mmainCxveiqd ) < RXBmmpPle2 < 了 


外 


这 上 段 程序 说 明和 处 合 对 -个 8 和 时 X16 三 维 实 襄 教 各 作 FEFT， 


VYojg rlfr3tflonf xx Gatas 了 leat * 关 speqy， unSRDed lorrmniy 
uUDsigned ]ong 2302，unsigrec long Fn3， int isign)t 

int 人 

float #* # 尖 dEtas## 关 人 PEC 


data 一 fs3tensof(i ,NIN2 IN3)5 
speg 一 Jpatrix(i ii,2<*N2)i 

四 这 包装 载 dars 数 纽 
rift3(qata,speqg,N1N2N3,1)， 

1 这 时 人 下 dats 利 speq 
free -mmptrix speq 1.N1,1,2*N2); 
fres-f3tenscrdata ,1 N1LN23 1,N3); 
Ietura 51 


六 define 入 32 


int 加 ainfveoid) 7 #eXaIab[E3 关 Y 
这 受 程 序 说 明 如 们 对 两 个 32 交 32 交 32 实 型 三 给 教 组 实行 卷 和 ,结果 尝 换 了 原 第 -个 数 纪 . 
{ 


Void FrIft3( 了 LOat *+*zdata，?10aT 9*Speq。tUnsignaed 1ong nmnl， 
unsigned long an2，Mnsigned 10nE TIn3，int isigm) ， 

int jj 

下 Lat 不 和 C， 上 六 机 中 da 汉 ] 二 交 六 可 可 二 生子， 平 了 日 口 E，F# 日 P2q2 ,43P1L 本 3D2i 


datatlwf3tensort1l , 昌 ,1,N.1L,N); 
data2mf3tensorC1;N 1.N LN) 
SP4ql=matrixfr1 , 果 ,1.24J) 1 
SPpPeq2rmatrizfi, 攻 ,1.2+N) 7 


了 旭 严 
1L3t3rdatal ,speq1 ,RN,) 二 个 输入 数组 的 基 F 工 
TY]1?t3(Kdata2,3Peq2 ,可 ,四 ,1) 1; 
fac=2.DA(KN+ResH) ; 为 了 得 划 标 花道 变换 所 禹 的 因 


咏 1! = kdatalf[1] [1]51; 
sp2 = kdata2[13[1][13 ; 


for 【jn=1;j<=<NuMeNA2;j++) 苇 注意 ， 怎 样 使 用 作 针 spl 和 8s p2 组 成 单个 for 循 环 历 


x = spl[0]*sp2[O] - spl[1]*sp2[1] ; 苦 搞 一 个 噶 套 的 for 的 循 征 
ie spl[0]*sp2[1] + spl[i]w*sp2[o] ; 

epl[o] = facxri ' 

8B1[1] = fac*ili 

spl += 2; 

ez2 += 了 2; 


本 


] ， 





] 

spl = 上 spPeq1[1] [11; 

sp2 = 皮 speq2[i] [fj; 

for (j=1;j<=Nsh;jy4) 1{ 
x = splf19]*shp2[0] ~ spllij>sp2[1]; 
ze spl[O]*sp2[1] + spiCi]*sp2[o]; 
Spl[o] = facari; 
spl1[1] = 下 ac+ii 
SPpl + 2; 
spb2 +*= 2) 


】} 

1ft3Kdarat ,speql ,NMNN -1); 个 1 上 工科 各 的 道 LF 了 
1 二 

frea_zatzixfspeq2,1, 1 ,28N) 1 

7S8E_NRtTYXSPGg1 ,1 1，29H) 1 

free_f3tenasorfdata2,iN,1.A 1,ND) ， 

free_f3fen3orrdatal,1l, 帮 ,1 ,ty ; 

TotuIn 0D; 


为 了 将 程序 MIf43 扩 展 成 四 维 , 污 洗 可 以 简单 地 增 人 个 附 白 的 ， 最 外 居 开会 的 
for 循环 ,类 和 似 十 原先 的 刘 :( 也 可 将 这 程 谭 修 改 成 任意 维 , 如 同 三 译 fourn. 这 对 超 背 是 一个 
很 好 的 编程 流 习 。》 


12.6 ”外 部 存储 和 局 部 内 存 的 FFT 


有 里 在 上 作 中 ,需要 计算 非常 太 的 敬 增 集 的 人 里 中 求 列 , 它 大 直 计 算 机 物理 内 存 的 大 小 .在 这 利 拭 刘 
下 :数据 必须 蛮 在 某 些 外 部 的 介质 中 , 信 伴 占 或 光 狂 .因此 ,需要 - 牌 算 法 . 它 能 绎 由 某 声 连 续 地 酒 汗 站 站 
数据 的 答 理 数字 ,这 些 数 字 能 各 续 记 肥 - 

事实 上 :EFT 发 明 不 条 ， 闻 策 托 (Singleton :就 已 提出 了 这 昌 算 法 .这 种 算法 此 求 有 中 个 噶 毕 沟 丰 二 
晃 下 器 , 泰 个 取 动 器 的 容量 是 输入 数据 多 企 . 通 常 ,输入 数据 前 - 半 亡 一 个 晓 区 因由 ,号 一 下 在 星人 晨 
动 归 可 - 

依 彝 托 算法 是 基于 通过 下 还 的 井 作 芗 骤 ,29 个 篮 的 位 访 题 多 是 可 畦 的 ,第 -点 ,内 -个 给 入 坚 站 器 交 
从 她 读 入 数值 , 芽 且 与 入 型 一 个 输出 驱动 器 中 (直到 它 存 诗 数据 的 一 半 久 热 后 写 入 到 与 -个 输出 三 示 证 . 
第 - 步 ,将 输出 驱动 器 变 成 输入 占 动 器 ,并 将 原 输 入 上 动 需 变 戒 输 山 虹 动 器 , 现 谋 ,从 第 个 晓 避 点 旭 制 贞 
个 数值 ,然后 从 第 二 个 紧 动 器 中 复制 下 个 数值 ,把 它 休 号 入 (如 前 ) 到 第 一 个 输出 引 动 并 : 革 满 呈 汪 写 六 第 








一 个 答 出 归 动 器 . 依 沈 达 行 , 问 对 卖 4,8. .等 输入 数据 的 两 作 过 程 直到 完成 孙 -1 次 操作 丰 , 数 于 俺 技 
必 序 颠倒 次 序 排 列 。 


其 次 * 候 撕 立 莱 托 兽 法 ,木质 上 位 序 颜 倒 技术 的 过 程 和 守 届 村 尼尔森 - 兰 佐 斯 组 合 公式 (3.2 3 澡 竹 
步 过 程 可 专 交 蔡 地 进行 ,其 过 秋 大 致 如 下 :起 始 和 前 述 相 间 , 作 每 -更 动 器 内 各 赎 入 一 半 的 芳和 芍 详 . 第 ， 
步 , 从 每 人 输入 驱动 器 中 读 入 -- 个 复 琢 数值. 彤 矶 两 个 组 合 , 半 革 和 将 各 自 写 入 阿 个 输出 驱 击 避 之 ,本 这 些 
“计算 "过程 以 后 ,这 些 眶 动 器 被 改写 ,并 也 实现 了 * 量 换 * 过 程 , 共 中 -组 数值 从 第 一 个 输入 怠 汕 彬 读 入 ， 又 
交换 她 被 写 入 第 个 利 第 个 输 包 晨 动 帮 ; 当 第 . 个 输入 驱 忒 器 被 邦 忌 ,第 二 个 输入 驱动 器 问 毕 地 处 于 ， 
这 种 汁 算 和 置 条 过 程 重 复杂 一 玉 一 1 避 , 此 处 中 旦 程序 有 效 的 氏 部 滔 冲 器 ,第 一 人 相位 的 计算 由 最 语 天 次 
计算 过 程 组 成 . 见 在 ,第 -个 机 位 与 第 一 个 相 们 的 区 别 层 蛮 计 算计 程 中 .由 于 轨 换 是 油 部 的 ,足以 本 厂 详 
现 , 所 以 在 第 一 个 相 亿 中 不 存在 分 离 的 帝 换 步 枝 .处 埋 归 据 总 攻 沪 4-- 开 2 步 ， 

以 和 是 辛 莱 托 算法 的 实现 程序 , 它 基 于 「1- ， 
玫 inpclude <<stdio,h>> 
fineluqe <math.h>> 


瑟 ielude ”nrutilh” 
全 refine KBF 128 


. 452 。 


void fourfkstF]LE * 乓 ke 535|，urtsignoed tong 3Bn[ int ndirc ，inlt isiga) 


让 赌 华 外 部 介 感 的 大 数组 的 ，- 鸭 或 多 维 便 嵌 叶 塞 搞 , 对 于 给 入 ,ndim 尼 维 教 的 个 数 : 和 nnl1..rdin 二 后 各 维 小 改 
度 ( 实 部 向 志 部 数值 对 的 入 落 》 :它们 必 蔬 都 在 2 的 等 次 :5ile 1 .本 进 指 名 临时 祥 件 流 武 指 条 , 息 个 人 省 过 是 忆 履 生 

半数 据 .这 卜 个 流 式 指针 在 系 红 的 "一 进 制 ? 琐 式 ( 相 对 为 "文本 ? 幅 起 ?下 必须 是 开放 的 ,给 入 数据 投 ( 各 舍 味 亲 完 
亩 排列 ,以 自然 学 点 煞 形 或 将 数 将 的 腥 半 存 入 fne 说, 其 后-- 半 存 入 filsf2], 每 次 组 审 诬 或 马 折 外 型 交 数 迫 个 数 
为 必 BF sisigm 为 ] 是 FET. 方 一 1 是 FFTI 的 道上 变 换 ,对 上 出 , 数 鹿 fae 中 的 数 睦 可 能 被 普 换 ;结果 的 吃 “ 半 产 入 fle 
-3 ,站 米 的 后 一 平 存 入 fed- 这 井 : 当 ndin>] :输出 基 内 列 形 式 存储 鸭 , 即 不 按 上 谨 寺 的 标准 邮 寺 各 顺 上 :区 诗 
二 , 吏 亦 航 输 出 有 科 序 foeuro 产生 的 输出 站 果 的 转 置 。 





void fovurewrFILE *filefkS]，int wna，int *nb，int snc，int nd) ) 
VDnsigneG Iong 3]，j12,jk,X,KK,nsl ,mm:KceO,Kd,xE,kr,nr,Dsavi 

int cc,Da,Db,ac,nd; 

站 Loat 芝 emPT ,ttPI ,中 己 faa， 中 aib ,机 aftc7 

double vwr,wiwprywpi.wtemnp,+fhetai 

static int mata[5] = (0D,2.1,4,3]11; 


afamvyector(1.KBF)]; 
afb=Yyectorf1: KBF] ; 
afc=vYector(1,KBF) ; 
foer (fj=1i;j<=ndig;j++》 工 
D *=< phnf[j]， 
if (nn[] <= 1) Drerrorkt":nyalid float or Wrong mdim in fourfs”); 


DVe=1 
jxk=nn [ay] ; 

员 向 一 夺 了 

RssrAKBF; 

Dr=rg >> 1; 

Xd=KBF >> 1; 

KSs=D; 
Fourow(file,kna, 上 nbyknc ,此 nd) ; 

处 开始 第 ”个 相位 的 变换 
for 《ii 并 计算 过 程 开始 
theta=i3Slgb#3.1415926535897937 (nymm) ; 
wampeSsizn{ 马 .5Lheta)i 
wpr = -2.0vwtemnpwwtemp; 

WPissinttheta) : 
Wel,DO; 
ii=0.0; 
mm >>= 1 工 ; 
for 《j12r1ijlt2<=2;ji2++》 1 
Tai 
do 并 
cc<rmaxdl(tafa[1] ,azzacfrfloat)》,KBF ,file[na]) 
诈 〔cc (= 一 KBF) nrearrorgread error in fouzEfs"); 
CC=fTead(tafb[1]l ,sizeoftfLoar) ,KBF,tiie[nb]y， 
iE 《ec lm KBF) nretrror('read error in fourfs*); 
for 【j=1i)<<KBF;j+a23 并 
temprs(fzfloatJwr)+atb[j]-(fflostywi)eagbfj+r]i 
tempief(ftloat)viy+afb[j]j+t(Float)wr)safb[j+l]i 
afb[J]nafa[j] -tempr; 
afa[j] += tempri 
afbrj+1]=afa[j+d1]-teapis 
3fa[j+1] += 七 ampii 


村 
kc += di; 
IE 【KKC we mm) 巧 


Re=0Oi 
人 =fEemPewTJwwWPI 一 YI+wPpi+ur， 
殉 开 一 太 工 熙 及 工 十 而 士 6 四 帮 中 PP1 4 人 2 





让 


CCafwrite( 此 aya[l1] ,Sizeof(floar),XBF ,111e[nci)， 
zf (cc !z= KEBF) nrerrort"urite errOT in fourfs'); 
CCc=fwritt(tafb[fL] ,sizeof(floac) ,KBF .file[nd]l)， 
if (ce 1= KBF) nrerrort'vrite error in fourfta") 1 
? whilie t++Xf < nr) 1; 
iT 【jf2 ms 1 & xs != D 如 xs == KBF)》 工 
Damamate[na] ; 
nbsna&: 


i 【pr 。= 间 ) break; 


fotrewftfileygna,knb, 生 nc snd); 置换 过 程 并 冶 
jx >>= 13; 
while (jx = 1)《 


了 


jznmn[+s+ny] ; 


kg >>= 1i 
ii 《kB > KBSF) 式 


for 〔jl12*1;j12<c=2;2124++) 【 
ftor 《Fre1i;xtcsnaikr+nkSARKBF》 工 
for (ml1;X<ak3ikK+=KBF) 姜 
CCsread(afart] .3zzeofftloat)》 ,KBF ,ilefna] ji 
ii 《ec (ae KB》 nrerrorf "reaq 9rToOI in foeurfsr)i 
CcsfywFilter 主 afa[l] ,5izeof( 开 Loat) ,KSF ,file[fac]y)i 
it (ec != KBF》prerrorf'ite BTYCT in fourfs")i 


了 

ncCc=mat 如 [DCj : 
T 
aaata [na] ; 


} 
fouzetfti1Le ,和 na ,nb ,tnc ,上 oa)， 


】》 elee if 【ke = KBF》 Db=nai 
日 136 bFeaK; 


j=1 


此 个 开 始 第 二 个 相位 的 变换 。 境 在 ， 祭 佛寺 的 四 换 是 以 同 钼 完成 


for (ii 工 
thetesjisign+3.241S926535897937(nymm) ， 
Wtg9mpagintfO.5#thota): 


WP 


= -2.0*vteupswtenPi 


WPieBimn( 世 heat) 3 
VE.07 

Wieb .Orz 

mm >2= 1】i 
Smkd; 

kd >?= 1 


了 or 


"454。 


(jl2=1;j12<=<2ij12++) 区 
for (re1;KT<emE;iKz++) 1 
ccefread[ 玫 afc[1l ,aizaot[tloat) ,KBF .fileLnal) 
if (cc != XBRF) nrerrorf"read erroT :in fourfs1) 
eli 
rmi6+1 1; 
for 《3 【《 
tempTK(f1oa5]wr]+afCK+ 汪 S]-《K《E LOat)WY)wafc[KK+KS41]， 
temPiztk(float]wi)*afc[xk+Kxs]+KKELDat)wT)#afc[kktrks+1]: 
afa[ 让 =afc [kk]+tempri 
afb[j]*=afc [kk] -tempBri 
aa 苹 3 [+ 4 了] 上 下 CT+ 二 区] + 和 6 和 Bi 
afp[j+t+]mafCikK++]-tenpii 
if (fkk 《 X) contintie; 
XCc 4e Xdi 
这 (人 c_ me mm) 【{ 
上 cm 人 
VT= fwtSmp=WT13WPI-wI+wPi+WY 


Wi=wirwPT+WtegpsewPi+yy i 


KKk + 到 K3 了 


计 《kk > XBF)》 bresak， 
elLse X=kkrkg; 和 
了 
话 〈j > KBF) 1 
cc=fwrite( 生 afa[l] ,sizeofrfloat),XBF,file[nc])i 
if (〔ce 1= XBF) nrerror(f"write arIror in fourfs") ; 
ccsfwritef 放 afb[1] ,5)Zeoftfloat) ,KBF ,tilethnd]); 
if 【cc != KBF) mrerror("orlte erTor ip fourts'")] ji 
Je i 
于 
了 
ma=mate [na] ; 
】 
fouUrew(til1e ,去 Da 克 Db， 丸 DC bad) 
jk >>= 1; 
if {jx > 1)》 contintei 
mm=D， 
do 
it (mv “ pndia) jk=nn[+*+ov] ; 
15 提 帮 


tree_vectortafC,z,RKBF) 
tree_yectorfafb,I,XBF) 
Tzeg_vector(afa.1,KBF); 
TettTn; 


】 
]} while (jx == 1); 
} 
} 


世 include <atdic.h> 
社 define S 风 和 Ptayb) ftemp 一 (ua)+(a) 一 【bi(b) 一 上 enpb 


vaid fourew(FILE*fileL5]，int *na, int rnb， ipt *nce，int xnd7 
用 于 fourfs 的 实用 税 序 . 重 环 钳 和 收 记 数 四 个 文件 

! 
inf 和 
下 JIL 已 * ftetirpy 


for Gi=liic 一 4ii 十 一 ) rewind (file[i); 
SWAP file -2],filef4 

SWAP xfile 1i],filef3 )， 

# Ta 一 3 

# phb 一 4+ 

冻 TRC 一 1 


类 和 一 2 


对 于 “ 维 数 据 , 学 荣 托 的 算法 处 理 输出 结果 ,基本 上 小 和 标准 的 FFT( 基 foeur1 程 庆 ) 有 相同 的 排列 局 中 。 
而 对 于 多 维 数据 ,算法 输出 是 常规 排列 ( 即 程 府 Tfourn 的 输 首 ?的 转 团 , -- 般 地 ,这 种 独特 性 屁 这 个 算法 国有 
的 特 件 ,只 是 不 太 方便 .对 于 卷 积 ,计算 非 标 准 排列 的 两 变换 的 部 分 对 韶 分 积 ,然后 对 娃 果 计算 逆 变 换 、 
这 就 有 些 不 方便 .注意 ,车 不 同 维 数 的 长度 不 全 相同 , 则 必须 在 实行 道 变换 之 前 , 茵 习 nn[1. ,ndim]j 中 的 数 
值 次 序 ( 因 此 给 出 转 置 的 维 数 ) .也 必须 注意 ,和 程序 fourn 相同 ,实现 变 柳 并 且 然 后 实现 首 变 换 , 必 须 道 认 
换 的 结果 胰 上 原 数 据 所 有 维 数 的 长 度 之 积 。 

我 们 留 下 一 信 习 厢 给 读者 ,请 读者 将 程序 fourfs 的 输 川 乔 新 排 成 村 准 序 形 式 , 尘 通 过 外 .部 存 铺 数 兰 的 
过 程 .但 我 们 怀疑 这 种 重 排 是 否 真正 必须 的 。 


才 半 ,读者 需 紫 修 葡 fourfs 以 适合 自己 简 跌 应 用 :例如 . 程 享 由 所 写 KBE 三 知 世 起 了 总 重 胡 色 ， 
是 内 贸 缓 利器 的 大 小 ,也 足 扰 格式 化 读 郑 怕 记录 大小 :后 者 少 饶 器 的 0 设 箭 奈 允许 的 六 小 而 受 限 . 穴 攻 
的 简 泵 方法 是 对 于 大 的 KBF 笋 :有 严 用 双 倍 恋 取 ,. 写 可 焉 公 :外 过 穆 拘 次 要 。 

俊 改 fourfs 的 如 -情况 址 为 了 弄 民 例 条 算 流 完 成 内 效 尝 的 FEIT5 惯 辽 算 法 中 ,内存 引 用 二 向 革 革 不 于 
的 ) ,这 时 虚拟 内 奔 让 是 够 的 地 直 空 刘 ,而 没 冶 鼠 够 的 均 埋 站 在 :在 这 可 情况 下 ,必须 用 将 数组 ab 绰 
afe 唤 射 到 地 扯 潼 二 的 太 法 采伐 蓉 岩 、 了 和 于 绕 : 换 语 乙 , 流 些 歼 组 酸 引 用 单个 数据 的 数组 在 各 代 , 烦 表 塌 
移 而 覆 改 了 Iuurfs 程 让 中 实现 TO 的 操作 ,这 种 算法 其 内 存放 用 的 局 部 块 是 K3EF 的 大 小 - 居 答 亡 贤 机 下 
费 一 伴 寺 站 址 FFT 折 址 的 虚拟 内 在 ,位 有 了 时 共 拭 行 速 度 却 太太 直 所 总 : 
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Opbenheim ,站 ,Vartl Seltater, 民 . 区 .1450 Decrete-T 了 Trip Snetl PrpressagtEnoglewooa Cldfs ， 

NJ :Prentice-Hall) ,Chapter 9. 


第 十 三 章 “” 傅 里 叶 和 谱 的 应 用 


13.0 引言 


傅 贝 叶 方法 已 经 使 科学 和 工程 领域 ,从 射 扎 大 文 到 闪 学 映 象 ,从 地 震 尝 到 光洁 学 , 孝 发 
生 了 重大 的 变革 -水 但 .我 们 讨论 “ 些 傅 电 呈 和 洪 方 法 的 基本 应 用 ,它们 使 这 些 安 于 成 为 可 

陈 " 熏 蝶 叶 ”为 数值 的 ,其 反应 就 应 沪 基 "FFT? ,如 回 巴 甫 洛 夫 (Pavylovian ) 的 芍 件 汉 射 。 
的 中 ,等 里 叶 方 法 的 广泛 序 出 申 果 了 上 上床 该 归 蕊 于 快速 博 颗 叶 变 换 的 仓 在 . 暂 纪 离开 主题 次 
说 :假如 有 人 将 任意 个 非 半 几 的 算法 如 快 一 个 百 万 因子 或 更 多 , 则 在 上 界 上 将 下 和 峡 …- 条 好 
找 这 种 算法 有 效应 用 的 途径 .FFT 的 最 自 接 的 应 用 就 是 数据 的 卷 积 和 解 卷 积 (第 13. - 节 )、 
相关 和 自 相 关 ( 第 13. 2 节 ) .最 伟 囊 波 ( 第 13. 3 节 )、 功 率 谱 估计 (第 13. 4 节 ) 以 及 傅 时 叶 积 分 的 
计算 (第 13, 9 节 ) 。 

然而 ,重要 的 是 FFT 普法. 并非 是 谱 分 析 的 全 部 内 容 。 第 13,5 节 将 向 要 介绍 时 威 数 子 洪 
波 轴 的 领域 .在 谱 域 由 ,FFT 的 :个 限制 内 素 是 ,常常 将 晒 数 的 傅 里 叶 变换 表示 或 : 的 多 项 
式 . 即 > 一 *xpb(2ri7A)( 见 式 (12.1.7)). 有 时 候 ,这 程 的 谱 形 状 不 能 很 好 地 由 这 冲 形 式 来 表 
设 。 而 号 外 一 种 形 忒 , 它 人 允许 遵 在 z 处 有 极点 存在 .并 且 常 应 用 于 线性 预测 技术 :第 13. 5 节 ， 
和 最 人 稍 潜 估计 (第 13,7 节 )， 

所 有 FFT 方法 的 荔 :个 重要 的 眼 制 妇 率直 ,要 求 输入 数据 在 均匀 问 隔 内 取 储 :对 寺 非 
规 旭 的 或 者 非 完 整 的 疏 样 数据 .其它 方 法 (尽管 述 度 慢 ) 是 有 效 的 ,将 在 第 13. 8 节 韦 讨论 : 

上 所谓 小 波 方法 就 是 函数 的 空间 形 示 , 它 既 不是 在 时 间 域 ,也 不 是 在 谱 域 , 而 居 有 和 此 在 这 
两 着 之 间 。 第 13. 10 节 将 介绍 这 方面 内 容 . 最 后 ,第 13. 11 节 有 点 离 题 ,将 讨论 博 甲 叶 取 样 定理 
的 数 伸 应 用 。 


13.1 使 用 FFT 作 卷 积 和 解 卷 积 


我 们 已 经 在 式 人 12.0. 上 中 对 连续 情 训 定义 了 两 个 函数 的 卷 积 ,而 且 得 出 如 汇 (12.0.9? 
的 卷 积 定理 .这 个 定 坦 表 明 , 两 个 函数 卷 积 的 傅 里 叶 变 换 等 于 它们 各 自 全 里 叶 变 换 的 乘积 。 
秽 在 ,我 们 来 处 理 离 散 的 情况 .我 们 首先 提 必 卷 积 是 -一 个 有 用 的 过 程 ,然后 讨论 如 何 这 用 
FFT 有 效 地 计算 卷 各 ， 

两 个 鸯 数 光 吕 得 50 区 郊 私 : 记 作 六 ss. 从 数学 上 米 说 , 蕊 等 于 这 两 函数 反 序 的 郑 台 y* 
.然而 ,在 大 多 数 应 用 小 :这 两 个 远 数 有 十 分 不 同 的 含义 和 特性 .其 中 * 两 数 , 是 -- 个 典型 信 
导 或 数据 流 , 在 时 间 于 无 剧 限 地 直行 上 去 (或 者 说 ,无 论 怎样 它 可 以 是 一 个 适当 的 独立 变 
基 ) .而 另 一 艾 数 -是 “个 " 员 冯 力 数 ” 宪 是 从 最 大 值 的 两 边 者 下 降 到 零 的 让 峰 所 数 . 卷 可 的 
洁 麻 荐 按照 啊 度 沂 数 5 控 供 的 方 法 , 作 时 间 上 涂抹 去 信 导 50 如 民 13.1.1 奸 汞 小 别 基 ， 
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我 们 假设 在 某 “时刻 志 出 现 的 音信 而 积 的 峰值 函数 或 $ 浮 煞 *, 其 着 积 结果 将 被 涂抹 成 喇 应 
岁数 本 身 形状 ,只 是 时 间 从 G 移 到 2 如 本 了 人 和 
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信和 导 5 守 9 与 咏 应 函数 0) 卷 要 -因为 二 应 函数 比 原 来 信 叶 的 某 些 兰 往 更 为 明显 ,因此 在 卷 积 中 这 
些 将 征 要 被 " 洗 掉 "。 在 无 附加 吗 声 的 情 襄 下 , 庆 个 过 程 下 以 该 解 卷 各 逆转 计 米 。 


疼 13, 1. 1】 瑟 丽 数 的 央 积 示例 


在 离散 情况 下 ,信号 5 被 它 的 相等 时 间 问 隔 上 的 样本 值 * 所 取代 。 殉 应 南 数 同样 也 是 
离散 数 集 mm 并 用 有 以 下 解释 : rm 说 明了 将 某 - 个 通道 中 (7 的 某 一 特定 得? 的 多 少 重 答 入 信 
号 被 复制 到 等 同 的 输出 通道 (同样 的 了 值 ); 王 说 明 在 第 7 通道 中 有 多 人 少 重 输入 信号 又 被 复 
制 到 第 j 十 1 通道 , r-: 说 明 有 多 少 重 信和 号 被 复制 到 第 二- 1 通道 ?对 的 下 标 关 取 正 负 值 即 
可 以 此 类 锥 .图 13.1,2 曾 明了 这 种 情况 。 

例 : 一 个 一 一 1 其它 m 都 等 于 零 的 啊 应 函数 , 它 正大 一 个 恒 等 的 滤波 器 :一 个 信和 导 妃 此 
响应 函数 的 卷 积 给 吕 同 样 的 此 信号 . 另 一 个 例子 是 响应 函数 天 :一 1.5, 而 其 余 * 者 等于零 ， 
这 产生 了 卷 积 输 出 , 它 是 输入 信号 乘 上 1. 5 并 且 延 退 14 个 取样 时 间 间 陋 ， 

显而易见 ,我 们 已 经 用 文字 描述 了 如 下 的 定义 , 它 是 有 具有 有 限 持续 时 间 对 的 响 立 沁 数 
之 离散 卷 积 : 


2 
(xi 二 > 《12.1.1) 


如 果 一 个 离散 响应 函数 只 在 某 范 围 一 M/2< ksSMA2 内 为 非 零 , 其 中 邮 是 足够 大 的 偶 整 数 ， 
那么 响应 天 数 称 为 有 限 脉冲 响应 (FIR) ,其 持续 时 间 为 于 (注意 ,我 们 定义 瘟 为 关 的 非 鹤 
值 的 个 数 , 这 些 值 跨越 了 M- 1 个 取样 时 间 问 隔 )。 在 多 数 实 跨 中 ,M 有 限 的 情况 是 有 意义 的 
情况 ,这 大 因为 响应 确实 在 一 个 有 限 的 持续 时间, 或 者 因为 我 们 选择 在 某 点 将 它 截断 .并 用 
一 个 有 起 持 续 时 间 来 遂 近 它 。 
离散 卷 积 定理 :如 果 信 兴 *, 是 周期 的 ,其 周期 为 W, 并 且 它 完全 由 N 个 值 mvsv 
所 确定 , 则 它 与 一 个 有 有 限 持续 时 间 wx 之 响应 函数 的 卷 积 , 就 是 离散 博 里 叶 变 换 对 之 
2 (43 2 


* 458。 


其 中 Sa 一 0 一 1) 是 数值 wG=0D0，..N--1) 的 离散 博 里 时 变换 ,而 并 人 0. 
一 上 是 数 倩 产 全 一 0 .入 -1) 的 离散 埔里 叶 变 挨 .# 的 这 些 值 与 范围 一 入 和 < 1. 
和 NZ2 内 的 值 相 等 ,但 按 环 绕 嘎 请 , 妇 第 12.2 节 来 思 陈 撒 这 . 
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诗 意 ,对 于 争 叶 间 笑 应 函数 中 占 被 愉 浇 ,站 这 征 存 情 在 re 数组 最 右 端 。 
六 13.1, 2 离散 眼 洋 时 数 的 卷 积 
13.1.1 用 去 元 填充 的 终端 效应 处 理 


离散 着 积 定理 想 定 了 两 个 非 通用 的 事实 .首先 , 蕊 慑 定 输入 信号 是 周期 的 , 臣 实 际 数据 
要 人 么 是 不 再 重复 地 永 证 取 下 去 ,要 么 是 由 一 个 有 限 长 度 的 非 周期 信和 号 伸展 所 组 成 .第 二 , 卷 
积 定理 将 响 应 番 数 的 持续 时 间 取 得 与 数据 的 岗 期 相同 ,两 者 都 是 六. 我 们 需要 先 围 绕 这 两 
种 约束 进 生 下 作 

第 二 种 约束 是 非常 简单 明了 的 .人 和 们 几乎 永远 感 兴趣 于 那 种 持续 时 间 好 远 远 小 于 数据 
集 长 度 N 的 响应 函数 ,在 这 种 情况 下 ,人 们 简单 地 通过 堆 元 填充 来 扩展 响应 函数 的 长 度 到 
六 ,到 在 M/2 入 上 委 N72 和 一 六 /2 十 1 且 甩 一 MI2 一 1 内 ,定义 一 一 0。 而 处 理 第 --: 种 拘 更 , 则 
需要 利多 要 求 -因为 眷 积 定理 轻率 地 假定 数据 是 周期 性 的 ,这 可 能 造成 数据 流 :sx :等 
远 端 的 环绕 数 淆 对 第 一 输出 通道 (> * 5). 不 真实 节 * 污 染 "( 如 图 13, 1, 3 折 示 )。 央 此 、 我 们 必 
希 在 5 向 量 的 问 部 建立 一 个 索 元 填充 值 的 缓冲 区 ,为 的 是 使 得 这 种 污染 为 零 . 在 这 缓 六 区 
中 ,我 们 需要 多 少 个 零 值 呢 ? 克 切 地 说 , 况 与 响应 责 数 非 零 的 的 最 小 负 索 引 一 样 多 - 俩 隶 . 如 
果 7 i 非 零 , 而 一 :7 均 为 零 , 则 我 们 需要 在 数据 端 部 填充 三 个 零 苑 :5v := := 
二 0。 这些 零 将 保护 第 一 输出 通道 Cr * s) 不 受 环绕 污染 .显然 ,第 二 输 生 通 道 和 随后 的 通道 
也 都 受 这 些 零 元 的 保护 , 设 上 表示 填充 零 元 的 个 数 , 则 最 后 实际 输入 数据 点 的 个 数 为 
SNY 一 多 -1 
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不 促 啊 庶 晴 数 的 环 冯 必 须 看 成 是 稍 环 的 .两 此 席 棕 醚 者 数 也 几 第 站 此 。 世 以 、 
原 函 数 蔡 一 沽 的 一 靛 分 郴 被 空 与 顺应 男 数 的 先入 错 诺 地 二 够 。 


图 13.1.3 有 限 段 亢 数 卷 积 让 的 生 经 问题 
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原 屎 聘 数 被 办 元 进行 了 扩展 , 它 服务 于 -个 月 的 ; 举 等 寺 瑟 绕 同 来 .它们 并 没有 王 找 真 
正 的 淮 积 ,并 且 当 原来 郊 数 环绕 审 零 域 时 ,这 个 器 域 可 以 王 弃 。 


图 13,. 1.4 解决 环 党 再 题 的 零 元 壤 充 。 
“460。 


那么 ,现在 关于 这 个 最 后 输出 通道 的 芒 灶 情况 好 何 呢 ? 出 专 现 在 数据 以 *， 站 压 , 艳 
右 意 义 的 最 后 输出 通道 是 Cr xs 这 一 道道 串 能 缸 输 入 通道 交 的 环 径 而 行 宕 , 陈 正 这 
享 天 也 足 人 能 大 ,足以 照 感 到 最 大 正 下 标 &, 而 共 啊 风琴 数 二 是 非 零 的 。 例如 ,如果 户 同 > 
都 不 为 入, 而 rm 部 为 专 , 则 我 们 在 数据 本 详 平 少 再 理 有 一 6 个 填 区 赤 几 : - -= 
S -一 : 昌 。 

名 在 章 之 ,我 们 人 在 数据 ” 端 用 大 其 专 天 米 境 侈 , 填 企 个 数 等 于 啊 应 琴 数 的 最 天 下 的 持续 
时 间或 者 鼠 大 负 的 持续 时 间 ,决定 于 哪 : 段 更 大 “ 些 ,( 对 于 持续 时 间 为 邮 的 戏称 呵 谋 函 
数 , 则 只 需 对 /2 个 零 元 秆 充 )。 次 这 换 作 和 上 上 述 响 在 函 数 六 的 填充 相 结 合 , 我 们 更 下 右 效 
地 形成 不 期 望 的 人 工 办 素 的 千 靶 性 数据 。 上 页 鲁 13. 1. 4 阁 述 了 这 个 问题 ， 


13. 1.2 FFT 对 卷 积 的 使 用 


用 零 苑 填充 而 完善 的 数据 , 吉 在 是 组 实 烙 s07 一 0 一 ]) 汉 帮 辆 应 古 数 航 赤 元 
填充 成 圭 续 时 司 为 吕 . 并 电 以 坏 绕 顺 序 排 列 . _. 骤 说 来 ,这 意味 着 在 数组 的 中 部 的 大 
玻 名 过 四 和 堆 值 :而 正 索 值 密集 在 数组 的 两 个 端 部 ,现在 就 可 按 以 下 步骤 计算 讽 敬 藉 委 :用 
FEFT 算法 计算 * 和 上 的 离散 傅 甲 叶 变 换 , 披 逐 个 分 县 将 两 个 变换 乘 在 一 起 . 忆 作 这 两 个 变换 
是 由 复数 组 成 的 .然后 周 FFT 算法 计算 乘积 的 离散 埔里 时 道上 必 换 。 共 结果 就 是 歼 扩 > 

什么 是 解 卷 积 呢 ? 解 卷 积 就 足 玛 消 已 被 涂改 数据 集 的 过 程 , 该 涂改 是 在 -个 志 开 于 加 的 
影响 下 发 生 的 .例如 ,和 白 于 不 大 完善 的 测量 装置 的 已 知 影 响 。 解 卷 积 的 和 定义 和 卷 积 式 (13. |. 
1) 是 相同 的 ,只 基 弄 在 左 端 基 已 知 的 ,十 且 式 (13.1.1) 可 以 被 认为 是 林 知 景 汪 的 N 个 线 必 
方程 的 方程 纪 , 在 式 (13.1. 1 的 时 万 中 , 凡 解 这 些 联 立 线性 方程 ,在 大 多 数 情况 上 时 不 坝 实 
的 ,但 是 FEFT 使 剖 题 几 平 变 成 了 半 常 而 轻松 。 我 们 太 再 把 信和 导 的 变换 与 啊 永 函数 的 恋 沼 相 
乘 以 得 到 卷 积 的 变换 , 亨 是 用 响应 的 变换 去 除 已 知 卷 积 的 变换 ,以 得 到 解 卷 积 信 叶 的 变换 ， 

从 数学 上 看 ,如 果 响 应 北 数 蛮 换 在 其 值 避 处 窒 好 为 零 , 内 此 我 们 不 能 用 它 做 除数 , 员 
这 个 过 程 可 能 要 品 错 。 这 说 明 原来 的 卷 积 风 实 丧失 了 在 那个 频率 上 的 所 有 信息 ,所 以 那个 频 
率 分 基 的 重建 是 不 可 能 的 ,然而 ,除数 学 问题 以 外 , 解 卷 积 过 程 还 有 其 它 实践 中 的 缺点 ,这 过 
程 一 般 对 输入 数据 中 的 嗓 声 非常 敏感 ,并 月 对 于 已 知 响 永 责 数 # 的 精 蝴 无 也 径 敏 感 . 由 于 
这 些 原因 ,即使 对 解 卷 积 是 完全 合理 的 尝试, 有 半 也 可 能 会 产生 荡 雇 的 结果 。 在 这 种 情况 下 . 
可 能 要 利用 附加 的 最 佳 滤波 过 程 , 这 将 于 第 13. 3 节 中 讨论 。 

下 面 是 关于 卷 积 和 解 卷 积 的 程序 ,其 采用 第 12. 2 节 中 衔 序 four1 实 施 FFT。 妈 为 数据 祝 
响应 都 是 实 盟 而 非 复数 型 的 ,所 以 两 尾 变 换 可 用 第 12. 3 节 中 提 到 的 技 配 同时 进行 .这 样 ,该 
程序 恰好 在 计算 FFT 时 调用 一 次 ,而 计算 道 FFT 时 也 调用 一 次 .数据 假定 看 铺 存 .一 个 浮 点 
型 数组 data[l..n] 中 ,其 中 站 明 2 的 整数 振 。 响 应 函数 假定 以 环绕 次 序 存储 在 数组 respns 
[1..n- 的 一 个 子 数组 respns[]1, ,种 ] 中 ,和 秆 可 以 是 小 于 或 等 于 ”的 任意 奇 束 数 .因为 程 诺 
要 做 的 第 - 件 事 ,就 是 将 啊 应 函数 重新 复制 成 respn[1..nlih 适 当 的 环绕 顺序 . 结 黑 返回 到 
ans 中 ， 


并 jnclude nrutl,hw" 


void comvtv (float data[ |]，unsigncd iong hn flont respns- ]，unsigncd Iong my， 
jnt isign ,float ans[ 了) 


461 ， 


实 型 灼 握 梨 daral 1.,n | 与 响应 国 数 respns. 1. ,5] 的 次 各 利 解 巷 术 切入 摘 尾 全 为 出 户 扣 殿 的 零 开 相公 啊 庄 拓 数 必 
天 以 环绕 顺 些 存 情 在 数 生 respns 的 前 问 个 二 素 中 ,其 中 惠 为 公 n 的 奇 束 数 . 开 绕 烦 序 意味 普 数 组 rshns 的 前 
ee 而 数 苦 的 后 一 半 色 各 浆 叶 间 上 和 节 肪 冲 响 度 邓 数 , 计 算 众 最 商 元 束 respns 关于 明 页 
问 下 .在 输入 肝 vsisng 显 - 1 作 凑 积 ,sign 基 一 上 必 竹 誉 亲 , 结 时 返回 到 ans 的 前 mn 个 分 重 . 为 二 与 twoftt 程 享 养 容 ， 
am 必须 拱 供 程序 调 凡 中 所 育 的 幸 数 [1. .2 站 1 攻 簿 其 2 的 整 军 凑 


void Tealfttftloat dataD ，unsigned 10n 人 Qtnt 1i6d1gD) ; 

void twWofTt{ELOat datatl[] ，Tlont data2[] ，?1oat TXTE 0 ， float ttt2[]， 
unsipgmaed 1ong an); 

unsigned 1ong 1 ,no2i 

float aua ,IaC2 syti 


fftavector(1,ac<1) 1 


for 〈is=1iice“(m-1l)A2; i++ 把 respns 取 成 由 长 数组 ， 
regpas [n+1-i]z=srespps [m+l-i 订 ; 
for 〔i=(kom+317Z2; i<=t~ (~1)727 i++) 坪 充 窑 元 
respns [IJ=0.0; 
twofftKdatavrespns gbans,T) 1 立刻 作 卫 个 函数 的 FFT 
Do2mTi>>1 1 


for 《im2;i<=n+23;I+=*2) 攻 
if 《isign == 1) 
ans[i-1i?=lfft[i-1]efdumsans[i-1])-fttt[ilwanafi])Ano2; 作 FEFT 相 习 以 
ans[i]=(fft[ilwdumtftft[i-13yana[i)Amo2; 求 卷 积 
elae if (isign == -~1) 1 
让 【〔〈(mazg2=SQR(ans[i-1]y+SQR(ans[i1)》== 0.0) 

-rerrart "DeconYClV1DE Bt Fr6gponse ZBr0 2t CDODVIV") 
anafi-1j=fftt[i-1]*(dun=ans[i-l])+fftt[i]+ana[i])Amag27no2; 作 FFT 相 除 以 
SnoTi]-tTf5[i]vrdum-tft[i-L]yans[i])y/mag2yno2i 求解 者 各 

》 el18e nrerroIT("No meaning for isipgmn in ConVLV") ; 


} 

ans[2]=ans[a+1l]; 为 reafl! 计 算 将 最 五 元 素 压 到 第 一 个 元 素 
Yealftfanevn,-1)1; 求 遂 变 换 返 问 时 城 

Tree_YGCto [站 it，1,n<<1) 1: 


13.1.3 大 型 数据 集 的 卷 积 和 解 卷 积 


如 果 数 据 集 太 长 ,不 能 一 次 全 部 装 人 内存. 必须 将 它 分 成 几 眉 并 且 分 唱 对 每 段 卷 积 ,但 
是 ,这 时 化 端 效应 的 处 理 非常 困难 .不 仅 要 担心 有 和 伪 环绕 效 庶 ,而 且 还 要 担心 这 样 的 事实 . 即 
每 段 数据 的 终端 衣 定 受到 邻近 的 前 面 各 段 各 后面 各 段 之 终端 数据 的 影响 ;但 是 ,因为 每 次 抽 
器 内 只 有 一 段 数据 ,所 以 这 种 所 爱 影 响 不 十分 严重 。 

对 于 这 个 问题 ,有 两 个 相关 的 ,标准 的 解决 方法 ,这 两 种 方法 都 是 显而易见 的 ,因此 这 里 
不 多 叙述 ,读者 应 该 能 够 自己 去 实现 它们 。 第 一 种 解决 方法 是 交 选 存储 法 .在 这 种 技 与 中 ,只 
需 对 数据 刚 开始 部 分 填充 足够 的 零 元 ,以 避免 环绕 污染 ,初始 填充 完毕 后 ,应 将 所 有 的 零 元 
填充 都 馈 掉 . 取 入 一 段 数据 ,并 对 它 进 行 卷 积 或 倒 卷 积 ,然后 于 弃 两 端 上 受 环绕 终端 效应 污 
染 的 点 .只 输出 中 部 的 止 常 点 .接着 着 上 入 下 … 段 数据 ,但 不 全 是 新 数据 。 每 一 新 段 的 前 几 个 
点 是 与 前 一 段 数据 的 后 面 儿 点 重 选 。 各 段 必须 充分 地 交 选 ,以 便 重 新 计算 的 … 段 的 终端 被 尝 
染 的 输出 点 , 它 是 作为 后 一 眉 的 前 几 个 未 被 入 染 的 输出 点 , 稍 加 考虑 就 可 很 容易 地 确定 需 密 
少 交 夺 和 保存 的 点 。 

第 二 种 解决 方法 称 为 交 选 相 加 法 ,如 图 13. 1. 5 所 示 。 此 方法 不 必 交 迭 输入 数据 。 数 据 的 
每 -- 段 彼此 不 相交 ,并 且 只 使 用 一 次 .然而 ,应 沪 仔 细 地 在 网 端 进行 零 元 填充 ,才能 使 输出 的 
卷 积 和 倒 卷 积 中 没有 环绕 引起 的 二 重 性 .然后 彰 将 输出 端 交 闪 和 相 加 起 来 .于 是 ,党 近 段 

“462 。 


终端 附近 的 输 市 点 ,将 受到 来 内 十 适 涯 地 加 在 上- - 段 起 始 端 .的 输入 点 的 影响 : 语 样 ,对 千 
近 一 段 起 始 端 碳 近 的 输出 点 也 受到 如 民 影 响 -只 是 在 纸 节 上 昌 作 必 划 的 修改 。 


数据 !( 输 入、 
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信 恕 数据 钙 允 成 若干 小 流 , 在 每 县 的 中 占 都 汗 充 等 元 ,并 作 着 积 ! 几 中 用 查 线 箭头 才 
尔 外 最 后 .各 段 相 和 “下 , 纪 括 册 笠 元 法 充 们 红 或 交 选 区 威 ， 


图 ji3. 1 5 对 非常 长 能 信号 与 申 应 郧 数 传 卷 积 的 交 先 相 如 尖 


即使 在 站 算 机 内 存 够 用 时 ,将 长 数据 集 分 段 的 方法 也 能 使 计算 速度 临 有 提高 ,这 是 因为 
FFT 的 NlogR 次 运 筑 比 线性 w 稍微 慢 一 些 . 然 而 ,对 数 项 的 变化 是 如 此 缓慢 , 洒 比 人 们 总 
是 尔 于 避免 父 达 相 加 法 和 交 迁 存 镶 法 所 引起 的 复杂 操作 .如 果实 际 工 作 中 需 枚 计算 长 数据 
的 卷 积 ,还 不 好 直接 把 全 部 数据 集 送 和 内存 ,再 进行 FT. 这 样 , 便 可 以 有 更 多 的 时 间 去 做 
更 有 益 的 事情 .这 将 在 本 章 随后 的 各 节 中 八 述 。 


13.2 使 用 FFT 作 相 关 和 自 相 关 


相关 与 卷 积 在 数学 上 有 着 密切 的 联系 .但 是 ,在 其 些 方面 相关 更 简单 一 些 , 轩 为 参与 相 
关 的 两 个 明 数 ,并 不 像 参 与 卷 积 的 数据 和 啊 应 函数 那样 在 概 含 上 有 相 异 之 处 .其 全 在 相关 
中 ,函数 由 不 同 的 但 又 通常 是 相似 的 数据 集 表 示 。 我 们 通过 直 按 赤 加 进行 比较 ,来 斌 究 它 们 
的 “相关 ”, 并 也 其 中 之 一 作 了 左 移 或 右 移 。 

我 们 已 经 在 式 (12.0. 10) 中 定义 耳 个 连续 函数 g(0 和 产 G) 的 相关 , 它 用 Corrtg:A 表 
示 ，, 它 是 一 个 少 百 的 函数 。 我 们 偶 名 也 用 颇 不 方便 的 符号 Corr(B 开 )(9) 来 明 诡 邮 表 示 这 种 
函数 与 时 间 信 束 性 .如 果 第 一 个 晒 数 (z) 是 第 二 个 函数 弛 ) 的 严密 的 复制 品 , 只 是 前 者 业 后 
者 延迟 了 某 一 时 间 :, 即 第 一 个 场 数 位 移 到 第 二 个 函数 的 右边 , 则 在 时 间 上 上 相关 值 很 大 . 同 


样 , 在 某 些 负 值 * 上 相关 很 大 ,只 更 第 一 个 函数 超前 第 二 个 函数 志 即 位 移 到 第 二 人 冰 数 的 左 
边 , 这 两 个 函数 交换 后 ,得 出 关系 为 
Corr(5o 站 人 ) 一 Corrt 由 8) 一 扫 (13.2,1) 


“于 63， 





1 
(COrr(E 用 ) 二 他)8 瑟 (3.2)》 


是 = 
离 获 相 关 定 理 玫 明了 末 个 室 上 数 & 和 天 的 离散 相关 是 诬 散 博 中 灾 换 对 中 的 一 个 ， 
CorrCg .Ri 后 人 (3 

其 中 Cu 和 了 1 是 2 和 请 的 离散 博 里 千 灾 换 , 星 导 表 示 复 共 斩 。 如 同 离散 卷 积 定 理 “ 样 . 访 
冠 理 中 关于 函数 竖 作 出 - 些 假 设 . 

我 们 能 够 用 FFT 计算 相关 :其 方法 如 下 :对 两 个 数 捞 集 进行 FFT :用 - -个 此 换 疆 末 乘 
以 另 一 个 变换 的 复 共 思 , 辑 后 再 求 乘 丙 的 道 底 换 . 香 由 的 结果 ( 称 为 rz) 形 式 上 都 是 界 长 为 
xN 的 复 向 量 . 然 而 ,因为 原 两 个 数据 集 部 是 实 型 的 ,所 以 可 以 证 明 结果 中 所 有 的 礁 部 都 为 
党 -mx 的 分 是 是 不 同 汪 后 的 相关 值 , 正 滞后 种 负 吾 后 都 按 熟 悉 的 环绕 顺序 方式 存储 : 沙 淖 乒 
的 丁 关 是 第 -- 个 分 量 m: 沸 后 1 的 焊 关 是 第 二 个 分 量 :滞后 一 1 的 相关 是 最 后 -个 分 莽 
rw 如 此 等 等 。 

如 同 卷 积 的 情 玩 一 样 ,我 们 必须 考虑 终端 效应 ,因为 我 们 的 数据 通常 不 象 相关 定 惠 所 期 
望 的 那样 是 周期 的 ,这样 我 们 可 以 再 次 使 用 零 元 填充 .如 果 政 大 滞后 如 三 K 感 兴趣 . 则 必须 
在 笨 入 数据 集 的 两 端 如 上 `- 个 有 民 个 零 元 的 缓冲 区 ,如 果 想 要 来 自 N 个 数据 点 的 所 有 可 入 
的 洁 后 (不 是 件 常见 的 事 ), 则 需要 填充 与 数据 相同 个 数 的 堆 元 ! 这 是 一 种 极端 情况 .该 么 序 
怒 下 : 


在 inc:ude "nrTutil- hy” 


void correl (flcar datal[ .float data 2[L] ，nnsigncd long ny floatana[]) 
计算 两 个 实 型 数据 集 data1-1. .0 和 data2[1..o] 的 相关 (包括 任 何 为 用 户 握 低 的 从 元 填充 .nm 必须 起 2 的 整 其 次 . 
缁 果 返 回 到 ans[1.,2*n 中 前 hn 个 点 ,并 按 环 绕 次 片 存储 , 即 远 次 递减 全 滞后 ,其 相关 的 看 鱼 地址 从 anf 1 降 包 
asn[ny23 志 1]; 而 乏 次 递增 开 游 捷 , 其 相关 的 存储 地 址 从 ans[] 耻 零 浙 后) 增加 到 ans[ny2-。 在 程序 调 有 中 .数组 ans 
必须 具有 田 长 盏 为 2# n+ 央 为 它 亦 拥 用 作为 工作 区 .本 君 序 的 符号 的 定 , 训 果 datal 汪 后 data2, 即 darz1 位 移 妥 de- 
:8a2 的 右边 , 则 ans 将 在 正 淮 后 上 呈现 峰 依 。 


void realftfhioat daraL]，unsighed long n，int isign) 

voidtweofttrfloat datai[]、 foaf data 刀 .float 末 1T]，Hoat 线 :2 
umsigned Long n); 

unslgned long no2 ,ii 

ioat dumy < fft 


ff 一 veetorflnc< 二 1)1 
twafft(datal qdata2yfftyanssny) 立刻 变换 两 个 data 癌 量 
DoL 一 D 盖 1; 道 FFT 的 归 -- 化 
for (ii 一 25i< 一 hn 十 2 十 一 2) 1 
ans[i -1 一 (ttt i 一 让 ss (dum 一 ans[i 一 1 1+Ht[i]y vans[i rro2， 相 乘 以 求 出 它们 由 关 


ansLi 让 一 (fftLi xs dutn-Htt[i 一 1]* ans[ 让 mozs 的 FTFT 
上 
ans[L2] 一 ana[n 十 1， 将 第 一 个 和 最 后 一 个 拒 素 二 缩 成 一 个 元 素 
realftCansyma, 一 1)3 求 过 变换 给 出 相关 


free_vec2orttft ,lin< 17; 


一 个 样本 函数 8, 的 离散 自 相关 就 是 目 数 与 其 自身 的 离散 相关 .显然 ,就 正 , 负 滞后 而 

言 , 它 总 是 对 称 的 人们 可 以 自由 地 应 用 以 上 程序 corri 以 获得 自 相 关 , 只 要 将 两 个 自 交 量 都 

用 同一 data 向 量 而 简单 地 调用 程序 .如 果 央 效率 低 而 伤 脑 能 的 话 , 则 当然 可 以 用 程序 reatft 
“464“ 


来 代替 计算 data 向 基 的 FFT 变换 。 
13.3 具有 FFT 的 最 佳 ( 维 纳 ) 滤 波 


在 数值 处 理 中 者 许多 其 它 任务 ,它们 人 在 常规 情况 下 部 是 妥 用 傅 里 叶 技巧 处 理 的 :其 中 之 
一 就 是 对 “个 * 比 误 " 信 和 咏 中 的 下 雪 进行 研 波 .我 们 研究 的 情况 是 这 样 的 :我 代 要 测量 本 
在 的 .没有 被 泛 误 的 伟 号 x(z。 介 是 ,由 于 测量 过 理 不 完善 ,从 测量 设备 得 到 的 信 寻 避 嘴 
沙 府 的 信 导 “6 -信号 < 可 能 在 两 方 配 或 其 中 的 一 个 方面 不 够 完善 .第 一 ,仪器 可 能 公有 中 
备 完 善 的 信 丽 数 ? 咯 尺 这样, 真实 信号 被 凌志 知 亲 数 re 所 卷 积 ( 被 0) 涂改 ) .从 而 得 到 
-个 洽 改 了 的 信号 5(): 


= roDacodr 或 SnD = RDUCn 63.3.1 


其 中 心 民 .区分 别 是 Sa 的 博 里 叶 变 攻 .第 一 ,所 测 的 信号 ct 可 能 包含 上 噪声 wz 的 符 
加 分 其 ， 
人 13 3 2) 
我 们 已 经 晨 道 ,在 没有 什 何 噪声 的 情况 下 如 何 对 响应 函数 - 的 效果 作 解 着 焉 /第 15. | 
节 73; 我 们 只 雷 用 C( 记 被 尺 ( 方 除 ,就 得 钊 一 个 被 解 卷 积 的 们 号。 而 现在 我 们 蓝 在 有 噪 志 的 情 
况 下 处 理 类 似 的 问题 ,我 们 的 什 务 是 寻 技 最 佳 滤波 中 ( 轨 或 画 (f) ,将 它们 作用 于 工 测 信 号 
ct 或 CC] 然后 用 -00 或 尺 ( 门 与 之 作 刨 卷 积 , 产 焉 一 个 信 苇 x(D 和 恨 ( 方 .: 才 言 之 ,我 让 
将 用 于 式 来 估计 真实 信号 妇 





EC 区 攻 - 人 中 ( 门 





和 和 9 
太 以 什么 意义 接近 产 呢 ?我 们 要 求 它 尽 最 小 二 生 方 意义 楼 近 己 , 即 
| zeo zol 一 | ec -PC aa 为 最 小 二 
代入 式 (13. 3. 3 和 (13. 3. 2), 式 (13. 3. 4 右边 大成 
上 民 ( 六 十 ( 门 ] 邓 (六 30) 可 
有 尺 () 及 ( 广 ) 人 


=| . RCISCD1L 一 @PP2 INCPi ecpPyeA 


信号 3 和 噪声 W 是 不 相关 的 ,所 以 随 东 率 了 积分 时 ,它们 的 又 积 得 到 零 .( 这 就 是 实际 上 我 
们 对 噪声 的 定义 ?很 显然 , 当 且 仅 当 在 每 个 上 了 人情 上 被 积 函 数 对 于 下 ( 户 为 最 小 , 则 式 f13.3. 
5) 达 到 极 小 ,让 我 们 米 寻找 更 ( 方 为 实 函 数 的 这 种 解 .对 亚 求 偏 导 , 并 设 其 结果 为 零 . 好 得 


12 
时 (人 人 FT 
这 就 是 最 佳 滤波 下 (7) 的 公式 。 

注意 , 式 (13, 3, 6) 中 包括 已 被 涂改 的 信号 $ 和 噪声 六 。 这 两 者 相 加 是 已 测 信和 导 心 . 等 式 
(18. 3. 6) 中 不 包含 “真实 ”信和 号 已, 由 此 得 出 一 个 最 重要 的 简化 ;最 佳 滤波 的 确 宗 , 可 依赖 与 
SS 和 已 有 关 的 解 卷 积 函 数 的 确定 。 

为 了 由 上 世 (13. 3. 6) 确 定 最 侍 沥 波 ,我 们 需要 一 些 分 别 估计 181: 和 ,六 |: 的 方法, 苦 想 只 


。4 了 35 ， 


13 391 


记忆 测 信 寻 怠 ,而 不 用 一 些 其 它 信息 :或 -发 根 设 ,着 起 :要 做 到 这 点 是 没有 办 法 的 .六 和 运 的 
是 ,我 们 总 能 容易 得 到 额外 的 信息 .然后 征 公 并 112.0. 1 和 (12.1.8) 和 (12. 1.57 来 给 出 来 其 
功率 谱 密度 的 图 堪 , 这 个 量 是 与 13| 一 | 关 1 成 比例 . 即 有 


| 站 十 中 下 基 有 (站 一 有 有 用 芭 了 全 大 和 
《页 第 13,. 4 季 和 第 13.7 入 赂 ,将 讨论 更 多 的 估计 芭 率 凡 密 度 的 复杂 方法 ,但 是 , |: 述 估 半 计 法 
总 是 是 以 适合 解决 最 佳 过 让 问题 的 , ) 所 得 结果 的 图 形 ( 如 图 13. *. 1 经 常 立 记 能 显示 问 左 连 


续 只 占 谱 上 仲 展 出 的 信号 之 谱 特 征 . 喉 十 湾 可 能 是 平 出 的 ,或 是 休 斜 的 , 避 沁 类 滑 变 化 的 ,这 
都 没有 关系 ,用 要 我 们 能 够 根据 它 猪 泪 出 个 台 理 的 假设 .通过 噪 雪 谱 男 一 条 光 清 提 -” 驹 
共 外 推 到 由 信 文 配 的 地 方 ,再 通过 信号 如 噪 吉 功 率 溢 处 画 :条 光滑 曲线 。 这 两 条 册 戈 之 羌 
融 基 信号 切 率 谱 的 光滑 "模型 ”. 信 导 芭 率 谱 模 型 与 信号 如 功率 谱 模型 之 南 就 是 最 佳 天 波 下 
(加 六 用 会 式 下 (一 万 -更 (六 将 其 扩展 到 了 了 的 负 值 ]: 注 意 ,车 噪声 可 忽略 之 处 , 则 下 (六 接近 
音 位 1; 若 虐 声 占 主 导 地 位 之 处 , 则 下 ( 户 近 似 堆 .这 就 是 唱 声 如 何 起 作用 的 ! 由 式 (13. 3.67 给 
出 的 中 加 依 球 关系 ,恰好 是 得 出 在 这 两 个 极端 之 润 的 最 住 公式 ， 
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从 导 护照 声 的 苞 淘 谱 坚 坝 了 - -个 雪 上 了 噬 声 志 部 的 仿 导 峰值 .这 个 尾部 作为 “噪声 宰 型 "外 椎 区 到 侯 寺 区 状 . 和 
减 污 就 得 “ 作 号 模型 ", 对 有 用 的 方法 异 列 不 必 是 精确 的 ,这 些 模型 的 艇 单 代数 组 合 就 得 到 最 佳 旅 油 ! 见 革 文 ，， 


图 13.3.1 最 性 ( 维 纳 Wiener) 滤 波 


因为 最 佳 着 波 是 从 求 最 小 值 问 题 中 得 出 的 ,所 以 用 最 佳 滤波 得 出 的 结果 与 真实 的 最 佳 
值 要 益 精 度 为 一 阶 的 数量 级 ,最 佳 站 波 正 是 按 这 精 虚 而 确定 的 .换言之 , 邯 使 是 一 个 相当 粗 
糙 的 被 确定 的 最 佳 无 波 (例如 ,在 1C% 的 水 平 上 ) , 当 应 用 十 数据 时 ,也 能 给 出 极 好 的 结 灵 。 
这 就 是 为 他 么 通常 能 从 一 个 粗糙 的 功率 谱 密 度 图 形 中 ,用 “内 眼 " 将 已 测 得 的 信号 C 分 次 成 
舍 号 分 盘 $ 和 噪声 分 量 Y 的 原因 .这 - - 切 都 可 能 会 想到 对 了 风 才 捞 述 的 过 程 进行 夫 代 的 辐 
是 .例如 ,用 响应 惠 (/) 没 计 一 个 滤波 器 ,并 用 它 对 信号 作 -合适 的 猜测 已 ( 记 = 到 人 六 CC 


= 二 6 有" 


民 ( 站 以 后 ,再 回 过 来 ,把 已 看 成 是 ' 信 全 新 的 信 与 :里 同样 的 过 滤 技 术 对 蕊 央行 估计 .和 
进 -水 改 进 . 不 要 将 时 间 浪 费 在 这 种 思路 上 ,这 种 结构 收 化 到 (六 -一 0 的 信 与 ,| 拓 通 存 声 广 
收敛 的 迁 代 方法 ,但 上 述 太 法 不 是 存在 的 收敛 和 迭 代 六 法 中 的 御 。 

当 构造 一 个 最 佳 过 滤器 时 ,可 以 使 用 程序 fourl1( 第 12. 2 节 ) 上 成 realft( 第 12.2 六 1 和 数据 
进行 FFT .可 以 使 用 第 13, 1 节 中 描述 的 方法 对 数据 先行 恋 波 。 对 于 最 住 此 波 ,不 党 区 下 程 
序 convly ,因为 需要 在 频 域 开始 处 就 构造 滤波 . 则 是 ,如 果 已 经 将 数据 与 :已 知 有 必 帅 数 符 
了 解 郑 稀 , 则 可 在 其 进行 博时 叶 道 变换 之 前 ,用 最 佳 滤波 与 它 柯 乘 ,以 此 修改 程序 conyly 


13.4 使 用 FFT 作 功 率 谱 估计 


在 拥 - 竹 , 我 们 通过 取 函 数 ce 的 某 些 有 限 东 伴 范 围 的 讽 散 傅 里 叶 变 换 的 必 方 恒 . 来 
“ 非 止 式 地 "估算 了 “52 的 功率 潜 密 度 .在 本 节 中 .我 们 太 致 要 作 同样 的 事情 ,但 是 我 们 更 剂 
着 重 十 细节 , 沁 结 果 将 会 引起 一 些 惊 异 ， 

第 一 个 冲 闻 是 功效 详 ( 亦 称 年 功率 密度 或 PSD) 的 归 -- 化 . … 般 说 来 ,函数 的 平方 振 呆 
的 测量 与 PSD 振幅 的 测量 之 碟 有 某 种 比例 关系 .不 束 的 是 ,在 人 告 一 种 域 中 ,有 儿 种 六 同 措 述 
归 一 化 的 约定 ,并 卫 极 易 弄 错 这 阿 种 万 之 河 的 关系 .假设 函数 c(0) 在 N 个 点 取样 ,产生 倘 为 
cvv5cv-ib 这 些 所 机 路 时 间 了 的 范围 , 即 了 一 (8 一 1)aA, 其 中 心 尾 取 傍 间隔 。 于 是 , 下面 有 
几 种 关 证 总 功率 的 描述 ; 


忆 一 ; 
盖 ) |c 让 一 “平方 和 振幅 ? (13.4. 1)》 
一 2 
人 TS En 
去 | ictolam 志 lci|* 生 " 均 方 捧 由 (3. 和 2 
了 = 疙 
了 人 
| ic(o 1 人 4>， | 兰 “时 间 积 分 平方 振幅 ” 《3 3) 


正如 我 们 将 蓝 看 到 的 ,PSD 估计 量 甚至 有 更 多 的 变化 .本 节 中 我 们 考虑 其 中 的 -类 . 它 
对 频率 所 的 离散 值 进行 估计 ,其 中 : 取 于 积分 值 范 围 内 ,下 - 节 中 ,我 们 将 学 习 不 尼 的 只 一 
类 估计 * 即 对 频率 / 的 连续 函 教 进行 估计 .即便 有 关 PSD 的 归 一 化 .与 耿 数 归 -化 (例如 趟 
《13, 4. 2)) 的 特定 描述 是 一 致 的 话 ,对 PSD 至 少 还 有 下 述 几 种 可 能 性 

" 定义 在 高 散 正 频率 . 零 频率 和 负 频 率 上 ,并 且 在 这 些 频率 上 的 利 是 函数 的 均 方 振幅 

"仅仅 定义 在 零 频 率 和 正 频率 上 ,并 且 在 此 频率 上 之 和 是 函数 的 均 方 振 帆 

“ 定义 在 从 一 天 到 六 的 达 斯 特区 间 上 ,并 且 在 此 范围 内 的 积分 是 函数 的 均 方 振幅 

" 定义 在 0 到 广 频率 间 ,在 此 区 域内 积分 是 函数 的 均 方 振幅 。 

在 奈 夺 斯 特区 间 一 大 到 六 以 外 对 磋 本 函数 的 PSD 作 积分 是 毫 无 意义 的 。 因 为 根据 取 
样 定理 ,区 间 以 外 的 功率 已 被 混 登 到 奈奈 斯 特区 间 内 。 

定义 是 够 多 的 符号 用 来 区 分 所 有 可 能 的 归 一 化 的 组 合 是 毫 无 希望 的 .因此 ,以 后 我 们 用 
符号 4( 记 来 代表 上 述 PSD 的 任 -种 定义 ,并 在 每 一 个 例子 中 标 出 各 个 PC 六 是 如 何 被 归 -- 
化 的 .妥当 心 文献 中 那些 不 相 容 的 符号 。 

在 前 一 节 中 使 用 的 功率 谱 估计 方法 是 一 种 的 简单 的 估计 方法 ,上 史 上 将 这 佑 计量 称 作 
为 周期 图 :如果 我 们 在 相等 问 隔 上 取 函 数 (0 的 N 个 样本 点 ,并 用 FFT 计算 它 包 高 散 健 里 
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则 定 文 在 /2 十 1 个 频率 上 功率 谱 的 周期 图 为 
PrI9) 一 P 扩 ) 一 二 人: 


人 = 严 [IC EC 一 12 .人 国人 站 县 县 o 
P( 太 ) =POA 一 京 :Cna : 
其 中 万 只 对 零 频率 和 目 频 来 定义 . 
-2 有 5 所 国人 下 


根据 帕 斯 维 尔 定理 , 即 方程 式 (12. 1.10) ,我 们 立即 在 出 式 全 3. 4. 5 已 被 站 比 , 上 此 ,的 
N72 十 1 个 值 之 总 和 等 于 曙 数 c, 的 均 方 振幅 

现在 我 们 肯定 更 提 这 样 一 个 问 得 ,在 什么 意义 下 ,周期 图 估计 式 人 3.4. 5 是 潜在 的 骆 迷 
cti) 之 功 雍 简 的 "真实 ?估计 量 ? 这 可 以 革 引 用 的 文献 中 -参见 LI 引言 」 找 到 详细 的 答案 ， 
搞 要 如 下 。 

首先 ,周期 图 估计 的 期 望 值 等 本 功率 谱 吧 * 轻 对 飞 不 灶 . 我 们 峭 实 不 会 期 鹿 严 ( 六 之 
稍 切 二 在 六 处 等 十 连续 的 呈 ( 六 利 , 习 为 六 被 由 设 成 是 整个 频 这 “" 箱 ”内 的 代表 , 它 呈 水 可 
一 个 离散 频率 的 半途 延伸 到 下 … 个 离散 频率 的 半途 .但 是 , 戈 们 访 该 期 望 PP) 是 在 以 六 
为 中 心 的 狭 窗 函数 内 哺 ( 六 的 某 种 类 型 的 平均 值 :对 十 周期 图 估计 式 (13. 4.6) .其 密 凑 数 。 
作为 箱 中 频率 篇 移 * 的 函数 ,是 
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MiLsin(mszN | 
注意 四 (是 振荡 波状 , 除 此 以 外 , 它 大 约 以 歼 (r)s(rs) :衰减 ,这 不 是 :个 快速 侣 沽 .县 寻 
敏 辕 期 图 的 估计 中 从 一 个 频率 到 另 一 频率 的 重要 淆 漏 (这 是 个 技术 术语 ), 还 要 汗 意 , 当 ， 
为 正 零 不 数 时 ,ws) 恰 好 为 索 。 这 意味 着 如 果 范 数 < 正好 等 于 六 中 基 一 个 频率 的 纯 于 芝 
波 , 则 相 邻 户 之 间 夸 不 会 有 移 漏 .但 这 不 是 典型 的 情况 ! 如 果 频 率 在 两 个 相 邻 卢 之 抽 的 123 
处 , 则 渗 沁 将 大 大 超过 这 两 个 相 邻 的 箱 .解决 渗 活 问题 的 方法 称 为 数据 窗 , 下 面 疾 村 二 流行 
讨论 ， 

规 在 我 们 转向 关于 周期 图 估计 的 另 一 个 问题 - 随 N 赵 于 无 穷 时 估 订 的 方 益 有 败 大 * 换 
言 之 , 当 随 着 对 原始 函数 取样 点 的 增 点 (或 者 以 相同 的 恨 样 率 取样 一 个 更 长 的 数据 ,或 站 以 
更 快 的 取样 率 对 相同 的 数据 重新 取样 ), 估计 Px 的 正确 性 将 增加 多 少 ?答案 是 令 人 失望 的 ， 
周期 图 估计 根本 不 会 变 得 更 精确 ! 事 实 由 "频率 .A* 处 的 周期 图 估计 的 方差 始终 等 本 在 该 病 
率 处 骨 望 值 的 平方 . 痪 训 之 ,标准 差 永远 是 该 值 的 100 色 ,与 只 无 关 ! 这 可 和 能 是 怎么 了 事 ? 卫 
们 增加 吉 后 的 所 有 信息 到 哪儿 去 了 ?它们 都 参与 了 更 大 量 的 离散 频率 记 的 估计 过 相 中 去 
了 -如 果 我 们 用 周 的 取样 率 对 … 个 更 长 的 数据 皮 样 , 则 奈 克 斯 特 临 短 频 率 /. 是 不 谈 的 .不 
过 现在 在 奈 多 斯 特 频 率 区 内 有 更 细 的 频率 分 解 (更 多 的 疡 ); 另外 , 若 用 更 细 的 取 翌 避 卫 对 
癌 梯 长 度 的 数据 取样. 则 频率 分 解 不 变 , 介 现在 灰 蛮 斯 夸 区 咸 扩 许 们 更 高 的 频 深圳 全 此 和 

468 。 


赴 沈 下 ,增加 恬 本 都 不 会 减少 任 一 特定 兰 率 估计 的 PSl) 的 方差， 
不 管 怎 伴 , 是 不 必 藉 有 这 百分之百 的 标准 差 的 PSD 枯 计 .只 要 知道 儿 种 减少 们 十 方 蔗 的 
技 握 就 可 以 了 -这 里 有 两 种 技巧 ,它们 在 数学 上 儿 乎 等 同 , 但 是 执行 过 程 不 问 。 徐 种 是 . 采 


的 离散 频率 上 求 周 期 图 估计 的 种 ,以 得 竹 在 这 样 K 个 频率 的 中 间 舌 率 上 的 一 个 "更 光滑 ”的 
估计 .这 个 向 伍 计 的 廊 益 比 其 估计 本 身 小 一 个 1 天 因子 , 即 标准 差 矿 100 贤 小 -个 王子 天 
因 闻 .因此 ,为 了 对 0 和 六 之 间 好 一 1 个 讽 散 频密 上 估计 功率 滴 , 就 开始 需 取 224 开 局 的 
FFT( 这 个 数 2 天 最 好 基 2 的 整数 次 宫 ) .然后 取 知 果 系 数 的 模 平 方 ,将 于 的 和 人 名 的 频率 对 
加 起 来 .再 被 (28 天) 除 , 所 有 这 些 都 是 按照 式 (13.4. 3 并 取 N = 2 大 进行 孜 - 旷 后 :将 结 
果 “ 装 箱 ”, 使 之 成 为 的 求 和 纽 (不 是 平均 组 ) ,这 过 程 很 容易 编程 .因此 不 必 败 没 兴 出 得 序 
而 烦 售 ,对 故 个 柑 邻 点 求 和 而 不 是 求 平均 , 其 原因 是 为 了 使 最 终 PSD 估算 将 保持 只 业 一 ] 
个 侦 的 和 等 于 允 数 均 方 振幅 的 刀 “化 特性 。 

在 区 间 0 到 . 广 之 间 ,估计 闻 十 1 个 频率 上 的 PSD 的 第 一 种 技巧 是 ,将 原始 样 不 数据 划分 
成 天 个 小 段 , 竺 段 有 2 个 连续 的 样本 点 。 每 段 分 别 作 FFT, 以 得 到 一 个 周期 加 估计 ! 式 
(13.4.5) 且 取 六 反 2M)。 最 后 ,在 每 个 频率 上 对 天 个 周期 图 估计 求 平均 . 正 是 最 后 一 步 平 
均 , 使 估计 的 方差 降低 了 一 个 玉 因子 (标准 差 降低 了 v 关 因子 )。 从 计算 上 看 ,第 一 种 技巧 比 
前 面 第 一 种 技巧 更 为 有 效 , 因 为 对 较 短 样本 点 作 FFT 比 对 较 长 样本 点 化 FFT, 其 效率 按 对 
数量 级 提高 ,不 过 ,第 二 种 技巧 的 主要 优点 还 在 于 ,在 一 段 时 间 内 只 处 理 2M4 个 数据 点 :而 不 
象 第 … 和 神 技 巧 中 大 处 理 2WK 个 数据 点 * 这 意味 者 ,对 来 自 磁带 或 其 它 数据 记录 中 的 长 数据 
的 处 理 ,第 二 种 技巧 是 一 种 自然 的 选择 .后 面 我们 将 给 出 实施 第 二 种 技巧 的 程 冲 :但 总 .我们 
还 需 首 先 返 回 到 涂 漏 和 由 式 (13. 4. 7) 引 出 的 数据 开 窗 何 题 中 来 。 


13. 4.1 数据 开 窗 


数据 开 窗 之 日 的 在 于 修正 公式 (13. 4. 7) 式 , 它 才 示 一 个 离散 频率 的 谱 估 计 疡 .与 相近 
频率 上 实际 的 \ 潜 在 的 连续 谱 P( 六 之 间 的 关系 ,一般 说 来 ,一 个 “量化 录 ” 大 内 的 功率 卉 实 
际 上 包括 着 其 妃 * 量化 层 的 频率 分 量 所 带 来 的 滩 漏 ,其 中 * 是 式 (13. 4.7) 中 的 自 灾 量 . 于 如 
我 们 所 指出 的 , 雁 至 从 适当 大 的 * 值 ,也 有 大 基 的 渗 漏 ， 

当 我 们 为 周期 谱 估 计 选 择 一 组 N 个 样 木 点 时 .实际 上 已 用 了 一 个 时 间 的 窗 函 数 乘 上 一 
个 无 穷 氏 的 样本 数据 据 组 c;, 这 窗 表 数 在 整个 取样 时 间 NA 内 等 十 单位 值 ,而 其 它 时 间 取 值 
为 零 。 换 言 之 ,数据 被 一 个 矩形 徐 冰 数 开 了 窗 。 殷 据 卷 积 定理 ( 式 (12. 0.9); 但 是 互 换 广 和 + 
的 位 置 ), 数 据 与 这 个 矩形 窗 函 数 乘 积 的 傅 里 时 变换 ,应 该 等 于 数据 的 全 里 叶 变 换 与 会 前 数 
的 傅 里 叶 变 换 的 卷 积 , 事 实 上 ,我 们 确定 的 方程 式 (13.4 ?), 并 不 比 单位 窗 函 数 的 岗 散 傅 里 
叶 变换 的 平方 多 点 什么 。 


Was) 一 ] Sintmrs》 | > 2 (13. 1.8 
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ASIA ) 
在 * 大 值 处 ,发 生活 漏 的 原因 在 于 ,和 矩 几 窗 函 数 接 通 和 断 开 太 迅 速 , 它 的 便 里 时 变换 在 高 频 
处 有 太 最 的 分 量 . 为 了 改善 这 种 情况 ,用 窗 函 数 乘 输 入 数据 cjG 一 0D,…..,N--1), 使 窗 医 数 
随从 0 至 交 变 化 矶 从 零 逐 浙 升 至 极 大 值 ,然后 再 妖 回 到 零 , 在 这 种 情况 下 ,局 期 网 估 
计 基 5 式 (13,4.4>~-13.4.5)7 跑 为 : 


"是 呈 。 


NS -1 
新 三 >icpreyeroks 一 0 RN 一 1 《13. .9) 


评 
了 (0) 一 (f) 一 玉 1D: 8 
己 (./) = 让 -508 十 -| 国 吉庆 天 二 .| 六 本 ]， 
P(F) 一 POP = 想 1Dwa (15， >，102 
其 中 玫 :: 代 表 " 半 方 求 和 之 窗 ” 
= (13.4. 11) 


其 中 所 由 式 (13.1.6? 给 出 。 es 4 7 再 一 报 的 形式 现在 可 以 根据 禄 响 数 二 
7 Cr》 -= 了 汪 or 


*| 


训 机 《13.4. 12》 
S 到 | COS(2F5 是 (一 rc 
一 jy 


此 处 的 近似 式 对 实际 估计 必 很 有 用 的 ， 而 且 适 用 于 作 何 左右 对 称 的 窗 ( 通 常 的 情况 ?和 对 > 
去 所 N 的 情况 (这 是 告 计 渗 漏 进入 邻近 量化 层 的 情况 六 丙 分 中 的 连续 国 数 w( 一 Ni72) 是 这 
过 点 ruu 的 某 光滑 函数 。 

关于 选 拼 窗 邓 数 ,也 许 有 许多 不 必要 的 经 验 , 实 践 中 :每 个 从 零 开 始 上 升 到 质 峰 然 后 义 
下 降 的 函数 都 是 以 某 个 人 的 名 字 命 名 。 常 用 的 几 个 是 如 下 ( 见 滞 13, 4, 1 所 未 )， 





1， 


二 














箱 的 个 数 


在 FFT 计算 之 前 ,将 玫 据 自 节 窗 孝 妆 ( 依 此 交 个 量化 层 ). 阁 据 自 的 界 去 为 258. 定 彤 窗 , 它 等 做 下 
没 育 开 窗 , 录 不 值得 推荐 的 : 书 尔 音 窗 和 也 特 利 特 窗 是 很 好 的 选择 。 
图 13.4.1 通常 用 于 FFT 功率 谱 的 窗 函 数 
"4170。 


5 
六 瑟 | 

1 “巴特 利 特 窗 ” 
本 六 





tc 一】 


必 帕 森 (Parzen) 人 窗 ” 与 此 非常 类 似 ) 。 
zt 一 ] ] cos'! 37 | 二 “ 汉 宁 (Hanny 窗 ” 


4 攻 人 1 和 NI 
( 汉 明 (Ilamming) 窗 ?是 类 和 似 的 , 担 其 在 端 部 不 会 尊 确 地 到 达 零 ) 。 
司 一 了 
te) 一 1 三 “ 节 尔 奇 (Welch) 窗 ” 
瑟 闪 





区 本 本 必 村 ， 


13.4.15) 


我 们 估 向 于 遵循 市 尔 奇 ,推荐 读者 在 实际 工作 中 使 用 式 (13, 4. 13) 或 者 式 (13. 4. 15) ,然而 . 
以 本 书 的 水 半 , 任 何 这 些 ( 或 类 似 的 ) 窗 胃 数 疫 有 实在 的 区 别 。 它 们 之 间 的 差别 在 于 各 种 有 份 
值 的 标准 图 之 间 的 微妙 的 权衡 ,这些 标准 图 形 可 以 用 来 描述 由 式 (13. 4. :2? 计 算出 的 谱 涂 漏 
函数 的 狭窄 性 和 有 峰 性 .这 些 标 准 图 形 还 有 一 些 名 称 :最 高 这 辩 (db) .这 躺 囊 减 (每 个 倍 频 
程 的 db)、 等 价 蝶 声带 宽 ( 重 化 层 ) .3 一 山 带宽 (量化 户 ). 筷 状 损失 (db) .最 坏 情 况 过 程 损失 
(db) 。 粗 略 地 说 ,是 在 形成 尽 可 能 狭窄 的 中 间 峰 值 区 和 尽 可 能 加 快 尾部 的 误 减 隔 者 之 间 进 
行 主 要 的 权衡 .详情 参阅 文献 [3]。 图 13.4. 2 中 给 出 了 已 讨论 过 的 几 种 窗 的 活 沁 振 帆 图 ， 








-8 一 6 -4 -3 0 3 4 
频率 箱 单 式 中 的 炳 物 


实际 上 频率 亿 于 零 偏 移 处 的 一 个 依 寻 " 涂 油 ?到 具 有 攻 冰 操 幅 的 邻近 量化 导 中 - 开 窗 的 目的 
是 为 了 减少 在 大 颗 率 偏 移 处 条 浴 油 ,而 仙 形 窗 (六 开 符 ;具有 太 的 旁 故 .人 备 移 可 以 是 分 数值 


因为 实际 信号 频率 吕 能 位 于 FFT 的 新 个 频率 量 必 层 心 间 。 
出 13,4,2 图 13.4.1 中 窗 函 数 的 活 漏 函数 


三 一 一 T TO 
于 





关于 和 窗 凋 数 ,还 有 - 些 经 验 知 识 .在 数据 的 前 -小 部 分 处 5 设 10 印 ) 窗 两 数 了 从 专 赴 尘 地 

上 升 到 单位 值 , 然 后 稳 函 数 停 留 在 单位 逢 , 育 到 数据 最 后 的 小 部 分 (又 假设 1955 在 
这 斯 间 函 数 又 从 单位 值 平 谓 地 下 降 到 零 .这 个 贸 吨 数 星 然 使 站 潮 困 数 的 主 屋 弯 窗 上 5 水 二 

会 站 2 的 倍数 里 么 多 ,但 将 其 浴 漏 许 部 折 宽 “个 明显 的 岗子 (例如 ，10 癌 的 倒数 ， -全 1 
的 氏 子 ) .假如 我 们 能 将 窗 的 宽度 (在 禽 的 疏 人 值 处 的 样本 个 数 ) 郑 窗 的 上 升 (下 降 ;时间 在 
其 上 升 与 下 降 过 程 中 的 样本 数 ) 区 分 开 来 ;如 果 我 们 又 能 将 冰 泪 函数 主 淤 的 上 到 HM( 闭 虹 大 
值 的 全 宽度 ) 和 渗透 宽度 (包含 谱 功 率 - 半 的 全 宽度 ,这 些 功率 谱 不 包 舍 在 于 淮 天 ?区分 并 
来 ; 则 这 些 量 粗略 地 联系 起 来 为 


( 基 化 层 中 PE) s 曾 (4 1 8 


( 基 化 民 中 小 沁 宽度 ) ~ [放下 逢 [下放 ) 于 加 (4 17i 





。 对 于 前 面 式 (13. 4 13) 一 (15, 4 15) 给 出 的 从 , 右 效 窗帘 和 有 效 上升 { 下 降 ? 时 间 都 尾 当 
AN 阶 的 .通常 而 言 ,我 们 觉得 , 当 窗 的 上 升 和 下 降 时 间 只 是 数据 界 长 的 很 小 部 分 ,这 种 徐 亿 
点 很 小 或 没有 时 ,我 们 避免 使 用 它们 ,有 时 可 能 会 听 说 , 半 顶 的 窗 * 振 失 较 少数 据 "但 足 我 
现存 告诉 读者 一 个 更 好 的 办 法 襟 解决 这 个 问题 , 即 用 交 选 数据 段 的 方法 。 

假设 选择 了 一 个 窗口 函数 ,并 准备 把 数据 划分 为 有 一 2M 个 点 的 天 段 。 对 每 自作 
FFT ,并 和 将 得 到 的 K 个 册 期 图 -起 求 平 均 , 以 获 族 0 到 广 疗 的 M 个 频率 全 上 的 PSD .现存 
我 们 必须 区 分 晤 种 呆 能 的 情况 .我 们 可 能 想 从 固定 的 计算 总 数 中 得 到 最 小 方 吉 ,而 不 必须 考 
虞 所 用 数据 点 的 个 数 .例如 ,通常 当 数据 正在 实 对 地 到 集 ,并且 数 据 的 简化 受 计算 机 控制 时 ， 
这 种 情况 便 成 为 目标 . 另 一 种 可 能 情况 是 ,我 们 可 能 起 从 有 效 的 样本 数据 点 中 得 到 最 小 方 
差 . 通 常 ,如 果 数 据 已 经 记录 上 来 ,并 记录 之 后 正在 分 析 , 旭 这 便 成 为 口 标 。 

在 第 一 种 情况 下 (每 次 计算 操作 的 最 小 谱 方 卷 , 最 好 不 交 迁 而 将 数据 分 役 前 23 数据 
点 构成 ?号 段 ;其 次 281 个 数据 点 构成 2 号 股 ; 以 比 类推, 直至 号 段 ,共有 2KM 个 样 林 
点 .这 种 情况 下 的 方差 和 单个 段 有 关 , 方 差 减 少 到 1/K 。 

第 二 种 情况 下 (每 个 数据 点 的 最 小 谱 方差 ) 若 将 各 段 交 和 长 度 的 -- 半 , 唱 所 得 的 是 最 侍 
的 或 非常 接近 最 佳 的 ,第 一 值 M 个 点 和 第 二 组 M 个 点 为 1 号 段 :第 二 组 凡 个 点 又 秆 第 .: 
组 厅 个 点 为 2 号 段 ! 以 此 类 推 ,直至 K 号 段 , 它 由 第 天 组 好 个 点 和 天 十 1 组 M 个 点 组 成 ， 
及 抽样 本 点 总 数 是 (K 十 1)3f, 正 好 是 没有 用 交 选 段 的 总 数 之 半 . 方 孝 的 减少 不 是 17K 的 束 
数 倍 ,因为 各 段 不 是 统计 独立 的 .可 以 证 明 , 方 差 人 约 减少 11/9K( 见 韦 尔 奇 的 文章 -4 )。 无 
论 怎样 ,这 比 减少 2/K 要 好 ;如 果 没有 交 选 ,用 同样 数量 进行 分 段 , 这 就 降低 2/ 区 ， 

现在 将 这 些 想法 编制 成 一 个 谱 舍 计 程序 ,通常 ,我 们 避免 给 入 (输出 编码 ,但 这 时 例外 ， 
将 呈现 如 何 通过 一 个 数据 文件 顺序 读 出 数据 (参见 参数 FILE * 和 ). 在 任 -时刻 , 只 有 一 小 
部 分 数据 在 内 存 中 。 
芒 include < 拓 marh.h 盖 
开 incloude 所 stdio.h > 
攻 inclmde “nrutil.h” 


共 dcbne 而 JNDOWGz:b) (1.0 一 fabs(Gf(jy -1) 一 (a)) xb))》 7 Bartlett wy 
“< 共 define 好 INDOW(C.arb) 1.0 * 2 Square 7 8 
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eine WTASGQROT-] atb3) 7 > Welch xy 


vtid sbpetreF]ILE 
市 立 什 指 六 


和 ? 关 几 估 之 


It rs int < inr Mrlsp) 






站 法 出 数据 ,十 由 他 和 东 个 岗 忱 点 先 包 让 


lzf2*m) 周 斯 处 的 数据 之 此 军 滥 ( 均 记 得 振 
烘 点 是 吾 上 2sE4 za 个 数据 点 ( 刀 果 设 esflap 县 和 111: 或 背 划 于 + -< 


ks 个 数据 :证 此 尼 2rlap 是 委 20) .这 两 种 情况 柳 拆 段 的 个 数 秀 是 二 * 上 :程序 所 调用 fourlk 六 , 拇 杰 课 杂 有 


长 个 部 分 ,等 认 分 有 2 m 个 实数 堪 必 





攻 
void feurl(eloat datai:，unsigmed Zong nn，int LSslkn) 
int pp,md44,m43,m4,kk,joffa,joff ,32，ji 
fl1uak urfacp:facm,rvii<2,sumvsD.Db,den=0.0; 
了 mm=m+ 卫 ; 有 上 册 咱 汶 或 
旧 和 3= (md4=aun+mmhy+r3， 
mm44= 吕 43+1， 
Wisvectorf1,md4) 
2evVectorf im) ; 
下 acm=m, 
facp=1.07mi; 
For !【j=1ijcemm;j++) sumw + SOQRCWINDUW(、 ,facm,facp?): 
累加 权重 的 平方 知 
for 《jst;j<=-aij++) p[jj=0.0; 将 湛 封 始 赋值 为 到 
2f fovrlap) 对 * 保 让 "的 半 缓 冲 区 初始 赋值 
for (〔j=1;j<=;j++) fscanf(fp ,YXz" ,让 w2[j]): 
fot 《Kmt1LzKK<=K;KK+t+) 攻 
以 吓 组 数 斯 集 为 段 做 特 坏 
for {jJoff = -1;Joffc=0;Joftr+) 1{ 购 个 完备 段 进 六 工作 区 
1f {fovrlap) 1{ 
Tor 〈j=lij<=m:Jr+i sl[jJotffe*j+j]=v2[jJ]; 
For 《j=tijs<= 四 ;j++) ?SCanf[ftp .nyt'" sw2tj]); 
josfftn=joft+mm) 
for 〔j=1;j<=m;j++) vl[jofftn+j+jj=<u2[j] 
} alse 
for {【j=joff+2;j<=r4;j+<2) 
ftSCang(TP，"%E "zwl[jj) i 
】 
】 
for (jzt:j<=mmi;j-+) 《 将 窗 应 用 十 数 据 
Jj2=]+j 
W=WINDOW(j ,facm ,Tacp) 3 
sl[j2] *= vi 
WwW1[j2-1] = Wi 
】 
fourlkwl,mm,1); 对 开 窗 的 数据 佑 FFT 变 换 
pf += 《SQR《wtTI)+SQ9RKwtE2]1)) 3 结果 之 和 进入 原先 的 段 
foer 《jz=2;jczm;j++)》 T 
] 2=j+j 
p[j] *=【SQRCvl[j2] )+SQOR《wdt[j2-1]》 
+SQR(ul [o44-j2])+S9RCul [nm43-j2] 7) 1; 
daen +m SUUEN: 
】 
der *= mdi 正确 的 规 一 化 
for 《〈《j=tijx<a;]+4] p[] /= den; 将 输出 规 一 -化 
Free_vector(w2 ,1 了) 
[reg_vector{twl,1,nma); 
】 
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13.5 时 域 中 的 数字 滤波 


优 设 硒 … 个 信号 要 进行 数 宁 滤波 .例如 ,也 证 扯 运 丹 高 通 或 低 通 滤波 ,来 分 别 涉 去 你 频 或 高 频 员 千 ; 也 

许 只 对 处 于 某 个 频带 内 的 信 导 感 兴趣 , 则 需要 带 通 下 波 器 ,或 者 , 旭 果 测 且 小 混杂 有 60Hz 电源 线 二 党 ,就 

才能 需要 一 个 播 型 滤波 器, 恰好 柳 去 围绕 该 球 率 的 狱 空 带 状 .这 “ 节 特 别 早 述 在 时 域 中 :去 得 大 选择 这 种 

一 波 的 情况 ， 

塘 续 讨论 前 ,我们 希望 读 者 再 考虑 一 下 这 种 选择 .上 忆 一 个 ,在 人 博 里 叶 域 中 让 波 是 非常 方便 的 .只 需 记 

录 全 部 数据 ,对 其 进行 FFT ,和 将 FFT 的 输出 于 久 一 个 滤波 函数 澡 '( 站 然后 理 作 着 FFT ,得 到 -个 把 四 时 

域 中 忆 澶 波 的 数据 集 , 下 面 是 - 些 关 虑 的 傅 甲 叶 技 乌 的 附加 背景 。 

， 请 记 住 ,必须 定义 滤波 函数 在 正 、 负 频率 区 上 ,而 院 磊 率 映 部 的 量 值 始 终 是 奈 计 斯 特 频率 172a. 寺中 
A 是 取样 区 间 .FT 中 最 小 非 零 频率 的 数量 前 应 为 士 17CYa) ,其 中 交 是 FFT 中 ( 复 弄 ) 点 的 个 数 ， 
这 个 滤波 的 正 . 名 频率 按 环 绕 顺 这 排列 。 

“ 如果 已 测 数 据 是 实数 ,而 且 和 希望 滤波 输出 也 是 实数 , 则 性 意 滤波 冰 数 都 应 加 刍 . 芝 (一 门 一 .关门 . 
可 以 极 容易 地 实现 这 点 ,只 需 取 一 个 关于 了 是 实 并 为 倘 的 -党 . 

" 如果 选择 的 .区 ( 六 有 锐利 垂直 的 法 界 , 则 滤波 器 的 脉冲 响应 (输入 一 个 短 脉 冲 引起 的 输出 ) 在 这 界 
对 应 的 频率 处 成 “环形 ”衰减 .这 并 没有 出 错 , 但 如 果 不 喜 次 ,那么 就 克 择 个 更 平滑 的 记 “( 广 ,为 了 
让 搂 得 到 关于 滤波 器 天 冲 响 应 的 第 .- 王 材料 ,可 以 取 区 ( 门 的 道 FFT。 如 时 在 某 些 请 个 点 上 对 滤波 
郴 数 所 有 的 这 界 作 了 光滑 处 理 , 则 滤波 器 的 脉冲 响应 是 数 将 有 - -个 跨 诬 整个 数据 沁 录 的 1 沁 的 后 
距 ， 

“ 如果 数 据 太 长 ,不 能 一 次 进行 FFT, 则 需 将 它们 分 成 适当 区 庶 的 若干 左 ,只 要 每 度 长 度 比 让 波 器 的 
琶 冲 响应 果 数 么 温 多 就 行 .必要 寺 ,使 用 八 元 填 匈 。 

， 可 能 需要 从 数据 中 减 去 一 条 通过 第 .点 和 最 后 -点 的 一 条 直线 ( 即 , 使 第 一 点 和 最 后 一 或 为 替 ]， 从 
而 除 掉 来 自 敷 据 任 何 趋势 .如 果 正 在 进行 数据 划分 成 段 , 则 百 以 选取 交 授 的 朋 , 并 只 使 用 每 夏 的 中 
癌 部 分 ,就 能 相当 靖 意 地 远离 边 交 效应 。 

“ 如果 一 个 数字 滤波 占 的 某 特 定时 间 步 的 输出 妈 仅 依 天 寺 这 个 时 间 步 的 欠 入 或 者 更 早 时 间 砂 上 输 入 ， 
则 称 这 个 滤波 器 为 因果 性 的 或 物理 可 实现 的 .如 果 它 的 输出 既 依 束 隆 早先 的 输入 ,也 依赖 于 以 后 的 
输入 , 则 称 它 为 无 因果 性 的 。 一 般 情况 , 傅 里 叶 域 中 的 油 波 器 是 无 因果 性 的 ,因为 数据 是 “成 批 ” 进 行 
处 理 的 ,并 木 考 虑 时 间 有 顺序 。 别 让 这 点 给 难 佳 : 通 娄 无 央 黑 性 的 滤波 器 能 带 来 高 级 的 性 能 5 例如 , 较 少 
的 相位 色散 ,更 尖锐 的 边缘 ,脉冲 响应 函数 的 不 对 称 性 减少 ) ,人 们 使 用 因果 性 的 泪 波 器 不 是 卡 为 它 
好 更 好 些 ,而 是 因 败 在 … 些 场合 下 不 允许 在 取 非 时 序 的 数据 .原则 上 讲 , 时 间 让 波 嵌 距 可 为 刁 哩 性 
的 ,也 下 为 无 因果 性 的 ,但 是 它们 通常 被 用 于 物理 可 实现 性 受 限 的 应 用 中 。 技 些 遵 理 ,在 以 下 己 容 中 
我 们 限定 于 有 内 姥 性 的 情况 ， 


如 果 读 者 仍然 便 爱 时 域 滤波 ,这 大 概 因为 你 有 一 个 实时 的 应 用 问题 ,因此 黎 要 处 理 一 中 连续 的 数据 
洛 , 而 由 项 望 按 照 接收 始 数 实 的 相同 的 速率 输出 滤波 值 .否则 ,可 能 是 符 处 理 的 数据 量 信 大 , 挫 政 于 内 能 
在 每 人 数据 点 上 旅 受 滥 党 个 量 的 泽 点 运算 ,而 且 甚 至 不 能 进行 中 规范 大 小 的 FFT( 每 个 数据 点 的 胃 点 运算 
次 数 几 倍 了 了 数 湛 集 或 段 中 点 的 个 数 的 对 数值 ) 。 
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13. 5.1 线性 滤波 器 
最 常 允 约 线性 涉 波 器 其 输入 点 床 列 为 my, 并 由 十 术 公 忒 挛 汪 输出 点 序列 和 


全 本 四 
人 


其 中财 十 1 个 系 茹 习 司 个 系数 di 硼 是 四 定 的 ,天 定 艾 『 湾 波 器 的 响应 ， 式 (]13.5.1) 滤 波 疾 是 应 当 航 输 
入 请 各 先前 好 个 输入 佑 ,以 及 它 首 书 先 前 六 全 输出 值 产生 天 个 新 的 葵 半 值 : 录 果 革 =G 束 03 -第 
下 和 各 玉生 拓 滑 二 者 由 有 交 训 二 再 和 王八 0 过 站 让 
冲 响应 的 (77R)。( 木 诺 "T7R" 公 仅 审 味 着 这 种 滤波 器 能 够 总 月 无限 长 的 脉 闵 响 应 ,有 而 下 是 闹 在 特 史 的 灾 几 
中 肝 六 响应 必定 很 长 ,典型 的 情况 是 ,一 个 2R 泪 波 占 的 而 宰 在 以 后 时间 电 将 成 措 数 衰减 ,出 和 送 昔 减 而 谣 
成 可 以 忽略 不 计 .》 

ck 和 di 与 源 波 的 啊 应 于 数 : 喇 ( 方 的 改 系 为 


人 

ce 红 

少 = 三 3 

3 人 ES 二 证 汪 
1 一 之 4 KTC 


其 中 心 仍 为 取样 频率 . 奈 村 斯 特区 间 对 应 于 37 至 1 2 之 问 此 各: 对 FIR 湾流 来 诺 ,于 人 2 的 人 进 


恰好 址 单位 1 。 
式 (134.5.2) 告 诉 了 我 们 如 何 山 一 系列 “和 < 全 确定 芝 《 门 . 然 有 ， 为 ” 设计 滤波 ,我们 往 襄 个 进行 
道 变 换 钓 方法 ， 另 众 期望 的 -党 "CPP) 中 非得 一 全 适当 的 < 和 以 的 集合 这 个 焦 要 瞧 可 竺 地下, 尺 使 让 算 包 


担 最 小 ,有 许多 书 整 本 地 致力 于 这 个 问题 . 象 其 它 许 多 * 道 河 题 ”- 样 , 它 没 有 完美 的 解雇 方法 .大 为 .区 ( 方 
是 一 个 完全 连续 的 郑 数 ,而 小 段 的 和 以 只 专 示 一 些 可 调整 的 参数 ,四 此 人 们 必须 折衷“ 下 ,滤波 器 设计 
的 问题 关系 到 作 这 种 折衷 的 各 类 方法 ,我 们 六 希望 能 络 出 -条 彻底 的 处 理 方法 ,但 是 我 们 可 以 址 述 对 其 
本 技 芋 亿 使 这 - -工作 可 以 开始 ,有 关 进 一 步 详 细 讨 论 ,必须 查阅 某 些 专门 化 书籍 (参见 文献 


13. 5.2 玉 FR( 非 递 推 滤波 


当 式 15. 5. 纪 中 分 母 为 单位 1 , 右 端 恰好 是 离散 博 里 叶 变换 .变换 很 容易 表 道 , 限 形 企 鞭 监 讽 散 屯 率 
护 上 上 骂 ( 门 的 少 基 几 个 人 ,能 求 得 周 翌 少 量 儿 公 和 欲求 的 ck 系数 ,然而 ,这 : -事实 并 非 十 分 有 用 ,因为 , 按 这 
种 方法 让 算出 的 ce 值 ,4 人 (门将 在 离散 频率 间 趋 于 剧烈 地 振 葛 ,而 在 这 些 离散 频率 上 取 站 定 们 ， 

一 个 更 好 的 策 路 ,文献 中 几 种 正 志 方 法 的 基础 ,是 六 样 的 :开始 时 ,极力 找到 相对 大 最 滤波 系数 .QI1, 相 
当 大 的 好 值 ,然后 , 束 ( 访 可 以 在 相当 风 的 网 糙 上 加 定 为 所 期 望 的 导 , 并 已 M 个 系数 站 -JWM -1 
可 由 FJ 找到 。 下 一 步 ,将 人 部 分 c 截断 ( 置 为 零 ) , 留 下 非 枯 总 :例如 前 大 个 系数 (ce vc、 1 和 最 后 
所 一 1 个 系数 {ea-r cwi 因为 FEFT 的 环绕 性 质 , 最 后 作 > 歼 几 个 系数 ck 是 负 带 后 的 好 小 系数 , 作 忌 
我 们 并 不 要 负 汪 后 的 系数 ,所 以 我 们 循环 地 们 移 cx 数组 ,以 使 竹 秆 个 系数 部 成 为 止 灌 后 (这 相 立 一 将 时 间 
诸 迟 引入 疙 让 妇 )- 虹 做 到 这 点 ,可 通过 按 以 下 顺序 将 cs 系 教 复制 成 一 组 虹 长 的 新 数组 。 

few Ki 9oca-tcoscl ex- 100 0) 113. 3) 

为 了 观察 所 做 的 截断 是 否 被 接受 ,oj 以 对 式 (13, 5, 3 的 数组 作 FFT, 给 出 原 采 ,tr(.P) 的 近代 值 - 般 情 况 、 
将 模 | 释 ( 思 ,与 原来 的 回 数 作 比 较 , 困 为 时 闻 臣 迟 已 将 复 相位 引入 省 波 响应 中 了 。 

如 果 新 的 站 波 晒 数 是 可 被 琅 受 的 , 则 已 进行 完毕 ,并 且 有 了 :组 2K -1 个 江 站 系 数 : 如 来 它 不 1 
受 , 则 茹 可 以 人 D 增 大 天 青 试 “次 ,又 可 以 《ii 对 同样 的 天 ,进行 一 些 更 仔细 的 工作 以 提高 其 垃 按 受 
个 有 关 更 仔 缁 工作 的 例 了 就 是 修改 信 吕 搂 受 的 .党 (六 的 振幅 (而 栗 怀 相位 ) ,以 个 它 与 厘 想 区 中 些 乒 
进行 FFT 得 到 新 的 cs。 应 次 全 置 零 除 了 前 2 帮 -.1 个 值 ! 丰 需要 循环 位 移 , 因 为 已 保护 子 时 间 延 这 的 庆生 》， 
然后 求 利 变换 以 得 到 新 的 2 fP) , 它 往往 是 可 被 接受 的. 可 以 对 这 过 程 进 行 选 代 , 请 注意 ,如 果 六 接受 尾 的 
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要 求 过 于 苛刻 ,超过 2 天 一 - 个 系数 所 能 操纵 的 范 康 , 则 这 个 过 朱 这 程 不 收益 

换言之 ,关键 思想 是 在 上 ,在 系数 裤 下 与 甫 数 .党 ( 方 空间 晰 坎 人 河 进行 过 代 , 直 刘 找 用 对 考研 1 引 
轩 ;它们 看 虎 宰 间 中 帮 满 足 所 强 吉 的 限制 为 小. 这 种 法 代 的 种 惠 正 规 的 技术 中 Remes 交换 算法 . 旋 鼻 
法 对 具有 固定 个 数 狂 波 系 数 的 折 期 里 的 烙 齐 明 庶 将 严 生 最 伟 的 1 芷 扩 枯 道 泻 (参阅 第 :15 人) 


13.5.3 7TR( 递 推 ) 滤 波 器 


递 准 淖 波 在 某 一 绍 定 的 时 间 上 ,其 输出 茎 取决 二 当前 输入 各 以 前 的 输入 ,也 取决 十 尽 基 的 输 开道 党 
它 比 具有 相同 数量 系数 的 非 递 推 滤波 喝 有 优势 .通过 直 (15, 352) 检验, 至 由 基 丰 常 清楚 的 : 作 溢 上 串 : 六 屋 
有 一 个 与 变量 17z= 成 多 项 式 的 频率 响应 .其 币 


坟 三 人 if 下 下 有 
而 柜 比 较 , 递 推 涉 波 的 闫 率 响 旋 是 变星 17z 的 有 理 函 数 ,而 有 埋 丽 数 对 上 拟 合 具 在 钳 间 贡 瑟 或 歼 窗 桩 得 的 


明教 符 别 良好 ,并 由 天 多 数 期 望 的 沥 波 峭 数 部 让 这 件 炎 型 的 ， 

十 递 推 涉 波 永远 是 稳定 的 ,如 果 将 输入 的 新 享 列 断 斤 ,由 不 地 过 型 步 以 层 , 由 式 和 4 1 二 有 提 
序 殉 也 会 断 并 . 叮 递 推荐 波 ,如 象 他 们 在 进行 葵 出 时 又 反馈 缠 续 己 绪 件 . 不 必须 是 外 定 的 .站 采 系 起 过 秆 
得 很 精 , 则 递 排 滤波 就 可 能 或 指数 增长 的 方式 ， 盾 谢 齐 次 的 ,即使 缚 入 序 细 忆 经 断 开 , 箱 出 床 克 之 杰 得 
很 大 -这 很 不 好 的 。 斯 以 ,设计 闻 推 滤波 的 问题 并 入 仅仅 必 - -个 闻 问 题 , 这 还 是 -个 凡 有 条 泊 得 宁 冉 光 
束 条 件 的 道 打 题 。 

对 -组 给 定 的 cf 和 地 系数 ,如 何 得 知 式 [13. 5. . ) 的 滤波 器 是 党 是 稳定 的 呢 ?稳定 性 仪 及 取 沈 上 4 省 
且 仅 当 特 征 杀 项 式 


xy 一 入， Ci 2 一 小 人 二 
jy 二 1 
的 所 有 六 个 复 根 都 作 单 售 轩 内 时 ,滤波 回 是 稳定 的 , 即 满足 
:>| 之 1 0 


构造 稳定 递 推 滤波 器 的 各 种 方法 形成 了 一 个 学 科 领 域 ,这 需要 更 多 的 专门 书籍 . 然 诺 , 有 个 二 本 布 
用 的 技术 是 双 线 性 变换 方法 ,关于 这 专题, 我们 定 文 一 个 新 变量 x, 它 将 频率 重新 参数 化 





-~ 一 er 贞 是 和 :入 | 
如 三 tan[Lrtra) 一 : ER - 交 1 二 2) (13 .7) 


不 要 被 式 (13.5.7) 中 的 所 若 蝙 ,这 一 等 式 把 实 顾 率 了 映射 成 实 庆 叫 - 事实 1, 它 把 奈 争 斯 特区 间 : 二 
7a<< 二 映射 成 实 世 轴 ”< 关 <m< 十 2: 式 (13.5.7) 的 道 等 式 为 


站 23581 
一 


在 重 参 数 化 了 时 ,当然 zm 电 再 次 参数 化 >, 所 以 ,稳定 的 各 件 (13.5. 5?、(013.5.56) 串 按 庆 重新 挫 述 :如 

果 湖 波 响应 只 ( 门 写成 的 函数 , 则 当 上 首 仅 当 恋 波 玉 数 的 杖 点 (其 分 峡 的 堆 点 ?都 在 上 半 复 平面 
[ma 之 站 本 全 
时 ,滤波 是 稳定 的 ， 

双 线 性 变换 方法 的 思路 是 ,只 需 指 定夺 期 望 的 滤波 函数 的 入 平 方 六 = 站 ( 门 0 
5 万, 来 代替 指定 所 期 望 的 如 (万 : 选 取 由 一 些 w 的 有 理 函 数 台 近 的 函 娄 . 然 后 在 如 复 平 面 上 王 员 这 
个 函数 的 所 有 极点 。 由 于 对 称 性 ,下 半 平 面 的 每 个 极点 都 在 上 半 平 而 上 有 一个 戏 应 的 枢 点 . 共 轩 路 尾 邮 成 
只 以 好 的 极点 一 在 上 半 平 面 的 极点 ”为 四 于 的 鞭 税 .这 个 素 积 就 是 稳定 可 实现 的 . 玉 ( 门 。 现 在 ,人 人 
式 (13. 3.7) 将 画 数 写成 为 > 的 有 理 晃 数 , 并 与 式 (13.5, 2) 比 较 , 访 小 系数 c 和 <。 

通过 下 面 例 题 的 讨论 ,这 一 过 程 会 更 精 楚 .假设 我 们 要 设计 :个 简单 的 带 通 滤波 占 , 其 低 截 止 频 谈 对 
应 于 值 一 < 而 高 截止 频率 对 应 于 w= 沪 值 ， 二 均 为 正 数 ,能 够 完成 这 要 求 的 -个 简单 在 理 函 数 是 

“476。 


本 下 -5 | 1 | 站 

这 个 函数 并 没有 非常 突变 的 埠 小 ,但 它 关 时 更 普通 区 情况 .为 得 到 唱 陡 峭 的 记 洗 ,人 们 可 以 慨 果 教 ，.… 

5 10) 为 某 个 正 数 家 次 ,或 等 价 他 ,通过 从 式 (13. 3.14: 中 香皂 的 滤波 吕 的 某 些 复制 ,来 连续 部 过 行 数 黄 . 
式 413. 5, 10) 的 枯 点 明 手 地 者 作品 一 二 入 和 了 双 一 六 上 -所 以 隐 定 可 亡 时 的 , 芋 ( 六 是 


有 Ra 
EEC) = 六 1[ 一 宇 -] 一 =:- [2 二 
: 人 | 一 沁 ， 人 外 全 二 二 4] 和 
Li 二 LT-> 


我 们 把 : 放 入 第 二 个 因 式 的 分 子 中 ,为 的 是 能 竺 到 实 值 的 条 效 ,加 果 我 们 将 分 母 乘 出 来 ,成 1 11 和 配 
成 形式 为 

















6 时 
区 人 iT 二 丽人 十 0 一 的 2 
放 () 1 一 开 二 人- ao 02 一人 想 ea 
CT 二 GTL 一 他 十 
让 此 ,人 们 可 以 读 出 式 人 13.5.131 的 泪 波 系数 
太 
0 
宝宝 
辐 sa 好 
十 oo 十 二 | 
站 十 四 引 一 有 -0 的 人 十 六 
0L 一 afl 十 六 
一 企 一 轨 人 1 一 各 
en 


(1 一 人 1 上 丰 ) 
这 就 完成 了 带 通 滤波 器 的 设计 。 

有 时 ,设计 者 能 够 想 出 怎 拌 对 -六 ( 方 直接 构造 关于 ww 的 有 更 函 数 , 那 就 不 必 有 做 从 它 的 德 半 广 汗 始 进 
行 设计 .但 为 了 稳定 性 ,构造 的 另 数 只 能 在 上 于 平面 上 设 有 航 点 . 若 用 一 zw 代替 ze, 列 函数 还 应 流 基 有 变 成 
其 自身 复 苍 的 特性 ,所 以 涉 波 系数 将 是 实 型 的 。 

例 站 ,下面 是 本 形 滤波 函数 , 它 被 设计 成 及 仅 去 掉 暑 绕 某 个 可靠 顿 率 ww 一 tx 的 罕 颊 率 带 ,长 中 心 基 个 
正 数 ， 


- 亦 ( 六 -| 
,化 一 


2 
fa 一 FE 


在 式 (13.5. 14) 中 ,参数 e 是 一 个 小 正 数 ,是 檀 口 的 期 户 党 度 ,通过 用 = 代 符 邮 的 算术 运算 :给 出 滤波 系数 
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图 13. 5, 1 显示 了 对 * 鸟 唉 " 输 入 信号 使 用 式 (13.5. 15) 形 式 的 涉 波 后 昕 得 出 的 结果 .这 种 信号 的 频率 向 上 渐 
变 ，…- 直 器 过 搞 口 频率 。 
双 线 性 变换 虽然 看 起 来 可 能 很 一 般 , 伍 它 的 应 用 由 形成 丐 波 的 菜 些 特征 所 限制 .这 种 方法 扫 长 于 得 到 
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心 = 一 


所 期 望 的 滤波 器 的 普通 形式 ,适用 于 "平坦 ”的 目标 处 :然而 , 冯 动 地 之 问 的 站 线性 映射 ,使 得 设计 所 期 望 的 
截止 形状 变 得 用 难 了 ,并 且 可 能 把 截止 频率 (用 定量 的 db 定义 ) 移 离 它 全 的 期 望 位 置 。 因 而 ,数字 滤波 器 能 
设计 者 们 将 双 线 人 性 变换 全 用 于 特殊 的 场 台 ,并 总 给 亡 们 本 身 配 备 大 草 的 其 它 方法 .我 们 建议 这 者 撤 设 计 卢 
案 的 要 求 同 栏 米 做 - 遍 . 


(a) 


{b) 
(9 一 个 " 岛 鸣 " 舍 号 , 即 频率 随时 间 和 连续 地 增长 -(b) 通 泪 情形 语 波 奖 (13.5.15) 后 的 同一 仿 苇 . 比 处 参数 E 旷 2 
图 13.5,1 
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13.6 ”线性 预测 和 线性 预测 编码 


我 们 从 一 个 非常 一 般 的 公式 出 发 , 它 能 使 我 们 与 各 种 特殊 情况 联系 起 来 . 设 {3*} 是 变 基 
y 的 一 组 测量 数据 ,?y 的 真实 值 表 示 为 :ye), 测 基 值 和 真实 值 之 间 有 如 下 关系 
Wo 寺 《13, 6,，|) 
《和 等 式 (13. 3. 2) 相 比 , 可 以 看 出 符号 上 的 一 些 差别 ) .我们 采用 希腊 字 址 作为 数 撕 组 的 下 
"478 。 


标 : 是 为 了 表 咀 数据 点 不 是 在 一 条 扯 线 上 均匀 人 苍 布 或 顺 亭 排列 的 :例如 ,它们 可 避 呈 三维 空 
闻 中 ?随机 ?分 布 的 点 :现在 ,假设 我 们 要 村 -- 些 特殊 的 点 y. 的 真实 值 进行 昌 侍 入 让 .是 
己 知 的 带 有 噪声 的 数据 点 的 线性 组 合 , 即 

3 一 六 过 3 十 上 113.1. 2) 


我 们 要 找 出 函数 4.。… 以 使 差 值 xz. 最 小 .系数 双 . ,有 一 个 星 号 下 标 是 为 了 表明 它 庆 炉 于 
点 的 选择 .后 面 ,我 们 串 能 还 要 设 * ,做 为 ye 的 个 存在 值 . 在 那 种 情况 下 ,我 们 的 问题 长 为 
一 个 最 佳 滤 疲 或 估计 ,和 第 13, 3 节 中 讨论 的 非 汉 类似 , 谭 另 一 方面 ,我 们 可 能 希望 "成 为 全 
新 的 点 ,在 这 种 情况 下， 我 们 的 癌 题 是 一 个 线性 项 测 的 问题 。 
为 使 差 值 <. 最 小 :我们 门 然 从 统计 均 方 半 考 虑 .如 果 用 尖 括 号 代 表 统 计 均 六 划 , 岂 我 们 
所 求 的 d ,。 值 有 使 下 起 达到 最 小 的 倘 : 
《xzr2 》 | 这 Ce 十 
了 
一 之 ， (CE 十 《aase 厅 - 一 2 人 《33oydo 十 人》 


其 中 ,我 们 已 经 使 用 了 嵌 声 和 信号 不 相关 这 个 要 实 , 即 w 2) 二 0. 量 (yo 和 (yy ) 措 呈 了 
基本 数据 的 自 相关 结构 。 在 式 (13. 2. 2; 中 对 于 一 条 直线 上 均匀 分 布 的 点 ,我 们 已 经 在 到 了 类 
似 的 表达 式 。 

在 第 14 章 和 第 15 齐 我 们 还 会 几 次 遇 到 六 计 意义 上 的 相关 性 , 基 4zu zs; 描写 了 淋 市 的 自 
相关 忧 质 ,通常 对 于 点 与 点 之 不 相关 的 噪声 ,存在 关系 式 4nu mp) = 《 民 ;0ss 于 是 我 们 可 以 方 
便 地 得 到 组 成 矩阵 和 向 芝 的 各 种 相关 量 。 


rp 《op 邓 .。 开 (yo) ?op =《0m。 72 或 43>0。s 区 
将 式 (13. 6. 3 对 df. ,微分 并 令 其 为 0 ,得 到 线性 方程 组 ， 
人 ,8 十 了 ds 一 9 713.6. 51 
如 杂 我 们 采用 关 和 氨 阵 的 形式 . 慰 么 在 忽略 最 小 凑 值 <. 叶 估计 式 (13. 6. 2) 写成 为 ， 
38 人 3.R. 61 
从 式 (13, 6. 3 和 (13.f.5) 我 们 还 Ma .的 最 小 均 方 值 , 记 为 2 》: 
(一 疡 [ge 十 go] 天 和 帮 鸭 
司 
最 后 ,我们 看 一 个 - 般 的 缚 果 , 它 告诉 我 们 如 果 在 式 (13. 6 ?3? 中 不 用 最 佳 赴 5. ， 布 漂 
一 些 别 的 信 < 看 多 卢 差 值 4d .将 增加 和 多少: 上 面 的 等 式 隐 含 普 ， 
人 《TD 413.6.81 


二 
因为 第 二 项 是 一 个 四 次 式 ,所 以 我 们 可 以 看 到 差 值 的 增加 仅仅 是 估计 世 .s 值 时 产生 的 误 关 
的 二 次 式 。 


13. 6.1 和 最 佳 滤波 的 联系 


如 果 我 们 将 " 尾 号 " 变 为 希腊 下 标 , 比 如 y, 则 上 面 的 等 式 锚 述 的 止 是 最 佳 滤波 , 它 比 第 
13. 3 节 中 讨论 的 更 为 普 忆 。 例 如 ,如 果 噪 才 邓 的 幅度 变 为 零 ,那么 噪声 自 柏 关 六 ,也 将 变 为 
索 , 气 阵 和 它 的 道 矩 阵 相 乘 将 互相 抵消 ,于 是 ,上 式 (13.6.6) 就 简化 感 为 罗 一 必 : 还 有 :种 特 


“1479 ， 


殊 情 况 是 ,矩阵 六 8 和 ?8 是 对 角 振 阵 ,在 这 种 情况 下 ,方程 (13.6.6) 成 为 : 


了 
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香 [ 等 式 (13. 3 6) 相 比较 可 以 看 出 ,一 Pr 一 ?rr 实际 情况 姨 : 对 于 约 写 问 了 一 获 据 点 和 涯 情 
况 ,在 傅 里 叶 变 换 域 中 , 自 相 关 就 很 简单 地 成 为 傅 里 叶 振 幅 的 壮 方 (Wiener 一 Khimechin 定 
理 , 见 等 式 (12. 0. 12)) ,最 佳 痉 波 可 以 从 式 513. 6. 9 构造 ,而 不 需要 对 怎 阵 求 道 。 
更 一 般 的 情况 ,在 时 域 或 其 它 域 和 ,最 传 涉 波 (在 测 其 噪声 存在 时 ,从 基本 的 真实 值 中 求 
养 值 平方 极 小 化 ) 可 以 通过 估计 自 帽 关 和 矩阵 Js 和 7w 以 及 运用 式 (13. 6. 6)( 将 * 一 ?) 来 构 
造 。( 事 实 上 , 式 (13. 6. 8) 是 第 13. 3 节 中 叙述 情况 的 基础 ,在 那 时 即使 是 粗糙 的 最 佳 滤波 也 能 
十 分 有 效 。) 


13.6.2 线性 预测 


经 典 的 线性 顶 测 讨论 的 是 一 种 特殊 情况 , 即 数据 点 y， 在 -条 线 上 等 间 耻 分 布 wGi 一 1， 
2,.， N) ,并 且 我 们 要 求 用 M 个 过 续 点 % 来 预测 第 W 十 :点 .我 们 假设 其 是 半 陷 的 : 即 
《%%》 的 自 相关 取决 于 差 值 | 一 丰 | ,而 不 单独 地 依 袁 于 了 和 ,因此 自 相 关 ?只 有 - .个 下 标 : 


人 
二 ] 、 
乡 / 305 Eve 六 SS 7 全 区 一? 《13。 -人 )》 


其 中 近似 等 式 说 明了 如 何 用 实际 的 数据 组 来 估计 自 相关 分 量 (实际 上 ,还 有 一 个 更 好 的 方法 
进行 这 种 估计 ,参看 下 式 ) .在 我 们 所 描述 的 情况 下 , 式 (13. 6. 2 的 估计 式 是 


3 一 >， 本 32r 《13. 后. .1 
(和 式 (13.5.1) 相 比 ) 等 式 (13.6.5) 成 为 含 对 个 来 知 数 必 的 邓 个 方程 的 方程 组 ,of 称 为 线 
性 预测 系数 (7.P 系数) 


M 
9 人 一 9 ( 吧 一 1 .47) 《13.6. 人 ) 
jj 一 1 


注意 ,尽管 噪声 没有 明显 地 包含 在 上 面 的 等 式 中 ,但 如 果 点 与 点 不 相关 , 它 还 是 被 正确 地 考 
上 处 进 去 了 :根据 式 (13. 6. 10? 用 测量 值 yw 估计 的 tr， 实际 估计 了 上 面 的 对 和 部 分 gr 十 ?ww' 恨 
据 等 式 (13. 6.7? 可 以 估计 均 方 差 值 (zr3》 为 ， 
人 《13.6, 13) 

为 了 运用 线性 颈 测 ,我们 首先 利用 式 (13. 6. 10) 积 (13. 6. 12) 计 算 乙 , 接 着 计算 等 式 
《13. 6. 13) 。 瞪 说 米 , 就 是 将 式 (13, 5, 11) 用 于 已 知 的 记录 数据 中 而 求 得 差 值 zx 有 多 大 .如 
果 差 值 小 , 则 我 们 继续 应 用 等 式 (13. 6. 11) 进 行 下 一 步 的 运算 ,估计 下 一 步 的 差 值 x, ,直到 
差 值 为 0。 企 这 种 运用 情况 下 , 式 (13, 6. 11) 是 一 种 外 推 表达 式 , 在 很 多 情况 下 ,可 以 发 现 这 种 
外 推 比 任 何 一 种 简单 的 多 项 式 外 推 更 加 强 有 力 ,顺便 提 -- 句 ,请 不 要 混淆 了 “线性 预测 ”和 
“线性 外 推 * 这 两 人 概念 :线性 预测 的 一 般 函 数 表 达 式 比 自 线 甚至 低 阶 的 多 项 式 复 杂 得 多 .) 

但 是 ,为 了 充分 利用 线性 预测 ,必须 注意 它 所 限制 的 ~ 一面: 我们 必须 进行 额外 的 测量 以 
保证 它 的 稳定 性 .等 式 (13. 6. 11) 是 一 般 的 线性 滤波 式 (13. 5.1) 的 特殊 情况 ,等 式 (13. 5. 11) 
作为 线性 预测 器 能 够 稳定 的 条 件 已 精确 地 由 等 式 (13,. 5.5) 和 (13. 5.6) 形 达 了 ,也 就 是 特征 
多项式 ， 

.480 。 


人 《3143 


它 使 w 个 要 都 落 在 单 所 圆 内: 即 
lz <] 人 3 

我 们 趟 能 保证 出 等 式 (13.6. 12) 谤 定 的 系数 有 这 种 性 质 .如 果 数 据点 包含 诗 多 根 荡 ,而 这 些 
振荡 没有 任何 振幅 增加 或 减少 的 特定 趋势 , 则 式 (13. 6. 14) 中欧 复 根 将 都 和 单位 融 系 得 殷 
过. 数据 组 的 有 限 长 兰 也 将 使 一 些 根 在 单位 圆 内 ,而 另 : 些 根 在 单位 圆 外 .在 某 些 点 用 中 . 结 
果 的 天 名 定 性 是 缓慢 上 升 的 ,并 且 钱 性 预测 不 会 这 离 得 太 远 ,因此 最 好 直接 用 从 式 (13. 6. 
[2) 导 出 的 “没有 列 下 ”过 的 线性 预测 系数 .例如 ,如 果 可 以 将 一 组 数据 外 推 一 小 步 ; 那 么 可 以 
愉 数 据 出 必 接 此 步 入 分 肛 辣 前 和 晤 后 外 推 .如果 两 个 外 推 符合 坦 非 常 好 ,出 不 稳定 性 便 不 是 
一 个 问题 。 

当 不 稳定 性 成 为 问题 后 ,就 必须 对 线性 预测 系数 进行 “加 工 处 理 ”,. 可 以 按 如 下 步骤 进 
行 :(i) 解 等 式 (13. 6. 14) 得 到 N 个 复 根 ( 用 数字 解法 )5Gii) 将 根 移 到 认为 应 该 是 在 单位 圆 内 
或 在 单位 圆 上 的 地 方 ;(ii) 重 新 构 闭 击 在 已 经 修正 过 的 LP 系数 .读者 可 能 会 认为 第 (1i) 步 
有 -点 含糊 .确实 如 此 .没有 更 好 的 过 程 了 .如 果 认 为 信号 确实 是 一 纽 不 喜 减 的 正 防 和 余弦 
波 之 和 (可 能 其 有 不 相称 的 周期 ) ,那么 只 需 简 单 地 将 每 个 根 * 移 到 单位 圆 上 ， 


人 《13. 5.16) 
在 另 钦 的 情况 下 ,将 一 些 比较 糟 料 的 根 映 射 到 圆 几 可 能 比较 合适 
zi lz (13. 17) 


这 种 选择 的 蔡 换 方法 有 一 个 性 质 . 即 当 式 513.6, 11) 输 出 的 振幅 由 一 组 z. 的 正弦 曲线 驱动 
时 ,其 振幅 维持 不 灾 。. 这 里 我 们 假设 式 (13. 6. 12) 能 够 正确 好 鉴 别 共 振 的 谱 宽度 ,但 是 仅 玻 忽 
了 鉴别 它 的 时 间 含 意 , 以 使 应 随时 间 误 减 的 信号 技 振 幅 增长 而 结束 .对 式 (13, 6. 157 和 (13- 
6. 17) 的 选择 有 点 随意 性 ,但 我 们 倾 癌 于 式 (13.6, 17)、 

还 有 一 个 问题 是 对 的 选择 ,即使 月 的 线性 预测 系数 ,应 该 根据 工作 规模 选择 必 心 可 能 
小 ,也 就 是 说 ,必须 由 实验 来 确定 所 选择 的 数据 点 .可 以 试 取 于 一 5,10,20,40. 如 果 需 要 的 
M 比 这 个 值 更 大 ,要 注意 那些 复 恨 的 "处 理 ? 过 程 对 于 舍 人 误差 非常 敏感 ,所 以 请 玉 有 妈 精 
度 。 

线性 预测 对 于 光滑 和 振 蓝 信号 的 外 推 特 别 有 用 , 尽 管 不 要 求 信号 是 周期 性 的 .在 这 种 情 
况 下 ,通过 信号 的 很 多 次 循环 线性 预测 通常 外 推 得 非常 精确 . 相 比 之 下 ,多项式 外 推 “和 股 在 
经 过 一 两 次 循环 之 后 就 变 得 很 不 精确 .可 以 成 功 地 进行 线性 预测 的 信号 原型 事 齐 是 ,海洋 潮 
泡 的 高 度 , 对 于 此 信号 ,基本 的 12 小 时 周期 信号 的 相位 和 振幅 随 着 年 月 进行 调整 ,当地 的 
水 压 效应 会 使 一 个 周期 的 曲线 的 形状 和 正 尽 波 相 当 不 同 。 

我 们 已 经 注意 到 ,从 数据 集 来 估算 协 方差 wk ,等 式 (13, 6. 10) 并 不 是 最 好 途径 .实际 上 ， 
线性 项 测 所 得 结果 对 内 值 估计 的 精确 程度 非常 敏感 .有 -~ 个 特别 好 的 方法 ,此 方法 应 归功 
于 伯 格 (Hurg)5, 它 是 一 个 选 代 过 程 , 每 次 移 代 的 阶 数 加 1 ,在 每 一 步 迷 代 中 重新 估计 系 
数 iiG=1，…… 34) 以 便 使 式 (13. 6. 13? 中 的 残 差 尽 可 小 的 .尽管 伯 格 方法 的 进 -- 于 讨论 超 
出 了 我 们 的 范围 ,但 下 面 的 程序 ”给 出 了 从 一 组 数据 估计 线性 预测 系数 di; 的 方法 
刁 include 天 math, by 
共 include“ntutil, hy 


. 48] ， 


void memcof(float dats[ 、int ny int Di foat * xrtsy floatd[ 3) 

已 知 实 型 向 是 data[1. .nm- 和 mi 此 程 岸 返 后 mm 个 线性 磊 测 系数 为 di, -t], 同 对 均 许 益 值 以 xmx 返回 。 
[ 

inr Ki 

站 car 上 一 人 站 权 kL，x wk2，v wkm 


wkl 一 vectorf1yn]; 

wk2 一 vectortlr)s 

wktm 一 vectorflyrmy: 

for 一 1js 一 na: 十 十 ) PP 十 二 SQRGCdatal jy) 

# XI 一 bl 

wk1[1] 一 data[12; 

wk2[fna-…1l-=-data[n 

lor 全 一 2 过 = 王 nm 一 1 一 1) 
wk1[ji] 一 data_j 
wk2[j 一 1]=dara[ 门 ; 


[or 《〈k 一 15k< 过 一 mm 外 十 十 ) 
抽 oar num 一 0.0vdenom=:0.0 
fcr 0 一 15i 之 - 《Cn 一 k) 和 十 一 ) 
oum 一 一 wkl[i -ywk2: 1 
denom 一 一 SQRCwkl 站 HSQRCwk2[ 了 ) 
! 
d[k]=2.0xnumydenuom; 
*x XTS xx 一 【0 一 SQRTCdEk >， 
tor《【《i 一 15< -人 fk Li 十 十 》 
由 中 -wkm5 一 dk wkrmfk 一 站 ;法 种 算法 是 达 代 的 . 随 :: 值 越 来 起 大 计算 法 民 的 站 
肥 丝 所 要 求 的 侦 : 在 此 全 法 让 此 外 程序 才 辐 向 季 < 
xms* 记 信 邱 由 k 项 [人 和 是 惠 项 ) 给 大 的 -组 L.P 





让 (三 = mm 1 
3ree -vectorftwkmy] my) 
:ree. vectof fwk2.1n); 
free_ vector(wkl,1,n); 
Terufni 
Ior (=1Hic<=kii 十 一 ) whmii 一 di]; 
for (1 二 一 (rn 一 k 一 1):1 71 
wklij] 一 一 wktfk]* wk20j]， 
wk2[ 和 一 wk2[Dj 一 1 一 wkmk]a wkl0j 一 上; 


nrerrofhever get here it rrerneof w+ 
名 


下 而 是 使 1.P 系数 变 得 稳定 的 过 程 (如 果 需 要 这 样 敏 的话 ), 用 原始 的 或 加 工 过 的 LP 系 


数 对 一 纠 数据 进行 线性 预测 .程序 zroets( 第 9. 5 节 ) 用 来 求 一 个 多 项 式 的 所 有 复 根 。 


站 inelude <inafh.h > 

艺 Incjuxie ”cornplex。hy 

卫 define NMAX 108 后 为 最 人 河 能 入 
其 由 [ne ZERG Cormplex6n. On, D) 

区 defmne (JR Complexfl ut:001 


vecid fxrtsfilpat df] ,int my) 


对 干 给 定 的 LT 系数 小 1 .m], 此 程 岸 挝 与 笑 征 多 项 式 513, 5.14) 的 刀 有 根 ,将 单位 加 外 的 根 映 射 到 单位 圆 虑 着 


返 句 处 理 过 约 修 正和 数 dfT. .m] 


Fiod zrootsfJeomplex 4a，，int 下 ， 拒 omplex ruots int botish ) 


“382 


inT iv,peiishb; 
fcemplex aLNMAX_ rootsLNMAX_; 


aLm]= 王 人 ONEFI 
[or 上 一 冲 一 13 人 > 一 疏 一 一 ) 
a[j] 一 Complex( dm--i 0.0)i 汉 首 折 求 由 的 多 项 式 系数 为 复数 侦 
pojish 一 1 
zrgoots(a mrootsypolish)i 求 冲 不 帮 的 根 
for (0j 一 1 过 一 mi 十 十 ) 洁 投 单 傍 吏 外 的 概 并 妊 它 嘱 射 到 天 辐 


让 (Cabsfroots[Lj) >> 1.0 四 
roots j 一 CdivIDONE ,Conjg(Croors _j_ 7 


a[0] 一 Csub(ZERO ,roaors[ 2 ])+ 新 双 记 多 项 式 愁 数 
a[I]=ONE， 
for 人 j 一 2jj< 民 一 阅 十 十 ) ! 通过 好 想 循 环 椒 乡 合 蒋 法 重 
a_ j 一 DNE， 
fotr [ii 汪 ji> 一 2 一 一 ) 


a[i 一 1] 一 Csubfa[i 一 纠 ,Cmulfreots[j],aLi 一 1 3; 
DCsub(ZERGCrmultroots ja 0 


for 和 = 0 一 详 一 190 一 一 ) 多 项 式 匆 系 狐 共 实 数 折 飞 我 们 
d[m 一 PP 一 -a- 门 .ri 只 震 退 回 详 亏 伏 为 新 的 1.P 系数 


ipclude "nzrutil, hv 


void predictiloat data[]j，int ndata, float d[]，inpt mv float future[ ，int nfut) 
已 知 歼 据 data[1. . 叫 zta] 积 数据 的 LP 系数 UL. .on], 此 程序 运用 等 式 (13. 6. 11) 顶 现 后 面 urut 个 数据 点 .六 此 数据 


是 以 数组 hurure[1..nfur] 返 回 -注意 程序 只 用 data 数组 最 后 王 个 数据 点 作为 两 测 的 初始 驳 考 值 。 


int 人 ,ji; 
iloat sdum vdiscrfP，*# reBEs 


incjuqe ”mur-id, h? 


void predic (tloat data[_，inr ndaty, float d[ int m，foatc [urute[]，inht hfut》 


reg 一 Vectorglv>ra) 
for (jj 一 15j< 雪 一 mij，，)y treg[i 门 一 datas[ndata-+1 ji 
for (=]9j<=nfutij 十 ) 
discrhb 一 0.0) 如 果 是 通过 线性 预测 竹 育 重新 构造 一 个 上 数 而 不 是 通过 线 首 陆 旬 
外 的 一 个 函 青 ,那么 在 此 应 该 壮 入 已 知 的 黄 值 
sutn 一 discrp 
for (k=1ik< 一 mi 十 十 ) sum 一 一 QLk]yrreg[k 3 
for (kk 一 mik>> 一 24K 一 一 ) reg[kk] 一 reg[ 帮 -1 [ 背 要 材 行 狂 环 数组 
future[ 订 一 reg[]] 一 suml 豆 以 人 去 系数 的 移 位 ， 


第 


『 
free_vectorKreg yyrm)3 


13. 6. 3 除 掉 线性 预测 的 偏差 


大 们 可 能 会 期 望 等 式 (13. 8. 11? 中 d 之 和 (或 者 揭 普 遍 一 些 , 在 式 !13. 6. 2 中 ) 应 该 是 
1 以 便 使 对 所 有 的 数据 点 % 增加 一 个 常数 后 所 产生 的 预测 也 增加 -一 个 相同 的 常数 ,但 是 忆 
之 和 并 不 是 1 ,通常 化 1 稍 小 .这 个 事实 揭示 了 非常 微妙 的 一 点 , 那 就 是 经 典 的 线性 预测 不 
是 无 偏 的 ,尽管 它 使 均 方差 值 最 小 。 在 被 测 的 自 相 关 不 旦 较 佳 估计 值 的 地 方 , 线 忻 预测 方程 
组 倾向 于 预测 热 向 零 的 值 。 
,183 。 


有 时 , 滥 正 蛙 人 们 所 而 的 ,如 果 产 生 扩 的 运程 确实 有 零 焉 均值 , 则 在 缺少 其 它 个 站 
况 下 ,和 直 将 是 最 佳 估 值 .然而 ,在 别 的 情况 下 .这 足 没 有 根据 的 . 刻 采 数据 显示 出 围绕 其 二 依 
有 微小 的 变化 , 便 不 吾 要 趋 癌 索 的 线性 预测 ， 

遥 常 还 有 “个 非常 有 效 的 近似 , 那 就 是 从 数据 组 中 减 上 大 平均 值 , 再 进行 虐 全 预测 . 赦 寿 
再 把 平均 值 如 上 .这 一 过 程 包含 了 正确 答案 的 丽 工 .但 简单 的 算术 半 均 值 并 不 是 要 减 天 入 中 
确 的 常数 .实际 上 ,无 偏 佑 计 式 是 通过 对 各 点 减 去 月 下 式 定 义 的 月 相关 加 权 平 均值 耳 二 到 
的 225 
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通过 这 种 减法 后 ,IL.P 系数 之 和 应 该 是 单位 苦 . 不 论 交 是 怎 样 估计 ， 它 痢 符合 舍 入 误 莽 由 攻 
值 。 


13.6.4 线性 预测 编码 (LbPC ) 


一 个 不 同 的 ,但 是 有 关联 的 方法 , 即 应 用 上 面 的 等 式 对 采样 合 与 进行 “ 注 缩 ”, 以 使 使 储 
号 更 紧凑 地 情 存 起 来 .原始 的 信号 又 应 该 能 从 正 缩 形 式 中 精确 由 恢复 出 来 .显然 , 仅 妆 倍 
号 有 宛 祭 谋 时 压缩 才能 实现 .等 式 (13.6. 11) 描 述 了 一 种 已 余 度 : 它 说 明 除 了 -点 小 的 坑 差 
外 :一 个 信号 可 以 从 它 前 面 的 值 以 及 公 址 的 LP 系数 顶 测 出 来 。 困 此 利用 蕊 (13. 6. 11 过 行 
信号 的 正 缩 称 为 线性 预测 编码 :或 LPC。 

LPC 最 基本 的 思想 (用 最 简单 的 形式 ) 是 沁 录 下 述 数 据 作 为 -- 个 压缩 的 文件 :60LEPC 
系数 的 数目 Mi3Gii 由 子 程序 memeof 得 到 的 4 个 值 :ii 开始 的 邮 个 数据 点 以 及 (iv ) 必 司 
每 个 点 只 要 求 它 的 残 差 必 ( 等 式 (15.6. 1)) .阁下 在 生成 未 稼 文件 时 .运用 等 式 人 13.5 1 
前 面 的 对 个 点 ,并 从 当前 点 的 实际 值 减 去 利 式 而 求 得 残 差 . 当 重新 恢复 原文 件 财 ,将 号 益 任 
如 型 程序 predic 所 灵 示 的 各 点 上 。 

可 能 读者 还 不 是 很 明白 为 什么 要 用 这 种 方法 进行 数据 压缩 .对 每 个 数据 点 我 们 十 存储 
残 差 值 ! 为 什么 不 存储 原始 数据 值 呢 ?答案 取决 于 我 们 所 涉及 的 数目 的 相对 大 小 . 残 基 十 通 
过 两 个 非常 相近 的 数 (数据 和 线性 预测 值 ) 相 减 而 得 到 的 ,因此 ,通常 差 值 的 非 零 比特 位 葡 日 
非常 小 这样, 这 些 数据 就 能 存 鳍 在 一 个 被 压缩 的 文件 中 .那么 ,怎样 用 高 级 请 言 做 到 这 些 
呢 ? 下 面 是 -- 种 方法 ;改变 数据 的 尺寸 ,使 它们 成 为 整数 值 , 比 如 在 十 1000000 和 一 1000000 
忆 间 (要 设 需要 六 位 有 效 数 字 ) 调整 等 式 (13, 6. 1) ,使 之 包含 上 而 “整数 部 分 ” 媒 作 的 趟 :更 
企 通过 定义 , 差 值 将 是 整数 值 .对 不 同 的 M 值 实验 ,寻找 LP 系数 使 差 值 尽 可 能 小 ,小 省 允 
许 的 程度 .如 果 能 达到 上 127 的 范围 (在 我 们 的 实验 刷 , 这 一 点 并 示 难 ) ,那么 ,就 本 以 在 文 
件 中 十 一 个 字 节 将 差 值 写 下 来 .和 原来 数据 用 4 个 字 节 的 整数 和 泽 点 数 相 比 , 该 压 纱 朵 地 
为 4。 

注意 LP 系数 是 用 量化 的 数据 计算 的 , 差 值 也 是 量化 了 的 ,也 就 是 说 ,在 JPC 循环 履 由 
外 都 是 量化 的 数值 .如 果 仔 细 地 按 上 面 的 消 又 进行 , 班 么 除了 最 初 对 数据 量化 外 ,在 上 帝 重 
建 过 程 中 不 会 引入 任何 ,哪怕 是 单个 比特 位 的 舍 入 混 差 . 尽 管 在 对 式 (13. 6.11) 求 和 时 会 引 
入 舍 人 误差 ,但 所 存 情 的 残 差 在 加 回 求 和 式 时 ,给 出 了 精确 的 原始 (量化 ) 数 据 值 .还 请 注意 ， 
不 必 为 了 稳定 性 对 LP 系数 进行 加 下 处 理 : 通 过 对 各 个 点 加 上 残 差 ,将 永远 不 会 储 离 诛 始 数 
掀 , 所 以 不 会 增加 不 稳定 性 .因此 ,没有 必要 象 上 面 那样 运行 程序 fixrts。 

"4184 。 


在 第 20. 4 节 书 将 学 习 置 夫 受 (Hufphman) 编 码 , 该 方法 将 利用 小 的 差 代 出 现 频 率 大 上 大 
的 差 值 出 丝 问 率 这 一 事实 ,进一步 压缩 上 践 差 , 最 初 的 乍 夫 蛇 编码 采用 下 别 形 式 , 妇 果 大 范 数 
的 差 值 在 土 127 的 范 锣 内 ,只 大 偶尔 - 两 个 差 值 超出 这 范围 ,那么 出 数据 值 127 表示 为 “ 超 
出 范围 ”接着 对 趣 出 范围 的 差 值 之 全 下 值 记 录 于 文件 书 ( 紧 随 127 之 后 )。 第 20. 4 节 将 解释 
怎样 能 做 得 更 好 。 
有 许多 不 同 的 处 理 这 程 孝 属于 LPC 的 范畴 。 
“ 如果 数 据 的 特征 是 时 间 的 变量 , 则 最 好 不 可 用 束 组 数据 来 求 -组 LP 系数 ,只 是 将 数 
据 分 成 儿 段 ,对 每 一 段 分 别 计算 和 存 鱼 和 不同 的 LbP 系数 。 
:如果 数据 确 能 用 它们 的 LP 系数 很 好 地 表征 的 话 ,而 且 又 能 够 容 恕 小 贡 的 误 益 , 则 不 
必 有 烦 去 存储 所 有 的 减 差 。 可 以 直接 进行 线性 预测 直 提 误差 超出 容 差 限 的 范围 ,然后 
再 重新 初始 化 (有 好 个 顺序 存储 的 残 莽 ) ,并 继续 预测 。 
“在 某 些 应 用 情况 下 ,最 明显 的 应 用 是 语言 合成 ,人 们 关心 的 促 人 训 是 重建 信和 届 的 溢 幅 
度 , 调 不 是 相对 相 休 ,在 这 种 情况 下 ,人 们 不 需 蓝 存储 任何 初始 数据 ,仅仅 是 各 个 数 撕 
段 的 LP 系数 条 出 的 重建 是 通过 这 些 系数 和 所 有 数据 都 为 0 的 初始 条 件 来 完成 的 ， 
除了 一 个 非 零 的 尖峰 外 。 ` 个 语言 合成 芯片 可 有 多 达 in 阶 的 LP 系数 . 它 督 秒 可 能 
变化 20 到 50 次 。 
“ 有 些 人 相信 即使 残 养 zx 不 是 很 小 ,用 LPC 分 析 信号 也 非常 有 趣 ,此 时 > 被 解释 为 基 
本 的 “和 输入 信号 ”, 当 通过 由 LP 系数 定义 的 多 极点 滤波 器 恋 波 后 , 它 成 为 被 观察 的 
“输出 信号 ”。 据 说 ,LPC 同时 揭示 了 滤波 器 的 本 质 以 及 驱动 它 的 特定 输入 信号 的 性 
质 .我 们 对 这 种 应 用 袁 示 怀疑 ,这 种 文献 过 十 夸张 了 。 
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13.7 用 最 大 类 ( 全 极 ) 方 法 的 功率 谱 估 计 


FFT 并 不 是 “个 过 程 的 功 闷 谱 估 计 的 唯一 途径 ,也 不 -: 定 是 达到 月 药 最 好 的 方法 。 为 了 弄 清 怎样 构想 
另外 一 种 方法 ,我 们 首先 扩大 一 下 规 野 , 使 之 不 仅仅 包括 泰达 斯 特 (Nyaust) 区 间 一 记 二 /< 六 内 的 实数 频 
率 : 而 且 包括 明 个 复 频率 平面 .从 这 一 角度 出 发 ,让 我 们 通过 下 式 将 复 了 上 平面 变换 一 个 新 的 平面 , 称 为 z 变 
换 平 面 或 z 平面 

z 本 ere 人 和 (13.7,.1)? 
其 中 心 和 通 党 情况 一 样 , 尾 时 域 的 取 洋 间隔 ,注意 了 平面 上 实 轴 奈 夺 斯 特区 间 和 复 = 平 而 上 的 单位 圆 有 - 
一 对 应 关系 。 
如 黑 我 们 将 上 (13.7.137 全 513.4,. 二 和 (3.4 6) 比 较 , 则 可 以 看 出 ,在 不 考 患 归 -化 条 件 呆 ,对 繁 坷 实 
,485 。 
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当然 式 (13.7.2) 不 二 基本 岳 数 “的 真正 功率 谱 , 谋 仅 双 评 个 估计 。 从 下面 晨 个 有 关 方 面 可 以 者 出 册 什 么 
这 个 估计 值 不 是 精确 的 .首先 在 时 域 里 , 情 计 算 仅 低 是 以 商 数 co 在 限 的 一 - 段 为 基础 ,而 实际 上 我 们 郑 道 < 
(有 上 一 一 2 到 se 是 连续 的 . 眠 次 ,在 式 (134.7.20) 的 :可 电 中 ,通常 情况 ,有 限 的 洛 伦 竺 (Laarent 级 数 公 终 
对 >* 的 - ' 般 解析 革 数 提供 一 个 近 伺 慎 . 事 实 上 ,一 个 去 示 " 真 正 * 臣 率 谱 的 工 规 表达 式 ! 愉 一 化 ? 昆 


忆 7 一 ] at 人 
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这 是 个 洛 伦 震 0aurent) 无 穷 级 数 , 依 赖 士 无穷 个 cx 值 。 等 式 (13.7, 号 仅 仅 是 由 式 (13.?. 3) 确 定 的 > 的 
解 术 两 数 的 一 种 解析 近似, 事实 上 ,这 种 近似 隐 含 在 用 FFT 以 章 期 疼 方 法 进行 冰 率 谱 估 计 中 。 亡 有 有 及 圳 命 
名 方法 ,包括 直接 方法 .全 者 点 机 型 和 移动 平均 (4f4? 模 型 . “全 索 点 "是 特 指 模型 的 谱 在 > 平面 上 太 字 忌 ， 
但 设 有 极点 。 

划 果 息 们 从 更 广 的 角度 看 式 人 13.7.3) 的 近似 问题 ,就 可 以 发 现 如 果 采 用 … 个 有 埋 丽 数 , 在 其 分 到 知 分 
母 都 录用 式 413. ?7. 2 型 的 级 煞 ,我 们 就 本 能 做 得 更 好 -还 有 一 个 表达 式 , 尽 入 不 是 币 明 显 , 昌 在 近似 时 地 有 
一 些 有 利之 处 ,这 个 近似值 的 自由 参数 孝 在 分 蔷 上 , 世 就 是 
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在 这 出 ,第 二 个 等 号 引入 了 -组 新 的 系数 ms, 它 本 以 根据 = 都 在 单位 敬 上 由 点 求 得 .而 如 可 以 根据 并 413. 
7. 4) 的 寡 级 数 展 开 立 和 式 (13.7, 3) 前 面 邓 T1 项 一 仆 的 条 件 来 确定 .实际 | ,我 们 还 有 其 它 的 方法 痛 定 吕 
或 mx。 

近似 式 (13 7.29 和 (413. 7.43 的 区 别 不 促 仪 是 形 式 上 的 。 它 们 的 近似 也 具有 不 同 的 特征 ,最 中 显 的 二 式 
513.7.43H 可 以 太 极点 , 它 对 应 于 = 音 位 轩 .1., 记 就 是 奈 对 斯 特区 条 的 训 蜂 率 上 ,无穷大 的 功 率 谱 窗 迹 ,让 画 
极点 精确 地 代 央 了 具有 离散 的 ,陡峭 的 “直线 "或 3 甬 数 的 基本 功率 洲 , 禄 比 之 下 , 式 (5.7 2) 在 估计 斯 特 
区 疗 的 实 频 举 上 只 有 洗 点 ,而 没有 极 民 ,因此 必须 用 多 项 式 才 能 适合 共有 人 尖峰 的 谱 的 特征 . 式 (13.7. 妨 
似 式 下 几 个 和 名字 :全 极点 模型 .最 大 炉 方 法 (MEM? 或 自 锯 归 模 型 (AR) .我 们 只 需 知道 怎样 从 数据 组 计算 系 
数 :和 at 就 能 用 式 (13, 7. 4 获得 谱 估 计 。 

令 人 全 凉 证 而 高 兴 的 是 ,我 们 已 经 知道 怎样 汁 算 ! 匠 到 前 珂 看 看 线 性 弄 测 的 式 (13.6.1-). 将 它 和 红 性 
滤波 等 式 (13. 5.1) 和 {13.5.2) 相 比较 ,就 可 以 发 现 从 涉 波 器 的 角 虚 将 作为 给 入 信号 ,y 作为 输出 信号 , 线 
性 项 测 有 一 个 涉 波 汶 数 
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辕 世 :2 的 巩 率 淮 等 于 的 功率 谱 小 以 .六 ( 六 .现在 ,让 我 妆 考 虑 当 工 是 线性 预 铀 的 残 差 时 ,这 个 辖 入 舍 

刁 半 的 功率 谱 是 什么 。 虽 然 我 们 不 作 正 式 直 中 .但 从 直观 上 我 们 可 以 柏 信 , 由 于 > 是 独立 随机 的 , 凡 此 有 此 有 

半 坦 的 诺 ( 白 噬 专 ). (粗略 地 说 中 遗留 的 任何 残 盖 关 系 容 许 :个 更 精确 的 线性 霹 油 ,并 且 这 种 残 差 关 系 

也 可 以 被 删除 ), 这 种 平坦 谱 的 束 体 归 一 化 就 是 x 的 均 方 振幅 .这 正 是 由 式 113. 6. 13) 计 算 的 精确 量 . 并 必 

通过 程序 memcof 以 xms 返回 。 央 此 等 式 (15.7.4) 中 多 系数 as 和 xs 与 由 memecof 返回 的 I.P 系 数 作 在 下 画 
的 简单 关系 

一 ms 一 一 qd， 上 一 1 143.7506 

还 有 另外 一 种 方法 描述 ak 和 自 相关 分 量 名 的 关系 ,Winener-Khinchin 公理 fi2.0. 12) 说 明 自 柜 关 的 

僵 忠 时 密 岳 等 平 幼 率 谱 。 用 x 变换 的 语音 米 说 ,这 种 博 正 叶 空 换 就 是 用 * 表 兴 的 将 伦 特 (Laurent) 级 数 . 殉 
*。486* 


定 系 数 的 等 式 (13,7, 已 或 成 为 





-好 - 二 的 放生 全 
1 二 > anns| 于 
=， 


等 式 (13, 7, 7)} 中 的 近似 苇 具 有 一 种 特殊 的 解释 .全 章 味 着 , 左 沁 展 级 数 展 开 式 和 右 这 沟谷 硕 只 = 芭 = 
都 是 一 翁 的 , 此 范围 外 ,右边 各 项 均 为 0 ,而 左边 证 有 非 零 需 。 江 意 , 好 近似 等 式 左 连 的 系 炮 的 多 数 . 蕊 可 
以 最 大 到 w 的 任 - 整数. 是 可 用 的 六 相关 所 有 数目 ( 实 竺 中 ,并 可 以 选择 得 比 太 小 得 多 ，3 残 种 为 道 
近 的 阶 数 或 胡 点 的 个 数 。 

对 任何 选择 的 对 值 , 式 (13. 7.7? 堪 边 的 级 数 展开 定 文 了 滞后 大 于 好 的 刍 相 关 萄 数 的 某 各 外 椎 .说 实 
上 甚 孚 可 以 超出 浆 , 世 就 是 说 覃 上 凡 了 实际 所 测 基 的 数据 范围 .从 和 省 息 论 龟 度 , 朵 以 证 明 在 听 有 拓 能 的 处 推 
中 ,这 种 外 推 具 有 最 大 稍 . 因 此 称 为 最 大 业 方 法 成 MEYM。YIEMI 方法 的 最 大 炳 性 质 使 它 获 得 让 人 襄 涉 的 流 
行 性 ,有 人 说 它 本 身 络 出 一 个 比 其 它 方 法 “更 好 ?的 估计 , 布 玖 糙 信 这 种 党 法 :YIEM 确实 在 让 人 售 报 的 能 过 
用 于 拟 合 带 有 能 蜡 的 谱 特 惩 的 性 质 , 但 对 于 蕊 率 谱 估 计 :: 并 疫 有 上 其它 任何 嫩 力 。 

在 程序 memcof 中 操作 数 标 只 为 三 (数据 点 的 个 数 ? 和 有 34 的 乘积 :MERM 近似 期待 的 阶 数 1. 如 受 f 选 
择 得 和 m 一 样 ,那么 MEM 方法 比 前 - 节 Nilog2Y 量 级 的 下 ET 慢 得 多 .然而 实际 上 ,人 们 盘 帘 归 甫 WAad 
的 阶 数 ! 或 极点 个 数 ) 近 似 为 几 信 十 要 估计 的 谱 原 具有 的 陡峭 谱 线 的 个 艇 .由 于 对 极点 个 数 进 行 了 这 种 限 
测 ,这 种 方法 能 在 一 定 程度 上 使 谱 平 许 , 伍 这 通常 是 人 习 希 肩 得 到 的 性 质 .尽管 精 销 值 决定 了 实际 应 月 ,大 
们 通常 取 M=1C 或 20 或 50 而 w=1000 或 10000 .在 这 种 情况 下 ,EME 咎 计 不 比 FFT 估计 慢 多 少 、 

我 们 觉得 有 必要 提醒 读者 释 序 memcof 在 时 有 些 目 性 .如 音 极 点 的 个 数 或 数据 的 数 日 太太 了 .此 使 采 
用 双 精 度 , 售 入 误 益 也 会 成 为 -个 问题 .对 于 "尖峰 ?数据 (也 就 是 具有 间 常 尖 的 谱 线 特 入 数据). 芷 全 在 中 
等 大 小 阶 数 时 ,这 种 算法 可 能 会 将 尖峰 分 开 * 并 旦 尖峰 述 会 随 正 帝 波 的 相位 而 移动 ,另外 ,对 寺 带 有 了 吃 声 的 
输入 困 数 .如 捍 选 尝 的 阶 教 太 高 ,将 会 发 现 很 多 假 尖 峰 1 一 些 专家 建 泊 将 这 种 算法 和 一 些 保 宇 拓 工法 加 习 
期 图 法 结合 起 来 使 用 ,以 帮助 选择 正确 的 模型 阶 数 ,区 免 彼 假 的 洪 线 特征 所 迷 同 .MEM 方法 在 叶 有 有 点 占 
怪 , 但 是 它 也 能 做 非常 突出 的 工作 .我 们 灵 议 该 者 对 你 自己 的 问 感 侍 细 地 试用 它 。 焉 在 我 们 从 对 系数 的 汗 
论 转 到 对 MEM 谱 估 计 的 计算 。 

MLEM 估 i 计 式 (13. 7. 4) 二 连续 变化 频率 上 的 函数 。 如 同 FFT 那样 ,对 频率 均匀 划分 没有 自 位 圭 别 的 意 
父 。 事 实 上 ,因为 MEM 估计 可 能 有 非常 只 的 谱 线 特征 ， 大 拉 希 望 在 这 些 等 征 此 附 近 用 非常 精 钨 的 步 又 来 
求 值 ,而 在 远离 这 些 特征 线 的 地 方 粗 糖 一 些 , 下 面 的 函数 ,在 系数 已 经 计算 出 来 后 ,省 让 等 式 人 1 六 7. 1 ,证 

目 以 ja 为 变量 的 末 数 形式 返回 估计 的 功率 庶 。/ 应 位 于 素 季 斯 特区 间 一 172 一 172。 


划 inclued <math,hy> 


float evimem (flost fdt， float d[ 3，int m， float xms) 
利用 四 emecof 返 司 已 知 的 d[1. -m],oovxms, 此 函数 以 fdt= 生 为 变量 ,返回 切 率 谱 PT7) 。 


lot 有 
float sumr 一 1.0,sumi 一 0.04 5 
double wr 一 ji,0ywi 一 0.3,wprywDi ,ytemp ,thera 将 竺 环 量 为 双 峭 典型 


theta 一 6. 28318530717559 * fdt 
WwWwBI 一 cos (thera); 汀 评 捕 蒜头 系 
WPi 一 sin(ftheta)y 
focr 《一 14i<< 一 mii 十 十 ) 对 求 和 中 的 各 项 循环 
WIT 一 (WwWtemp 一 wIT)# WP 一 wii + WWDii 
Wi 一 Wix WPT 十 wtemp * wpiy 
sumr 一 一 d [swri 此 处 的 黑 积 用 于 讲 算式 (13, 7, 3: 门 分 此 
surmr 一 一 dwr 
Teturn xmsy(sumr xsSumt 十 sutnix surmnii); 等 式 513.7.4) 


注意 机 确保 用 非常 精细 的 网 格 估 计 PC 廊 ， 凑 全 寻找 非 常 罕 峰 : 这 上 知 尝 的 烽 如 果 出 现 , 呆 能 会 包括 数 其 
中 的 所 有 功率 。 少 户 可 能 希望 知道 由 程序 memeef 和 eylmem 六 和 牛 三 ( 亡 是 怎样 对 输入 数据 癌 最 多 二 产值 
妇 一 比 的 .答案 其 : 


扩 Paxacra 一 2 并 ecoanaca， 一 数据 的 均 方 值 全 和 
由 程序 memcof 和 evlmen 产生 的 谱 的 范例 如 图 13, 7.1 太 下 - 





1000 


100 











各 语 : 放 


:， ” 频 字 

输入 信号 目 频率 非常 接近 的 两 个 正 孩 葡 号 垃 和 的 512 个 采样 点 组 成, 再 加 上 约 为 区 匀 功 率 谱 的 白 
噪声 ,图 示 的 是 整个 奈 迹 所 特 普 率 区 间 的 扩 蜂 部 分 ( 它 从 0 延伸 到 0. 5) ,图 中 窒息 线 表 示 的 谱 估 计 
使 用 了 20 个 极点 + 点 线 赛 示 的 六 估计 忆 骨 了 40 委 极点 ! 这 和 神 廊 浴 可 以 明 总 地 区 分 丽 个 止 六 信 和 导 ， 
但 是 白 吃 吉 背 景 也 开始 显 出 假 峰 { 注 意图 中 的 对 数 记 新 ?- 


图 13. ?7.1 用 最 大 彤 谱 估计 的 输出 范例 


13.8 非 均 匀 取 样 数据 的 谱 分 析 . 


迄今 为 止 ,我 们 一 律 都 是 处 理 均匀 取样 的 数据 点 


后 一 Cr) 一， 一 3 一 2 一 1,0,1,2,3，,， (13.8.1) 
其 中 的 和 是 取样 问 隔 , 它 的 倒数 是 取样 率 , 回 忆 第 12.1 节 由 取样 定理 说 明 药 奈 计 斯 特 临界 频率 
六 = 证 (13.8. 2) 


其 意义 层 : 由 等 式 (13. 8 1) 取样 的 数据 集 包含 ”信号 在 订 奎 斯 特 频 率 内 所 有 谱 分 量 的 全 部 信息 ' 攻 1 
，488* 


特 考 奈 的 企 下 后 全 分 最 的 传 时。 因此 取样 定 坦 说明 了 对 的 避 展 定数 据 认 计 





虑 让 或 基 谍 了 频 座 大王 全 
计 的 有 利和 和 至 利 并 公 

代 在 在 些 巾 颈 下 岂 的 而 的 数 久 ,个 请 旧 的 情况 是 仪器 的 数据 丢失 ,内 此 蕉 得 的 数据 江 症 等 

， 8 1 的 子 代 7 二 还 续 的 草 烁 2 由 荆 评 数据 去 失 和 问题 .还 有 -个 莹 吉 的 生 癌 存在 二 观察 息 学 例外 天 
衬 ,此 时 砚 察 井 不 es 控制 观察 上 时间, 不 此 蔬 接受 其 个 受 限 浏 的 时 间 集 去。 

从 非 均 久 闻 隐 的 太 芭 等 式 443.8. 1 所 寺 的 拘 习 间 哆 ,有 革 些 显而易见 的 方法 ,插值 如- :种 去 法 :在 数 
据 上 设置 “个 时 间 匈 匀 阿 隔 的 网 ,在 阿 结 点 二 摊 值 器 后 尖 FT 方法 ,对 五 失 数 棋 的 加 题 , 只 震 稍 入 去 类 的 
数据 点 ,如 时 很 多 这 续 数 挤 点 入 拓 了 .最 好 令 蕊 说 为 和 .或 者 强制 放 到 最 后 测量 的 点 , 且 是 ,实践 者 的 猎 验 
表 明 这 种 插入 技 七 并 不 让 人 放心 :一般 说 来 ,这 种 技巧 的 效果 很 益 。 例 如 ,数据 的 天 步 哑 婚 会 性 致 动 率 谱 在 
低 筑 或 分 处 [波长 和 步 长 机 比 ? 假 的 凹 起 ， 

对 间 均 匀 取 样 数控 谱 兮 析 的 “个 完全 不 同 的 方法 :能 鱼 克 服 了 上 上 面 的 困难 ,并 县 具有 -- 些 其 它 的 让 人 满 
意 的 性 质 , 它 是 出 罗 姆 (-omb) 发 展 起 米 的 ,他 的 工作 其 建立 在 早期 巴 宁 (Barning): 和 肥 范 记 提 
(Vanicek) 工作 的 基础 上 的 , 井 由 后 卡 峭 尔 5Scargle)1 进一步 完善 . 罗 姆 方法 (我 们 以 后 郝 这 样 称 呼 ) 仅 估 
计 存 实际 测量 的 时 刻 4 的 数据 , 王 稼 的 或 余弦 的 ,假设 在 Y 个 数据 点 大 = 一 1 NA) 则 首先 通过 

- 般 的 关 委 求 均值 邢 方 改 





DAN 2 1 ws 二 这 交 站 
下 二 站 之 /入 了 天 三 本 汶 郊 》 12.s 32 
现在 , 按 下 必定 义 罗 姆 归 一 一 化 周期 图 (功率 谱 作 为 角 矣 永 w 3 0 的 虑 数 ) 
， 二 局 
6 人 > 和 力 )Cosaf1 -人 ”> 及 Sineot 一 5 了 | 
人 0 二 了 二 十 2 〈13s.3, 41 
和 )rosia(b -T) 人 sinto 人 ti 一 2 | 
浊 了 


这 电池 有 关系 式 
了 Sin2i 全 


ranz(2ur) = 志 一 一 413. 交 
>， CDSZow 上 


了 
常数 上 是 一 种 仿 移 量 , 它 使 圭 Pstw) 在 不 有 卢 移 动 -个 常数 时 不 变 。 罗 姆 还 说 明 这 种 坑 移 盟 的 选择 还 
有 … 个 更 深远 的 效应 : 它 使 等 式 (15.8.4) 和 通过 最 小 二 乘法 对 给 定 频率 w 的 谐振 信和 导 作 估计 所 得 的 等 式 
… 致 ,其 中 谐振 信号 可 以 是 如 下 的 信号 模型 
丈 {)》 一 凤 cusaf 一 五 Sinoot (3.8.86) 
此 事实 说 明了 为 什么 这 种 方法 给 出 比 FFT 方法 更 好 的 结果 : 它 对 数据 的 估计 建立 在 “各 点 ”的 基础 | ,而 
不 基建 立 在 “每 一 时 间 间 贿 " 上 , 何 后 者 在 非 均 旨 模样 有 会 带 奕 严重 的 演 益 。 
一 个 非常 普遍 的 情况 是 ,被 测量 的 数据 点 太 是 周期 信 导 和 独立 ( 筷 的 ) 高 斯 噪声 之 和 .如 果 我 们 试 最 确 
冠 这 种 周期 信和 号 的 出 现 或 消失 , 则 我 们 必须 对 下 昏 的 问 感 纪 予 一 个 定量 的 回答 .在 功率 谱 马 :iw) 中 …… 个 
峰 应 明显 到 怎样 程度 ?" 在 这 个 癌 题 中 , 虞 的 假设 是 假设 数据 也 是 独立 的 高 斯 分 布 的 铸 机 值 , 罗 婚 归 … 化 
向 期 图 的 … 个 非常 好 的 性 质 是 , 记 假 设 的 可 行 性 可 以 比较 严格 地 验证 ，F 面 我 们 进行 讨论 。 
“ 归 - -化 "涉及 趟 (13. 上 4) 分 由 口 因子 co: 斯 卡 格 尔 证 明 在 这 种 归 一 化 下 ,在 一 些 特定 频率 逢 赚 假 没 的 
前 提 下 ,Ps 人 zw) 具 有 均值 为 ` 的 指数 分 布 -换言之 , Pskae) 在 = 和 z+dz 之 间 的 概率 是 exp[ 一 zyds .还 可 以 
看 出 ,如果 我 们 对 某 M 个 独立 的 才 率 扫 措 , 则 不 大 于 = 值 的 概率 是 (一 e- =)#, 因 此 
有 2) 王 ]1 一 (1 一 ex)S 《13.8.?》 
旦 虚 恨 议 的 虚 殴 概率 , 忆 也 评 我 户 拓 能 看 公 的 Pv(w)? 中 任意 尖峰 的 显著 性 水 平 , 虚 著 概 尝 的 “个 小 值 指出 
了 -个 非常 明显 的 周 斯 信 生 的 存在 。 
为 子 洋 估 这 种 显著 仁 ,我 们 效 杰 知道 邓 。. 事 实 上 ,我 们 观察 的 频率 越 多 , 谱 中 的 尖 蝇 越 次 明显 .( 妈 果 观 
察 得 由 够 长 ,可 能 什么 也 没 冯 :个 丰 型 的 这 梨 是 ,在 记 较 大 的 频率 范围 内 把 书 、 (给 归 成 划 公 癌 幅 很 细 
， 489 ， 





的 空间 频率 的 函数 .这 些 蛙 疡 中 有 客 少 个 其 独 必 的 吧 ; 

下 回答 这 个 问题 之 前 ,让 我 们 产 先 大 看 虹 再 卜 尝 的 精 者 庶 ,我 们 感 兴 趟 的 区 问 是 显著 性 为 个 小 
娄 , 曙 远离 1 的 地 方 。 所 以 等 式 013.8. 7 可 以 以 通过 裔 数 诬 片 为 

PP(> ys ptr [和 

我 们 看 到 显著 性 与 M 成 线 些 比例 关 条 :实际 的 显著 性 水 平 是 站 0 、0.01 和 0.001 等 数 ,在 洋 佑 导 艾 本 中 
邯 使 存在 二 50 芳 的 误 荐 也 下 可 和 容 妃 的 , 氏 为 折 引 几 的 显著 发 水 涯 通常 址 根据 因子 5 或 10 来 划 耸 的 . 因 攻 
我 们 对 好 的 估计 不 攻 丰 党 精确 。 

替 所 (Horne 和 柏 里 那 斯 (Baliunas] 一 以 大 量 的 蒙特 卡 罗 (Monte Carlo? 实 览 中 给 出 了 在 栗 回 情况 下 
如 何 确定 好 的 取 值 。 通 党 ,M 依赖 于 取样 的 频率 数 , 数 据点 闪 的 数值 久 及 它们 的 细 分 前 赂 ,手数 据点 读 近 
等 问 距 划分 时 ,并 且 当 取样 的 频率 " 广 沽 ?了 从 零 到 盘 计 斯 特 魏 率 /六 ( 式 (13. 8. 2)) 间 的 所 有 频率 范 国 上 果 . 吉 
只 发展 李 和 六 非常 接近 -人 述 有 ,对 于 随机 间 了 的 数据 点 或 等 距 癌 卫 的 数 撕 点 ,4 的 值 没有 很 大 的 区 各 . 当 
用 人 于 痊 计 斯 竺 频 水 的 天 率 范围 到 林 上 脸 ,好 成 比例 地 增加 ,只 有 在 这 可 博 况 1 好 的 皮 值 将 明显 此 下 同 王 
等 省 羡 隔 的 情况 , 即 数据 点 被 紧密 冯 集 在 一 芷 , 例 刘 数据 聚集 成 3 组 ,那么 (我 们 可 以 想像 ) 独 立 的 师 率 数 
将 总 少 大 约 :73 。 








上 羡 中 在 ”到 lo0 的 时 间 范 围 内 100 个 数据 是 秀 二 分 布 的 .数据 中 的 正弦 分 一 在 显得 性 水 半 估 于 
六 501 处 让 算 法 监 判 出 来 ,如 果 100 个 数据 点 以 单位 对 间 划 隔 均 勾 地 分 隔 , 那 么 泰 诸 斯 特 临 界 频率 将 
乱 写 5 :注意 ,对 目 均 匀 只 加 问 珊 分 量 的 点 ,在 索 可 斯 将 频 率 范 展 册 也 没有 明 豆 的 泄 选 。 


罚 13.8.1 实施 罗 姆 (Lomhb) 算 法 的 事例 
“上 厢 的 释 序 基于 上 述 的 粗糙 但 尚 能 用 的 规则 来 计算 有 效 的 好 和 值 , 并 且 假设 没有 任何 重要 的 数据 聚 


梨 : 人 在 大 多 数 情 况 下 这 种 汁 算是 足够 的 位 在 一 些 特 萄 情况 下 ,如 果 确 定 麻烦 的 话 , 用 简单 的 蒙特 上 罗 方法 
*，490。 


计算 更 好 的 M 值 是 不 大 朵 难 的 : 几 攻 定数 盯 的 数据 点 忆 及 对 诬 芍 位 置 志 ,产生 切 有 商 斯 5 正 态 ;六 共生 行 的 
合成 数据 组 ,对 六 举 的 数据 组 找 出 tw) 的 最 大 值 (用 附 营 的 粒 序 ), 调 报 据 等 式 (13. 8. 71 对 陡 佑 的 数 厅 分 
布 拟 合 或 得 好 。 

上 页 图 13.8.1 显 未 了 记 用 上 而 尘 党 的 声 法 和 抽 得 的 站 果 . 在 上 图 山 , 数 据点 是 撤 时 河 困 冯 册 的 .数据 点 
的 个 数 是 闪 一 100, 其 随时 丰 上 的 分 车 尾 汕 松 分 布 , 当 然 , 我 们 看 不 出 纤 何 ”点 关于 食 有 正 芒 售 头 的 证 问 :而 
于 图 旦 按 频 率 /一 ol 2r 绘 讲 的 Pteo2 刘 果 汝 避 点 是 党 岁 写 半 隔 版 桩 的话, 那么 获 冬 的 帘 金 护 寺 抽 和民 频率 
将 是 六 -无 =0.5. 因 为 现在 我 们 要 搜索 的 频 军 东 围 是 临界 秒 淘 扫 两 倍 , 叉 因为 对 蜂 率 了 让 有 梯队 点 其 呈 、 
(o) 的 连续 值 应 赴 光 滑 地 变化 , 白 以 也 对 -一 32 图 中 水 袜 世 虚线 和 点 线 傣 下 至 上 依次 讼 未 亚 寺 呈 水 下 发 二 
5.0.1.0.05.0.01.0.005 和 人 0pl。 同 以 在 出 -在 频率 上 8: 处 有 -- 个 间 常 显著 的 失 几 :这 止 乓 出 现在 数 插 
中 的 正 汞 波 频率 。 

注意 几 中 附近 另外 还 有 现 个 峰 , 但 帮 设 有 超过 5 基 的 性 鞭 性 水 于; 溉 也 可 能 是 期 望 被 选 求 问 . 太 霖 - 
全 值得 江 意 的 事实 是 :那个 明显 的 峰 是 在 索 玫 斯 特 频率 以 上 找到 的 ( 足 江 确 的 》, 壮 在 全 计 厅 特 肯 率 江 民 
不 引起 任何 明显 的 混 迁 .六 一 点 对 均 名 间隔 取样 的 煞 据 是 不 可 能 的 ,在 这 昌 成 为 呆 能 苹 革 为 择 数 据 鼎 的 
娟 机 时 间 取 赃 问 隔 导 "平均 "取样 率 对 这 的 时 间 问 师 更 紫 密 ,和 而 这 就 排除 了 混 渤 的 模糊 性 。 

用 程序 实施 归 一 化 的 由 期 蜀 县 很 直接 的 ,但 是 有 几 点 必须 记 作 .我 全 止 在 进行 芍 尽 个 所 慢 的 算法 . 
一 般 说 来 ,对 于 六 个 数据 点 ,我 们 可 能 希 户 实 驻 2N 到 4NE 入 蛙 率 点 -在 基 [ 了 84 和 1413.8, 3 二 ,这 起 
频率 和 数据 点 的 组 合 不 公允 是 一 些 直 法 和 委 法 ,而 由 有 四 次 调 避 二 何 医 数 ; 运 算 很 生 允 就 法王 的 用 放 
倍 .用 道 妆 代替 这 些 二 角 函 数 的 谋 用 就 非常 此 要 ,这 将 使 运算 速度 提高 4 们 . 但 是 这 种 做 法 人 世 生 被 榨 出 的 
频率 序 询 是 线性 庐 列 时 才 交 能 -因为 这 利 序列 是 天狗 数 用 广 所 需要 的 ,所 以 我 们 将 托 这 种 算法 付 音 实 诗 ， 

在 这 一 节 的 最 后 我 们 将 般 述 一 种 方法 , 忆 近 似 于 估计 等 式 (13. 8. 4 和 (13.8.5), 全 是 有 具有， 定 的 运 侧 
精确 度 , 这 种 方法 比较 快 ,运算 基 达 NlogA5! 这 种 快速 方法 赴 用 于 长 数 扩 组 。 

要 检测 的 、 狐 立 的 最 低频 率 上 龙 输 入 信号 时 间 长 度 max, 避 一 minith) 三 工 的 倒数 . 注 个 频率 能 饭 数 
据 包 括 卉 “个 完整 周期 内 .再 减 示 数 据 的 平 欧 售 , 等 式 (13.8.4) 忆 人 柜 刘 对 数据 的 堆 频 部 分 不 感 共 垣 -用 
频 对 应 的 怡 好 苹 灼 值 。 人 在 FFT 方法 中 , 较 高 的 独立 频率 将 是 177 的 整数 倍 . 轩 为 我 们 感 兴趣 的 明 尖 峰 六 现 
的 统计 关闭 性 ,六 此 我 们 的 取 洋 何 明 最 好 光 1/7 更 精细 一 些 ,以 便 使 取样 点 更 小 近 和 任何 巍 的 质 扣 。 际 带 的 
程序 中 包含 有 一 个 过 取样 全数 , 称 为 ofac, 实 际 应 用 中 通常 取 ofse 过 4。 我 们 也 必须 标明 最 商 频 和 车 六 .六 .的 
选择 已 将 它 和 案 牵 斯 特 频 率 扩 相 比 ,如 果 和 在 同样 的 时 间 问 辣 了 雪 册 习 选 取 六 个 数据 点 ,那么 ， 一 Ne27 
附带 的 程序 中 还 包括 个 输入 参数 hifac, 它 定义 为 六,7 太 -由 奸 让 返回 的 大 国 频 率 数 半 N。 由 下 式 给 册 


obfac X hifac 
大 














人 


〈 记 仕 输出 数组 的 兵 度 必须 在 此 冰 雷 内 ,) 

程序 对 一 角 函 数 递 归 采 用 双 精 度 , 并 由 利用 些 三 角 函 数 恒 等 关系 以 减 小 全 入 误 营 。 如 果 访 者 虱 此 成 
兴趣 的 话 可 以 仔细 推 节 , 最 后 襄 注 总 的 … 个 细节 尾 .如果 * 太 大 了 的 话 . 对 人 洛 入 溪 关 等 式 (13.8. 7 将 下 获 ， 
但 (13. 8.8) 式 在 这 方法 中 仇 是 有 效 的 - 


六 人 48 8 


开 include <<math.h>- 
睫 include “nrutii.h?" 
开 define TWODPID 6. 2831853071705865 


void period (float xL ,float yj，int ofloat ofae，float hifac，float px 训 ]， 
float py[]，int npy int * nout，int * jiuaxy float *prob) 
给 定 n 个 阁 拉 点 . 疝 坐 为 x_1..n .it 这 井 不 需要 内 妇 司 陋 )，, 纵 开标 为 y[:,.n], 井 且 已 知 荔 需 特 过 耻 任 败 六 iac 
(典型 伯 为 4 或 更 大 ] .程序 运 数组 pz-1. ,nb , 作 频 变 ( 不 是 前 额 率 ) 此 床 增 加 到 hifac 牙 以 "平均 "的 京 业 斯 特 蝴 率 、 
以 及 数组 py[1.. npP], 其 值 为 上 而 的 各 频率 处 的 蚊 姆 归 一 亿 周 斯 加 ,数组 x 和 y 维持 不 栾 ,ap 是 tx 总 Fy 的 长 总 . 必 
须 足 后 大 才能 包含 输出 结果 ,再 旭 将 出 清 - 程 序 丰 远 辐 jmax- 以 使 pyLjmoax] 成 为 数组 py 中 的 取 大 元 素 ; 得 过 加 拘 
pxob, 基 对 于 随机 噪声 开设 的 最 类 显 蘑 性 估算 值 . 较 小 的 Prnh 去 滑 有 ”个 明显 的 周期 信 刁 出现。 


void ayevarffloat data[] ，unsigned long 3，float 9ave，fioat Var);i 


下 


flcat aVeiciCCCNLaL GTf@,G 基 Py ,PoDovPyaar,S5,3sSuC: uncy,suns,sunsh， 
US 六， 号 W 让 和 UV 及 广 ,UTCBD ZEaVS，XdjiT ,XImin,yyi 


deub1e ar 外，wGmlj ， 全 本 上 站 WPIT HL 


Vimdvectockl,D); 
wpi=dvectortTt :za) ; 
VPxredyvectort1,n)1; 
uredvectot(K1,) 
DOUKmD ,5#DE8C*+hifac+tu 


if 〈《*out > npP) nrerror("outPput arTays to00 Short in Period')i 


ayVeVyarfy， 了 , 权 aye, 丰 VaT)? 1 

TXmaxxainrx[1] ; 

for (J*13j<ewnjij++) 蔷 
if (zfj] > rzmar]】 Xxmax=Xr 1 ， 
it (z[j] < xmln) xm:n=zfj]: 

】 

Xdif=xmax-Xmini 

藉 2VY60 .59【 玉 区 8X+ 本 1 轨 )》 

Pymsx=0.C; 

pnows1.0X(zdifsofac)， 

for 〔j=l;jcssaij++) { 
arg=TWOPIDr*t(Xxftj]-xave)}z*Pnow) ; 
wpbr[j] = -2.0zSQR(eln(O.5zarg)) 
wpi[j]=<giofargy》; 
VWT [j]=coaKarPE) 7 
ji [j]=vpi [jj]， 


for {iml1;i<mK+nout]ii++) 并 
pz[i]=Pnow: 
3uN3hbe=5umceC .全 
for (jm1;j<c=sn;j++) 1 

c=wr [j]; 

g=uw[j]; 

BUDDSDb + 一 日 上 C 

EDDC +m 【C- 吾 ?由 【CTS 7 
】 
Wanr0.S5*atan2(2 .0n3umsh ,suURNC) 1 
staU=SinCwtauy 1 
Cuwtau=Coa (wtauy : 
BUSeSUC=5UD37=SUNC7=O.Oi 
for (〔j=1Lij<n;j++》 1 

S=wifrj]; 

Caij] ; 

日 日 二 名 呈 人 t3U-Cwgwtaui 

55 天 CeCWTBU+ 忆 wwWTBULi 

SURS + 王 SS 站台 5 

SumC + 王 CCyCCi 

ysy[j] -ave; 

BOSY += 了 了 y 让 区 吕 1 

Bumcy += 7wGC: 


wrlj]<ktwzempewrrj])*wprijl-wif[ja*wpirJ])fwr[]]i; 


求 得 入 数据 芷 均 仁 和 广大 
寺 檀 数 幽 ， 确 定 横 事 标 的 范 轩 


起 抬 频 闷 
在 他 个 数据 点 对 .: 角 明 数 递 上 进行 切 始 同人 萌 ， 


说 归 惧 发 精 度数 据 进 行 
1 


对 榴 估 计 的 频率 的 下 循 环 
首先 ， 对 数据 俏 硒 得 到 * 和 衬 关 的 量 


接 背 ， 形 对 括 撕 笃 坏 得 到 尚 期 图 的 值 


对 “ 角 末 数 通 上 进行 


si[j]s(virj]*sbprfj]+wtewnpewpl[j])+vi[j]y 由 正 


Py[i]=0.5*(sumncywSUNCYAaumnc+Sumsy*SUNSyASsumayyvar; 
话 (Py[i] >= pymax》 Pymax=pyfTKrjmaxei)]: 


Po 和 += 1,07fetacwxdjf)》i 
汪 
SP7=eXP(-Pymaz) ; 
effm=2.09fvhouc)yofac; 
PTDbaffmzoxpy; 


让 个 频 和 
求 最 大 倩 的 统 状 显著 性 


革 《9pzab > 0.0t) =prob=1.0-pov(1.0-6xpyvezfm); 


Xrea_dvactzor(wr, 1:n); 
Tree-dvector(wPr 1) : 


“492， 


free_dvector upl,1,n0); 
free_dvaectorcei,1,0); 


] 


13.8.1 罗 姆 周期 图 快速 计算 


上 下 底 我 们 说 明 怎样 快速 近 错 计算 等 式 (13.5. 4 和 (13.8, 5)》, 似 是 这 种 近似 芭 能 达到 组 要 的 畏 章 .攻取 
其 运算 基 为 hlogYyn 的 数量 梓 . 此 方法 要 用 到 FFT, 候 决 不 是 数据 的 FET 周期 刚 . 空 实际 .对 等 式 (13. 
8.4) 和 [13.8. 5), 即 及 妈 时 一 化 周期 图 的 佑 计 . 它 完全 具有 FEFT 周期 图 的 优点 和 允 点 - 汕 王 普 瑚 斯 [Press， 
和 软 比 克 (5Rybieke7563 的 贡献 ,和 些 得 将 罗 拇 方法 运用 到 1 个 数据 点 的 计算 成 为 可 能 , 它 比 用 式 (13. 8 4 二 
(13.8. 2) 式 对 数据 点 为 品 到 100 时 的 直接 计算 还 归 快 . 

注 帝 ,等 式 (13. 8. 5) 和 (13. 8. 4 中 的 .一 - 才 数 求 和 可以 化 为 川 个 季 单 的 求 ， 媳 果 我 们 定义 


= 2 - 丈 )sinfwt CA 一 六 w， 一 由 JosKg 人 Di 113- 4 203 
JJ 一 : 
和 
时 IN 
3 王 了 sin(2ut ) 2 三 Zecos(2ut) 《13.8. |) 
ft 一 上 了 = 上 
那么 


2 (一 邦 )cOsee(fi 一 t 一 Chcosear 二 Sunsiner 
j=1 
红 
(Ci 而) Siaw( .zt) 一 SN CEpsar - CR Ssinr 
{113.8.12) 
到 cos (Et ~- T) 7 交 和 和 立 2 cogf Zr) 十 去 S， sin(2our》 


3 Sin 人 i T) -= 十 C， CDstotz) 一 到 8 sin(2ar) 


加 
现在 注意 , 妇 果 时 间 2 是 均匀 间 卫 的 ,那么 SavCnaySs 和 Cs 可 用 两 个 复数 的 FFT 计算 ,结果 全 入 式 (13.8， 
12 ,再 由 式 (13.8.12) 可 估算 等 式 (13.8. 5) 和 113.8.4): 因 此 祭 王 的 问题 是 .在 非 均匀 亲本 的 数据 点 处 对 
等 式 (13.8. 10) 和 (13. 8. 11) 进 行 估算 。 

答案 基 采 用 上 氏 播 或 倒 插 值 ,我们 称 倒 揪 信 为 扩展 反 值 . 播 值 ,如 同 经 典 措 述 的 那样 ,使 用 夫 -- 规 则 网 疝 
上 的 几 个 函数 值 来 构造 任意 点 处 的 精确 近 改 值 .扩展 插 乙 始 好 相 逐 , 它 是 用 规则 网 络 上 的 几 个 函数 值 代 蔡 
任意 点 上 的 函数 值 :并 使 网 格 上 各 点 的 和 明 原 来 任意 点 之 和 的 精确 近似 。 

不 难看 出 ,扩展 播 值 的 权 范 教 等 价 于 “ 般 插 伸 的 权 函 数 . 息 设 要 插值 的 函数 40 区 在 靖 区 人 人 
间隔 ?上 知道 其 值 5t) 三 避 , 而 函数 ge 六 例如 它 可 以 是 cosw) 在 纤 意 处 都 能 估计 其 值 . 令 去 力 -个 规则 网 
格 上 的 的 勺 间 陋 的 点 序列 。 屠 么 拉 格 妆 日 插值 (第 3. 1 节 ) 给 出 下 面 形式 的 -一 个 近似 : 

人) 了 mkCogCa) “3.8.131) 
是 


其 中 ,et 人 是 揪 值 的 权重 。 现 人 在 让 我 们 通过 于 式 来 估算 我 们 感 兴趣 的 各 式 ， 
史 站 E . 
安生 2 s 之 和 [2 CDOgGO] 一 之 [之 ia 人 je 一 he (13. 8. 14] 


这 里 , 友 皇 >， 用 ,注意 等 式 (13, 8. 14) 用 规则 网 格 上 的 知 值 代 逢 原先 的 和 秆 ， 还 请 注意 等 式 (13. 
8， 13) 的 精确 度 取 光 于 函数 8 划分 的 网 属 精 细 程 度 , 而 和 时 间 总 二 的 间隔 及 函数 大 无 关 。 等 式 C13.8. 14) 的 
精确 度 也 有 这 种 性 质 。 
因此 这 种 快速 估计 方法 的 一 般 轮 廓 是 : Ki) 选择 一 个 足 况 大 的 网 格 能 容纳 想 委 的 过 取样 因子 ,还 要 能 在 
感 兴 趣 的 最 高 频率 的 每 半 个 波长 处 有 几 个 外 揪 点 ii) 在 网 格 上 外 揪 值 天 ,并 且 进 行 FFT, 这 就 给 出 等 式 
*493。 


人 8.8. 10? 中 的 5 和 Eastiii) 将 常数 值 1 外 彬 到 另 一 个 圆 格 | ,让 进行 FFT; 接 着 通 计 一 些 运 算计 算出 等 式 
(013.8.11) 中 的 5: 动 Castiv) 依 沈 估 算 (13. 8. 12) .413.8,.57 和 (13.8.4] -个 等 式 ， 

为 了 更 有 效 地 实施 这 圳 算法 , 偿 有 一 扣 其 它 的 技 薄 . 从 在 序 中 读者 可 以 菲 测 出 人 多 数 的 技巧 ,也 我 们 
将 说 果 以 下 几 点 :(0 用 烽 率 2 处 的 变换 值 代 租 加 处 的 值 的 技巧 时 ,将 时 间 域 的 数据 扩展 为 2 倍 ,接着 双 依 
杜 病 初始 的 长 度 这 名 技 巧 归于 托 基 !Tukey)), 企 程 诬 中 ,这 将 以 模 邢 数 的 形式 出 现 ,人 b) 从 每 式 (13.8.5? 
的 左边 到 各 种 所 需 药 wr 的 二 角 困 数 ,都 用 到 了 =: 角 函 数 的 恒等式 语言 中 标识 符 恕 cwt\hs2wt 代表 了 
量 roser 和 二 sinf2ur) .ce) 困 数 spread 在 围绕 任意 点 揭 并 个 竺 近 中 心 岗 格 点 外 实施 扩展 要 导 ! 它 的 附加 
程序 用 非常 有 效 的 方法 估算 了 拉 歼 劲 日 插值 光 项 式 的 系数 


全 inelude <math, hb>> 

上 续 ineluqe ”mroti .hy” 

切 define MOD{1a yb whileta 关 一 Da 一 :bi 闪 基 目 数 

下 dfiie MACC 3 最 两 晤 率 短 174 蜀 的 插值 点 效 


void faspPertiloar x |]， float y[]，unsigned loag ny Jloat cftcy， fioat hifac， 
floar wk1L float wk2[i，unsigned long wk，unsiRncd lorg = aoult， 


unsigDed |ong # jiaxy tloat < Prob》 
和 从 定 a 个 数 关 扎 的 模 坐 标 xz-1..r- :并 不 需 里 是 均 邱 间隔 ?和 热 闪 标 y[1..n] ,还 给 证 油 轧 的 过 取样 困 了 cdfict 此 坎 


值 为 4 上 或 更 大 ]) 此 哥 译 下 回 数 红 wk1[1..rwk : 空 是 ncur 个 递增 的 频率 (不 是 前 频率 ) 序 列 , 民 大 秆 为 本 3 站 榴 
纪 ?* 的 泰 这 斯 特 频 率 ; 还 返回 数 柴 wk2.1..nwk ,其 值 是 在 这 些 据 率 处 罗 姆 时 一 化 各 期 图 能 值 . 殖 秆 x 同 Y 堆 持 环 
变 , 数 组 wkl 和 wkz 的 绯 数 nws 必须 足够 大 ,以 筑 有 中 介 计 算 空 司 , 夯 刚 会 出 错 , 程 序 达 返 苛 jmax .以 使 wzarimzx] 
为 数组 wk2 中 的 最 大 元 素 , 并 且 还 扎 苞 prob: 记 是 在 随机 咖 疡 食 设 下 最 大 显著 性 的 估 等 售 . 绞 小 的 prn* 值 说 Hj 有 -- 
个 明 时 的 周 则 信和 导出 贡 : 


void avevyarktlcat dare[] ，uUgigned 1ohg 也 于 1oat :ave，flaat mvar)i 
void realftfioat daca[f] ，unsigned long ，iot isiga): 
void Spread(float 了，tloat yyf] ，unsigned Long D，float x。int 上 ) ; 
unsigned long j,k,ndim,nfreq,ntfreqci 
float aVe,cK,CkKk,cter 贡 ,Cwt ,den ,df ,affm expy ,fac,fndim,hc2at; 
float bs2wt :hy7Po,Pmax,Sterm,Swt ,Var,zdif ,xn8ex, Xini 
中 iD 不 mm 口 .5 下 ac 本 忆 让 下 帮 人 了 
mnfraqteofac+hifacaDuNACC; 将 :FT 的 人 小 定 为 大 于 
了 ETYBqz#4i nfzeqt .的 县 小 等 次 
While (hfzreq < mnfreqt) pnfreaq <<e 1 
hdim=nfreqd < 1; 
i 《ndfj 权 > nwk) nrerTorI"gorkspaces too 8Wal1 in fasper'") ; 
VBVaT (了 ,二 SVG :全 YAr); 
本 计 凌 数据 的 均值 ， 方 兰 和 范围 
XDaEeXmimni 
Tor 〈Jj=2;J<maij++) 
i (xfj] < zin) xmin=rz[j] ; 
这 《x[j] > xmaxz) xmaxsr[j]; 


di 下 =XaDaa 工 -X 人 iD 
for 〈j=1;j<vbdimij++) wkl[j]=sk2fj]=0.0; 置 上 作 裤 间 为 f 
荆 areDdiaAfxrdifrofac)] ; 
tnhdimmndimi 
for 〈j=1;j<=naij++) { 外 播 数 据 于 工作 衬 同 
<k《X[ 了 -xmin)+zaci; 
MOD(ck ,fndio) 
GXXKm2.DeKCck++) 
Hdb{tckk,fndim) 
++CXKKi 
Spreadty[j]-avevukl,ndit,ck ,MACC) ， 
Spread(1.0,wk2,rdim,Cgk ,NACC) ; 


Tealft{twxl,atiam,1) ; 进行 快速 笨 ， 
xBalft(wk2,ndim,1): 人 


494 。 


df=1.07(zdif+ofac) ; 
Pamaaxz = -1.0i 
for (km3,jm11;j<e(+nout)?ij++,k+=2) T 对 仔 个 频 寥 计算 风 婚 值 
hypo=aqrt :wxk2[k]swk2fx]+wx2[k+1js*wk2[k+1]73; 
hc2wtO.5*wk2[k]yhypoi 
bs2w7Y=0 ,5*WX2[k+1]1Zhypo; 
ctmsqrECO ,5S+hC2wt) 
Euwt=STIGNIsqrtr0.5-bhc2ut) ,bs2et) ， 
den=D.5*nh+rhc2wtrywK2[]+ha2wt9wk2Fk+i] 
CEeTmSQRLCwL*Wki [人 ]+SVwtewkl[K+1])Adeni 
SrermeSqRiIcwt*rukl[fk+*1] -swtawklfk])ytn-dean) ; 
wz1Ej]=jedfi 
Wx2[j]=(ctarm+steIa)A (2 .0*yar); 
主 《wx2[j] > pmax) pmaxe=wk2[f(e*joaax= 人 1; 
】 
expy=exP(-Pmax) 1 估计 最 大 峰值 的 显 等 性 
ffmy2.DO* (+aout)Aofaci 
本 PTObme 革 mxyGxP7 
证 《rprob > 0.01》 aprobel1.0-Pout1.0-axpy,ettm) 


开 Include ”mrutil. hy 

Yoid spreadtijost yy Hiloat yy[-，unsigncd :ong afloat x，int 各 ) 
给 定数 值 yy -1 .na 溃 ' 展 拉 值 y 到 m 个 实际 的 数组 苑 曾 由 ,这 虑 元 索 非 常 接 记 “是 构 "也 就 此 可 能 不 是 单数 3 的 孝 守 
元 吉 x. 所 用 的 积 重 是 拉 格 朗 日 插值 项 式 的 系数 。 
int hi ,ilo,ix,j:nden， 


static jnt nfac 11 一 上 ,1 26524120,720.5040,40320.3628801， 
fioat facs 


让 《m > ]0) ntettortyfacterifl :anle too small in spread") 
ix 一 (intJxj 


ix 三 = 一 (flosUixy yy[iz 十 = yi 

else 上 
ilo 一 -MINCILMAXI{Iong)tx 一 5xmfHio) mn--m'ly: 
ihi 一 ilo+m 1 


nden 一 nfacLm j 

Tc 一 X-， jlo; 

jer 全 =ile 二 14j 坟 一 ihiij 上 十) fac < 一 (x--j) 

yyLibi- 一 一 Ya#facr(nden * (x 一 ihi))i; 

for 人 一 jihi 一 1 人 > 一 ilogj -) 
rden 一 (nden7 (一 1 一 aol)y sy 中 一 :hi 
yy[ 刘 上 一 y#jfacyftndenx (x 一 j))# 


了 
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13.9 用 FFT 计算 傅 里 叶 积分 


在 许多 情况 ,大 们 想 计 算 下 面积 分 式 的 精确 数值 


阅 
了 二 | eesh(tjdtt， (13.8.11 
可由 


或 等 价 的 实 部 和 虚 部 
关 志 escepaeoa 人 ff (oa 本 3 


并 及 大 们 要 对 许多 不 同 的 w 伟 的 估 莫 此 积分 式 ,在 很 多 感 兴趣 的 情况 上 ,jzD 通 常 是 一 个 光滑 的 十 数 , 但 
并 不 需 以 [e,6] 为 周期 ,也 并 不 要 求 它 在 s 和 卢 点 处 之 惜 为 0 直观 上 很 明显 ,由 于 FFT 的 巨大 "大 旋 ” 它 
应 该 能 用 于 此 问题 .但 是 我 们 将 看 到 ,这 样 做 是 件 令 人 感到 吃惊 的 非常 微妙 的 素 情 。 

让 我 们 首先 用 最 坦 观 的 方法 来 考 志 这 个 问题 ,并 且 看 看 畏难 在 万 里 .将 间隔 -ab] 分 成 邮 个 小 的 间 
隔 , 其 中 好 是 一 个 大 的 整数 ,并 且 定 义 
睛 一 如 

7 
注意 品 二 Ac) ,5 一 玉 地 ), 有 M 二 1 个 大乱。 我 们 可 以 用 下 而 的 和 式 近似 积分 


具 过 





二 皇 4 中 了 ， 克 和 兰 丰 (9y = 0 (3 呈 .3 


邮 一 上 
卫生 D 有 exp(iat) (13. 9- 4 
人 


它 具 有 -- 阶 的 精确 性 (如 果 我 们 将 后 和 厂 置 于 划分 间隔 的 中 央 , 我 们 使 能 到 二 和 价 的 精 省 )。 现 在 对 于 w 怀 
邓 的 一 些 值 ,等 式 (13, 9. 4 中 的 和 式 可 以 进行 离散 傅 里 叶 变换 , 即 DFT, 并 县 能 通过 快速 傅 里 叶 (FFT) 算 
法 进行 计算 .特别 地 ,我 们 可 以 选 好 为 2 的 车 次 ,并 且 遂 过 下 式 定 义 一 组 特殊 的 一 值 ， 


ou 2 人 (3.9.5 


其 中 和 的 取 值 为 加 一 0,1，,. /2 一 1, 那 么 等 式 (13. 9, 全 便 成 为 ， 
时 .上 
T(aw) 之 eic" 了 > ein 一 Are[DEPTCA job]n 站: 沁 
Jm0 


虽然 等 式 (13. 9. 6) 简 单 清楚 ,但 我 们 郑重 地 强调 不 推荐 使 用 此 式 , 因 为 它 有 可 能 导致 错误 的 结果 ， 

问题 在 于 积分 式 (13. 9. 1) 的 振 葛 特性 ,如 果 A(5 确 实 光 清 , 并 且 中 足 驶 大 ,以 致 在 间隔 [ae, 习 中 有 几 个 
周期 一 实际 上 等 式 (13. 9. 5) 中 的 ww 恰好 给 出 站 周期 一 一 那么 积分 值 7 通 常 很 小 ,如 此 小 以 致 很 容易 
被 一 阶 其 至 二 阶 的 载 断 误 莽 所 淹没 .还 有 ,如 果 被 积 函数 不 是 振 莫 的 ,出 现在 误 善 项 中 的 特征 “小 参数 "将 
不 是 A/ 人 一 ] 一 17M, 而 是 wa 。 对 于 在 DFT( 参 看 等 式 13. 9. 5) 的 这 蛮 斯 特 癌 隔 中 的 w 值 ,此 值 可 以 大 刘 
x - 其 结果 是 当 咱 增加 时 ,等 式 (13. 9. 6) 出 现 系 统 误 营 。 

一 个 有 益 的 练习 就 是 用 一 个 可 以 解析 地 求 积 函数 对 等 式 (13. 9. 6) 验 证 ,就 可 以 看 出 它 的 和 辅 确 程 度 询 
体 . 我 们 建议 读者 试 一 试 

现在 ,让 我 们 君 -个 更 复杂 的 情况 ,给 出 采 梯 点 如 ,我 们 可 以 利用 局 值 附近 的 括 介 法 ,以 使 栗 间 陋 [e， 
内 各 处 ,逼近 函数 At)。 景 简单 的 情况 就 是 线性 播 值 , 有 耶 个 最 接近 的 贱 值 ， -个 在 左边 ,一 个 在 右边 . 疮 
阶 的 插值 ,例如 三 阶 播 值 , 左 边 有 两 点 ,右边 有 两 点 一 一 除了 数据 中 第 一 个 间隔 和 最 后 癌 了 的 情况 ,此 时 、 
揪 值 蔷 在 一 - 边 用 三 个 后 值 , 另 ` 边 则 用 -个 。 

这 种 擂 什 方式 的 公式 是 独立 变量 /的 (分 段 ) 多 项 式 ,但 是 系数 却 是 几 的 线性 函数 .尽管 通常 人 们 不 从 
这 个 角度 考 碟 , 揪 值 还 是 可 以 看 成 一 系列 核 画 糙 ! 只 依 竟 于 播 值 方式 ) 和 样本 值 ( 仅 依 台 于 函数 值 滋 积 之 
和 的 近似 阔 数 .我 们 可 以 写成 十 式 

1 一 | 


一 有 1 
由 CR 页 ; 狠 3 1 十 丰 ; 人 了 (13.9.7Y 
辫 A | 各 4 | 
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这 里 ,gs) 是 内 点 的 核 国 数 : 如 果 : 足 骨 尔 或 足 链 正 ,那么 它 是 零 ; 仅 当 s 处 于 各 邦 的 滋 积 确实 是 用 来 播 值 
时 ,9%59 才 不 为 零 , 因 为 工 好 在 样本 点 上 的 的 插值 应 该 给 出 采样 函数 值 , 所 以 我 们 永远 有 人 (0 = |,%Cm 一 
0 内 一 一 1 ,十 2,.. .对 于 线性 搬 值 ,wk 是 分 段 线 性 的 , 当 s 在 5 一 1,0) 时 ,om 从 0 升 到 1 人 寿 (0,]) 时 ， 
节 CS) 又 回 到 9 。 葛 高 阶 的 插值 5s7 直 拉 格 训 月 插 亿 多 项 式 的 几 和 让 构 或 .在 整数 :处 , 即 各 小 连 接 处 ,由 于 插 
值 点 是 离散 地 变化 的 ,yz 有 不 连续 的 导数 。 

正如 我 们 已 经 肴 到 的 那 祥 ,最 昔 近 a 和 的 小 间 阳 要 求 不 同 的 ( 非 中 心 的 ? 揪 介 公式 .这 可 以 从 等 式 
(13, 9.7? 中 第 二 项 得 到 肥 兢 ,其 中 有 … 个 特殊 的 端点 核 函 数 Wi(s) .实际 上 ,由 于 一 些 上 面 我们 将 春 得 更 明 
折 的 原因 ,我 们 将 所 有 的 点 包括 在 第 一 个 和 式 里 ( 核 函 数 为 凡 ,而 史实 际 上 是 真正 的 映 点 核 函 数 积 内 核 晤 
数 少 的 癌 值 .将 任何 阶 插值 的 由 写 下 来 是 一 个 枯燥 的 但 很 直观 的 工作 ,每 个 中 由 过 接 在 一 起 的 各 段 拉 巡 妆 
耳 描 值 多 项 式 的 阁 慎 村 成， 

现在 我 们 将 积分 运算 | esp (iob 运用 到 等 式 (13, 9. 7 两 边 ,交换 积分 和 求 和 的 顺序 ,并 月 对 第 : 质 


求 和 进行 积分 变换 *= 人 一 姜 )/A, 对 第 二 项 求 和 进行 积分 变换 := (: 一 a) 人 A, 结 虹 晤 


好 
Taew[Wt0 ie mi] :13.5.8) 
JI 7 王 山 点 
这 里 8 三 w4A, 通 教 W (8) 和 (9 由 下 式 定义 ， 
克 (9) 三 上 reg (13.9.9) 
ui(9) 三 『 dg 人 C3.3 10》 


非常 重要 的 一 点 是 ,对 任何 反 值 方式 等 式 (13. 9. 9) 和 等 式 (13, 9, 10) 可 以 解析 地 估 莫 ,等 式 (13. 9. 87 
表示 了 一 个 将 “端点 校正 "运用 到 求 和 式 的 算法 ,此 求 和 式 可 以 用 FEFT 计算 ,由 此 给 出 高 阶 精度 的 结果 . 

我 们 将 只 考虑 在 左右 对 称 的 质 值 ,该 对 称 意 味 着 

-一同 (站 ax-i(9) 一 ieMa8 9) 一 ee0 ae (全 《13.9.11? 

其 中 的 星 号 代表 了 复 共 闻 . 还 有 Y(s)- 岂 一 5) 章 味 双 (0) 是 实数 。 

现在 让 我 们 看 等 式 (13.9. 8) 中 的 第 一 个 和 式 , 我 们 将 用 FFT 方法 计算 ,为 了 进行 FFT, 首 先 选择 N， 
使 得 NM+ 1 并且 作为? 的 整数 有 次 (注意 M 不 必 是 的 等 次 ,因此 ji 一 只 一 1 是 容许 的 》. 如 果 N> 
af 十 1, 定 义 页 二 0 MT1< 子安 阁 一 1, 即 对 数组 六 进行 “ 零 元 填充 "以 使 了 的 取 值 范围 是 0 二 了 委 N 一- 。 
那么 在 下 式 歼 定 的 待 殊 值 "一 下 ,可 对 和 式 进行 DFT。 


oh= 2- ma= 0 人 -1 113.9. 12) 


对 于 轩 定 的 时 ,选择 得 越 大 , 频 域 的 采样 越 细 , 另 一 方面 , 邓 值 又 确定 了 最 高 的 取样 频率 ,因为 当 好 
增加 时 , 拉 减 小 (等 式 (13.9. 3)) ,而 最 大 的 wa 值 准 是 在 大 以 下 [等 式 {13, 9 12)) ,一般 说 来 ,过 取 祥 因 卫 至 
少 取 为 4 比较 有 利 , 即 丸 >>4M( 参 看 下 面 ), 最 后 我 们 可 将 等 式 (13. 9. 8) 写 成 如 下 的 形式 

了 Tan) 一 Aeicoaf 人 (的 [CDFTIR ,Anv-D]。 
十 maf6yju 十 of8)5 十 as()A 十 ol(8)A 十 ，. (13,9.13) 
十 ee [aoi(Cpju 十 oi(gjs 十 ai 人 gps 十 oj 十 了) 

对 于 三 稚 (或 更 低 ) 的 播 信 多 项 式 , 上 式 中 明显 地 写 出 来 的 各 项 大 多 是 非 零 值 , 而 用 省 略 号 略 去 的 各 瑟 
可 以 被 表 略 , 关 此 我 们 只 禹 要 由 等 式 (13. 9. 97? 和 (13, 9. 10) 计 和 求 得 画 数 Wasoyaismasas 的 明 昆 表达 式 .过 
梯形 (二 阶 ? 和 立方 (四 阶 ) 的 情况 我 们 已 经 计算 出 了 表达 式 , 下 菌 是 它们 的 结果 ,并且 给 出 了 对 于 小 少 条 ， 
它们 的 宕 级 数 展开 的 前 几 项 ， 

樟 形 防 数 ， 


习 一 cos9) 
久 


要 (6) 一 人 xs1 一 处 关 十 -上 上 1 


12 355 3506 
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(1 一 cos 护 《~ sin8) 

















上 (全 梧 久 
工 机 蝇 sw 开 > 二 克 时 1 J 】 了 1 1 
一 一 语 十 机 光一 7 光一 训 有 一 j 和 二 列 们 % 一 天 关 丽 多 ) 
at 一 :一 03 一 虽 
立方 除数 ， 
6 十 庆 ， 人 23 
全 (多 = | 一 | (3 一 4eos8 一 cos20) xs 1 孔 9 十 1208 
[一 42 一 5 岩 ) 十 (6 十 六 )(8cos8 -ceos28) ， (一 1286 十 69) 十 (6 十 屯 Jsin28 
aogb) 一 6 虹 十 人 深 
0 103 0 86 
一 十 站 十 下 120 人 一 268062 十 二 一 1 部 一 呈 生 人 十 TEN 


146 有 ) -7 了 (65 … 柄 )eosb 上 ; 309 -- 555 十 用)sinB 





ai1g0) 一 














称 多 
机 区 水 二 入 二 和 下 大 5 
ab) 一 43) JE | seoag 1 组 + 2 的 -! 生 sin6 
本 二 二 站 全 由 二 本 | 加 过 未 可 未 冲 机 | 
本 二 十 gjeosg ，; 6 6 世 bsipg 
0 


下 面 的 租 序 fteor ,对 立方 情况 实施 端点 校 止 ,给 定 输入 值 waA,a5 和 只 有 八 个 值 的 大， , 帮 ， 
ja tax 的 数组 ; 它 返 回 等 式 (13. 89. 13) 中 的 端点 校正 的 实 部 和 嫂 部 以 及 因子 权 (8)。 程 序 的 代码 比较 
酸 肿 ,这 完全 是 由 于 .上面 的 表达 式 很 瘟 杂 。 上 面 的 表达 式 中 还 放 蛮 了 8 的 高 次 短 项 , 玫 此 即使 校正 项 只 示 
单 精度 时 ,还 是 有 必 村 用 双 精 度 计算 等 式 的 右边 ,对 小 值 乡 有 必要 采用 级 数 屠 并 。8 的 县 佳 截取 值 是 由 机 
器 的 字 长 决定 ,也 是 也 可 以 用 实验 确定 它 , 在 最 大 值 处 ,这 两 种 方法 相对 于 机 器 辅 度 给 出 等 价 的 结果 . 


车 include <mmath.h>> 


void dftcor(float wy，float deita, float av, float b,， float endpt 沁 ]， 
foat *# Corre， 有 oat # corim，float rorfac7 


对 于 用 DEFT 来 近似 求 积分 ,此 程序 用 来 计算 委 以 DFT 的 校正 因子 种 要 加 于 端 志 的 校正 项 .输入 是 角 频 率 。, 步 长 
deita ,各 分 的 上 、 下 根 a 和 b, 弄 数 组 endpts 包 食量 初 和 炖 后 4 个 函数 仿 。 社 正 因子 古 58) 以 sorfac 返回 ,端点 校正 项 
的 实 部 和 嫌 部 分 别 以 corre 和 corim 返回 。 


vojii nrerror(char arTOT_texzt [] ); 
”Toat a0iya0r,ali,atr,a2i,a2r,a3l,a3r,arg,c,cl,cSzY,a,S1L,8L ,二 ; 
fl1oat t2,t4t6; 
dotb1a c=h,cttb,apth2,gth,stheI,stth ,tbavth2,.zb4 ,tmtb2,ttbhati; 志 


上 th=vzdeltrai 
tE 《ea >sbh | th.oaso 1 th >3.D1416a0》 FTarrcor["bad arguuzenta tD Etcoz" | 
计 【fabsrth) < 5.0a-2) 1 使 用 级 数 
亡 athbi 
七 2 七 
七 3t2+ 二 2 
太 辣 册 叶童 世 2 
Corfacsl.0-(L1.07720.0)eta+f23.0715120.0》et561 
a0re(-2.073.0}+t2745.0+(103.0715120.0)wc4-(169.C7226800.0]4st6j 
alrw(7,0724.0)-{7.07180.0)+t2y(5-0/3456,0)wr4- (7.07259200.0)et6i 
&2T=(~E .OA6.0)+t27345.C-(5.076048.0)etdtt6A64800.0; 
习 3T= (1.07234 .0)-t27180.02(5.0724192.0)4t4-t67259200.0: 
a04=ty(2.0745.0+(2.0/105.0)4t2-{8-012835.0)at4+(B6.07467775.G)st6) - 
&1intw(7.0772.0-t27168.0+(11.0772576.0)at4-{13.0/6987520.0]etG) ; 
a2i=ta(-7.0/90.04+L27210.0-(11-0790720.0) std+t13.077484400.0)at6) 了 
a3ivts(7.07360,.0“t27840.0+[11.097362880.0)4t4-(13.0729937600.0)st6) : 


+ 498， 


} else 区 Use trigonometric formulas 丫 double Precision. 
cthscosgfch) ; 
sthmstintth); 
ctthe=cthe*crh-ethvetbi 
Btths2.0e0e*sSthecthi; 
tbh2ethewtbhi; 
Tb4zmthbh2erth2i 
tath2zs3.0e0-th2; 
SPth2=s6-0e0+th2i 
sthdis1.07(6.090stba) ; 
tthq4izm2.0803mthb41i 
*CorTzacatth4i+spth2wf3.0e0-34.0o0*ctb+ctth)i; 
aDr=sthdiet-42.0e0+5 .De0eth2+5Ppth2at8.0e0wcth~ctthy) ; 
a0i=Sthaqi#*(theK-12.060+6.0e04th2)+-5spth2sgtthby) 
冯 1rmgth4i(134.0e0wtmth2-7.De0espth24ctb) ; 
所 ] 12 一 Bth4iz(30.090#+ 蕊 hb~5 .0e0?3spPthbh2ysth)] ， 
a2r=tth4jiwrK-4.De0wtoth2+2.090e3bth2actb) i 
月 之 im 七 夺 hd [12.0e04th+2.080+sPth29sth) ; 
adrmsth4isf2.0es0setoth2-sPpth2wcth) ; 
a3i=Ssthaivw{56.06903?th-amth2wBth) 1 
了 
clsa0r*endpts[1]+alr4endpts[2] +a2rwendpta[3]+asraandpts[4] ; 
3L=aDt*andpte[1]+alisendpts[2] +a2i+emdpts[3]+a3i*endpts[d] ; 
<rra0xwendpts[8]+alrwendpts [7] +a2r4+andpts[6]+a3rrendpts[S] ; 
sr = -40iyendptafB]-aIieendpt5[7]-a2isendpts[6]-a3iwandpts[5] ; 
起 工区 = 中 站- 汪 ] 和 
COOB(aTg] 
Se=Bin(arg)3 
COITB=C1+C 相 CI- 中 8Y; 
韶 妇 如 工 工 四 一 日 了 十 各 中 CTCPBI; 


因为 dteceor 的 用 法 有 时 让 人 困惑 ,我 们 也 给 出 :个 说 明 性 的 程序 dtint, 它 针对 一 般 的 ap\w 和 玫 (o) -利用 
dfteor 计算 等 式 (13. 9. 1) ,此 程序 中 有 儿 点 值得 注意 ; 移 数 M 和 NDFT 对 应 于 上 面 讨论 的 并 种 w, 仅 当 w 
或 5 或 &(9 发 生变 化 时 ,通过 连续 调用 ,我 们 重新 计算 博 里 叶 变 搞 。 

因为 ttint 是 用 来 计算 满足 ea<r 的 任何 w 和 值 的 情况 ,而 下 仅仅 是 由 DFT( 等 式 (13, 9. 12)) 返 回 的 特 
殊 值 ,所 以 我 们 在 DFT 谱 上 进行 MPOL 阶 多 项 式 播 值 .还 有 一 点 要 提醒 的 征 为 了 使 这 种 描 信 辅 确 ,必须 先 
一 个 大 的 过 取样 因子 (N 六 M) ,在 插值 后 ,我 们 将 dftcer 中 的 端点 校正 加 上 , 它 可 以 在 任何 w 值 处 估 黄 . 

尽管 dfteor 非常 好 用 ,但 dftiat 名 起 说 明 的 作 町 . 它 不 是 一 个 适 于 所 有 纪 标 的 程序 ,因为 它 太 能 将 蕊 
参数 M\NDFT.MPOL 或 它 的 插值 方式 用 到 和 任何 特殊 丙 数 Ai) 中 ,对 读者 自己 的 实 奈 情 况 必 有 纺 进 行 实验 。 


共 inpelude 必 math,h>> 
林 include ”nruti- hy 


切 dejfine M 64 子 间 了 栈 的 个 教 
六 define NDFT 1024 FFT 的 长 度 (2 的 卉 次 ) 《这 二 个 重出 户 
斗 define MPOL 手 值 多 项 式 阶 数 ,用 于 愉 FT 中 获得 所 要 鸭 频 率 必须 进行 优化 ， 


阅 define TWOPI (2.0* 3.14159264) 


void dftint(ftloat (* fune) (float)。 ftoat ay float b， float wy，float wx cosint ， iloar * sinint) 


这 是 “个 说 明 如 何 使 用 程 床 ftcor 的 范例 程序 .用 户 应 提供 一 个 外 函数 fumc, 它 返回 意 4) ,程序 区 cosint 返回 各 
盆 soscopacnd 储 , 以 sinint 扯 问 积分 sinceeyactyads 的 值 。 


void dfteor (float ww，Jloat delta, float ay, iloat by, float endpts-]， 
float * corre float * cotim float +caorfac); 
void poilint (foat xa[], float ya[]，int nt float x, float yyy float xdy)1 
void realfttfloat data[]，unsigned jong n，int isign); 
Statjc int jnit 一 人 
int j，nny 





static float aold 一 一 1,ed0vbold 一 一 1.e3ndeltafCajuncoldykfloat); 
static jloat dara[NDFT 一 iendptsT9] 

jeat cycdftycerrycorfac cotrim caokre yen yst 

了 oat sdjt ,serr ，* cpol，# EDPO:，s Xpoii 


cpol 一 vectorC1,MPOL)s 
spol -= yertorf(1 ,MPOL); 
xpol 一 vector1 ,MPOL); 
计 finit ! 一 1|1|al= sotdllbl=ihbold | func1l= fancold) : 基 否 需要 初始 赋值 或 只 改 释 o" 
init 一 13 
30] 一 83 
bold=hbi 
funcold 王 func: 
deite 一 tb -a)7MIi 


for 4 一 13j 坟 ==M+1 一 十 ) 将 函 表 值 装 入 多 握 组 
dataf 条 一 (< func)ta 一 (j -])》delta) 

for G=M 十 23j 过 NDFT5 一 十 )》 对 数据 蛆 的 其 余 点 进行 谷地 填充 
datra[ 门 一 C, 0 

for〈j 一 19j 扫 一 4 十 十 虽 对 端点 贱 伪 


endprs[ 门 =data 让 
endpts -j 十 4] 一 data[M 一 3 一 + 
1 
天 
tealfffdatayNDFT，,1); realt 在 data[ 2] 中 返回 的 是 对 应 于 ww 无 用 的 借 .实际 上 ， 
这 个 元 过 包含 对 应 mm 的 赚 部 ,所 以 其 值 为 0 


对 想 要 的 频率 在 DFT 结果 上 插值 ,如 果 频 率 是 ww, 即 量 en 是 整 
下 cqft 王 datn[2 fen 一 1],sdft 一 datra[2 em] 并 囊 可 以 省 了 略 
en 一 WwWxdeltax< 上 NDEFTATWOPT 十 1.0; 
nn 一 ]MIN CIMAXICinty(en 一 0,.5> MPOL 十 1.0) ,1t),NDFT72 一 MPOL 一 175 揪 值 最 左边 的 品 
for (一 1 所 一 MPOI.:j 一 十 nn 十 二 了 
cpol[j 订 一 data[2 * nn 一 1]， 
spolLj] 一 data[L2 x nn]; 
xpol[j] 一 npy 
} 
pojlint(xpol ycbpol,MPOL ens&gcqfty&cerr)i 
polint(xpol ,spol ,MPOL ,en&sdft ,gsertr)1 
dfteorfmw,dejtayaybyendbts ,Rerorrey&corimy&eorfac]i 求 端 贞 按 正 值 刊 乘积 因子 隶 (人 
odft + 一 Rorfacj 
sdft * 一 cotffac 
cdft 十 一 corte+ 
sadft 十 一 cotitmt# 


C 一 delta # ceOq(Cwr 光量 站 

5 一 deltaw sinkywr ya)i 最 后 委 以 A 和 exp(ma) 
# Cosint= 一 Cscdft 一 as sdfth 

# sinint 一 S#% edt 十 ce sqftl 

free-veetorfcpol,1,MPOLJi+ 

free_-vectcr(spol,1,MPOL) 

free_yeetot (xpcl,1 ,MPOL)} 


有 时 外 人 们 只 对 等 式 (13.9.5) 中 的 离散 颗 率 ww 思 兴 趣 , 它 是 在 区 间 [a,o] 中 有 整数 间隔 处 的 点 .对 光 


请 的 ，(t)?，* 在 这 些 几 处 的 积分 了 其 幅度 可 比 在 这 些 咯 之 问 频率 处 的 积分 幅度 小 很 多 ,因为 小 间隔 内 机 半 的 
积分 可 能 相互 抵 销 ,( 这 也 是 为 了 插值 的 精确 性 我 们 必须 过 加 样 的 原因 :zw) 在 ww。 值 失 近 处 是 小 媚 度 的 振 
葛 值 )。 如 果 要 求 在 这 皮 em 处 的 积分 值 , 和 而 不 采用 大 数目 (可 能 不 精确 ) 的 撒 信 ,那么 必 有 希 使 w 为 寻 的 整数 
傍 数 5 比较 式 513. 9. 5) 和 式 5]13.9.120)) ,在 我 们 用 上 面 实行 的 方法 中 ,N 必须 至 少 是 hf 十 1 ,因此 最 小 的 这 
样 的 坎 数 是 324, 导致 因子 一 2 的 不 必 移 计算。 或 者 人 们 可 以 导出 类 位 等 式 (13,9. 13) 的 公式 ,但 是 从 DFT 


5DO * 


中 略 去 最 后 的 样本 函数 kw 一 地 ), 面 将 它 包括 存 ku 的 端点 校正 项 中 .那么 就 可 以 设 WwW 一 Ai(2 的 整数 宕 )， 
并 且 在 没有 附加 开销 下 得 到 (13. 5.5) 式 的 特定 频率 ,其 修正 公式 如 下 
To) 一 AaoenafY( 的 [DFT(pe Re ]n 

十 gck8) 丰 十 G1KB) 由 | 十 at 人 B) 几 十 sf 人 五 13. 5 1430 

十 eee-o[L4(9)aw 十 al (Da 十 oO)he yy 一 ai(o)hr 3]) 
其 中 9 三 wsaA, 对 于 梯形 情况 4( 约 由 下 式 给 定 

4 一 一 wofB) 713.9. 13)》 

对 于 立方 情况 


二 2) 一 。 
6 十 118 )eos25 iTIm[atO)] 





9) 一 


113, 9. 16) 


工 上 上 p_ 8h 1 0 .: 
可 十 站 ! 一 8482 十 141759 zhmfeo(9)] 


当 计算 光 窒 酷 数 的 博 里 叶 系 数 时 ,入 然 会 得 到 象 W (2) 这 样 的 因子 .但 是 ,为 了 得 到 精确 的 积分 值 ,端点 以 
正 同样 很 重要 . 纳 拉 西 丈 汉 (Natrasimhan) 和 卡 思 基 扬 (Karthikeyan)0 哈 出 了 -个 等 式 , 克 代数 形式 上 看 等 
价 于 我 们 的 梯形 公式 ,但 是 ,他 们 的 公式 奢求 两 个 FFT 人 情 算 ,这 是 不 必要 的 。 这 里 采用 的 基本 轩 想 后 以 过 
回 到 费 龙 (Fitoen)59 在 1928 年 发 表 文 章 (在 FFT 之 前 上 ,他 用 了 辛 卜 生 (Simpson) 规 则 (二 次 揪 信 ,因为 这 
种 持 倘 不 是 左右 对 了 丈 的 , 融 机 两 个 博 里 时 变换 。 关 于 等 式 (13. 9. 4) 的 另 … 个 算法 由 菜 尼 思 《tLynsss ) 在 文献 
[和 中 给 出 ! 还 可 以 参看 文献 [5]。 据 我 们 所 知 , 我 们 导出 的 立方 阶 公式 在 以 前 的 文献 中 未 出 现 过 ， 
当 积 分 范围 是 "一 = ,ce) 时 ,计算 傅 里 叶 变 换 将 有 一 点 让 人 头疼 .如 果 积 分 函数 在 无 穷 远 处 很 抉 衰减 ， 
那么 可 以 在 足够 大 的 + 信 处 分 役 积 分 .例如 对 到 十 o 的 积分 可 以 号 为 
六 aa -| cna 十 | ecDd 
《13.9.17) 


-| < 吃 (zt 一 De 2 
分 段 点 二 必须 选择 得 足够 大 ,以 使 铀 下 的 (6,c) 积 分 很 小 , 它 的 渐 近 展开 形式 中 的 系列 项 是 前 过 分 部 积分 
得 到 的 .在 (ea,2) 内 的 积分 可 以 用 dfint 计算 。 人 在 计算 容易 的 情况 下 保留 尽 可 能 多 的 渐 近 展开 项 -可 以 参见 
-6] 中 的 示例 ,更 强 有 的 方法 ,特别 适用 于 长 尾 末 教 的 方法 , 却 林 用 FFT ,在 文献 [7 一 9] 中 有 叙述 。 


参考 文献 和 进一步 读物 ， 
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P，B8. [1] 
Narasimhan ，RMI.S，and Karthjkeyan ，M。 1984，7 殉 区 瑟 Transactions oz ntenrtas 中 Propagatior， vol，32， 
PP，404~-408- [2] 
Flion，L, NG、1928， 忆 roceecirigs oy 全 e RRoyatl Soctety o 大 卫 Carzbkrg 看 ，vol， 49，bp, 38 一 47. [3- 
GiuntaG,and Murli,A，1987，4CaH Transacttns on Haihemiatical Se 天 roare，vol，13， pp， 97~- 137. [4 
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[5 
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13, 10 “小 波 变换 


象 快速 博 蛙 片 变换 (FFT) 一 样 ,离散 小 波 变 换 是 一 个 快速 线 尘 还 算 , 记 对 共度 是 2 的 寺 
次 的 数据 种 量 进行 操作 ,将 它 变换 成 同样 长 度 但 在 数字 上 不 同 的 向 量 . 和 TITT 人 梓 : 小 波 蛮 
换 是 可 道 的 ,事实 上 还 是 下 交 的 一 一 逆 灾 换 , 当 肴 做 是 一 个 大 扼 阵 时 ,就 是 变换 的 转 距 ,因此 
FFT 和 DWT -者 邵 可 以 看 成 是 在 丽 数 空 相 中 的 旋转 ,从 给 入 空 个 (或 时 间 ) 域 转换 到 “个 
大 同 的 域 ,其 中 的 基 疯 数 是 单位 向 量 ,或 者 从 连续 的 极限 角度 看 是 狄 拉克 (Diracle 鸡 数 . 
对 于 FET, 这 个 新 域 的 基 亚 数 尾 我 们 熟 亚 的 正弦 和 余弦 尖 数 .在 小 波 域 中 基石 数 要 复杂 … 
些 , 并 且 有 -一 个 奇特 的 名 字 称 * 伍 琐 数 " 和 "小波 ”。 

当然 ,对 于 琢 数 空间 可 能 有 无 数 多 个 基 , 它 们 中 的 大 多 数 几 乎 没什么 意思 :使 小 波 基 有 
意思 的 是 ,不 象 正 弦 余 弦 盟 数 ,单个 的 小 波 函 数 空间 大 非常 局 域 萎 的 ;同时 , 象 正弦 和 余 咳 函 
数 ~- 样 单个 小 波 青 数 在 频 府 或 者 (更 精确 地 说 ?特征 尺度 上 也 是 非常 局 域 化 的 .如 同 在 下 面 
我 们 将 会 看 到 的 ,小 波 的 这 种 双重 局 域 性 使 得 很 多 种 冰 数 和 算 符 变换 到 小 波 域 时 变 得 稀 术 . 
或 者 稀 琉 到 一 定 的 精确 度 . 和 博 里 时 域 相 比 ,一 些 运 算 , 象 卷 积 等 , 变 得 计算 很 快 ;! 同 样 有 一 
天 种 类 的 运算 一 一 它 可 以 利用 稀 蚊 性 的 送 算 一 一 在 小 波 域 里 计算 变 得 也 很 快 当 。 

不 象 正弦 和 余弦 ,定义 了 独一无二 的 博 里 叶 安 换 , 这 里 没有 一 个 独特 的 小 波 集 ; 实 际 上 
可 能 有 无 穷 多 个 这 样 的 函数 组 .粗略 地 说 ,不 同 组 的 小 波 在 两 个 方面 一 -空间 上 局 域 的 疏 密 
程度 各 光 漳 程度 一 一 进行 权衡 (过 有 一 些 更 纪 微 的 区 别 )。 


13. 10,.1 德比 契 斯 小 波 的 滤波 系数 


- 弓 特 定 的 小 波 由 “组 特定 的 数 集 , 称 为 小 波 涉 波 系数 标定 .这 里 ,我 们 将 我 们 的 寺 沦 
限制 在 击 德 比 契 斯 (Daubechies 发明 的 一 种 滤波 器 .这 种 滤波 器 包括 的 范围 从 高 度 局 域 到 
高 度 光 滑 。 最 简单 的 (也 最 局 域 的 ) 一 类 ,通常 称 为 D417864, 仪 有 四 个 条 数 :co .ee 我们 
特别 对 这 种 滤波 器 进行 记 论 、 

考虑 下 面 的 窗 换 第 阵 , 将 它 作 用 十 一 列 数据 向 量 的 左边 。 








下 ] 
5E 一 人 et 一 癌 
人 
| 人 一 多 一 区 
(13.10. 1) 
| 2 Cl fa 人 
二 一 
0 6 
- 《3 5 一 《 志 


六 条 空 处 表示 零 . 注 意 此 矩阵 的 结构 :第 - 行 产 生 … 个 数据 与 滤波 系数 co . ,es 卷 积 的 分 
量 .与 此 类 似 , 对 第 一 、 第 五 行 各 其余 奇 数 行 的 结果 一 样 -如 果 侦 数 行 以 这 种 形式 出 现 , 正 饼 
交 玲 ,那么 盾 阵 将 是 循环 的 ,也 就 是 一 般 的 卷 积 ,可 以 用 FFT 方法 计算 (注意 最 后 栈 行 象 具 
有 周期 边界 条 件 下 的 卷 积 那样 环绕 起 米 )。 但 是 偶数 行 并 不 是 以 系数 c,，…,. ,cs ,而 是 皮 系 数 
ce，-cavclvfe 进 行 卷 积 整个 矩阵 的 作用 就 是 进行 两 个 相关 的 卷 积 ,然后 各 去 掉 一 半数 值 ,将 
剩 下 的 各 一 平 溶 在 一 起 。 

"502。 


将 滤波 器 ce :cs 看 成 是 一 个 光滑 滤波 器 , 称 它 为 互 , 百 有 点 象 四 个 点 的 移动 平均 。 
那么 因为 负 号 ,滤波 器 cj, 一 cc. ,一 习 , 称 为 ,不 是 一 个 光滑 滤波 器 。( 在 信和 号 处 理 的 文献 
中 ,五 和 C 被 称 为 求 积 镜 象 滤波 器: .) 实 际 上 , * 值 的 选取 是 使 得 C 对 足够 光滑 的 数据 向 
量 G 尽 可 能 产生 零 响应 .这 以 通过 要 求 序列 c, 一 eye, 一 有 一 定数 旨 的 没 影 矩 来 完成 。 
当 这 是 请 矩 的 情形 (从 稚 开 始 ) 时 ,我 们 说 这 组 小 波 满足 " 阶 数 为 忆 的 近 拟 条 件 ". 这 导致 如 
的 输出 在 去 掉 一 半 以 后 , 精 珀 地 代表 了 数据 的 “光滑 ”信息 .G 的 输出 , 司 样 去 掉 一 半 后 ,被 称 
为 数据 的 “细节 "信息 。 

鉴 使 这 种 特征 有 用 ,必须 能 从 它 的 N72 个 光 痪 或 分 量 和 它 的 N72 个 细节 或 二 分 量 
重建 长 度 为 N 的 点 始 数据 向 量 。 这 就 要 求 撼 阵 (13. 10. 1 是 正 交 的 ,以 使 它 的 着 矩阵 就 是 转 
回 矩 阵 





放 《3 2 《1 
6 Caz 5 一 (53 
cz 5 Ca 
CC 一 Co el 一 饭 
(13.10.2) 
C 人 6 性 
ti 一 一 5 
| C2 台 Co [3 
CC 一 6 


可 以 马上 看 出 , 材 使 叫 阵 (13. 10. 2) 是 矩阵 (13. 19. 1) 的 逆 拒 阵 , 当 是 仅 当 以 下 . -等 式 成 立 
cc 十 叶 十 和 十 纯 =1 


《13. 10. 3》 
cafuo 十 Cel 一 人 
如 果 我 们 附加 要 求 阶 数 为 关 一 2 的 近似 条 件 , 则 还 有 另外 两 个 条 件 ， 
人 (13. 10, 4》 


Des 一 lc 十 26. -- 3co 一 0 

等 式 (13. 10. 3) 和 (13, 10. 4) 总 共有 4 个 等 式 和 4 个 未 知 量 co ,ca 这 4 个 等 式 第 一 次 被 
德比 契 斯 建立 和 求解 , 它 的 特 解 (能 进行 左右 道 转 ) 是 

如一 (1 二 wY3)4w7T cq=(3 二 vv) 

ce 一 (3 一 V3)MVI co=( 一 YY 
事实 上 ,，DAUB4 是 小 波 组 中 唯一 的 最 紧密 的 序列 ,如 果 我 们 有 6 个 系数 而 不 是 4 个 系数 ， 
那么 在 方程 (13. 10, 3) 中 需要 三 个 正 交 条 件 ( 偏 嘲 值 分 别 为 0、2 和 4) ,在 等 式 (13. 10.4) 中 
我 们 则 需 贾 = 一 3 的 没 影 矩 。 在 这 种 情况 下 解 得 的 系数 ,DAUB6 也 可 以 用 非常 毗 净 的 形式 表 
示 : 
cd 二 VDATW5+2wVIC76 WwW 站 =(65+ wa10+3WV5+2 vio0)r16 3 
cs 一 (0 一 2Y10 十 2 VS5 + VD7a6 v2 cd-=(0-2w0-， VS V10)716 2 


ci 一 (5 十 Vi 一 3V52w0)716 ww 2 cs 一 (十 而 二 WE VON 
(13. I0.6》 

对 更 高 的 如 ,上 至 10, 德 比 契 斯 (Daubechies)4i 已 经 列表 给 出 这 些 数字 系数 。 答 增 加 1, 系 
* 503， 


导 13. 10, 5 


数 的 数 旦 将 增加 2 倍 。 
13. 10. 2 ”离散 小 波 变换 


迄今 为 止 ,我 们 还 没有 定义 离散 小 变换 4DWT) ,但 是 我 们 几乎 到 了 这 一 步 ; DWT 可 由 
分 级 地 应 用 象 等 式 (13. 10, 1) 的 小 波 系数 矩阵 而 得 到 ,首先 基 长 度 为 w 的 全 数据 问 量 , 接 着 
是 长 度 的 N72 的 “光滑 ?向 量 , 再 接着 是 长 度 为 N/4 的 “光滑 一 光滑? 向量 ,这 样 一 直 进 行 
下 云 ,直到 一 个 数目 非常 小 的 (通常 是 2 ) 的 “光滑 一 .一 光滑 ?分 量 被 留 下 来 .这 个 过 程 有 
时 被 称 为 “全 锥 形 算 法 部 1, 这样 命 名 的 原因 是 很 明显 的 。DWT 的 输出 是 由 留 下 的 分 量 和 所 
有 的 “细节 ”分量 构成 “细节 ”分 量 是 在 这 个 过 程 中 逐步 积累 起 来 的 。 一 个 方 框图 可 用 来 清楚 

















地 这 个 过 程 ; 
2 3] 人 [sS: ] 5 
3z 万 | 3: 号 ， | 人 ,2 
了 2 1 53 :| 3 | E21 
4 ds |5 | 疡 : 4 多 。 
5 8 185 1 ] 1 
36 Gi | 36 已; 吃 : 也: 
1 34 | s， s; 吃 ; 门 ; 
哆 人 13. 10. 1) 约 址 中 示 ，(13. 10. 1 子 推 列 2 将 似 进 行 . 子 (13. 10.7) 
1 
00 人 2 二 : 妈 ， 2 
230 136 必 Gi 可 3; 弛 3 
3 iaa :Gd 1 志 dt 吕 
3 187 人 < 吧 ; 妈 5 
JJ 坟 1 才 5 dt 
2305 | 38 :Gd | 对 弛 7 好 
本 人 上 











16 La .8j df La j 

如 果 数 据 向 量 长 度 是 2 的 更 高 窦 次 , 堵 么 将 有 更 多 步 运用 等 趟 (1 10, 1)( 或 其 它 的 小 波 系 
数 ) 及 重新 排列 .终止 点 永远 是 由 两 个 *, 分 级 的 瑰 .D 和 吕 构 成 。 注 意 ,d 一 旦 产生 ,将 简单 
地 沿 以 后 各 步 传递 。 

任何 一 步 的 上 被 称 为 原始 数据 向 量 的 “小 流 系 数 ”": 最 后 的 5 .5: 应 该 严格 地 称 为 “ 垦 蓝 
数 系数 ”, 斥 管 最 后 的 刀 和 8 通常 不 严格 地 都 称 为 “小 波 系 数 ”. 因 为 整个 过 程 由 正 交 的 线性 
运算 构成 ,所 以 整个 DWT 本 身 是 一 个 正 交 的 线性 运算 算 符 。 

为 了 对 DWT 求 递 ,只 须 简单 地 自 个 整个 过 程 ,从 最 低 阶 开始 ,按照 等 式 (13. 10. 7) 从 右 
向 左 进行 . 道 矩阵 (13,. :0. 2 当然 被 用 来 代替 矩阵 (13. 10. 1) 。 

正如 已 经 注音 到 的 ,矩阵 (13. 10.1) 和 (13. 10. 2 体现 了 数据 向 量 的 阁 期 性 边 条 件 ( 环 
绕 轨 ,人 们 通常 把 这 作为 一 个 小 的 不 便 接 受 了 :在 每 一 步 的 最 后 几 个 小 波 系数 受到 数据 向 量 
两 端的 数据 的 影响 .通过 和 祝 环 移动 齿 阵 (13. 10.1) 的 N72 列 到 左边 ,就 可 以 将 环绕 对 称 化 ， 
但 是 这 并 不 能 消除 它 。 实 际 上 有 可 能 通过 改变 式 (13. 10. 1) 中 最 前 N 行 和 最 后 N 行 的 系数 
而 完全 去 掉 环 绕 , 即 给 出 一 个 纯 带 状 对 角 的 正 交 和 矩阵 .这 种 变化 在 有 些 时 候 , 例 如 数据 向 量 
一 映 数 据 的 辐 度 是 另 一 映 的 很 多 倍 时 特别 有 用 ,但 这 已 超出 我 们 的 范围 。 

这 里 的 程序 ,wtl, 对 数据 向 量 aL1..n] 实施 角 锥 形 算法 (或 它 的 逆 算 法 ,如 果 isign 为 
负 ) .过 续 的 小 波 让 波 的 应 用 和 重新 排列 由 假定 的 程序 wtstep 来 完成 ,wtstep 由 用 户 提供 
《 紧 接 着 在 下 面 我 们 给 出 了 几 个 不 同 的 wtstep 程序 示例 ) , 


"6504 。 


void wtl{(foat ai ，unsigned iong ny int isign， 
void〔* wtstep)》 (lcat [] ，unsigned long ，int )》 
一 瞧 离 散 小 波 变 换 . 此 程序 实现 角色 算法 ,将 它 的 小 波 变换 代 答 as[1. .mn]( 邵 果 aign 一 1) ,或 者 执行 过 运算 (如 果 


ising 一 一 1)。 注 意 mn 上 须 是 2 的 整数 赛 。 在 调用 本 程序 的 时 候 提 供 各 序 wtstep, 它 是 基本 的 小 该 淖 波 器 .wtstep 的 鲍 
子 是 daub4 和 pwt( 在 程序 we 到 襄 ) - 


unsigned long nn 


ii 人 n < 4) retufrpl 





这 《ising 之 一 0 { 子 波 变换 
for (nn 一 nbn 六 一 440nD> 人 > 一 1) 【wx 如 tstep)faynnyisin 各 ?41 从 最 大 开始 ,工作 到 最 小 级 
else{ 逆 于 波 变 换 


for [nn 一 4; nn< 忆 一 ninnc < 一 1) 【wwtstep)tanhnyisighn)i 从 最 小 颇 开 始 工作 到 最 大 发 


作为 wtstep 的 一 个 特殊 示例 ,下 面 是 DAUB4 小 波 程序 : 


并 inelude ”ntutil. hy 

全 define CO 0, 4829529131445341 
站 define C1 0,. 8365163037378079 
半 define (2 0. 2241438680420134 
二 define C3 一 0.1294095225512604 


void daub4(flcat a[]，unsigned long na，int jsignhy) 
和 将 执 比 契 斯 4 系数 的 小 波 波 波 器 运用 到 数据 向 量 sa[1, .8h]( 恕 采 isign 一 1) 焉 者 运用 它 的 转 置 (如 果 sisgn 一 一 1), 分 


级 地 被 程序 ml 和 wta 使 用 。 


foat # wksp# 
unsigned long oh ,nhl ,ji 


Wksp 一 vectotft1in)i 
(na < 必 4) :eturn' 
hh 一 (hh 一 n 盖 > 1) 十 1: 
这 (iaign > 一 0 产 用 涉 波 如 
fer (〈i 一 1 一 1 所 辣 mh 一 3 十 二 25i 十 十 ) 
wksp[i 语 一 CO sa[ 门 二 C1Lx<arij 十 3 十 Ca[j 十 2] 十 C3wa[j 十 3]， 
wksp[i 十 nh] 王 C3xaL 让 一 C2xaDj 十 1 一 Cl1a-j 十 2] 一 COra[rj 十 3 
了 
wksb[i 一 COxa[n 一 1 十 CI an 十 C2xraLl]+C3ra[2]) 
wksp'i 十 ah] 一 C3 wa[mn 一 二 一 C2x a[n] 二 CI1xa[l] 一 COxa[2]5 
} else { 应 用 转 置 康 波 如 
wksp[1] 一 C2 *a[nh] 二 Cl *afn]+Coxa[l]+C3xaLnhl]y 
wEsp[2] = C3saEnh] 一 COxafnj 一 C1*arl] 一 C2wa[nhl2 + 
for (i=1j 一 3ficnhi 十 十 ) { 
wksp[j 十 十 ] 一 C2 * a[i-HClL*a0i 十 ah] 十 COY#a 拉 十 1] 十 C3wafi 十 ahl]， 
wksp[j 十 十 ] 一 C3xa[i 让 一 Ca 十 nh] 十 C1xaLi 十 1 一 C2*aLi 十 ahl] 
， } 
for (i 一 15i< 一 nail+ 十 ) ar 让 = 一 wksp0]y 
free_-yvecrortmkspi ln)y 


对 于 大 的 小 波 系数 集 , 对 最 后 几 行 或 几 列 的 环绕 在 编程 上 带 来 很 大 不 便 . 一 个 有 效 的 措 
旅 是 ,在 主 循环 之 外 作为 一 个 特殊 情况 处 理 环 绕 . 这 里 ,我 们 将 采用 一 个 更 一 般 的 方式 ,涉及 
"505 。 


到 在 运行 时 的 一 些 额 外 算术 运算 ,而 能 得 到 一 个 满意 的 结果 .下 面 的 程序 设置 了 任意 特定 的 
小 波 系数 ,它们 的 值 是 怡 好 已 知道 的 。 


typedef struct { 
int heof，io 寿 ，jo 夺 
foaf #CC，#CT; 
wavefilr 


Wavefiit wfilts 结构 的 定义 说 明 


void bwtsetfint n) 


pwt 的 初始 化 程序 ,这 里 实施 系数 为 4.12 和 20 的 比 契 藉 小 波 滤 性 器 , 系 救 的 选 拌 由 于 的 输入 值 决定 . 志 一 步 的 
小 波 滤 波 器 可 以 用 同样 明显 的 方式 包括 进去 此 程序 必须 在 bwt 第 一 次 使 用 之 前 讽 用 ,( 村 z 一 4 的 情况 .程序 tauhd4 
比 pwrt 快 很 多 。) 


void nrerror (char errQ_text[])+ 
Jnt ki 
flpat sig 一 一 1.0; 
stratic float cd[5] 一 :0.0,0. 4429629131445341,0, 8365163037378079， 
0. 22414338680420134， 一 0, 12940952255]12604 上 1 
static fioat cl12[13] 一 10.0.0,.111540743350,0. 494623890398 ,0, ?51133908021 ， 
0. 315250351703， 一 0. 2252646939685， 一 0. 1297668675567， 
0.097501605587,0, 027522865530, 一 0. 031582039318， 
0. 000553842201:0.004777257511， 一 0. 001077301085 1 
sratic float c20[231] 一 10,0,0.026670057901,0, 188176800078,0. 527201188932， 
0.688459039454 0- 281172343661， 一 0. 249846424327， 
一 0 195946274377,0. 127369340336 ,0. 093057364604， 
一 0.071394147166 ,一 0,.029457536822.0.033212674059 ， 
0. 0036065535574 0.010733175483,0. 001395351747， 
0. 001992405295， 一 0.000685856695 ,一 0 000116466355， 
0.00D09358867D， 一 站 0. 000013264220315 
static float c4r[5];cl2r[13],c20r-21]， 


wfilt ,ncof 一 hi 
En 一 一 4 上 
Wfit.ec 一 cd 
wrfilt cr 一 cdr+ 
} 
else 过 cn 一 一 12)， 
wfilt ec=Cl25 
wrfilt-cr 一 cl12r1 
elseii fn 一 一 20) 1 
旨 t, cc 一 c20+ 
wifilt, cr 一 c20ry 
} 
ejse nterrorf"unimp'ernented value hh in hwrtsety )# 
for (kk 一 1ik 忆 一 nk 一 十 ) { 
太 filt, crLwfilt ncof 十 1 一 k] 一 sig * wfilt ee[k]; 
aig 一 一 3ig# 


} 
WwWfiltyio 攻 一 wfilt.jo 红 一 一 虽 > 人 > 13 这 些 值 在 每 级 以 小 波 的 “支柱 ”为 中 心 分 布 ,小 演 的 “ 峰 ?* 可 以 通 志 
选择 ioft 一 一 2 和 kit= 一 ao 十 2 来 近似 ， 


一 旦 Pwtset 被 调用 ,下 面 的 程 译 可 作为 wtstep 的 一 个 特例 ; 


林 ipclude "nrutil 


9 506 * 


typedef struct { 
int ncof ，ioft ，jotf3 
float # ecC，Hett 
》wavefilty 


exXtern Wavefilt wfSilt; 几 pwtset 定 史 


Yocid pwtfloat a[]，unsigned long n，int isign) 
部 分 小 该 变 换 , 将 一 个 任意 的 小 波 汪 波 器 应 用 到 赦 据 量 a[1, . n]( 对 isikn= 1 情形 ) 或 使 用 它 的 转 置 (对 isign=: ~ 1 博 
形 )。 此 程序 被 wtl 和 wtn 分 级 调 几 . 实 际 的 淖 波 器 ,在 进行 站 波 之 前 (必须 希 ) 调 用 pwtset 来 确定 , 它 是 对 结构 wfitt 
必 初 始 化 ， 


Toat aiailiwwxepi 
unsigned 1cng 1 ,ii,],jft,jr,xnlni,n]vnhvnmodi 


if (aa< 4) rerurni 
skep=<vector(1 ,5) 3 


nmod*wtilt .ncofeD; 对 姬 等 十 符 的 正常 数 
al=n-li 因为 n 是 2 的 故 次 ， 所 以 屏 项 所 有 拉 
Zheamn >> 1; 
for 〔j=1lij<sn;j++》 wxsp[j]e0.0i 
1 【isign >= 站) 区 永忠 设 
for (iim1l,ie1;iicenii+e<2，ai++》 
ndwei+nImod+Nziltiofz; 指针 增加 并 坏 侥 ， 


开 J=i+Dmaod+wfilt-Jofz 
for (Kx=1iX<=eftilt.ncof;ik++) 
jfenl & (ni+k]i 用 逐 位 并 生 环 晓 指 针 
jrenl 睛 《nj+K) 
Wep[ii] +w wzilt.cc[x]jea[jf+1]; 
wkSp [+it+thh] += sfilt-cTr[kea[jr+l]i 


》 
} 
}》 slse { 求 转 回 滤 庆 
了 0z 【fm1 1w1; IC; 工 +m 人 1i++) 工 
aima[i1] ; 
Bitea[it+nh]y; 
Diei+nmod+wfilit .iotft' 看 上 面 的 说 明 


卫 ]=1+mumod+wTi1， joz 节 ， 
半 or 〈X=1ik<=ufilt ,ncof;k++)》 
Jzm(Cnl 二 《Ri+k))+1: 
Jrzmtfnl 和 二 《〔naj+K7)+1: 
WwWksp[jf] +m BTIL1Lt.ccrk]*+ai; 
exapijry + ziIt.ctrrxr]eail， 
} 
了 
Yorz (j”1;jcmn;j4+) arj]sewxsp[ 林 ; 避 工 作 空 得 复制 回 针 办 


rse_vector(wksp,1:r)j 


13,. 10.3 小 波 象 什么 


现在 我 们 来 看 一 些 实际 小 波 的 情况 .为 此 ,我 们 通过 上 面 的 离散 小 波 变换 备 单 地 运行 于 
单位 向 量 , 并 且 再 使 isign 为 负 以 进行 着 变换 。 图 13, 10. 1 显示 了 DAU34 小 波 , 它 是 长 课 为 
1024 的 向 量 的 第 5 个 分 量 构成 的 单位 向 量 的 送 DWT, 以 及 DAVB20 小 波 , 它 是 第 24 个 分 
重 的 送 DWT( 人 们 必须 选择 DAVB20 后 面 级 别 的 小 波 , 以 避免 带 有 环绕 尾巴 的 小 波 ) ,其 它 
的 单位 向 量 给 出 相同 的 形状 的 小 波 但 有 不 同 的 位 置 和 标 度 。 

可 以 看 出 DAUB4 和 DAUB20 有 过 续 的 小 波 .DAUB20 还 有 更 高 阶 的 连续 导 歼 。 
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DAUB4 有 -- 个 特别 的 性 质 , 它 的 导数 几乎 存在 于 各 处 .不 存在 的 地 方 则 在 2/2" 点 处 ,其 中 
户 和 ?m 是 整数 ! 在 这 些 点 处 ,DAUB4 左边 可 微 ,而 右边 不 可 微 .这 种 不 连续 性 一 至 少 在 革 
些 导 数 处 一 是 带 有 紧密 支柱 的 小 波 的 必然 特征 ,如 德比 痪 斯 数列 .小波 系数 的 数目 每 增加 
2 ,德比 契 斯 小 波 获得 一 半 的 连续 导数 。( 但 并 不 是 精 殉 的 一 半 : 精 确 的 数目 是 一 个 无 理 数 !) 

注意 如 下 的 事实 ,小 波 不 光滑 并 不 能 阻 让 它们 糖 确 代表 一 些 光 滑 机 数 ,如 同 它们 的 近似 
阶 数 户 要 求 的 那样 .小波 的 连续 性 和 由 一 系列 小 滤 代表 的 函数 的 连续 性 并 不 一 样 .例如 ， 
DAUB4 可 以 代表 (分 段 ) 任 意 斜 率 的 线性 函数 :通过 适当 的 线性 组 全 ,所 有 的 尖 点 被 消除 - 
系数 数目 每 增加 2 , 雁 许 高 1 阶 的 多 项 式 被 精确 代表 。 
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小 滤 族 DAVB4 和 DAVB20 中 的 单个 基 函 数 .一 个 完整 的 正 交 小 波 基 包括 这 些 苑 数 的 在 … 种 
平移 和 标 度 .DAVB4 有 无 穷 客 个 尖 点 1DAVB20 显 示 了 有 商 阶 寻 数 相似 的 行为 。 


图 13, 10.1 小 波 函 灼 
图 13. 10, 2 显示 了 对 输入 向 量 ele 十 ess, 又 是 两 个 不 同 的 特别 小 波 , 实 施 道 DWT 所 得 的 
结果 ,因为 10 在 等 级 范围 9 一 16 中 处 于 较 早 的 位 置 ,所 以 对 应 的 小 波 出 现在 图 形 的 左边 ; 
因为 58 处 在 等 级 范围 较 后 的 位 置 ( 较 小 尺度 ) ,所 以 它 是 一 个 较 罕 的 小 波 ,而 且 处 在 范围 33 
一 84 内, 它 接 近 末 端 ,因此 波形 处 在 图 形 的 右边 .注意 小 尺寸 的 小 波幅 度 更 高 ,因此 这 上 隔 个 
小 波 有 相同 的 平方 积分 。 


13.10, 4 伟 吐 叶 域 中 的 小 波 涉 波 
傅 里 叶 变换 的 一 组 滤波 系数 c; 由 下 式 确 定 : 
万 (ao] = > eic (013. 10. 8) 


这 里 媚 是 周期 为 2x 的 周期 函 教 , 它 和 以 前 有 相同 的 意义 ; 它 是 小 波 滤波 器 ,现在 在 信里 叶 
城中 重新 写 出 。 一 个 非常 有 用 的 事实 是 ，c 的 正 交 条 件 ( 参 看 上 面 和 等 式 (13. 10. 3)) 在 傅 里 
"508。 


叫 域 中 变 成 了 两 个 简单 的 关系 ; 
二 | 有 (0 = 1 (13.0.9) 


和 
言 [ke 十 TH 十 办 门 = 1 (3.10.10) 


类 似 地 ,z 阶 的 近似 条 件 ( 参 见 前 面 的 等 式 (13, 10. 3)) 有 一 个 简单 的 公式 ,要求 如 (在 w= 
x 处 有 一 个 第 扬 阶 零点 ,或 写 为 
有 mr) 0 凡 一 0 一 1 《13.10. 11) 
因 示 在 傅 里 叶 域 里 构造 小 波 系列 就 比较 直观 .只 要 简单 地 构造 一 个 满足 等 式 (13. 10. 9) 
一 13.10,. 11) 的 函数 五 tw) ,为 了 得 到 实际 的 c,, 它 可 应 用 于 长 度 为 N 的 数据 向 量 (或 *- 分 
量 ), 并 且 又 具有 如 则 符 阵 (13, 10. 1 和 (13. 10. 2) 的 周期 环绕 ,因此 就 可 以 利用 离散 伍 里 时 
变换 得 到 等 式 (13. 10. 1) 和 (13, 10, 2) 的 周期 环绕 ,利用 离 获 傅 里 时 变换 得 到 等 式 (13. 10.8) 
的 首 等 式 


人 起立 甩 (2 现 yerros (13. 10, 12) 
卡 一 0 
求 积 镜 象 滤波 器 G( 将 C 倒序 并 符号 交替 变换 ) 恰 好 有 傅 里 叶 表 过 式 
Cao) 一 e 人 oo 一 T) 《13.10, 137 


其 中 的 星 号 代表 复 共 罗 。 
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图 中 小 波 是 由 两 个 单位 向 量 ,me 二 css 之 和 产生 的 ,它们 有 不 阿 的 标 度 等 级 ,也 在 不 同 的 空间 
位 置 ,BAUPB4 小 让 (a) 是 由 在 坐标 空间 的 湾流 器 (等 式 (13. 10. 5)) 定 义 的 ,而 攻 莫 珊 小 波 (b) 
是 直 在 传 里 叶 空间 中 和 后 容易 写 出 的 洪波 器 (等 式 (13. 10. 14)) 定 义 的 ， 
图 13, 10.2 ”更 多 的 小 波 示例 
一 般 说 来 ,上 面 的 过 程 将 不 会 产生 具有 紧密 柱 的 小 波 滤波 器 。 换 言 之 ,N 个 cj(= 
“509。 





0，…,.,N-、 1 一般 是 非 零 值 ( 尽 管 它们 在 幅度 上 可 能 会 很 快 减 小 ) .德比 奖 斯 小 波 ,或 其 它 的 
有 紧密 支柱 小 波 都 是 特别 选择 ,以 使 得 吾 ( 由 是 -个 公有 少数 几 个 情 里 叶 分 量 的 二 角 冤 项 
式 , 以 保证 只 有 少数 几 个 非 霍 的 c， 

另 方面 ,有 时 并 没有 特别 的 原因 要 求 紧密 的 支柱 .放弃 这 个 要 求 将 容许 构造 更 光滑 的 
小 波 《更 高 的 请 值 ). 妓 使 没有 紧密 支柱 ,在 矩阵 (13. 10.1? 中 隐 舍 的 着 积 也 可 以 用 FFT 方法 
有 效 地 计算 。 

著 莫 瑞 (-emarie) 小 波 (参看 文献 [4]) 有 2 一 4, 但 没有 紧密 支社 ,并 且 通 过 选择 瑟 (o? 来 
定义 ， 


《13. 10, 323) 





315 一 420a2 一 2882 一 全 | 
315 -- 420zm T 126r2 一 42 


其 中 巡 Sin 二 中 Sin?m 《13. 10, 25》 


解释 等 式 (13. 10, 14) 来 源 超出 了 我 们 范围 .一 个 不 正规 的 描述 是 :由 等 (13, 10. 14) 导 出 的 求 
积 镜 象 滤波 器 C(o) 具 有 性 质 一 一 当 它 运用 到 某 种 因数 ,这 种 项 数 的 奇数 料 本 值 等 于 它 代数 
样本 值 的 立方 样 条 搬 值 时 , 它 给 出 恒 等 于 0 的 结果 .因为 这 淆 函数 包括 很 多 光滑 的 成 员 , 正 此 
过 (ww) 选 择 一 个 函数 的 光滑 信息 内 容 时 做 得 非常 好 。 莱 莫 坟 小 波 示 例 显 示 在 图 13. 10. 2 中 ， 


13. 10,.5 被 截 小 波 近似 

小 波 有 用 性 的 一 个 重要 方面 在 于 这 样 一 个 事实 ,小波 变 换 可 以 被 严重 截 去 而 依然 有 用 ， 
也 说 是 说 对 小 波 可 以 进行 稀疏 堪 开 .。 傅 里 叶 变换 的 情形 就 不 同 : FFT 通常 是 没有 被 截 香 地 
运用 ,例如 ,进行 快速 人 卷 积 就 是 如 此 .之 所 以 能 进行 这 种 运算 是 因为 卷 积 算法 在 傅 里 时 基 中 
特别 简单 .但 是 在 小 波 基 中 ,没有 任何 标准 的 算术 运算 是 特别 简单 的 。 
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子 波 数 
'a) 带 有 尖顶 的 任 瘟 检 验 函 茹 ,取样 成 为 度 为 1024 的 问 量 !(b) 对 Ka) 进行 离散 小 波 变 换 后 产生 的 1024 个 小 
波 系 数 的 绵 对 值 .注意 图 中 的 对 数 坐 标 . 当 控 太 小 降 低 的 顺序 排序 时 ,图 中 点 曲线 线 具 有 闻 祥 的 幅度 ,可 以 
硝 出 1024 个 系数 中 仅 140 个 系数 的 值 太 寺 10” (或 大 于 10-5 犁 以 最 大 系数 值 ,这 个 系数 值 约 为 10》 
图 13.10. 3 
610。 


为 了 明白 截 除 是 怎样 起 作 国 的 ,上 虑 在 上 页 图 13, 19. 3 中 的 简单 示例 .上 面 时 方 朴 中 列 
出 一 个 任意 被 选取 的 检验 函数 ,除了 一 个 平方 根 的 类 点 外 是 光滑 的 , 亡 被 取样 成 八 讼 为 2 
的 向 量 。 下 而 的 方 框 5( 实 线 ) 用 对 数 的 刻度 显示 了 加 量 经 过 DAVB4 离 散 小 波 变换 后 的 分 量 
的 绝对 佳 。 注 意 从 右 到 左 是 不 同 的 谱 级 别 ，513--1024,257 一 512,129~-256 竺 在 条 弄 . 
小 波 系 数 仅 在 紧 奉 近 尖 峰 的 地 方 , 或 者 紧 靠 谱 范 围 的 左边 界 和 右边 界 (边缘 效 庆 : 二 不 可 忽 
略 。 

在 上 页 图 13. 10. 3 的 直方 框图 中 的 点 线 和 实 线 上 共有 相同 的 幅度 ,但 点 曲线 线 是 直系 娄 利 
的 大 小 降低 的 顺序 排列 -例如 ,从 多 上 当 上 可 以 看 出 第 130 个 最 大 的 小 波 条 数 鸭 幅 庶 俏 北 
小 波 的 最 人 幅 误 的 10- 倍 还 要 小 ,小 波 系 数 最 大 幅度 值 接近 一 10 《功率 或 平方 积 志 引 直 于 
1072)。 央 此 ,作为 示例 的 晤 数 可 以 仅 被 130 个 条 数 精 确 代 表 ,而 不 是 1024 个 系数 一 一 余 于 
系数 训令 其 为 0 -可 以 看 出 这 种 截 除 使 和 量变 稀 统 ,但 不 差 于 1024 .还 有 :点 很 重要 . 财 就 
是 在 小 波 空间 中 向 量 的 截 除 应 根据 分 量 的 幅度 ,而 不 是 各 分 量 在 向 量 中 的 位 置 .人 幅 是 保 曾 旧 
最 的 前 256 个 分 量 (这 向 量 占有 除了 最 后 两 个 级 的 所 有 谱系 ) 将 对 函数 给 出 一 个 非常 美的 、 
边缘 参差 不 齐 的 近似 .因此 当 用 小 波 压 稀 一 个 函数 时 ,必须 同时 记录 站 零 系 数 藤 值 和 亿 取 ， 

一 般 来 说 ,紧密 (因此 不 光滑 ?小 设 更 适合 于 较 低 精 度 的 近似 和 带 有 不 连续 ( 象 边 并 ) 的 
函数 ,而 光滑 { 因 此 木 紧密) 的 小 波 则 适合 获得 较 高 数字 精确 度 . 这 种 性 质 使 得 紧密 小 流 成 为 
图 像 压 缩 的 较 佳 选择 ,光滑 小 波 成 为 积分 等 式 快速 计算 的 最 好 选择 。 


13. 10.6 “多维 小 波 变换 


一 个 4 维 数组 的 小 波 变换 很 符 易 根据 其 下 标 顺序 地 变换 而 得 到 ,首先 是 第 一 个 下 标 
(对 其 它 下 标的 所 有 值 ) ,接着 是 第 二 个 下 标 ,等 等 .每 个 室 换 对 应 于 乘 以 一 个 正 交 年 阵 . 由 于 
敌阵 的 结合 性 :所 以 其 结果 和 下 标 被 变换 的 顺序 无 关 . 此 情形 和 多 维 的 FFT 非常 类 似 . 因 此 
有 效 地 进行 多 维 DWT 的 程序 可 以 用 多维 的 FFT 程序 如 fourn 为 模型 而 建立 起 来 。 


六 inclade "nrutil, hy 


void wtnffloat a[ ，umsigned long nn[]，int ndim，int isign， 
waid〔# wWtstep] (flaot []，uansigned longy， int)) 
如 时 jaign 绽 入 量 为 1, 邦 么 将 用 a 贡 ndim 维 离散 小 波 变 换 普 痪 aunan[ 1. .ndim 1 是 一 个 整数 数组 ,其 住 为 等 绕 的 长度 
《 实 值 赦 ) ,并 豆 还 必须 是 ?的 寄 次 ,a 是 一 个 实 教 数组 ,其 疼 度 为 上 各 个 长 度 的 积 ,在 s 中 数 插 以 多 准 实 型 数组 的 形 
式 储 人 守 . 如 果 iign 以 一 1 输入 ,那么 a 将 兵 它 的 赣 小 波 变 换 蔡 换 . 程 序 wlstep 叱 其 本 的 小 波 涉 波 器 , 课 用 比 程 床 之 前 
它 必 须 提 供 。wtstep 的 忱 子 有 daubs 和 pwt( 必 须 将 pwtset 包括 在 前 ) 。 


tnsigned long ii2,igskynsnnewsnprevr 一 ] ,ntyntot 一 ] 
int idinm+ 
floaf *# wkspi 


ier (iditmm 王 liidim<:=ndimiidim 十 二 ) ntot < 一 Rnlidimj 
wksp 一 vectotrt1 nrot]i 
por (idim:=1l;idim< 一 ndimiidim 十 十 ) ! 对 维 救 的 本 短 环 
n 一 nnf[idim 2 
nnew 一 HH# nprevl 
诺 避 > 二 7 
for (i2 一 0ii2<cntotyi2 十 一 nnew) ! 
fof (il 一 1;i 必 一 obreviil 十 十 ) 
for (jg 一 计 十 记 ,k 一 1ik< 一 nik 十 十 ,i3 十 一 nprev) wksp[k] 一 a_i32， 和 攻 制 有 关 行 
或 列 到 工作 


*，511， 


二 【isigEh 2 一 0) 1 寺 行 一 维 子 试 变换 
forfnt 一 nint 盖 一 4ipt 2 一 1) 
【 < wtsteh ywkspat :sign) 
' else， 或 着 恋 换 
foertnr 一 4rnt 雪 一 niDl 远近 一 1)》 
(< 友 tStepJwkspsrt sjsign)i 


for (i3 一 上 十 这 水 二 ] 二 一 Di 一 十 :i3 一 ==nprey) a[i3] 一 wksp[k];， 从 工作 容 间 
指正 


} 
nprev 一 anews 
[人 
这 里 和 以 前 一 样 ,wtstep 是 单独 的 小 波 滤波 器 ,可 以 是 daub4 或 pwt。 
13. 10.7 图像 压 缩 


多 维 变换 wtn 的 一 个 直接 应 用 是 图 像 迁 纪 . 整 个 过 程 就 基数 字 化 的 图 像 进行 小 波 变 
换 , 接 着 用 一 种 非 均 匀 的 ,优化 的 方法 在 小 波 系数 中 “分 配 二 进 制 位 .一 般 说 来 ,大 的 小 波 条 
数 得 到 精确 的 量化 , 盏 小 的 系数 量化 很 粗糙 , 仅 有 一 两 位 进位 一 一 或 者 完全 截 除 了 :如 果 
结果 的 量化 等 级 从 统计 上 看 述 不 均匀 ,它们 还 可 以 用 一 些 技巧 例如 害 大 芭 (Huffmao ) 活 友 
第 20. 4 节 ) 进 - 步 压 缩 。 

尽管 这 个 过 程 * 后 部 分 "的 更 细微 的 撒 述 , 也 就 是 图 像 的 量化 和 编码 ,超出 了 我 们 的 范 
二, 但 是 对 进行 简单 截 除 的 “前 部 分 ”小波 编 码 的 说 明 还 是 很 直观 的 :我 们 保留 大 于 某 个 说 导 
的 所 有 小 波 系数 (保持 充分 的 精确 性 ) ,删除 (区 为 0 ) 所 有 较 小 的 小 波 系 数 ,我 们 可 以 还 过 
调整 加 值 而 改变 被 你 留 系数 所 占 的 百分比 。 

加 13. 10. 4 显示 了 保留 不 同 数 日 的 小 波 系数 的 一 系列 图 像 . 原 始 轿 像 人 a)，- 幅 IEEE 官 
方 的 测试 图 每, 有 256X 256 个 象 素 点 以 及 8 个 二 进补 藉 庆 级 , 紧 接 着 的 两 个 重建 图 像 昆 册 
65536 个 小 波 系 数 能 23%(b) 和 5.5 凶 (ec) 构 造 的 .后 一 帆 图 象 显示 了 截 去 小 波 系数 后 的 一 
种 折衷 .高 对 比 度 边 缘 ( 模 特 儿 的 右 脸颊 和 头发 的 亮光 等 ) 依 然 保持 相对 较 高 的 分 辩 率 , 币 低 
对 比 度 区 域 ( 模 特 儿 的 左 眼 和 诺 丫 等 ) 则 退化 为 相当 于 原始 象 素 点 的 分 辩 率 。 网 13. 10. 4(d) 
是 实施 傅 里 叶 变 换 而 不 是 小 波 变 换 的 等 价 结果 :图 像 是 由 65536 个 实 傅 果 叶 分 量 中 具有 有 最 
天 幅度 5. 5%% 个 分 量 重 新 构造 的 .可 以 看 出 ,由 于 正 各 和 余弦 不 是 局 域 的 ,整个 图 像 的 分 辩 
要 普 遍 比 较 差 ,任何 分 量 的 幅 除 处 产生 模 精 的 “边缘 ",( 因 此 ,实际 的 德里 对 图 像 压 缩 方 式 是 
将 图 像 拆 成 小 的 象 素 块 ,例如 16X1 ,图 象 重建 时 ,再 对 每 块 的 边缘 做 相当 精细 的 光滑 处 
理 。) 


13. 10.8 线性 系统 的 快速 求解 


小 波 的 一 个 最 有 瑶 的 潜在 的 应 用 是 线性 代数 的 应 用 .其 基本 思想 "是 ,将 整数 运算 算 了 
《也 就 是 一 个 大 矩阵 ?看 成 一 幅 数 字 图 像 . 假 设 算 子 齐 .- 维 小 波 变换 下 能 很 好 地 讨 缩 , 即 三 的 
小 波 系数 大 部 分 非常 小 以 致 可 忽略 ,那么 ,与 算 手 有 关 的 任何 线性 系统 在 小 波 某 下 成 为 “个 
带 芍 系统 ,换言之 ,为 了 求解 


,512 。 





泪 们 首先 对 算 算 A 和 右 过 的 b 进行 小 波 变 光 ， 


和 三 WA WII hh 三 玫 ,bb 1 
其 中 W 代 表 厂 : 维 小 碟 变 换 , 接 着 求 鲁 
六:X bb 


最 后 通过 逆 小 波 变换 得 钊 结果 


x 一 WTA (3 1， 


《注意 ,程序 wtn 完成 了 将 和 到 各 的 完全 安 换 )， 





ACE 1 : 


ia)IEEE 的 浏 荆 图 你 ,256 < 255 个 象 束 点 ,5 位 藉 度 线 人 hb? 将 图 你 变换 成 小 玻 基 ,其 小 波 分 量 的 37 2 表 符 
《下 些 振幅 最 小 内?: 接 普 失 狂 下 的 23 其 周 奸 图像。C3 和 3 样 ,IH 是 94.5 儿 的 小 波 分 量 被 其 案 ，1 3 
祥 , 伍 此 用 博 里 时 变 热 代 桩 了 他 波 变换 .小 波 系 数 在 保 扣 年 关 训 下 方 硬 优 于 博 昌 夺 系 娄 。 


乔 13. 10.4 


一 个 与 痢 的 能 很 好 地 进行 小 波 压 缩 的 整数 算 了 着 .在 大 过 它 的 主 对 币 线 有 全 二 半 ， 





是 奇异 的 ? 汇 素 ,但 杠 这 远离 对 角 线 处 将 变 光 举 
| 车 * =/ 
1 一: 国 
全 生 二 其 它 情况 

司 13. 5350. 时 尖 了 了 这个 第 阵 小 波 变 换 的 轿 形 形式 ,其 中 和布 ， 的 变化 范围 是 . .25 证 
用 DAUD12 小 疲 ,将 幅度 大 于 最 大 元 素 幅 度 10“ 倍 的 元 素 , 用 黑 的 象 素 点 表示 :在 :种 
10 ”之 同 的 元 素 用 灰 的 象 素 点 表示 , 白 的 象 素 点 表示 元 素 幅度 <10 .二 标 上 和 了 都 从 起 估 
最 左 按 计 起 。 

从 图 中 可 以 看 癌 , 谱 系 分 解 成 大 小 为 2 的 寡 次 力 的 块 。 在 每 个 快 的 边缘 或 角落 ,这 忌 着 
到 息 于 环绕 的 子 波 边 界 杂 件 引 起 的 边缘 效应 .除了 边缘 效应 外 ,在 每 一 块 之 内 .不 可 名 猎 的 
元 素 是 集中 人 在 块 的 对 角 线 上 .这 说 明 ,对 于 这 种 线性 算 符 ,一 个 小 波 主要 将 和 它 自 己 谱 系 的 
近邻 ( 沿 着 主 对 角 线 的 方块 ) 和 其 它 谱 系 的 近邻 (对 和 角 线 之 外 的 矩形 块 ) 联 系 在 一 起 。 

不 可 忽略 的 矩阵 元 素 的 个 数 ,如 图 13. 1u, 5 所 示 , 数 量 级 仅 为 Y, 即 抑 阵 的 线性 尺 赴 : 籼 
略 地 估计 ,其 数目 为 10Niogie(Cl7E) ,其 小 e 为 截断 水 平 ,例如 10-. 对 于 一 个 2000X 2300 
的 定 阵 ,那么 矩阵 的 稀 朴 因子 将 接近 30 。 

有 各 种 数值 方法 可 以 用 来 求解 这 种 "谱系 对 角 带 ”形式 的 稀 朴 线性 系统 . 比 引 莹 
(Beulkin》、 克 去 晶 (Coifman) 积 罗 训 林 (Rokhjin) 当 进行 了 有 趣 的 观察 得 到 ,(1) 两 个 文 种 诈 
阵 的 乘积 还 是 谱系 对 角 带 拭 阵 (当然 还 是 截 除 了 新 产生 的 元 素 中 小 于 预先 确定 的 阔 值 6)， 
而 且 还 有 (2) 乘 积 可 用 N 次 操作 顺序 运算 疝 形 成 。 
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| euaprty sa -~ ve 


原 痊 答 陆 在 它 的 对 角 线 上 有 趟 连续 的 尖顶 ,而 到 对 角 线 两 边 逐 汤 光 滑 地 误 减 ,在 小 波 基 下 ,和 矩阵 变 很 稀 朴 :大 于 10- 1 
的 分 基 以 黑色 表示 ,大 于 i0- 5 的 分 量 以 基色 才 东 ,小 于 10- 的 分 量 以 白色 者 示 , 和 阵 下 标 ; 称 j 从 最 下 端 左 边 计 忌 。 


图 13. 10.5 用 图 表示 一 个 256X 256 矩 阵 的 小 波 变换 


“514。 


出 勿 尔 兹 !Schuitz) 或 稚 特 林 (Holelling ) 方 法 ,快速 的 矩阵 相 胰 法 使 得 人 和 候 能 对 审 阵 求 
送 : 参 看 第 2, 5 节 。 

对 于 谱系 对 角 带 揭 快 速 计算 还 有 其 它 的 方式 .例如 ,下 以 采用 第 2.7 闻 中 Tinbeg 共 折 可 
度 方 法 。 
做 考 文献 和 进一步 次 物 : 
Diaubechies ，I，19392，Hrasetetr (CDhiladelphia :S. TI. 入 .At )， 
Srrang，G，1989，374M4 Reutexy vol， 31，pb，614 一 627. 
Beylkin，、C，Colfiman、R、，and 人 Rokhlin，V，199]1 Comazrlimrcaeti0ns 0 Pare HG 人 4DPEect 有、 

vol]. 44. pp、141~-183. fi 
Dasubechies ，[，1988，Cornrtttzaicattons of Pure aid ppPiied Meipezpaathcr，vol，41，pp，909 2 
Vaidyanathan ，P. P，1990，Proceeaizlgs De TREE 有 vol，78pp。56 一 -03.13- 
Maliat，S3. 1989，7E Transachiorts ol Palrerm 间 nafsfs nd MacRtyie fateEigemcp，vD]，i DT 

671 一 693, [4 


Frceqdmpan，YL H. ，apnd Press， 凤 .HH、4992shreprint. [5 


i3.11 取样 定理 的 数值 应 用 


在 第 6. 1 节目 于 束 比 契 (Rybieki) 的 资 献 ,我 生 对 道生 5Dawson? 积 分 得 到 了 一 个 近似 公式 - 即 在 我 们 名 
了 全 里 曲 变 换 的 基础 .我 们 可 以 看 出 此 公式 来 源 于 取样 定理 的 数 信 应 用 ,这 时 取样 定量 - 般 诚 六 知足 一、 
纯 粘 的 分 析 工 上 只, 我 们 的 讨论 和 项 比 契 (Rybicki)0] - 翌 。 

对 于 目 航 的 目的 ,了 放样 定 震 表述 为 如 于 形式 最 为 方便 :考虑 一 个 仁 意 闭 数 8 人 0 和 取 璋 吕 际 格 区 一 
ja 共 中 按 台 数 变化 .= 是 一 个 常数 . 它 允 许 取样 网 格 的 任意 移动 .那么 我 们 有 : 


KG 一 了 8) sine 天 -on 十 ce 5 
2 


其 中 sinc xz~sin rz。 对 取样 点 的 求 苛 被 丈 为 gt) 的 取样 囊 示 ,et) 是 误 疹 项 。 收 样 定 弄 计 附 唱 冯 天 :了 
博 里 叶 变 换 


Go) = | etpens 人 


在 |o| 工 时 趋 于 0 , 则 取样 表 示 是 精确 的 ,也 就 屁 说 <e(0) 一 5 。 

取 禅 表 估 在 什么 时 候 对 函数 的 近似 数值 计 算 最 为 有 利 呢 ? 为 使 得 误差 项 尽 可 能 小 . 傅 里 上 普 换 Gte; 
在 iu; 工 时 必须 足够 小 。 另 一 方面 ,为 了 使 式 (13. 11, 1? 中 的 求 和 能 用 合理 的 ,数目 绞 少 的 项 过 位. 果 数 
# (在 上 的 某 -- 丝 围 之 外 必须 非常 小 ,因此 为 了 使 式 (13. 11. 1? 数 值 上 有 有用, 我们 得 到 芮 个 条 件 国 歼 ztt; 
利 它 的 情 里 叶 伙 的 G(w) 在 它们 各 自 的 自 变量 比较 大 时 序 很 快 趋 于 零 。 

遗 地 的 是 ,这 亲 个 条 件 是 互相 对 立 的 -一 - 如 量子 力学 里 的 不 确定 性 原理 .两 个 自 安 关 以 多 快 的 十 度 
欧 士 谷 存 在 严格 的 限制 .根据 输 迪 (Hardy ) 六 定理 ,如 果 有 当 |:| -ooyg 人 一 DOte- 写 和 当 ieasG(w) 一 
Ole 那么 gpD 王 Ce- ,其 中 C 是 -- 个 常数 .这 可 以 解释 为 什么 所 有 的 函数 中 ,高 斯 函数 随 : 称 的 诅 
减 都 层 最 快 的 ,从 这 个 意义 上 讲 ,高 斯 吨 数 在 数值 上 是 所 有 函数 中 能 最 好 好 进行 取样 表示 的 。 

我 们 将 高 斯 荔 数 写 为 gti) 一 。 


记 三 etsinc 部 tt 二 和 
误 益 e(D 除 了 了 忆 贺 于 上 外 ,还 依 束 士 和 a: 在 目前 的 情况 下 ,对 。… 忆 络 定 如 下 的 -个 范围 就 足 侣 了 . 
te 15, 1..41 


:515 ， 


这 可 以 降 单 地 好 解 为 高 斯 昕 数 在 分 界 点 > 大 处 的 依 些 王 记 和 之 乌 度 的 量 级 . 

才 和 式 信 3. 11. 3) 是 以 月 限 成 近 优 例外 从 NA 到 和 和 , 共 中 避 , 症 最 搂 近 区 的 整数 ， 将 让 让 赣 

-… 步 汐 截 降 谈 监 - 但 其, 下 各 入 被 选择 得 他 wz021 缆 么 截断 误 小 于 区 fa3. 11. 417 半 请 区 玖 站 

革 为 这 个 范 靖 十 “信保 站 估计 和 壹 们 将 继 经 洛 亡 个 三 下 会 3.1 人 25 玫 使 在 人 说 
截断 和 狼 求 卉 忒 也 会 对 高 姑 听 数 铬 出 相 涯 精 企 的 表示 ,例如 当天 -1 一 7 用 et 5 1 
了-15 寺 (2X1T AND 

大 姜 可 能 票 册 ,高 斯 铺 数 的 这 样 “个 数值 志 泵 ,可以 象 指数 所 数 一 样 计 算得 于 话 容易 入 人 速 .出 : 诞 
中 什么 昵 :答案 在 十 绷 驳 旋 起 图 数 上 可 变 天 发 与 两 新 缠 数 有 关 的 黄 分 :* 通 府 式 113. 8. 31 的 代 搞 :就 洛 交 二 
本 处 元 的 和 很 好 地 近似 求 积分 

让 我 们 普 先 考虑 复 变 有 量 为 = 一 2 4 冰 的 滑 数 wz 的 例题 . 它 和 复 误 盖 国 数 存 在 如 下 美 系 





(re 二 erfei sy 本 
它 的 和 耸 表 幸 居 
区 - (12.11.6) 


其 中 的 积分 晤 线 怠 从 演 扯 利他 :从 大 轴 通 过 ! 参 寿 文 献 3 有 证 多 广 流 可 以 用 详 谷 计 这 个 请 丈 ( 驮 着 
交 献 4 ) ,将 了 下 样 变 扑 式 213.11.3 代 入 13 11， 1 人) 式 ， 证 由 还 行 基本 的 由 线 积 分 ， 我 们 存 : 





CE 





其 中 我 们 忽略 二 误差 项 . 汗 意 对 其 些 ?一 za: 在 = >， 时 没有 奇 点 , 胆 是 在 这 种 请 况 下 ,对 第 wm 项 必须 进 条 
手中 处 埋 ( 例 如 ,通过 竹 次 数 展 征 1 。 

笔 式 (15. 11.7) 的 另 一 刷 囊 再 形式 , 吉 以 站 过 出 三 角 晒 数 才 法 式 (23.11,7? 中 的 复 指 数 , 并 日 利 上 月 > 代 
民 民 桂 表 这 蕊 中 3.11, 3 上 的 而 得 到 : 





R- 和 人 COSz 一 1 
tr 2 (3. 1. 8 


此 形式 在 ?| < 和 1dd 玫 来 求 Re Le(s) 特 中 有 性, 注意 在 估算 式 (13 1 7 时 , 求 和 号 中 的 指数 项 是 “人 党 
,只 氏 估算 次 ,对 式 113.11.83 中 的 余 些 站 也 类 做 ， 

遂 尘 这 择 特定 的 < 依从 等 式 (13.11.7? 或 个 3. 1 .83 有 寻 证 :组 本国 的 公式 -有 意 祥 的 8 个 值 证 : 
= 或 xs* 再 贡 上 矢 个 值 增 加 请 > 所 所 得 的 值 . 因 为 式 (43, 11. 3)? 中 误差 范围 丧 达 式 已 经 假设 x 大 实 
竺 .选择 。 因 复数 仅 当 * 的 虑 部 不 是 经 大 时 才 有 用 .这 昌 不 可 能 记 串 16 个 可 能 等 式 ,我 们 久 给 出 能 昂 计 一 
些 重 和 交 特征 的 是 个 熔 例 。 

篆 先 在 等 式 (13. 11. 的 中 沁 ae 一 ?3、 则 有 

tf2) se 中 让 一 - 2 册 ee 


7 


企 将 个 = 平 库 此 近 介 式 应 用 得 很 好 .如 巨 我 们 前 两 所 述 ， 当 基 一些 的 分 碟 比 较 小 时 ,必须 采用 棒 级 数 展 二: 
a 一 8 的 公式 在 文献 5- 中 有 简明 的 讨 沦 .它们 各 再 瑞 基 (Chbisrelia)、 瑞 奇 尔 (Reichel)< 用 奈 乱 文 
《icodwin )- 一 方法 人 人 村 席 全 秆 全 人 全。 

FF 和 , 在 式 (13.11.7) 中 , 令 a = > 我们 有 : 


3 一-DCDSCXz 


二 (13.1-.9)》 


提 0 只 ee 0 
ss) se 一 性 (13,11 10) 
” “ma 柯 数 


坏 中 的 求 和 莽 对 所 有 的 分 粘 数 ( 下 的 和 条 的 ) 求 和 ,注意 在 求 和 式 G 我 订 忆 经 做 替换 "一 -此 公式 比 式 
(9 简单 ` 具 包 合 一 半 钓 项 数 . 候 是 当 ? 太 时 , 误 盖 将 增 天 .等 术 (13. 11. 10) 践 着 在 第 和. La 节 中 困 的 道 
Paswsorn 和 分 过 个 从 记 全， 

1 有 
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第 十 四 章 ”数据 的 统计 描述 


14.0 引言 


在 这 一 章 初 下 一 章 ,讨论 数据 的 地 念 将 占据 突出 的 地 位 。 

数据 自然 是 由 数组 成 的 ,但 这 些 数 是 输入 到 计算 机 中 去 的 ,而 不 是 由 计算 机 自身 产生 
的 这些 数 必 须 认真 地 处 理 , 既 不 能 算 改 .也 不 应 对 它们 进行 .- 些 不 内 全 了 解 特性 的 数值 处 
理 。 对 数据 应 有 尊重 的 态度 ,而 不 能 采取 在 其 它 数值 游戏 中 所 多 府 的 、 共 至 受到 将 扬 的 * 华 而 
不 实 的 态度 。 

数据 的 分 析 不 可 避免 出 要 涉及 到 某 些 统计 学 领域 ,统计 学 可 以 处 理 一 些 问题 ,这 些 乒 题 
既 不 能 确切 地 说 是 数学 分 支 的 问题 ,或 洗 也 不 能 说 十 私 学 分 支 的 问题 .在 以 下 各 节 : 将 经 党 
遇 到 如 下 范例: 

: 为 了 计算 “统计 量 ”, 将 对 数据 应 用 - 些 公式 进行 处 理 ; 

, 计算 这 “统计 量 落 在 概率 分 布 的 那 一 部 分 ,这些 概率 分 布 是 基于 * 有 堆 假 说 ?来 计算 的 : 

.如果 它 落 在 一 个 非常 不 可 能 的 点 上 , 即 在 慨 率 分 布 的 来 端 以 外 ,就 可 以 说 “ 零 假 说 "对 

这 数据 组 来 说 是 错误 的 。 

如 果 一 个 统计 量 落 在 分 布 的 合理 部 分 ,也 不 能 说 “ 零 假 说 ”被 “ 验 证 "或 < 证明”. 这 此 统计 
学 的 独特 之 处 , 它 从 来 不 能 证 明 任何 事物 成 立 , 而 仅仅 只 反 驶 事物 ! 证 明 一 个 假说 的 最 好 方 
式 是 通过 排除 - :系列 相互 竞争 的 假说 ,而 这 些 假 说 是 已 被 人 们 - :提出 的 。: 段 时 间 洛 ,对 
所 和 竞争 者 放弃 导 求 新 的 假说 ,那么 所 做 的 假说 将 被 接受 .这 昕 起 来 多 么 古怪 ,位 你 知道 ,这 
就 是 科学 工作 ! 

在 本 书 中 ,我 们 对 数据 分 析 过 程 做 了 稍 生 有 点 主观 的 区 分 ,一 是 独立 于 积 型 的 , 另 :是 
依 赖 于 模型 的 ,前 者 包含 了 所 谓 的 描述 性 统计 学 ,用 - 些 常规 的 量 来 表征 -组 数据 组 ,如 均 
值 .方差 等 , 它 也 包括 统计 检验 ,寻求 建立 两 个 或 更 多 数据 组 之 间 的 “相同 之 处 ”或 “不 同 之 
处 ”, 或 者 寻求 建立 或 测度 两 组 数据 之 间 的 相关 程度 ,这 些 内 容 将 在 这 一 章 中 子 以 讨论 ， 

在 另 一 类 依赖 于 模型 的 统计 学 中 ,我 们 将 整个 拟 合 数据 的 主题 纳入 这 种 理论 ,如 参数 估 
值 .最 小 二 乘 方 拟 合 等 等 ,这 些 内 容 将 在 第 十 五 章 子 以 介绍 。 

第 14. 1 节 将 处 理 集中 趋势 的 测度 ,如 分 布 的 . 中 值 和 众 数 。 在 第 14. 2 节 我 们 将 学 2 检 
验 不 同 的 数据 组 ,是 否 是 由 这 些 集中 趋势 测度 的 不 同 值 的 分 布 导 出 .这 又 自然 地 引出 第 14. 3 
节 中 更 “- 般 的 问题 ,两 个 分 布 是 否 能 被 肯 效 地 表明 是 不 周 的 分 布 。 

从 第 14. 4 节 至 第 14. 7 节 我 们 将 过 论 关于 两 种 分 布 之 间 的 关联 的 测度 .我们 希望 能 决定 
两 个 变量 是 否 是 互相 “相关 "或 “依赖 "的 .如果 是 ,我 们 希望 能 以 某 种 简单 的 公式 表 乍 它 位相 
关 的 程度 .同时 还 强调 了 参数 和 非 参 数 ( 秩 ) 方 法 之 间 的 盖 别 。 

第 14, 8 节 将 引 和 人数 据 平 滑 的 概念 ,并 旦 讨论 了 一 特例 :Savitzky-Golay 半 潜 滤波 器 ， 

本 章 在 数学 上 , 便 用 了 第 六 章 的 特殊 函数 ,特别 是 第 6. ! 节 至 第 6. 4 节 的 “ 些 夫 容 . 戎 配 
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“前 这 些 内 容 , 刚 可 复习 这 些 章 节 。 
14.1 分 布 的 矩 :均值 .方差 、 偏 斜 度 等 


当 一 组 数值 有 很 强 的 集中 交 势 , 即 一 种 在 某 一 特殊 乍 周围 聚集 的 趋势, 则 用 与 筷 有 关 的 
一 些 量 来 表征 这 给 数 是 非常 有 用 的 , 矩 则 为 这 些 量 的 整数 攻 之 和 。 
最 常见 的 是 数值 六] 9 的 均 情 ; 


- 寺 它 = [4,1.1》 


工 是 对 所 有 在 某 一 中 心 聚 集 值 的 估算 ， 横 杠 表示 平均 ， 有 时 也 用 尖 括 号 志 示 , 即 :> - 避 当 注 
意 的 是 ,均值 并 不 是 这 种 中 心 聚集 值 的 唯一 可 用 的 知 算 量 ,也 不 一 生 是 最 佳 的 仿 算 其 .对 于 
从 拖 有 很 党 “尾部 ”的 慨 率 分 布 中 抽取 的 数值 来 说 ,其 平 汶 值 的 收敛 性 较 差 ,或 者 当 样 木 点 数 
目 增加 叶 完 全 没有 收敛 性 ,这 时 ,作为 替代 移 估 算 量 足 中 位 数 和 众 数 ,这 两 个 量 将 花 本 节 后 
面 提 到 ， 

在 表征 了 分 布 的 中 心 值 后 ,下面 要 计 论 的 常用 量 基 分 布 围绕 中 心 值 的 “宽度 "和 " 变 沙 
基 ”: 辐 栏 对 此 的 测度 不 止 一 种 基 , 最 常用 的 是 方 蓄 ， 


Var ZEw) = 元 袜 人 一 了 (Tt 1.2) 
了 一 上 
或 它 的 平方 要 ,标准 盖 
GTfTi- -27 一 WWVITCEI .ZN) (14. 1.3) 


式 (14.1. 2 估算 了 = 对 其 均值 的 方差 . 关 于 式 (14. 1. 2? 中 的 分 母 为 什么 取 闪 --1 而 不 取 
N, 有 一 段 较 长 的 故事 , 若 读 者 不 知 这 故事 ,可 以 参阅 任何 一 本 较 好 的 统计 学 教材 .如 果 对 所 
测 竟 的 分 布 的 变化 的 均值 zx 旦 先 验 已 知 的 ,而 不 是 从 数据 估算 中 得 到 的 , 则 在 式 中 采用 六 
代 鞠 六 一 1， 

由 于 均值 依赖 于 数据 的 一 阶 矩 ,因此 方差 和 标准 差 依赖 于 二 阶 上 第。 在 实际 生活 中 有 时 了 可 
以 时 处 理 二 阶 旗 并 不 存在 的 分 布 ( 即 为 无 穷 大 ) ,在 这 种 情况 下 ,方差 和 标准 差 作 为 对 围绕 中 
心 值 之 数据 宽度 的 度量 ,是 无 用 的 : 随 着 样本 点 数 的 增加 ,从 式 (34. 1.2) 或 (14. 1. 3) 得 到 的 
值 将 不 收 伍 ,或 从 要 同 分 布 中 抽取 的 数据 组 之 间 设 有 任何 一 致 性 .这 种 情况 甚至 出 现在 峰值 
宽度 肉眼 看 起 米 相当 有 限 的 场 台 . 一 个 更 稳健 的 宽度 属 算 量 是 平均 偏 交 或 平均 绝对 偏 整 .其 
定 尺 为 ， 


ADev(zrl,， -0 中 王 一 丈 《14, 1 4) 


人 们 经 常用 样本 中 值 xu 代 营 式 (14. 1.4) 中 的 ,对 任何 固定 的 样本 ， 中 值 实际 上 是 使 平均 
况 对 偏差 最 小 。 

历史 上 统计 学 家 早已 对 肌 式 (14. 1.4) 代 替 式 (14, 1.2) 一 事 噬 之 以 上 , 因 为 式 (14, 1.4) 
中 的 绝对 值 是 " 非 解析 的 ”, 并 日 理论 让 明 很 困难 .然而 最 近 儿 年 ,传统 已 有 改变 , 稳 他 估算 量 
的 问题 已 相 溉 行 和 重要 ( 即 估算 较 宽 的 分 布 ,其 具有 相当 显著 的 “分 离 " 点 ) 。 较 高 的 持 或 涉 
及 痊 入 数据 较 高 寡 次 的 统计 其 ,在 稳健 生 上 准 是 低 士 较 低 算 或 仅 涉 及 线性 各 或 5 所 有 最 低 
答 ) 计 算 的 统计 量 。 
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事实 正 是 如 此 , 妨 斜 度 即 三 阶 矩 ,和 峭 度 即 四 阶 矩 应 当 谨 慎 使 用 ,甚至 最 好 不 用 。 

偏 斜 度 是 对 一 分 布 围绕 均值 不 对 称 程度 的 表征 ,尽管 均值 .标准 差 和 平 攻 俩 莽 都 是 有 量 
纲 的 量 ( 即 其 与 所 测量 <, 有 着 相同 的 单位 ) ,而 偏 斜 度 的 定义 却 使 得 其 无 量 网 ,其 仅 吓 一 个 
纯粹 的 数 米 表征 分 布 的 形状 ， - 般 定 义 为 ， 

Skewfzi. zw) 一 | 全 | 《3 


这 里 < 一 af， zw) 旦 分 布 的 标准 着 ( 见 式 (14. 1. 3)), 偶 斜 度 的 正 值 表示 一 个 具有 扩充 
到 更 多 正 x 的 非 对 秘 星 部 的 分 布 ; 而 负 俩 斜 交 表示 尾 部 扩充 到 更 客 负 了 的 分 布 ( 见 图 14. 上， 
17。 





《a) 偏 首 度 或 三 阶 短 hb? 霄 度 和 轨 阶 拓 
刚 14,1,.1 三 阶 和 四 阶 郊 昂 闭 不 导 于 正 态 分 布 的 分 布 


当然 ,任何 一 组 个 测量 值 都 可 能 给 出 非 零 的 偏 斜 度 值 .即使 其 依从 的 分 布 是 对 称 的 
《有 零 偏 斜 度 ) .为 使 式 (14, 1. 5) 有 意义 ,我 们 必须 对 作为 基本 分 布 偏 斜 度 的 估算 量 之 标准 关 
有 所 了 解 。 可 异 的 是 , 它 仅 取决 于 基本 分 布 的 形状 ,并 且 相当 关键 地 取决 于 其 尾 端 . 对 十 理想 
的 正 态 分 布 , 式 (14, 1.5) 的 标准 差 近 似 为 15 。 在 实际 中 , 仅 当 仿 斜 度 是 这 一 个 数 的 很 多 
倍 时 ,相信 偏 斜 度 才 有 很 好 的 实用 性 ， 

峭 庶 也 是 -无 量 网 的 量 , 用 于 测度 分 布 的 峰 锁 度 或 平坦 度 。 相 对 计 什 么 而 言 ?当然 是 止 
态 分 布 , 除 此 还 会 有 什么 别 的 ! 一 个 带 有 正 峭 度 的 分 布 称 之 为 尖峰 态 , 才 特 喇叭 
《Matterhorn) 的 轮廓 线 就 是 一 个 例子 .一 个 带 有 负 峭 度 的 分 布 称 之 为 低 峰 态 ,一 个 面包 的 轮 
万 即 是 它 的 一 个 例子 ( 见 图 14,1, 1), 介 于 两 青 之 闻 的 称 为 澡 夺 态 分 布 。 

峭 度 的 常见 定义 为 ， 


妨 一 元 443 
必 urt (zt .xnw) 一 车 立 全 | 1 一 3 (ie.、1.6) 
记 ] 


世 j 
其 中 ”3 是 为 了 使 正 态 分 布 时 式 (14. 1. 6) 为 零 值 。 
作为 基本 正 态 分 布 哨 度 的 估算 量 (14. 1. 6 的 标准 盖 为 396/ 入 .然而 , 若 峭 度 取 次 于 那 
样 一 个 有 许多 实际 分 布 的 高 阶 矩 , 那 对 这 些 分 布 来 说 ,作为 估计 量 的 式 (14. 1.6) 的 标准 差 几 
乎 为 无 穿 大 。 
对 这 一 章 所 定义 的 量 的 计算 是 相当 直接 的 ,许多 教科 节 使 用 二 项 式 定理 ,将 定义 式 展开 
“520“。 





成 数据 各 种 宕 次 的 和 ,例如 


Varces zw) = 克 二 | RN]s 亚 一 丈 (4.1.7) 


但 这 将 增 大 由 于 较 大 因 了 造 城 的 售 人 误差， 并 二 根据 计算 速度 来 看 这 也 是 不 合理 的 - 为 使 
伟人 误 共 最 小 (特别 是 大 的 样本 值 ), 聪 明 的 方式 是 使 用 校正 的 一 步 算法 ,首先 计算 z, 然 
后 由 下 式 计 算 VarkCz -xnw) 


Ward .2w》 二 yi 人 袜 - 于 竹 一 起 [ 壮 一 并 到 《14. 1.8》 
如 果 是 实际 值 ,第 二 0 除 此 之 外 ， 第 一 项 将 能 很 好 地 修正 伟人 误差。 


并 ipclude 近 math,h> 


void morment(iloac datar ]， int 时 ,floar * ave: foat x* adevy iloat *sdev， 
fioat #vaty， Heat #skewy， float #eutt) 


给 定数 组 data[1. . 四 ], 林 程序 返回 均 赴 av , 阔 汪 二 差 adev ,标准 盖 sdev ,方差 var、 偏 闲 度 skew 以 及 崎 | 这 cunm : 


void nr 台 ZrTOr(KChar Error_text[]) ; 
int j]; 
float ep=0.0,3,p; 
ii (nn Ke 1) hrSYZOI{t"D mu3t be at 98a5t 2 in momento); 
Sm=0.01 第 一 步 得 到 均值 
for 〔jr13j<<nij+y+) 5 += data[j]; 
让 本 V 昌 二 和 7 
Rdevs(var)mKeggev)sfecurc)=g.0; 第 二 步 得 到 偏 元 均 信 的 一 防 { 绝 对 的 ?， 二 和 阶 ， 
?or 《j=1;jJ<=n;j++) 荆 二 阶 和 四 阶 短 
*adavy +m 王 absg(gE=datafj]-[>ave)) 
*var += 【pesss) 1 
申 吕 区 如 只 《本 《PP = E)i 
4CUKEK += {P e= 5)j 
) 
本 adav /= D; 
二 VaY 王 (#Var-GpeepApn]Afa-1); 校正 的 二 步 公式 ， 
二 区 daVYSo 工 t〔 二 Ya) 招降 定 交 将 这 些 部 分 结合 在 -- 起 
E 《evar) 
oaken /= (ns(ayar)sfwsdev)); 
CUItm(wCULEY] (Dr t+VvSar)u(avar))-3.0; 
了 else FeITOT("ND SK9vwAkuztoais wban VartancG = 日 【in zOmeDnt)") 


14. 1. 1 半 不 变量 


独立 随机 变量 之 和 的 均值 和 方 五 是 幅 加 的 :如 果 工 和 y 分 别 取 伴 于 两 个 不 同 的 概率 分 布 . 齐 
侵 十 97 一 工 十 y Var(z 十 9) 一 Varfz)y 十 Var[z》 (14. .9 
一 般 说 来 ,高 价 矩 不 是 相 加 的 ,而 它们 一 定 的 组 合 则 是 可 以 相 加 的 ,这 种 组 合 被 陈 之 为 半 不 变 般 ,如果 
一 种 分 布 的 中 心 纸 用 Ms* 表示 : 
at =《(2i; 一 开 ) 生 《14.1,10) 
因此 ,有 闻 :=var(tz), 则 第 一 类 的 几 个 半 不 变量 号 由 下 式 给 出 : 
7 = 
到 一 于 一 10M RM 一 M 一 15Ma 一 10893 十 30Md 
注意 , 偏 斜 度 和 峭 度 ( 式 (14. 1. 5} 和 (14. 1.6)) 权 是 半 不 变量 的 重音 织 人 
Skew(z) 一 有 3 Kurt(z) 一 也 7 媒 (14, 1.12) 
“ 52i 。 


(14. 1. 11) 


岗 斯 分 布 所 有 高 于 瑟 的 半 不 变量 部 等 于 零 , 泊 松 分 布 所 有 半 林 变量 等 二 其 均值 ,更 央 尽 的 内 和 窜 境 人参 陀 .: ， 
14. 1.2 ”中 位 数 和 众 数 
概 举 分 布 函数 卢 z) 的 中 位 数 为 xau, 对 此 依 而 证 . 较 大 的 上 信和 较 小 的 二 入 是 等 肯 率 
的 ， | (zjdz 二 1 过 |。 PCz)dx (14.i :5) 
由 样本 值 六 -rs 来 估价 -种 分 布 的 中 位 数 的 方式 蚌 , 找 出 居中 的 那个 数 二 : 估 革 上 
下 的 样本 数 应 相等 .当然 对 于 N 是 偶数 情形 是 不 可 能 的 ,对 这 种 情况 往往 用 两 个 直 雹 生 的 
半 均 来 作为 中 位 数 , 如 果 zi 一 1 :N) 以 递增 的 形式 排序 , 则 中 位 数 的 公式 为 : 


TD 只 为 麻 
0 (1 .2 
加 二 《Ni 2 交 0 区 为 蛋 


1 2 

如 果 一 种 分 布 有 较 强 的 聚 中 艳 势 ,使 得 它 的 大 部 分 面积 在 菜单 一 峰值 下 , 则 中 位 数 是 中 
心 值 的 一 种 估算 . 它 是 比 均值 更 为 强 的 估算 其 :中 位 数 仅 不 适用 于 尾 端 的 面积 较 大 的 情况 ， 
而 均 信 则 不 适用 于 尾 端 一 阶 和 矩 较 大 的 情况 。 捕 容易 构造 这 样 的 例子 ,即使 尾 端 的 面相 可 权 
略 ,其 一 阶 算 还 是 较 大 的 分 在 。 

为 了 求 得 一 组 数据 的 中 位 数 .人 们 首先 时 排序 ,然后 利用 式 t14. .14)。 这 旦 一 个 和 有 
NlogN 阶 的 过 程 .或 许 认为 这 是 一 种 浪费 ,因为 它 产 直 了 比 中 位 数 多 得 多 的 信息 ( 即 上 不 四 
分 位 点 ,十 分 位 点 等 }。 实 际 在 第 8. 5 节 我 们 书 看 到 由 N 阶 操作 即 可 确定 zc， ,可 以 务 阅 
那 -~- 节 的 程序 。 

一 个 概率 分 布 函数 pz) 的 众 数 是 P(z) 取 极 大 全 时 的 x 倘 . 众 数 主要 在 委 率 分 布 有 … 
个 单一 的 尖锐 最 大 值 时 很 有 用 ,在 该 情况 下 ,次 数 估算 -中心 值 .有 叶 一 种 分 布 将 是 双 峰 的 、 
即 有 两 个 极 大 值 ;那么 人 们 希望 知道 两 个 单独 的 众 数 .注意 在 这 种 情况 下 ,均值 和 中 位 数 并 
不 是 非常 用 的 ,因为 它们 将 仅 能 给 出 两 峰值 之 局 的 “ 折 囊 " 值 。 


参考 文献 和 进一步 读物 : 
Chan， T.F. ，Golub ，G.H. ，and 1LeVeque， 及 .JJ 1983。，pterican Siaistictan， Yol，37 pp, 242 一 27. 1 
Cramer， H，1846 ，MXntRermtattical Methods pr Stafisfics “Princeron: Princeton (Unijversity Press) ,全 .5 10。 
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14. 2 ”两 种 分 布 具有 相同 的 均值 或 方差 吗 ? 


我 们 很 希望 了 解 两 种 分 布 是 否 具 有 相同 的 均值 .例如 ,第 组 测量 值 是 在 某 “事件 前 所 
收集 的 ,而 第 二 组 测量 值 则 在 该 训 件 以 后 收集 的 ,那么 这 一 事件 (一 种 处理? 或 “ 仁 裕 制作 数 
上 的 变化 沪 是 否 会 造成 两 组 值 之 间 的 差异 。 

第 一 个 希望 回答 的 问题 是 ,一 个 样本 的 均值 与 另 一 个 样本 均值 之 问 " 有 多 大 标准 关 ”. 实 
苞 上 , 这 数 信 是 相当 有 用 的 。 如 果 均 值 之 差 是 真实 的 ,那么 这 一 差异 表述 了 这 种 均值 之 差 的 
强度 或 "重要 性 ”. 然 而 ,由 其 自身 是 无 法 说 明 这 种 差别 是 真实 的 ( 即 统计 上 是 否 显著 的 ) .如 
果 数 据点 的 数目 较 多 ,均值 之 差 要 远 小 于 标准 差 ,但 仍然 可 能 非常 显著 的 ;反之 ,如果 数据 是 
竹 少 的 ,这 差 可 能 中 等 大 小 ,但 统计 上 并 不 显著 ,人 在 以 下 几 竟 . 我 们 将 从 多 次 遇 到 强度 和 显 

+ 522， 


车 性 这 些 不 加 约 概 仿 。 
测度 均值 过 关 显 著 性 的 翰 并 不 是 区 分 它们 的 标准 郑 之 值 ,看 是 区 分 它们 的 标准 误 之 页 ， 
-组 数据 的 标准 误 测 度 了 州 样本 均 借 来 估算 总 体 ( 或 "真正 ”均值 的 精度 .一 般 说 来 ,标准 1 
等 于 翌 本 的 标准 差 除 以 该 样本 点 数 的 平方根 。 


14. 2. 1 对 于 : : 著 不 同 均值 的 学 生 :检验 


应 用 标准 误 的 概念 , 测 床 均 值 之 着 显著 性 的 常用 统计 基 称 之 为 学 生 !. 当 了 遇 个 分 布 被 人 
为 具有 相同 的 方差 ,不 同 的 均值 ,学 后: 按 以 下 方式 计算 .首先 .由 以 下 公式 从 "合并 方 益 ” 


2 一 
村 CE 2， 1 
其 中 求 和 是 在 一 组 样本 的 所 有 点 土 进行 的 ,每 组 样本 都 各 有 自己 的 均值 ,Na 和 入。 分别 为 
第 一 组 和 第 二 组 梯 本 的 点 数 . 其 次 ,计算 上 ， 
(4.2.2) 


第 三 步 是 利用 方程 66.4 7) 和 (0 49) 及 第 6.4 节 中 的 程 享 betai( 不 完全 斑 冰 效 ?来 计算; 直 
_ 的 显著 性 值 , 它 服从 自由 度 为 Na 十 Ns 一 2 的 学 生 分 布 。 
显著 性 用 0 到 1 之 间 的 数 来 表征 ,并 且 昆 对 于 具有 相等 均值 的 分 布 其 量 ;t| 恰 好 这 样 大 
或 较 大 的 概率 .因此 ,小 的 显著 性 值 (0.05 或 0.01) 意 味 着 所 观察 的 差 愉 是 “非常 明 最 的 "”。 
男 数 方 得 式 (6. 4. 7 中 的 Me 等 于 ] 减 去 显著 性 . 


include <math hb 


vcid ttesttfloat datal[]，unsigned nl 划 joat data2 :，ursigned long hn2， 
float x#rtvs foat x* Proh) 
给 定数 组 daral[1. . 磋 积 数 给 dsta221..n2]: 引 程 字 将 学 生 :一 检验 返回 为 纺 将 它 的 录 得 性 返回 到 prob - 涉 的 >cob 


伟 表 明 数 组 有 显著 不 怕 的 均值 .数据 数组 价 设 取 自 于 具有 相同 真实 方差 的 总 体 ， 


void avevatfftoat data[]，unsignped long ny flear #*ave，floaft #var]y 
floar betai(filoat a， float b， float x); 
tloat varl，vETr2，syar, df， aycl，ayc31 


avevariqatal.n1、&advel ，&varl); 
avecvafridath2，n2，&ave2， 妈 Var2) 


df-==nl1 一 hn2 一 2 ， 自由 度 
syar 一 【fn1 一 1)》* varl1 十 (n2 一 1)#*var2)zqf: 合并 方 其 
#t 一 (avel 一 ave2Jysqrtfsvark (1.05n1 十 ].07n2)73 

# prIOb 一 betal(0.5# dt,0.5,dfAfdf 二 ( 立 【at)8 项 见 式 !6.4.9) 


上 壕 程 序 还 使 用 了 以 下 计算 均值 和 方差 的 稳 序 。 


void avevarkflpat data[]，unsigned lchg ny 昌 oat + avey float #var) 
给 定数 级 data[1.,mz], 返 回 它 的 均值 为 ave 并 且 返 同方 益 为 var。 


unsigned long j; 
float s,eb8 


ior(#ave 一 0.0,j=1;j< 一 ni 十 十 ) *gve 十 = dara -ji 
二 册 V 马 站 
# vat 一 ep 一 0.05 
Ior (一 1 :< 一 nj 一 十 ) ! 
gs 一 data 一 【<ave)t 


# Var 一 (xVar 一 ep<epfma)7Cn 一 1)4 校正 的 . :此 公 式 们 4.1.8 


以 下 考虑 的 情 次 是 两 种 分 布 具有 显著 不 同 的 方 兰 ， 公关 们 仍然 想 知 道 它们 的 汐 和 证 是 
答 相 同 或 不 同 。( 一 种 医治 脱发 的 治疗 已 经 使 某 些 名 首 头 发 全 部 戏 落 ,但 使 其 他 册 者 成 为 蕊 
人 , 则 我 们 想 知 道 ,平均 说 来 ,这 种 疗法 是 否 对 治疗 及 兴 去 效 1) 对 不 相等 方差 的 上 检验 食 的 
有 些 疑 问 ,如 蛙 两 种 分 布 有 非常 相同 的 方差 , 则 它们 人 在 名 状 上 可 能 极 不 相同 ,在 这 种 情况 卜 ， 
均值 的 莽 寞 可 能 就 不 是 特 列 有 用 的 了 : 

为 了 找 出 两 组 数据 集 是 否 具有 于 闭 不 同 的 方 莽 ,我 们 将 使 用 本 节 后 面 叙 述 的 二 位 驻 。 

对 于 不 相等 方 益 t+ 检验 的 相关 统计 量 为 


AL 一 辽 5 


:一 TV 症 VarCJ7N (4 人) 
这 个 统计 量 近 似 为 学 生 1 分 布 ,自由 度 为 
[和 Varkza) ] 
人 4 2 (14.2.4) 





[VarCzayy 4 十 Var 
Na 一 1 as 一 】 


表达 式 (14. 2. 4) 一 般 不 是 整数 ,但 方 称 (6. 4.7) 并 不 介意 这 点 程序 如 下 ， 


世 include 所 mnath.h> 
共 include "nrutil. h" 


ovid tuesttiloat daral[]，unsignted nhl，float data2[j，unsigned long n2， 
floaf *t* float *Htrob) 
给 定数 组 datal[i. .nl 和 data2[2..n2|, 这 程 冯 将 学 生 ! 检验 返 铝 刘 变 量 +, 并 且 它 的 显著 性 返 可 到 prob, 入 生 Dob 


具 役 明 这 些 数组 有 显著 不 阿 的 均 人 种 , 数 据 数组 允许 取 匀 于 不 同方 差 的 总 体 -。 


void avewvarrfloat dara[] ，urnsignbd long by float rave' xloat #Var)s 

[loat betaitfiloat a， float bjloat x)3 

ftoat var1，var2， 果 ，avel ，ave2+ 

avevarfdztal，n1l，gavel，、&var1); 

avevartdata2。n2，Bave2，&var2); 

kt 一 (ayel 一 ave2)7sqrt(Cvarlyn1 填 var27n27)3 

di-=SQRIvarlynt 二 var2yn2)7(SQR(vatrlynlyynl-1) 一 SQRTIvar2An227(n2 一 1))1 
# prtob 一 betai(0,5xrdf0.5 di di 十 SQRTt)IJi 


我 们 最 后 一 个 例子 是 对 配对 样本 情况 的 学 生 : 挫 验 ,我 们 设想 在 两 个 伴 本 中 , 方 花 的 证 

多 部 分 基 受 到 防 个 样本 逐 点 对 应 的 党 全 相同 的 效应 ,例如 ,有 两 个 工作 候选 者 ,每 个 人 都 要 

有 招聘 委员 会 的 10 个 相同 的 委员 做 出 评价 ,我们 希望 知道 十 个 得 分 数 的 均值 是 否 显著 不 

同 ,我们 首先 用 上 述 程序 ttest 来 试验 ,并 得 到 一 个 并 不 特别 显著 的 prob 值 ( 即 >0.05) ,但 

或 许 因为 其 些 委员 总 是 给 高 分 ,而 其 它 委员 总 是 给 低 分 ,这 种 倾向 使 显著 性 被 消除 . 它 首 吉 
“524“。 


了 明 显 的 方 孝 ,并 焉 少 了 均值 上 任何 个 同 的 显著 性 .因此 我 们 有 ， 


人 ovCza y 姑 站 N 下 i 之 (zs 信人 区 后 5 区] 革 二 5 全 
二 二 | warkzr) 十 2 一 2Cov(zra 人 14 9 6 
1 一 了 0 2.7) 

上 


其 中 N 是 每 组 样 订 的 点 数 ( 配 对 数 ) .注意 ,重要 的 是 每 个 特别 的 : 值 袁 示 每 个 样本 中 的 相 
应 点 ,区 配对 的 点 数 。 企 式 (14.2.7) 中 ,统计 量 的 显著 性 被 计算 , 仅 有 闪 一 1 个 自由 度 . 程 序 
如 下 ， 


区 thelude <mtsth,h>> 


Yold tptest{ 外 oat catal[]， iloat dats2[ :，unsigned jiong ny， 


foat *#ty float * Prob》 
给 定 配 对 数组 iata1- 上 .nm 到 dsia2-1..n], 本 程 这 将 配对 数据 的 学 生 * -检验 返回 到 t; 将 它 的 电 善 性 点 凯 到 brob， 


小 世 的 Prob 表示 光 值 有 显著 尼 别 。 


vaid avevar(float data[-_，unsigned long ny float yave* float x var): 
ftoat betaikfloat ay fhoat b， float x)# 

unsingd long j; 

float var]，var2。avel，ave2，sd，df，rcovr 一 T.0; 


avwevat(dataly 0D，&wave] Rivarl>: 
Bvevarfdata2，n，Bave2，&var2)+ 
for 0 一 1 扫 一 pf ] 十 十 ) 
” eaoy 一 一 (datsl[j] 一 avel)* (data2[ji 一 ave2)1 
cov 7 =- 串 一 一 ]# 
ad 一 sqrt[kvazl 十 var2 一 2.0xcovrn) 
#t 一 (ave1 一 -ave2)y/sdi 
# Pryob 一 betai (0,5 wdf,9.5,dfrGdf 十 (kt) 关 (kt 


人 
了 


14. 2. 2 ”对 显著 不 同方 差 己 检验 


f 一 检验 是 验 让 两 个 样本 具有 不 同 的 方差 的 假设 , 它 是 通过 再 定 它们 方差 实际 上 是 -- 
致 的 这 一 无 效 假设 来 进行 的 .统计 其 己 是 一 个 方差 对 另 .- 个 方差 的 比值 ,其 值 (或 汪 :1 或 
扫 <1) 将 指出 非常 显著 的 差异 . 它 是 利用 Betai 程序 估 值 的 。 在 一 般 情况 下 ,我 们 可 以 通过 
或 者 非常 大 的 玉 信 或 非常 小 的 己 值 来 证 明 无 效 假设 (相同 方差 ) 不 成 立 , 因 此 正确 的 显著 任 
是 双 忆 的 , 即 两 个 不 完整 Betai 函 孝 的 和 .通过 式 (6.4. 3) 可 以 证 明 两 个 尾 端 是 相等 的 ; 凡 此 
我 们 仅 希 要 计算 一 个 ,然后 加倍 它 . 偶 而 , 当 * 无 效 假 设 ” 特 别 林 行 时 , 双 尾 的 一 致 吐 恋 得 模 
棚 , 给 出 了 一 个 大 于 1 的 指示 概率 ,这 时 改变 概率 为 2 减 去 其 自身 ,以 使 正确 地 交 菊 毕 端 ,这 些 
考虑 和 方程 (6.<. 3) 给 出 了 如 下 程序 ; 
void ftest(float datal!L ，unsigned nl, iloar data2[]， unsigned ]ong n2， 


jloat * ffleat * prob) 
抬 定 数组 datal[1.. nl] 和 和 uara2[1.,n2, 程 序 返 回 了 值 和 它 的 显著 竹 prob. 小 的 prob 值 才 东 这 了 个 数组 有 显著 不 


同 的 方 浆 ， 


void avevat (loat data[- 、unsigned long ny，float wave, floaf x var)) 


flear betaitfloat ay fleat by float x)# 
float varl、var2，avel1，ave2y adf1，df2， 


itvevErKdEtal，&aveL，&warl) 
avevEtKdata2。 人 ave2，&var2)1 
iT (varl var2) 1 使 下 威 为 较 大 方差 与 较 小 六 益 之 比 
#f 一 varlyvar2i 
嫩 1 -na - 1 
如 人 2 一 n2 一 13 
else { 
> 上 一 var2varli 
qdf1 一 n2 一 1; 
df2=nl 一 1i 


# Prob 一 2.0#beraignh xdf2.0. dtlsd22fdt2 十 df (> 05 
证 (sx*Dbprohb > i.0) *PpPreb 一 2.06 一 ，Drobi 


14.3 ”两 种 分 布 是 否 不 同 ? 


给 出 两 组 数据 ,我 们 能 把 上 节 提 到 的 问题 更 一 般 化 并 仅 提出 -个 问题 :两 组 数据 是 后 赴 
从 同一 分 布 本 数 中 抽取 的 ,或 者 从 不 同 分 布 函数 中 抽取 的 ?用 适当 的 统计 学 语言 来 讲 , 即 : 
“在 一 定 要 求 的 显著 忻 下 我 们 是 否 能 推翻 “无 效 假设 ", 即 两 组 数据 集 必 从 同一 总 体 分 布 顺 灼 
中 抽取 的 假说 ." 和 否定 了 无 效 假设 实际 上 就 证 明了 数据 集 来 自 不 同 航 分 布 , 另 外 如 果 不 能 告 
定 无 效 假 设 , 也 仅仅 能 证 明 数 据 集 与 一 个 单一 的 分 布 函数 是 一 化 的 ( 相 窗 的 ), 人 们 水 远 不 能 
证 明 两 组 数据 来 自 于 单个 的 分 布 ,因为 ,例如 没有 实生 的 数据 量 能 够 区 分 两 种 分 布 , 这 两 年 
分 布 仅 相 差 102? 分 之 一 的 量 级 。 

证 明 两 种 分 布 互 不 相同 的 ,或 者 表明 它们 是 相 答 的 是 件 一 直 出 现在 许多 研究 领域 的 什 

务 : 订 见 的 星 体 是 再 均匀 分 布 在 天 空中 ( 即 星体 在 天 体 中 的 位 置 是 作为 赤 纬 的 函数 分 布 了 天 
体 区 域 作 为 赤 纬 函数 的 分 布 是 相同 的 吗 ?) 布 鲁 科 林 !{Rrooklyn) 的 教育 模式 是 否 与 布 鲁 尼 史 
斯 (Bronx) 的 相同 呢 ?( 即 人 的 分 布 作为 最 后 阶段 受 教育 的 函数 是 但 相同 ?两 种 牌号 的 荧光 
灯 使 用 寿命 的 分 布 巧 否 相同 ?对 第 一 眙 .第 一 有 眙 .第 三 胎 等 等 的 孩子 ,他 们 的 水 闻 的 发 牛 率 荐 
否 相 同 ? 

这 四 个 例子 表明 了 以 下 两 种 不 同 的 两 分 法 的 四 种 组 合 , 这 两 种 两 分 性 为 ;Ci) 数 据 尾 连 
续 的 或 岗 散 的 。(2) 我 们 要 么 希望 出 较 … 组 数据 与 一 已 知 分 布 , 要 人 么 希望 比较 两 个 同样 的 未 
知 分布 的 数据 集 。 关 于 菊 光 灯 的 寿命 和 星体 的 数据 集 连 续 的 ,因为 我 们 能 给 出 各 个 欧 光 灯 
的 寿命 和 星球 位 置 的 表 档 .而 水 盖 和 教育 水 平 则 离散 的 ,因为 我 们 得 到 的 是 以 离散 形式 给 出 
表 : 第 一 眙 .第 二 胎 等 ,或 者 6 年 级 ?年 级 等 ,另外 ,星球 和 水 盖 的 “无 效 很 设 ” 是 一 个 已 知 分 在 
(天 室 中 区 域 分 布 和 在 总 人 口中 水 辣 的 发 生 率 )。 而 荧光 灯 和 教育 水 准则 涉及 到 两 个 同样 者 
是 未 知 数 据 组 的 分 布 的 比较 (两 种 牌号 ,或 Brooklyn 租 bronx) ， 

人 人 科 总 是 能 够 将 连续 数据 转化 为 量化 的 数据 ,只 要 通过 以 于 方式 ,即将 事件 分 成 不 同 的 
人 未 纬度 是 1 一 10 度 、10 一 20 度 、20 一 30 度 等 .离散 量化 
过 程 总 是 损失 一 定 的 信息 ,不 管 怎 样 ， 量化 级 的 选择 也 有 相当 的 任意 性 。 与 其 他 研究 者 -一 样 ， 
我 们 也 希望 避免 不 必要 的 离散 化 

对 于 离散 分 布 之 间 的 差异 ,可 以 接受 的 检验 是 六 检验 。 对 于 单 变 最 画 数 的 连续 数据 组 

， 526 。 


人 


蝶 常 渭 的 恰 验 是 柯 处 莫 哥 洛 去 - 中 密 湛 夫 (Kolmogoror 一 Smirnov ) 检 验 。 我 们 赂 依次 于 汉 
讨论 。 
14.3.1 X 平 方 检验 


假设 观察 到 第 “个 量化 区 域内 欧 数 日 为 癌 :并 性 根据 某 一 已 知 分 和 扑 ， 谋 的 数 率 力 
2 "注意 A, 是 整 效 , 则 林 必 是 整数 , 则 六 统 计 基 为 ， 


人 一 
二 【14 
共 本 [14 


其 中 求 和 中 对 所 有 基 沙 级 的 , 较 大 的 如 值 诬 出 "无 效 假 设 "( 即 RN, 是 其 以 冯 袁 征 的 下 沐 分 布 
中 抽取 的 ?是 相当 不 可 能 的 。 

式 (14.3.1) 相 其 有 0= 2 一 5 的 下 何 第 7 项 都 应 从 和 式 中 略 去 ,如 mr0Nv: 0, 则 六 
趋 于 扰 穷 大 ,这 是 对 的 ,因为 在 这 和 情况 下 N;, 所 代表 的 离散 值 不 可 能 从 ，; 所 表征 的 总 体 中 
抽取 。 

兴 概 率 函 数 Q( 和 2 必 一 个 不 完全 的 伽 妃 国 数 ,这 已 在 篱 6. 2 节 中 讨论 过 ( 见 式 (6, 2. 
18)) .严格 地 说 ,名 (说 凡是 "个 具 训 单位 方 益 的 随机 正 态 变 量 ( 均 值 为 零 ? 的 平 片 和 大 于 这 
的 概率 .在 式 (14, 3. 1) 求 和 中 的 项 并 不 是 个 个 为 止 态 分 布 . 然 而 ,如 果 量 化 级 的 数 较 大 (>>> 
1 ) 或 每 一 量化 层 中 事件 出 现 的 次 数 较 人 时 人 > >>1) 则 在 无 效 假设 情况 下 六 分 布 是 对 式 
(14.3.1) 的 一 个 很 好 的 近似 ,用 它 来 伟 计 X 半 方 检验 的 显著 性 是 标准 的 。 

适当 的 * 值 5 访 几 度数 ) ,提供 了 进一步 的 过 论 . 如 果 以 六 表征 的 固定 模型 来 收集 数据 ， 
阳 不 百 为 拟 全 总 的 观察 孝 >，N; 而 重新 归 一 小, 则 ”等 于 离散 量 的 总 数 Ns( 注 意 Nv 并 不 
是 香 件 的 总 数 ) .如果 闷 事后 被 归 一 化 .以 致 它 的 和 等 于 NA 的 和 , 刚 的 值 等 于 ww，1 ,并 
卫 称 横 地 有 -约束 (在 下 而 程序 中 kKnstrn=1)。 如 果 模 地 有 一 附加 的 自由 参数 . 则 这 些 信 
的 “ 拟 合 ?参数 将 减 小 : (或 增加 约束 ) 一 个 附加 单位 .于 是 我 们 有 如 下 程序 . 
9vid chscns float binsL ,float cbins， int khstrmy tloat + 二 ， 


loat chsq, Eoat 基 PTroby) 


给 延 数 引 hity 1. .atinsj 包 含 事件 的 观 届 效 .并 给 定数 钥 ebinsf1..rbins], 世 含 事 作 的 所 期 户 的 数 , 认 及 香 定 的 约 
昌 个 数 knxtrnat 通 党 为 1), 本 往 序 ( 平 见地 ? 返 世 竹 由 度 的 个 数 电 , 基 旦 5 韭 平 儿 地 ) 将 返 回 到 chec 商 显 著 虹 六 问 到 
prnk .小 的 proh 值 赤 示 分 布 mns 和 ebinus 之 加 有 显 蔷 的 甘蓝, 证 意 bins 和 ebins 部 是 浮 点 型 数组, 汉 然 还 二 tirs 总 
特 数 仁 . 


fiogt gaminqkfiloac afloat x) 
void nrertaor(chaT Prror textL_ ): 
Int 计 

和 lpat teinby: 


# df 一 nbjns 一 knstrnf 

# chsd 一 0.0; 

for (j 一 1 六 =nbins:j 十 十 )》 
让 Cehins[ 中 基 二 上 3) nrerror("Bad expected natiber in chsonen" ); 
temp 一 hins[j 一 sebins| ji 
#fhsc 上 + 一 ttmp +rempyrebins[ 门 , 

} 

# ptpb 一 gsnimaqdKD. 5r [yd 53s(Yehsd))i 龙 慑 率 靖 数 , 见 第 6. ?2 节 


下 曾 我 们 考虑 比较 两 个 离散 数据 集 , 设 &: 为 第 组 数据 集 第 守 个 其 化 级 中 于 了 半天 
卓 心 .为 党 “组 数据 集 同样 第 : 个 其 化 级 中 出 现 的 数目 . 则 区 统 计 姨 方 ， 


SS 人 一 人 
世 之 - 冯 干 S 《4 


和 ,六 和 人 本 3 1) 应 当 注 意 式 中 分 母 并 不 是 只 和 8 的 平均 ( 它 是 式 (14.3 让 
六 2 更 确切 地 阅 , 它 两 倍 于 平均 (和 ), 源 内 是 在 知 和 式 中 的 每 一 项 都 概 己 四 
和 为 能 正 态 分 布 量 的 平方 ,两 正 态 量 之 差 的 方 盖 等 于 它们 各 自 方差 的 和 , 丽 不 挟 全 党， 
如 来 数据 是 以 这 样 的 方式 收集 的 , 即 玉 和 式 等 于 的 和 式 , 则 自由 度 的 个 数 敌 二 旦 区 
级 的 数 日 减 一 ,Na 一 1( 即 knstrn 一 1) .如 果 没有 这 要求 。 日 由 着 个 数 则 为 Ya 例如 :位 
乌 类 观察 家 想 了 解 今年 观察 到 的 乌 种 类 的 分 布 是 否 与 去 年 相同 ,每 一 物种 相当 于 量化 级 .多 
肢 观 察 者 仅 取 他 每 年 中 首先 看 到 的 -000 只 鸟 , 则 自由 庆 的 个 数 为 Rs 一 上 , 施 注 意 后 -种 情 
混 中 .观察 者 也 还 在 检验 这 一 年 的 鸟 是 咨 比 另 一 年 的 多 ,这 是 一 额外 的 自由 度 。 当 然 对 数据 
志和 仔 何 哇 宫 的 约束 都 会 降低 自由 度 ( 即 增加 民 nstrn 到 “个 更 正 的 信 ).。 程 序 为 ， 
void chstwecnoat bins1r]、 fioat bins2-]，int nbins，int knsttm， 
了 loat x#* 丰 ，float *ehsg、float * tbrobhy》 
苔 定数 组 bins[]，… nbinsj 和 数组 bins2[1. .nbins], 它 包含 两 组 离散 数 撕 浊 , 并 有 卫 已 知 附 加 约束 数 knstrmn( 正 常情 况 
册 " 成 17 本姓 序 把 加 入 由 度 的 个 数 由 ,六 检 调 的 chsq 双星 闭 性 prob, 小 俏 的 prob 表示 bins1 秋 bins2 两 公布 之 间 
有 灰 逢 答 别 - 沪 意 hinsl 和 bins2 是 序 点 型 数组 , 尽 答 它们 通常 明 末 数 舍 . 






float gammaq(tloac ga float x)) 
int 
lpat temp# 


“df =nbins 一 knstrny 
+ chsq 一 D. 0 
for 人 =13j 所 一 Drbinsjj 一 十 ) 
开 (binstL 订 一 = 站 日 术 bins2[i 一 二 00G) 
一 一 (xdf)y . 演 有 数据 意味 着 自由 度 少 | 
else 了 
temp 一 binsj[ 门 一 bins2f ji 
xchsqg -- 一 terbx tempy(hins 红 门 二 bins2[ 门 ): 


+ prf 和 一 garamG(O.5<Kx di 0.5x(x#chsqg))5 必 概 率 函 数 , 见 第 6. 2 节 


方程 (14. 3. 2) 和 程序 chsrwo 部 用 于 如 下 情况 , 即 两 离散 数据 集 有 相 癌 的 总 数据 数 .对 
于 不 析 周 的 情况 , 则 有 : 





、CVS7RRI 一 VR7SS) 
二 0 《14.3. 3) 


其 出 " R= ZIR 3s 了 5 (14. 3. 罗 
分 别 琵 数据 虑 的 对 应 数 , 其 程序 可 将 chstwo 适当 改变 而 得 到 。 
14.3.2 K-S 检验 〔Kolmogorov-Smirnov Test ) 


53 检验 十 要 用 于 非 离散 量化 分 布 ,其 为 某 一 独立 变量 的 函数 , 即 对 数据 集 来 说 ,每 一 
数据 点 都 与 一 个 单一 的 数 相 联 系 (如 每 灯泡 的 寿命 或 每 一 星球 的 东 纬 度 ) 在 这 种 情况 下 ， 
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数据 矢 很 罕 易 和 变换 成 “被 抽取 概率 分 布 的 具 积 分 皮 数 的 无 全 估计 是 SCe) 好 虹 和 个 
于 件 分 别 位 于- 一 :，，，N)- 则 Sv(z) 是 一 画 狂 ,其 纵 出 各 在 每 一 给 定 > 点 的 衬 过 数据 
点 的 分 数 ， 这 -时 数 在 两 连续 点 r 之 问 是 常数 即 分 成 递增 顺序 )， 并 月 在 每 点 跌 动 
LN 常数 ( 见 国 14. 3. 1)。 

不 同 的 分 布 ,或 数据 集 , 由 上 而 过 程 . 丝 出 不 同 的 累积 分 布 丽 数 估计 ,然而 矿 压 索 积 分 广 
函数 在 * 的 最 小 允许 值 ! 其 为 零 ) 处 和 最 大 允许 逢 (其 为 1 ) 处 是 - 致 的 (当然 最 大 值 和 最 小 
值 为 士 ce)。 因 这 正 是 最 小 值 和 最 大 值 之 间 的 行为 来 区 别 分 布 ， 

人 们 能 够 想到 用 任何 统 计量 米 测度 两 累积 分 布 之 间 整 体 的 差异 ,例如 两 者 之 所 匡 积 的 
的 对 值 , 或 者 它们 积分 均 方 券 .K-S 检验 让 古 是 一 种 特别 简单 的 测度 : 它 被 定义 为 酒 昧 各 
布 孙 数 绝对 卷 的 最 天 值 .因此 ,对 比较 “组 数据 集 的 Sw(z) 与 一 之 知 分 布 累积 函数 P(y: 炒 
说 ,K-S 统 计量 是 ， 


万 -= Iax Sxtz)] = (Cz)| | 
而 比较 两 个 不 后 的 累积 分 丰 函 数 $S、(z) 和 Sw (z). 则 K-S 统计 量 为 
门 一 max |Sw， Ge 一 Sv， (z)| 3 


使 得 开 一 S 统 计量 有 用 的 姨 在 * 无 效 假设 "情况 下 〈 即 数据 组 抽样 于 同一 分 布 ;. 它 的 分 
布 能 够 计算 , 多 少 是 有 用 的 近似 ,因此 给 出 了 任何 大 零 已 的 观察 值 的 显著 性 .K--3 榨 验 的 
主要 特点 是 在 z 重新 参数 化 过 程 中 的 不 变性 .换言之 ,大 们 能 够 局 部 地 滑动 和 伸 狂 图 ]4, 5， 
1 中 的 > 轴 , 而 最 大 距离 已 保持 不 变 . 例 如 , 司 用 log< 姜 使 用 二 可 以 得 到 相同 的 显著 性 . 


累积 概率 分 布 











基 


在 点 的 己 测 分 布什 (如 图 下 面 的 微 坐标 上 X 个 点 ) 与 区 成品 (>) 的 理论 累积 概率 分 布 值 进行 比较 . 树 造 了 阶梯 
型 最 积分 布 Sxv (ec) ,这 是 “个 在 短信 演 量 点 适量 上 升 的 分 布 , 口 是 这 出 个 票 积分 布 之 间 的 量 大 上 距 离 ， 


图 14.3,1 K-S 统 计 最 万 
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参与 显著 性 计算 的 责 数 可 写成 旭 下 和 式 : 
Qas(0D 2 er 《14.3.71 
这 是 一 个 单调 丽 数 ,被 限 亿 为 国 
QQxrlD) 一 上 Quas(cc) 到 0 《ii 3 
根据 这 个 函数 , 忆 观察 值 的 显著 性 水 平 近似 由 下 式 给 出 
概率 [五 >> 观察 值 ) 一 Qus [AN 十 0.12- 一 0.117 VAN， 感 j (14.3.59) 
这 中 是 数据 点 的 有 效 个 数 ,对 式 (24， 3. 5) 仅 有 一 种 分 布 时 ,AN 一 入 ， 而 对 式 (141. 3 $) 有 
隐 种 分 布 情况 队 ， 


ENN， 
2 
其 中 , 心 是 第 一 个 分 布 中 数据 点 的 个 数 ,N: 是 第 二 个 分 布 中 数据 点 的 个 数 。 
包 仿 在 式 (14. 3. 9) 中 近似 的 性 质 是 当 si. 变 大 时 , 它 也 渐 近 精 戎 -但 对 N 闻 4 时 , 它 己 
足 侣 好 ,就 如 同人 们 曾 可 能 使 用 的 同 洋 的 小 的 数 ( 和 参见 -1])， 
因此 ,我们 有 以 下 程序 ， 


inelude < 一 Inath.h>> 
共 inclade "nrutil. h" 


和 (14, 3. 50) 


ovid ksone loat qata[]，unsignped long ny float fi finc3tfloat)，flozst > 才 ， 

float >* prob》 

给 定数 组 data[1, .n2* 并 给 定 一 个 用 户 气 供 的 单 变 量 的 画 数 fnc 它 是 -个 匈 围 从 0( 其 变量 的 盐 小 让) 到 ]5 开 变量 
的 下 大 忆 ) 的 时 积分 林 概 率 , 木 程序 返 同 民 一 3 统计 区 xd 以 及 蜡 著 性 水 平 Frob- 小 的 prob 戎 表 困 dasa 的 暴 且 从 布 图 
数 了 明显 不 同 于 func 。 数 组 date 破浪 遂 增 次 六 排列 向 修 汗 。 


floatr probkstfloar slam)3 

void sort(dunsigned lon&g D。 float arr[ ); 
umnsignec jpong j# 

floas qtyen ,ffnyfo 一 六 .0; 


Sortfnydata)3 如 果 娄 沁 已 纪 按 递增 排序 , 岂 地 调用 可 以 省 咯 
en 一 ni 
# 才 一 个 .03 
FEor G 一 1 所 一 D 刘 | 1 关于 排序 数据 点 的 特 环 
fn 一 jyent 存 这 步 以 后 ,数据 的 累积 分 布 附 数 
一 (Cr func)cdata[: 3); 与 则 户 提 供 的 蚌 数 止 较 
人 由 一 M 全 和 (Jabstfc 一 芋 ) ,tabsCin … 手 )# 服 太 虐 高 
放 (dt > dd 一 路; 
[Io 一 fn 
} 
e 拉 一 sqrtfen)+ 
# brob 一 btobks(ten 十 0 12 十 9 1T1Aen)》 (Had))i 计算 已 鞭 六 : 


十 inelure <rmath.hbh>> 


void kstwoffloat dara][ ]，unsigned long n1， ftoat data2[-，unsinged leng n2， 
iloat #* dv float 关 prob? 
冶 定 数组 datal :..n_ 利 数组 dataL1..n24. 术 和 阻 序 把 加 人 一 3 统计 量 d, 以 及 关于 数据 党 肥 自 于 相同 分 布 的 无 效 舰 


设 的 显著 性 水 下 prcb。 小 的 prob 琳 时 datb1 的 络 积 分 布 函数 显著 不 所 于 data2 的 聚积 分 布 函数 ,数组 dafa: 刊 data2 
旷 改 为 按 递 增 顺序 划 序 ， 
530。 








下 oat probks (iloat alarm) 

void sort (ansiBned ]ong ,了 ioat arr_ ia 

Unaigned iong 二 上 ,ji2 一 1 

tloat dl,d2:,dt:enl,en2,en ,fmnl =0.0sfin2=0nOi 

sntttnlydatal)i 

Sortkn2 ydata2y 3 

eni 一 ni 

en2 一 2 

中 一 0.0i 

whilp fi 扫 一 hg 2 二 一 2 14 妇 果 我 生疏 做 条 ，，， 
在 ((dl 一 datal0jl 7) << 一 人 2 一 data2lj2i) fnl1-j 寺 十 ren1i 下 - - 步 在 data1 中 
让 td2 < 一 人 11) fn 一 i2 一 十 Yen2; 下 “: 步 在 data2 中 
让 {( 必 一 tabs(fn2 一 和 1)) >> <*d) *d=dtl 

有 一 SUrtKehl x enh27ter1 十 ert2)》)， 

区 Prob 一 probksffen 十 0 12 一 人 117enyxfyd)7y 计算 此 共性 


上 述 两 个 程序 都 使 用 了 如 下 程序 进行 丽 数 Ques 的 计算 : 


其 inctuqe 挟 Imath.h>- 
并 define PEPSL 0 001 
#deftine EPS2 1,0e 一 站 


fioat proebksrfloat alam》 发 -5 概率 国 数 
! 


Int ]# 
floaf 82,fac 一 2.0sum 一 0 0,termytettphi 一 GDi 


a2 一 一 2.0x4ajznm kalarnr 
foer (一 ] ij 过 一 100 十 | 1 
term 一 fac 关 exp(a2x*j#jy 
这 (fabsfrcettna) 迟 一 下 PSi yternhf 1 fabsftertmy 世上 PS2 xsum)y return surmtt 
fac 一 一 fac 变换 和 式 中 的 芬 号 
teTmbf 一 fabs (term)i 
1 
Teturn 1,05 仅仅 因为 不 收 俩 而 到 达 此 


14. 3.3 K-S 检验 的 变形 


K-S 检验 对 一 个 积累 分 布衣 数 PK(z? 偏 益 的 灵敏 度 是 不 独立 于 x 的 .实际 上 ,K-s 检验 在 中 位 数 附 近 最 
灵 垢 , 即 PCz) 一 4. 3 在 分 布 的 木 端 最 不 灵敏 ,PCz) 接 近 0 或 1 .原因 是 在 无 效 假 设 中 .1Sv(z)- PU， 并 
没有 独立 于 变量 的 概率 分 布 .更 正确 地 流 , 它 的 变化 正比 于 Ptzi[1… Ptz), 其 在 P=05 处 取 最 大 逢 。 
因为 式 (14. 3. 5? 中 的 K-S 统计 量 足 两 票 积分 布 函 数 在 整个 > 轴 的 最 大 差 值 ,一 个 在 其 自身 * 值 上 统计 匈 
著 的 偏差 ,将 变 得 可 与 妃 =).5 处 所 希望 的 随机 偏差 相 比 拟 , 贸 此 它 是 打折 扣 的 .结果 是 K-S 检验 普 于 寻找 
一 种 概率 分 布 的 偏 移 ,特别 是 中 位 数 的 改 灾 , 但 它 并 不 总 必 善 于 寻找 发 散 ,其 更 影响 概率 分 布 的 来 端 ,六合 
中 位 数 保持 不 变 ， 

增加 K-S 统计 量 在 未 端 作用 的 一 种 方式 十 ,用 一 个 称 之 为 稳定 的 或 尺 权 的 统计 量 5… 灶 蔡 式 114. 
5) 中 的 轧 , 例 如 Andersonp-Darling 统计 量 

万 半 二 -二 全 |SvgCz) 一 王 (Z) 
一 we wvPrzi[] 一 Br] 
中 地 的 是 ,对 式 (11.3.7)? 各 (14, 3.9) 没 有 相应 的 简单 公式 ,虽然 Naez 利 用 递 推 关系 给 出 『 -- 促 计算 志 法 ， 


号 号 


4 11 


并 提供 了 数值 结果 梧 . 达 专 许 多 其 它 可 能 研 似 的 统计 大, 例 虹 
to 1 3， 
VC 

也 大 由 Anderson 利 Dasrlingt: 有 以 计 汉 的 ， 

另 一 种 揭 简 单 更 由 二 的 六 法 变 回 于 Kuiper ,我 们 蕊 终 知 道 际 准 K-S 稚 验 在 变量 的 重新 其 数 化 上 
是 不 变 的 .一 个 更 一 般 的 对 称 性 (其 慌 计 在 所 有 值 寺 月 相符 的 六 敏 度 ) 是 环绕 工 轴 成 :个 圆 5 十 = 点 十 竺 
内 能 )， 并 昌 寻 找 一 个 统 让 基 , 其 相 该 贺 上 所 有 仿 移 和 参数 化 二 都 是 不 蛮 的 - 例 媳 , 它 人 允许 在 > 的 其 “并 
值 * 切 断 ? 委 率 分 布 并 交换 堪布 商 边 的 < 值 , 婉 计 量 和 其 显著 性 都 没有 变化 . 

Kuiper 的 统计 区 定义 因 ， 


人 一 六 六- max [Sr Pr max [Pr SSvtCz) 111.2.15: 
ER 


亡 蚌 Sukz) 在 斑 ( 拉 上 面 币 下 面 最 大 旺 离 之 和 ,应 苯 近 这 一 统计 基 在 山上 具 在 折 希 望 的 不 全 昼 : 愉 当前 庶 
圳 超过 360" 许多 次 ,因此 可 以 作为 图 绕 所 张 基 度 的 国 数 , 而 卉 出 征文 在 加 上 两 椰 浴 分 布 的 元 鼻 限 和 六 ,让 
果 改 变 积分 的 息 点 ,五 - 利 瑟 - 将 发 止 变 沙 , 攻 它 们 艺 种 则 保持 不 灾 

上 寺 此 .对 十 统 当量 站 的 谣 近 分 布 丰 简单 的 公式 .可 育 接 模 我 513 7 一 (4410 变 





sr( 有 一 补 站 和 13 045. 4 
拉 1 
它 蚌 单 剧 的 ,并 油 足 ， 
包 kxt] 一 1 krc 一 站 亲王 二 2 


根据 这 隔 数 , 显 关闭 水 下 为 
概率 (TY 2 观察 值 ) 一 QI[ ww 二 5 155 二 424 wVR)D] CUL13 1f 

这 时 ,在 “组 拌 本 情况 下 ,>* 等 于 六 ;不 在 西 组 样本 情况 下, 则 为 式 (14. 3.107 的 值 。 

当然 ,Kuiper 得 验 对 在 一 个 国 上 定义 的 任何 问题 邦 是 理 电 的 ,例如 检验 某 些 东西 的 经 度 嘴 各 与 猩 这 
有 敏 : 或 号 个 汞 起 在 斧 度 必 再 人 不 同 的 分 布 ( 见 [8])， 

我 们 将 类 狼 于 ksone .ksrwe 种 probks 程序 的 编 妈 留 给 记 间 去 做 ;( 对 所 0.4, 不 要 试图 对 式 (4. 3 
11) 求 和 , 它 的 俏 足 ! 至 ? 的 数字 ,但 流 级 覆 需 归 许 多 项 才能 攻 剑 ,于 失去 舍 入 精度 。) 

调 个 最 后 应 当 引 起 注意 的 问题 是: 第 .其 所 有 K-S 检验 郁 款 少 区 分 某 种 分 布 的 能 力 : 一 个 简单 的 例 了 了 
是 ，- 带 有 穹 * 臣 口 ?的 分 布 , 在 * 凹 ”内 概率 为 零 , 当 然 在 这 一 “ 咎 口 "内 甚至 有 -数据 点 的 看 在 攻 安 将 这 
分 布 撞 除 , 亿 是 本 为 它 的 积累 性 质 ,K-S 检验 在 对 仿 莽 莉 告 之 前 斋 爸 在 * 止 口 " 内 有 许多 数 据点 、 

其 次 ,我 们 应 注意 ,如 果 我 们 从 一 数据 集 刀 估算 任何 参数 (四 均值 和 方 吉 ), 则 对 于 使 用 『 这 机 估 目 倪 
数 的 积累 分 布 函数 纪 (z) ,K-S 统计 最 五 的 分 布 库 也 不 是 由 式 (14. 4, 9) 给 出 。 一 般 来 说 ,人 们 必须 自己 实 决 
定 新 的 分 布 , 如 利用 蒙特 卡 岁 法 (Monte Cario) 。 
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14. 4 两 种 分 布 的 列 联 表 分 析 


在 这 -… 节 和 下 两 节 , 我 们 将 处 理 两 种 分 布 之 间 关 联 的 测度 .人 情 宫 是 这 样 的 : 起 个 数据 点 
部 有 了 晰 个 或 更 多 个 与 它 相 有 联系 的 木 交 的 量 , 并 上 且 我 们 也 和 希望 知道 是 否 对 某 . 其 的 了 其 太 天 
于 我 们 预报 另 -有 量 的 伪 . 在 许多 情况 下 ,一 个 变量 是 “独立 "或 "控制 ?变量 ,和 而 六 必 和 
“* 非 独立 ?或 "观测 ?变量 .那么 ,我 们 希望 知道 是 否 后 一 变量 实际 上 依赖 于 或 关联 于 前 - 

蜡 。 如 果 确 实 如 此 ,我们 希 户 对 这 一 关联 的 强度 有 定量 的 测度 .人 们 通常 不 太 严 漠 种 洛 上 天 
述 为 两 变量 是 相关 还 是 不 相关 ,但 我 们 将 保留 那些 特殊 关联 (线性 .或 者 至 少 是 单 轴 的; 电 
语 , 这 将 在 第 14.5 节 和 14. 6 节 了 予以 讨论 ， 

应 当 注 意 的 是 ,就 象 淮 前 儿 节 一 梯 , 显 著 性 和 强度 的 不 同 概念 表 现在 : 阳 使 站 名 疗 有 才 
间 的 关联 相当 绊 ,如 果 数 据 量 足 够 大 ,这 种 关 腾 仍 是 非常 显著 的 。 

全 抽 SR 交 估 风 

' 一 个 变量 , 当 它 的 值 是 某 - -无 序 集合 的 成 员 时 , 则 称 其 为 公称 的 . 例 刹 : 有 

一 个 公称 变 基 ,在 美国 ,这 是 取 59 个 值 中 的 : -个 ;在 天 文学 上 和 下 系 ， 齐 ， 
称 变 量 , 它 取 三 个 值 :螺旋 星系 "“ 酉 铅 星 系 ? 和 “不 规则 星系 ” 

'“ 当 一 变 野 的 值 是 某 一 离散 .而 有 订 集 侣 的 元素 时 , 则 称 该 变量 为 有 序 的 , 例 型 ,党 欠 的 
年 级 .太阴 系 行星 的 次 序 ( 水 隶 王 1 ,金星 =2,…) 子 孙 的 数 日 等 ,在 一 有 序 由 的 位 
之 间 不 必 有 “* 相 等 度量 距离 ”的 概念 ,而 仅 需 要 它们 是 内 在 有 序 的 。 

“我 们 将 称 -变量 为 连续 的 ,如 果 它 的 值 是 实数 ,如 距离 ,时间 、 温 度 等 :有 - 弛 
还 区 别 区 间 和 比率 深 续 变量 ,但 我 们 并 不 认为 这 种 区 分 是 必需 的 )， 

一 个 连续 变量 可 以 量化 为 有 序 量 , 如 果 忽 略 其 顺序 , 则 有 序 量 又 可 变 为 公 乏 灾 基 到 光 
变量 构成 了 结构 为 最 低层 次 ,因而 也 是 最 一 般 的 .例如 ,一 组 几 个 连续 或 有 床 变 尉 肥 业 吉 村 
以 粗 料 地 转变 成 单个 的 公称 变量 , 即 先 量化 分 级 ,后 将 每 个 离散 的 量化 级 看 成 -一 个 单一 下 分 
称 变量 , 当 多 维 数据 较 稀 琉 时 ,这 是 唯一 明智 的 处 理 方式 。 

本 节余 下 部 分 将 讨论 两 个 公称 变量 之 间 关 联 的 测度 .对 任何 ~-- 对 公称 变量 ,数据 能 用 … 
列 马 胡来 显示 ,该 表 的 行 由 一 个 公称 变量 的 值 来 标号 , 列 由 另 一 个 公称 变量 香 来 生 续 , 表 交 
项 目 是 非 负 整数 ,它们 给 出 了 行 和 列 的 每 - -组合 的 观测 事件 的 数 利 (网 覆 14, 41. 入。 这 榨 对 公 
称 变量 之 间 关 联 的 分 析 称 为 列 联 表 分 析 或 交叉 列表 分 析 。 

我 们 将 引入 两 种 不 同 的 方法 ,第 一 种 方法 是 基于 X 平方 统计 量 , 它 能 较 好 地 : 受 征 过 惠 
联 药 显著 性 ,但 它 用 作为 强度 的 测度 友 很 一 般 ( 主 要 由 于 其 数值 没有 任何 非常 直 ; 交 ? 1 
第 二 种 方法 是 基于 信息 论 中 灯 的 概念 , 它 根 本 没有 引入 关联 显著 性 ( 仅 对 X 平方 而 禹 ， 3 和 
能 非常 罚 确 地 袁 征 已 知 很 显著 的 关联 强度 。 


14. 4. 1 基于 X# 的 关联 测度 


首先 ,我 们 设 Na 表示 第 一 个 变量 取 第 ; 个 值 ,第 个 变量 取 第 / 个 值 时 事件 发 宇 虑 数 
引 。 设 w 表示 总 事件 数 , 即 等 于 所 有 No 的 和 .。 设 .表示 第 一 变量 z 取 第 ; 信 而 去 并 入 二 刘 














行 利 列 能 旁 注 总 数 } 也 被 给 出 . 变 最 是 "会 气 " 的 , 即 它 们 的 值 逢 刀 的 雇 序 是 生意 的 ,并 出 不 会 影响 列 去 结果 .处 
果 午 次 序 有 一 定 内 在 的 意 文 , 则 变 最 是 “ 存 序 的 "或 "连续 的 ", 半 晤 和 淄 12. 5 太一 第 14. 6 布 的 相关 分 怕 可 以 使 用 、 


图 13, :1 两 个 公称 变量 (这 蛙 是 性 别 胡 其他 ) 列 联 坟 的 例 间 


量 > 取 何 值 时 事件 发 生 的 数目 ,N, ,表示 》 取 第 7 了 个 值 春 不管 取 何 值 时 事 性 发 生 的 数 昱 . 
因此 我 们 有 : 
DT 六 Ti 汪汪 了 Ni 
4 (14.4. 1) 
六 一 >JNi. 一 之 ， RN. ， 


N.， 和 Ni 有 时 称 之 为 行 和 列 总 数 或 边缘 值 ,我 们 将 谭 慎 使 用 这 些 术 语 . 因 为 我 们 不 能 上 接 
确定 哪个 是 行 :哪个 是 列 。 

无 效 假 设 是 两 变量 > 和 > 没有 联系 .在 这 种 情况 下 ,给 定 某 - -7 值 时 某 一 并 值 的 概率 ， 
等 于 不 管 》 取 何 值 时 工 取 该 俏 的 概率 。 因 此 ,在 无 效 假设 的 情况 下 ,对 任何 N; 的 期 望 的 数 
〈 记 为 mw 放 可 仅 从 行 和 列 总 数 中 计算 出 来 ; 

部 和 艺 意味 着 mw; -= ， 《4. 2) 
注意 ,如 果 某 一 列 或 行 的 总 数 为 零 , 则 在 那 列 或 行 中 近 有 有 项 的 期 望 数 都 为 零 ,在 这 种 情 沈 
下 ,从 不 发 生 的 工 或 ?的 量化 级 将 从 分 析 中 简单 地 除去 。 
六 统计 基 现 在 由 式 (14. 3,1) 给 出 ,在 目前 情况 下 , 它 基 去 中 所 有 项 的 和 
宕 = > 一 5 (4.4.3) 

丑 击 度 的 个 数 等 于 表 中 项 目的 数目 (即行 和 列 大 小 的 乘积 ) 减 去 约束 条 件 区 (四 我 们 用 
它 米 决定 mw 的》, 每 个 行 总 数 利 列 总 数 都 是 约束 条 件 ( 除 去 已 多 计算 了 一 个 ). 因 为 行 和 列 的 
总 数 都 等 于 六 , 即 数据 点 的 总 数 .因此 ,如 果 表 的 大 小 是 了 xx 二, 则 自由 度数 等 下 TI -7 7 一 
1. 式 (14.4.3) 连 同 太 和 慨 率 函 数 (第 56. 2 节 ) 络 出 了 变量 z 和 之 问 关联 的 显 兰 履 . 


”3534。 





假如 有 显著 的 联系 ,那么 我 们 如 何 才能 定量 刻 划 它 的 强 并 , 即 我 们 是 奋 能 已 较 一 个 关 圈 
与 另 一 关联 的 强度 ?这 里 的 想法 是 找到 某 一 重新 参数 化 的 巡 , 其 映射 自身 到 更 适当 的 区 间 ， 
处 0 到 1 ,其 中 的 结果 并 不 取 雇 于 我 们 取样 数据 的 量 , 而 取 次 于 数据 取样 的 总 体 . 在 儿 种 不 
慰 的 方式 可 做 到 这 一 点 .最 常见 的 两 种 是 克 莱 姆 (Cramer) 的 Y 和 列 联系 数 C. 

Cramer 乓 六 定 区 为 : 


0 人 1. 1， 
一 MMR 一 1, -1) 全 


其 中 ,了 和 > 了 是 行 和 列 的 数目 ,N 是 事件 的 总 数 .Cramer Y 具有 位 于 0 和 1 之 半 ' 灸 括 :和 
1 ) 令 人 愉快 的 性 质 , 当 没 有 关联 时 等 于 0 ,关联 完备 时 等 于 ] :任意 行 中 所 有 系 件 痢 位 二 唯 
一 的 列 中 ,反之 亦 然 .( 按 (国际 ?象棋 术语 说 ,任何 两 个 愤 于 非 零 表 项 上 的 车 .都 不 东 互 相 拼 
杀 )。 仕 了 一 7 一 2 的 情况 下 ,Y 称 之 为 Phi 统计 量 ， 

列 联系 数 C 定义 为 ; 


EN “14.4.- 
(人 = A 天 二 商 (14.4.5) 


它 也 位 于 0 和 1 之 癌 .但 它 不 能 达到 它 的 上 限 , 当 它 阁 用 于 比较 带 有 相同 工 和 , 的 叮 个 表 
的 强度 时 , 它 能 上 限 取 决 于 工 和 ,因此 , 尼 不 能 用 于 比较 两 不 同 的 大 小 的 玫 。 

站 和 (的 麻烦 是 : 当 它们 取 两 端 部 之 间 的 值 时 ,不 能 直接 解释 这 些 值 意味 着 什么 . 例 
如 ,你 在 拉 斯 维 加 斯 ,一 位 肝 友 告诉 你 ,在 赔 场 管理 员 的 眼睛 与 它们 的 赌 盘 红 和 黑 出 现 的 机 
会 之 间 有 一 虽 小 但 显著 的 关系 ,并 告诉 你 了 值 是 0. 028 .那么 ,你 知道 什么 样 的 运气 在 等 着 
你 ,这 种 关联 是 否 能 使 你 赢 钱 ?请 不 要 来 问 我 们 ,不 知道 ! 
共 jnclude 二 tnath, jh 盖 


并 jnclude "hrutil.hw 
并 define TINY 1l,0e 一 30 


void cntabl int # san irl nly int nj, jloat xchisq float +* df， 
filoat “ prob :float #cramrv floar < cccy 


给 定 呈 整数 型 式 nnL1. - oi][1. .nj] 的 二 维 列 联 表 ,程序 所 莹 奏 的 ckisg, 首 由 度 个 数 由 , 昂 苗 性 水 诗 robt 小 的 伺 表 
下 显著 关联 ), 以 及 两 个 关联 量 克 菜 姆 (crsmrv) 和 关联 系数 Cicec)， 

float gammq[float &a，float xz) ; 

int aPj,nni, ji,zminaili 

float Sum=0.0,expctd,*auoi ,+sumj ,teamp; 


gunmi=vectorgi,niy; 
suUD2=Vector [1 ,Dj)i 


Di=aiy 行 数 
mnj=nj ， 列 孝 
for (i=1ii<=niii++y 1 得 到 行 总 数 


suml[i]=0.0; 

for 《j=1ij<=ojij++) 1 
“SumiLi += cuti[j]; 
sum += np[a][j]; 


上 
if [sumi[i] == 0.0] --nnil; 通过 减少 个 数 消去 任何 零 行 


for (]m1;j<snjij++) 福 到 列 的 总 数 
sumj][j]=D.0; 
for (i=1fri<=ni:;lit+》 sumjlLI] += hnlil[j]:; 
if 〔(sumj [j] == 0.0) --nnji 消去 作 何 党 玉 


了 


wdf=mmtiyninj-hni-nn2+li 按 正 的 占 册 度 个 数 
*chisq=0.0i _ 
for (i<*tyicmahtzijtr+: 站 求 信 利 


for (]=1;j<snj;i]*+) 工 
exXpctd=atm;i[]]*Sunaifa]lysuai 
temp=rm[i] []] -expctdi 


?Chisq += 《epP#tenp/ (erPpctd+ITINY) ; 这 由 TIRY 保 证 涝 去 的 行 条 列 不 再 
对 和 式 作出 首 献 
斑 
=pITOb= 多 ammqfC ,5*(*cf) .DO.54K4chtzsq)); X 2 概 率 明 数 


mznaj *= rmt < nnj 7 rnt-l : mn-l; 
*CTaADTV=SOItY (echigsQAfSsumweminij))i 
CCCSgOTtKCChigsQqAtecchigsq+sumy》， 
free_Vvector(sua],1,a2])， 
ETe9e_Vactor(sUmt 1,ni)i; 

1 


14.4.2 ”基于 灼 关联 测度 


考虑 "二 十 个 问题 ?这 个 游戏 .通过 重复 提问 (是 /' 查 ) 提 题 , 除 了 -种 正确 的 可 能 忻 色 .能 
消除 所 有 的 未 知 可 能 的 红 问 。 考 虑 一 个 更 一 般 的 游戏 ,这 里 你 被 允许 提问 双 项 选择 的 问题 、 
也 可 以 提问 多 项 选择 问题 .但 多 项 选 拌 必须 是 由 下 排斥 的 并 且 是 详尽 的 ( 正 象 * 是 "和 "机 ”… 
样 ) 

对 你 来 说 ,一 个 答案 的 值 将 随 所 消除 的 可 能 性 的 数 自 的 增加 而 增加 .更 特别 的 是 , - -个 
答案 如 仅 握 殿 以 分 数 户 表 征 的 可 能 性 , 那 将 宅 研 十 值 一 nz( 因 为 2<1, 它 是 一 正 数 1, 对 数 
的 作用 是 使 这 -一 信 呈 可 加 性 ,因为 (例如 )》-- 个 问题 ( 共 仅 提供 除去 176 可 能 性 ?将 被 特 虑 与 
二 个 问题 一 样 好 (其 以 因子 172 和 173 按 顺 序 将 数 减少 》. 

因此 这 是 一 个 答案 的 值 , 但 什么 是 一 个 问题 的 值 ? 如 果 一 个 问题 有 了 种 可 能 的 答案 (=- 
1，,，7) ,第 ;个 答案 的 可 能 性 的 分 数 为 疡 (所 有 六 的 和 等 于 1) ,那么 问题 的 值 即 为 答案 值 
的 期 望 值 . 记 为 五 


虹 
百 一 一 > ) 户 jn 户 《14. 和 4.6) 
1 一 上 8 
在 计算 式 (14.4.6) 时 ,应 注意 
dpin 疡 一 0 了 
妨 一 0 


值 五 在 0 和 1o7 之 间 , 当 仅 一 个 疡 等 于 1, 其 它 为 零 时 ,号 一 0 在 这 种 情况 下 ,问题 毫 无 意 
义 , 因 为 答案 是 顶 先 规定 好 的 . 当 所 有 户 相等 时 ,五 取 最 大 值 .在 这 种 情况 下 问题 定然 参 消 
去 , 除 兹 下 可 能 性 的 分 数 1/ 外 的 所 有 可 能 性 。 

如 值 通常 被 称 为 由 广 确定 的 概率 分 布 的 粒 .这 一 术语 出 自 寺 统 计 物 理 ， 

迄今 为 止 , 我 们 还 未 讨论 两 变量 的 关联 .但 假设 我 们 正 衬 决定 下 面 提 御 么 问题 和 两 个 候 
选 者 的 选择 ,或 者 可 能 想 按 一 种 顺序 或 另 一 种 顺序 问 两 个 问题 .假设 一 个 问题 x 有 /， 种 可 能 
的 答案 ,每 个 标记 为 ，。 另 个 问题 ?有 了 种 可 能 的 答案 ,每 个 标记 为 岂 .那么 ,对 两 个 启 卸 提 
问 的 可 能 的 结果 构成 了 列 联 吉 ,其 咎 硕 为 Ri 如 用 总 数 3 归 一 化 , 则 能 篆 册 六 厅 往 这 
的 信息 ,特别 是 利用 工 (14.4,17 可 以 得 到 


fi 


(单独 问题 时 的 结果 


V (4.4.8)》 
户 ， 一 :车 《〈 单 优 问 题 时 的 结果 ) 
间 题 和 >y 的 分 别 是 : 
(r) 一 人) 直 ，lnz， jy) 一 一 >) 庆 ，lnp.， (id.1.9) 
亲信 问题 在 一 起 的 为 ( 共 媒 ) : 
盏 (cy) = 一 > 加 na 人 (4.4.10) 


证 汪 
什么 是 给 定 < 情况 下 问题 y 的 精 ( 即 如 果 首 先 问 xy, 它 是 位 于 列 联 表 中 某 列 > 分布 受 
限 的 婧 (相当 于 对 zx 的 答案 ) 夺 所有.* 上 的 期 户 值 ， 


DC3z) 一 人) 轴 ， > 刀 旧 名 一 一 人 7 2 ln 如 (td.4. 1 
了 轧 . 声 ;- 6 四 
反之 , 则 有 之 对 y 的 炳 
五 ( 代 3) 一 一 入 > 户 ，， > 如 用 用 【14. 4. 127 
1 


我 们 很 容易 让 明 y 相对 > 人 y 的 精 , 即 先 癌 x 公 能 减少 提问 
的 有 四 性 (在 这 种 情况 下 ,了 帅 变量 是 机 关 联 的 上 
ii(yiz) 一 如 (0y) = 一 六 ln 名 名 


本 本 2 > 【14.4. 137 


其 中 我 们 使 用 了 以 下 不 等 式 
lnw 实 一 1 《14.4. 141 
现在 ,我 们 已 经 具 有 定义 》 对 z* 依 融 性 "( 邑 对 关联 的 测度 的 一 切 准 备 ,这 一 测度 有 时 称 为 
>y 的 不 确定 系数 . 记 为 到 (y 了) 
责 人 7) 一 加 (yzZ) 
石 


了 ai 
CCy|z) 9 


这 一 测度 在 0 和 1 之 向 ,0 值 意味 着 > 和 y 设 有 联系 ,1 值 意味 着 对 = 的 了 解 完 全 能 预测 y。 对 
任何 中 间 值 , 4zly) 给 出 了 如 果 工 已 知 , ? 的 粒 (3?) 丢 失 的 部 分 ( 即 对 x 信息 的 宛 余 ) ,在 
“二 二 个 同 题 " 的 游戏 中 ,如 果 首 先 担 问 r, 则 忆 (3y xz) 是 问题 y” 有 用 性 的 部 分 损失 。 

如 果 希 望 以 > 作为 独立 变 最 ,> 作为 依 夭 变 量 ,二 以 通过 交换 < 和 y 得 到 对 > 的 依 
赖 任 : 


(站 业 , 157) 


鼠 (z) 如 (zy) 


Lrcly) 运 万 人 


人 了) 


,537 ， 


如 果 我 们 希望 对 称 地 处 理工 和 各》, 则 有 用 前 纹 侣 


fr 二 百 C) 二 77 (4. 并 17) 


如 果 两 个 变 最 完全 独立 . 则 互 (z,y) 一 刀 人 7) 十 九 (y): 瑟 此 式 (14.4.7) 等 于 瞩 . 如 果 两 个 灾 
遇 完 全 依赖 , 则 好 (z 站 王妃 (C)= 王 1 因此 开 (14.4 77 竺 于 1 。 实 际 上 ,可 使 用 等 式 ( 很 
容易 大 (14.4. 5)~ 14.4.123 得 到 ) 
好 0 二 旦 (人 一刀 ( 人 | 了) 用 (7) 十 五 (13) (14.4.18》 

并 得 到 : 
rrsy) - ZL 算 交 二 全) 
印 对 称 测 度 是 两 非 对 称 测 度 (14.4. 15) 和 (tid.4.16) 的 加权 平 闪 ,权重 分 别 为 每 一 变量 的 炉 。 

以 下 是 一 程序 , 它 可 以 计算 所 讨论 的 所 有 最 号 (2 、 玫 (yy)、 瑟 人 | 、 百 (yz Cryy)、 
ECGzl Gylz) 和 ELCzyy)。 





(14,.4.13) 


世 inctude <math.h>> 
区 jhchude "nrutil,h" 
不 define TIRY 1.0e--30 一 个 小 的 数 


yoid entab2kint 4 xx nny ipt niy int njy float hiloa: >* hxy float xbhy， 
了 loat * hygx，float #bhxgyy foat # uygsx，fleat * uxgyy jloat * uxy) 
给 定 一 个 整数 型 数组 nnlijLjj 的 二 绯 列 联 表 ,其 中 ; 标记 二 变量 ,其 范围 从 1 至 mi 标记 > 变量 ,其 范围 从 1 至 mu 村 
程序 返 癌 整个 表 的 炳 br 分布 的 类 hx,y 分 布 的 业 hy, 己 知 z 后 y 的 录 bygx, 已 知 y 司 :的 入 hxgyyy 关于 > 的 次 
条 性 uygx 为 式 (14.4. 15) 必 关 于 > 的 依 脱 性 :xgy 为 式 (14, 4. 15) 对称 依 赎 性 uxy 为 式 (14. 4. 171 。 


iat i,]; 
Lo8t 5UmeD ,以 , 户 ,eStuai ,Stuimn] i 


sumisvectcr(1 ni) 3: 
guajs<vactor(1l,aj); 
for 【in=1iicsniiiy+y》 姜 ， 得 到 行 总 数 
suni[i]<o.0; 
for 《]j= ;js<= 了 ji;]++) 荆 
sumiki] +s< nn[i]lfj]， 
+， sum + nn[i][j] ; 


】 
】 
for (jz=13j<aoj3j++)》 工 和 到 刚 总 数 
sumj [jj=0.0; 
for 《i=1ii1<=niii+t+)》 
sumj[j] +e mn[i]lrjy)i 
上 
中 XeO -Di * 分 布 的 丧 


for 【1i=171<eDiii+ 十 ) 
if 《aumifi]》 1 
P=aunit[i]yeum; 
让 HX -aa P 上 10B(P) 
上 
#hysO,0: 4 了 分布 的 彤 
Yor {j=1)j<=njij+t) 
i 刘 《suljfjJ])] T 
p=sguaj[j] /aua; 
*hy -= P*1c8(P) : 
上 
qh=D-D0i 
for 《1=11 ;IC=QI ;yd 总 塘 : 关于 < 和 的 循环 
for {j=lrj<snjij+t+) 


“538。 





if (nn[i][jly 1 
p=nn [ij [j] ysuc; 
*h ~= Prlogf(P); 
】 


eyYgx=(zb) -{f*hx) ; 用 癌 .418 戒 
#hhX 区 了 一 【二 b) 一 (过 hy) ; 

*yUu7gK={zbhy-whygx)Afehy+FTINY): 求 ?11. 1.157 式 
了 名 = 一 《=HX“ebaEY) (sbXx+rTINY); 求 11 1 式 
DY 王 2 ,站 本 人 w 站 六 二 条 L 了 ~ 站 相 ] 《二 hv 有 ny 二 TRY) ; 臣 TeJ7) 式 


free_vector(sumj,l,rj)i 
frae_vectnpr(sumi 1],ni) ; 


] 
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14.5 线性 相关 


我 们 下 面 将 继续 讨论 两 变量 之 间 关 联 的 测度 ,这 两 个 必 量 是 马 序 量 补 连续 量 , 而 不是 公 
称 量 ,最 常用 的 是 线 性 相关 系数 .对 数据 对 Cry) 一 2.、 ,YY ,线性 相关 系数 (也 蕉 为 乘 
积德 相关 系数 ,或 皮尔 各 (Pearson) 四 定义 为 ， 

( 一 人 (一 本 
人 《14.5. 1》 
ee 
其 中 xz,y 分 别 蚌 1 和:w)} 的 均值 。 

r 的 值 位 于 -1 和 1 之 间 , 包 括 -1 和 1 “ 妆 数 据点 完全 位 于 一 条 正 斜率 的 二 线 上 (+ 
和 >-* 起 增加 ) 时 ,r 取 值 为 1 * 称 为 完全 正直 关 . 当 完全 位 于 一 条 负 和 斜率 的 十 线 二 5 增加 
而 > 减少 ) 则 > 取 - -, 它 被 称 为 完全 负 相 关 。; 接近 9 表明 变量 * 和 》 基 是 不 相关 的 : 

当 已 知 一 个 相 关 是 显著 的 , 则 > 是 测度 强度 的 惯用 方式 ,实际 上 , > 的 值 等 价 于 以 卜 表 
述 ， 即 当 数据 刊 用 最 小 二 乘 方 拟 合成 一 条 直线 时 ( 见 第 15. 2 节 特 别 必 (15, 2, 13) (13，2. 
14)》, 什 么 样 的 线 状 (偏差 的 均 方 根 ) 是 所 期 望 的 呢 ? 毅 居 的 是 ,对 于 确定 -个 观察 到 的 相关 
性 是 否 在 统计 上 大 显 著 的 ,或 者 一 个 观察 到 的 相关 性 是 克 显 著 地 比 另 一 个 强 时 、， 是 个 村 举 
老 的 统计 量 , 其 原因 是 > 对 z 和 y 的 单独 分 布 号 未 知 的 ， 国 此 在 碟 效 假设 情况 下 , 没 表 任何 

- 般 的 方式 可 计算 其 分 布 。 

仅 能 做 的 工作 是 :如 果 无 歼 假 设 为 = 和 》 居 不 相关 的 ,而 且 如 果 关 于 各 * 部 李 足够 
的 收敛 生 { 其 末端 下 降 很 快 ), 又 如 果 N 足够 大 ( 哄 型 汪 500) ', 则 > 近似 为 王 态 分 布 , 均 和 为 0 
+ 方差 为 1/ YN .在 这 种 情况 下 ,相关 的 (双边 ) 显 著 性 , 即 无 效 假设 下 ， |-[ 式 了 观察 的 值 概 
率 ,为 


一- 














erfc | 一 一 一 :一 | 114.3,2) 


其 中 erfc(z) 是 式 (6. 2. 83) 表达 的 补 余 误差 函数 , 它 由 第 6， 2 节 的 程序 erffc 或 erfec 让 算 .: 式 
《14. 5.2) 的 较 小 值 表 明 上 分 布 是 显著 相关 的 ! 下 面 式 (14. 5. 9 是 更 精确 的 检验 ; 
许多 统计 学 教科 书 都 试图 超出 式 (14.5， 2) 的 范围 ,并 给 出 可 以 利用 -的 另外 的 统计 检 


3 0389。 


验 . 然 春 , 华 几乎 所有 的 情况 下 ,这 些 术 验 仪 对 … 些 兰 殊 的 仍 必 有 效 , 即 和 了 的 联合 汀 入 
形成 了 -个 双 正 态 或 二 维 高 斯 分 布 , 联 台 概 率 分 布 为 ; 


Prvy)2rdy 一 澡 数 入 exp| 一 二 (oil -2077 一 <) ] Cr (1 
其 中 alveu seza 是 任意 常数 ,对 这 一 分 布 > 氢 值 为 





理 世 多 二 
下 《4 4 
AT 
有 时 式 (14. 5. 3) 被 看 成 一 个 好 的 数据 模型 ,有 时 至 少 被 看 作 粗 粮 而 又 便利 的 假设 .网 为 
许 网 瑟 维 分 布 相似 十 双 止 态 分 布 , 至 少 存 昆 端 相差 不 多 ,在 两 种 情况 下 ,我们 能 在 以 下 儿 个 


方向 超出 式 (14. 5. 2) 的 范 园 来 使 用 式 (14. 5,6): 
首先 ,我 们 能 考虑 数据 点 数目 N 不 很 大 时 的 可 能 情况 ,这 里 统计 量 





Ar 一 
em 5 
三 | 和 【14.3. 5 


在 无 效 假 设 情 况 ( 不 相关 ?于 的 分 布 与 "一 六 一 2 自由 度 的 学 生 + 分 布 相 像 , 其 双 迪 显著 性 水 
平 由 1] -44tAo (方程 (6.4.77) 给 出 , 当 玉 增 大 时 ,这 显 鞋 此 和 糙 逐次 变 得 与 栋 (14. 5, 2) 相 问 . 
四 此 大 们 使 用 式 (14. 5.5) 将 不 会 变 得 更 糟 , 既 使 双 焉 态 假 设 还 未 被 很 好 地 证 明 . 

其 次 : 当 仅 是 中 等 大 小 ( 们 10) 时 ,我 们 能 够 比较 是 否 两 个 显著 非 零 > 值 之 间 的 其 蛋 
(例如 从 不 同 的 实验 ) 本 身 是 显著 的 。 换 句 话 说 ,我 们 能 定 基 地 确定 ,在 某 一 控制 变量 上 的 安 
化 是 否 能 显著 地 改变 两 个 其 它 变 基 之 间 所 存在 的 相关 性 ,做 到 这 点 是 通过 利用 Fisher 的 : 
变换 将 每 个 测量 的 ~ 与 相应 的 量 = 联系 起 来 

















z= 去 mn| 革 十 (14. 35. 
于 是 ,每 个 = 都 近似 为 正 态 分 布 , 其 均值 为 
二 0 
== 寺 [六 +R (14. 5. 7 
其 中 ru 是 相关 系数 的 实际 倡 或 总 体 值 ,并 再 具有 以 下 标准 佐 
oz) sx 一 (4 38 


当 式 (14.5.7) 和 (14.5.8) 有 效 时 ,给 出 了 用 个 有 用 的 统计 检验 .例如 r 的 温 量 值 不 同 于 
某 个 假设 大 re 的 显著 性 水 平 为 


丰 计 人 


人 9 (14.5, 3) 


其 中 z 和 zx 由 式 (14.5.6) 和 (14.5.7) 给 出 ,并 且 式 (14.5.9)? 的 值 较 小 表示 有 最 著 差别 ( 令 = 
一 0, 用 式 (14, 5 9) 代 幸 (14. 9.2) 会 更 精确 )。 与 东 相似 ,两 个 测量 的 相关 系数 m 和 一 之 间 盖 
异 的 显著 性 为 ; 
> | 
erfc 1, 5 132) 
V2 | 二 和 | 
其 中 xlt 和 2 可 以 利用 式 (14. 5， 6) 由 六 和 :和 和 :分 别 是 六 和 六 :的 度量 中 数据 点 的 数 
“540。 


日 。 
所 有 上 二 面 的 虹 苦 性 都 是 双边 的 .如果 需 望 否定 无 效 仍 设 以 有 利于 单 边 假设 , 保 训 - 
【 挟 中 不 等 式 的 估计 方向 被 先 验 好 决定 了 ) ,那么 :(i) 如 果 测 度 的 六 和 关 有 错误 的 估计 六 户 ， 
则 将 不 能 证 时 折 作 的 单 边 假设 ;但 (5ib) 如 果 它 们 有 止 确 的 次 序 , 则 能 够 用 0.3 滋 愉 -上 苛 举 沁 
的 各 种 显著 性 ,将 使 得 它们 更 加 显著 。 
但 请 记 住 :如 果 z 和 y 变 基 的 联合 概率 分 布 是 显著 不 同 于 于 双 止 态 分 布 , 则 ， 统计 基 有 的 
解释 可 能 完全 无 意义 。 


并 include 去 math.h 信 
闪 define TINY 1, 0e 一 20 私下 划 化 完全 相关 的 绰 常 情 折 


void pearasnrgloat xlL ji， float YE jj，uhgned Iong float xr， 
float *# prob， float 2z) 
治 定 两 个 数组 XLl ,nj 和 y1..m], 本 织 床 计算 它 妇 的 相关 系 灼 ~( 返 回 为 *), 堆 相 关 的 无 黎民 设 被 扩 诗 和 的 显著 性 
水 平 *prob, 它 的 小 值 慌 示 有 显著 相关 ) 忆 及 Fisher zf 返 呵 xz - 它 抽 导 可 以 用 于 姊 上 所 述 的 大 ”六 过 让 堆 验 中 


float betattfloat gl， float b ,flat xll 
floal etfceffloat zx 

Dasigned Iong j; 

Toaxt yt sxtstvdf 


Eoar syY DSSXY 一 小 DSSXX DODsay= 站 3a 扣 一 0 人 
for(j 一 13j 所 一 nj 十 十 ) : 浮 找 情 
ax 十 一 x[ 宁 
ay 十 一 yj 
} 
ax 7 一 Ti 
ay y 一 ni 
for (一 LU 一 ni -) 计算 相关 么 党 


x+ 一 xfEi 一 ax 
y5 一 了 [Lij -一 ay 
SXX 十 一 XtHxXtt 
sy 一 一 YE 关 yti 
xxXYy 十 二 XtT 闪 ti 


} 

x 一 SXY sgqTtCSXX 4 SYy] 

# 2 一 0 -5*iogf(.0+Txrp 一 TINY)rLC (*r) 二 TINY)): Fisner z 变换 

df 王 n 24 

t 一 (#r?#sqrtgd[ 人 (1.0 一 (fr) 十 TINY (10 一 (xry1TINY7 3， 过 (14,5.5) 

x Ptf 中 一 hataift sxdi:0.5dfrgdi 二 tt 学 生 1 概 羽 

7s #Dynb 一 ceTfccfiabsC(Cx2)ysSqrt(n--1.0)271.4421363 7 对 于 人 ,使 用 程序 rrfts 它 
和 绞 易 计算 慨 率 .并 芍 出 近似 
相 问 的 怖 


14.6 ” 非 参 数 相关 或 秩 相关 


正 基 在 线性 相关 系数 - 的 显著 性 解释 中 的 不 定性 , 导 人 委 了 非 参 数 相 关 或 铁 相关 这 些 重 
要 概念 。 象 以 前 一 样 , 给 出 N 对 测量 值 (z,,y).。 以 前 的 困难 在 于 我 们 未 必 有 知道 tr 和 +w: 母 
体 的 概率 分 布 函数 ， 
非 参数 相关 的 关键 概念 是 :在 所 有 样本 {z;} 中 ,如 果 我 们 用 每 一 个 zx 的 秩 值 来 代 蔡 < ， 
即 1,2,3，…' 闪 , 则 作为 结果 的 数 表 将 取样 于 完全 已 知 的 分 布 函数 , 即 均匀 地 来 自从 1 到 和 
* 541， 


(包括 1 和 N) 的 整数 .实事 上 ,这 上 比 均 邱 更 好 ,因为 如 果 二 的 值 都 是 不 同 的 ,每 个 整 妇 帮 将 
只 出 现 -- 次 ,如 果 {z,1 中 有 相等 的 ,通常 赋 于 这 些 “ 相 持 "以 秩 的 均值 (如 果 它 们 有 稍 带 冯 同 .4 
就 会 有 此 均值) 这些 中 间 秩 有 时 着 整数 , 有 时 是 半 整 数 .在 所 有 情况 下 ,所 有 赋 于 秩 的 和 都 
将 等 十 从 1 到 N 所 有 整数 的 和 , 即 方 NCN | 1)， 

当然 我 们 可 以 对 {y ;进行 同样 的 处 理 , 妈 用 每 个 秆 在 样本 中 的 秩 代 梓 个。 

现在 ,我 们 可 以 自由 地 过 择 监测 均匀 骆 数 组 人 1. - N ;之 问 相关 性 的 练 计量 , 坟 注 意 悉 中 
“相持 "的 可 能 性 .当然 在 用 获 代 蔡 原 这 信 时 会 类 掉 … 些 信息 -我 们 能 均 造 - 些 相 尖 人 为 的 全 
子 , 共 相 关注 能 够 参数 化 地 (如 以 线性 相关 系数 ”位 测 . 员 并 不 能 旧 参 数 化 地 检测 ,然而 .这 
样 的 鲁 子 在 实际 生活 中 是 很 少见 的 ,并 且 在 获 化 过 程 中 ,稍微 的 信息 损失 旦 以 很 小 的 代 全 所 
下 高 的 收益 ; 当 “- 相 关 性 被 证 明基 非 参数 的 , 毕 么 它 确实 如 此 !( 即 一 定 程度 上 取决 十 注 括 的 
显著 性 .) 非 参数 相关 比 线性 相关 更 闪 健 ,也 更 宜 于 消除 数据 中 未 知 的 缺陷 ,就 人 象 中 他 数 .的 
值 更 稳健 -- 伴 . 关 十 稳健 性 更 详细 的 讨论 见 第 15. ? 节 ， 

在 统计 学 中 总 是 有 些 已 构造 好 的 统计 基 为 我 所 月 .下 而 将 过 论 两 个 统计 基 ,Spearman 
秩 阶 相 英 系 数 人 r. ?和 开 enqdal: 的 tagrl， 


14.6.1 S$pearnman 秩 阶 相 关系 数 


设 玉 为 5 中心 的 秩 ,5 为 45 yw 的 秩 , 珍 也 被 献 于 中 间 竹 , 则 秩 阶 相关 系 赦 被 定 
义 为 秩 的 线性 相关 系数 , 即 
了 (六 一 天 (3 一 号) 
0 
惊 验 非 零 值 "> 的 显著 华 由 下 式 给 出 : 





了 攻 3 各国 


六 一 -- 


Pr 
W 一 普 
其 近似 为 六 一 2 自由 度 的 学 生 分 布 , 关 键 是 这 一 近似 并 本 取决 于 二 和 > 的 原 冶 分 布 ! 它 始终 
是 同样 的 近似, 同样 地 好 。 

可 以 证 明 ,~: 与 另 -- 种 常用 的 非 参数 相关 的 测度 密切 相关 , 即 秩 差 的 平方 和 ; 
万 一 > CR, 一 3 《4 R, 3 


CP 有 时 用 -表示 ,其 中 x 导 表 明 相 持 是 用 中 间 秩 处 理 的 ,) 
当 数 据 中 没有 相持 时 , 刚 嘱 和 = 的 关系 为， 


6 姜 


当 有 相持 时 , 则 关系 更 复杂 一 些 : 设 六 为 {R,; 的 第 个 相 圭 组 中 相持 的 数目 ,q。 为 :5 ;的 第 
心 个 相持 组 中 相持 的 数目 , 则 得 出 下 式 精确 地 成 立 ; 
1 一 丙 ，N[D 二 让 半 (用 一 + 巧 于 ( 蚂 一 sw)] 


《14.8.2) 


开 二 沪 


本 二 由 近 {] 于 有 中 ) 











一 二 1 二 元 14, .5 
1 2 (局 二 2 [ 0 =4)] 
0 
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江 音 :如 所 有 六 和 gw 帮 等 于 工 ( 针 没有 相 圭 ) 则 式 (14.6.5) 约 化 为 式 (4.6.4) 
在 芭 611.6.2) 中 我 们 给 出 了 检验 痴 寺 显著 性 的 上 统计 基 . 硬 用 它 直 接 检 览 万 防 亚 黄 
性 也 是 可 行 的 :在 无 效 假 设 ( 非 相 关 数据 组 ?中 六 的 期 望 值 为 ; 





及 : 基 半 C 二 之 大 AD) 3 人 
本 方 蔗 她 ， 
Var(DD) 一 0 -1: 
夫人 和 
人 NA - 


并 且 , 它 江 包 服从 下 态 分 布 : 因 此 兰若 性 水 平 为 补 念 误差 图 数 ( 见 式 (14.7.2)). 当 站 谍 : 
和 .22 和 (12.6.7)? 部 去 独立 了 检验 ,而 是 悦 -一 检验 的 简单 变形 :在 下 面 的 程序 中 我 全 海上 扫 时 生 
算 由 式 (14. 6. 2 六 104.6.7 谷 证 的 显著 侍 水 平 :F 们 的 养 界 将 给 出 这 样 胸 括 念 : 订 说 好 到 全 
么 程度 .还 将 注意 到 .我 们 将 措 浅 穆 的 工作 ( 包 改 相 桂 的 中 间 秩 ?分 出 来 由 子 穆 宁 :rank 完 
成 。 


二 incluce <mach,n > 
+incluce "nrutrl.b7 


rotd spearfflost detal_], flpat data2|  ， nnsigred long 1 Post 关 d， 
loat +#zd，flcat # byrobd，float #Trsy Hoat > Piobr 
给 定 两 个 数据 数组 datal| 1. ,na 和 dara3[ 1.,n * 剖 虞 将 它们 的 张 兰 之 正方 利 返 加 到 号 : 伯 差 元 效 候 法 下 歌 读 的 条 
肉 差 水 , 这 吊 伪 莹 的 双边 显著 性 水 平 为 probd,Spearman 疾 相 关 天 泊 加 为 上: 它 偏离 零 充 迪 靶 昔 宇 基 太 下 
brs。 外 部 程序 etank( 一 疝 ) 柯 sorc2( 第 N 2 被 使 向 ,无论 小 的 zebd 条 小 的 Ptobes 值 都 表示 一 -个 呈 车 拨 宰 居 -> 
为 正 ? 或 者 逐 相 关 Mrs 为 负 )， 


下 eat befaigfluasr 4 foaf 是 ，floaf xx 

void crankfunsigned long D，flear 凤  ，flost *s)5 

float erfcc(zloat x); 

void sor:2Cunsigned lonsg ny fluat arr[]，Loat brc 
dnsigneqd lnng 1 

了 oat vard tysgssE:facen3rlyetyd saved Ar wksbl、，* wksb2， 


wkspt 一 veztorkl ay : 
WkspF2 一 vestorf(ln)， 
for (= 一 ni 二 十 | 
wkgsp1lLj | 一 qars-| jj 有 
wksp2[] 一 datz2[is 
4 
srOt2tny wksp wkKsb2yi 对 千丈 组 排序 , 共 糙 表 项 蔷 换 成 秩 。sj 品 SEE 的 天 
crank(nywksplyR&sf) 1 分 备 返 回 > 一 六 ) 相 > (中 一 gm) 的 惜 
surt2(nywksp2vwksD1); 
erankKnywksp2 ,Rsg) 
# 一 了 D 
fer 人 三 1:js 一 nj 十 十 ) 
fd -二 SQRIwkspl wksb2_ j]); 


en 一 ni 
em 一 emY4eTY en 一 Pi 

aved 一 eri3076.0 一 《sf 十 sE)712,0i D 的 期 望 值 
fac 一 (1.0 一 sfyen3n7 xs (1 SSycn3n]4 

Vard 一 (Ken TD 辣 eyerxkSQRIca 1D2236.0) faci 了 的 方 盖 给 出 
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# 7G 一 《 攻 人 一 avedy7sqrTfyart) 1 标准 莽 的 个 教 和 呈 凌 性 
probd 一 erfccffabs( xzd)7l.4i14213567， 

#IS 一 人 (].0--(6- 0/en3an) *《【《#k 寺 一 (sf 十 sgJ7t12.0))Asqdrr(tac);  。 秩 柑 关系 数 

得 c 一 (#TS 十 10D7#t1.0 一 (TS))i 

ii (tac > 0.0) 1 


1 一 -(#TS? HSQTtKKen 2 27Tacyi 和 它 的 + 植 

gd 一 ea- -2.0i 

# PrDbrs 一 bstaif0. 5y df,0.5,df7(df 一 TktI Di 丝 吕 它们 的 显著 性 
else 


< 关 probrs 一 站 0; 
free vectortwWwksp2.1,n); 
free.-vectorfwkspl,1,n)# 


1 


void crank 【unsigned -onk mn，floagt w[], filoat 5)》 


给 定 一 个 已 排序 的 数 钥 wf1,,n], 用 它们 的 散 , 包 拓 相 持 的 中 问 积 来 代替 元 素 , 以 及 将 户 一 了 的 和 式 返 司 电 ,其 中 
上 了 屁 每 个 相持 中 元 过 的 个 数 ， 


unsigned long j 一 1,ji,jt， 
float tranki 


并 SS 一 吕 .4+ 
while rj < nm) ! 
iE kwD 二 本 一 [ 刘 ) 1; 不 是 相持 
w[ 订 一 ji# 
十 十 ]# 
》clse 了 有 相持 
fer 《it=j 二 1Ht 二 一 ng& wLt] 一 一 部 [ 门 i 十 二) 它 走 了 多 远 
rank 一 0 5#{j 十 it 一 1) 这 是 相持 的 平均 秩 
for (ji 一 jjji< 一 (一 1)3 ji 十 十 )》 ww[ 问 一 ranki 将 此 平均 秩 送 入 到 所 有 的 相持 表 项 中 
t 一 并 一 j 并 族 正 < 
光 瓜 十 一 下 区 t#t 一 te 
J 一 下 ; 
} 
} 
让 【三 一 mD) wLnJ 一 04 如 有 果 最 后 元 表 不 是 相持 .这 就 是 它 的 杰 


1 
上 


14. .6.2 Kendal] 的 = 


骨 德 尔 (Kendall) 的 r* 甚至 比 Spearman 的 ,或 刀 更 非 参数 化 . 它 将 不 用 秩 的 数值 其 ， 
而 只 和 秩 的 相对 次 序 关 系 : 较 高 秩 . 校 低 秩 . 司 秩 .在 这 种 情况 下 ,我 们 甚至 不 必 求 秩 , 仅 需 通 
过 值 的 大 小 .相等 就 可 分 别 确定 秩 的 较 高 . 较 必 、 相 等 .总 的 说 来 ,我 们 更 喜欢 ”> 为 直接 的 
非 参数 检验 ,但 是 这 两 个 统计 量 都 很 常用 .事实 上 ,rz 和 ~ 是 强 相关 ,并 且 在 多 数 应 用 中 是 同 
样 有 效 的 检验 。 

为 了 定义 r, 以 入 个 数据 点 (zi,y) 作 为 讨论 的 起 点 .现在 考虑 所 有 -二 NCN 一 1 对 数据 
点 ,其 中 数据 点 自身 不 能 成 对 ,但 按 任 一 种 顺序 计数 的 点 部 可 作为 一 对 .如果 两 个 > 秩 的 相 
对 次 序 关系 与 两 个 y 特 的 相对 次 序 关 系 相 同 则 称 该 对 和 谐 的 ,如 果 次 序 关 系 相 反 , 则 称 为 不 
和 谐 的 .如 果 在 < 或 y 中 有 一 相持 , 则 我 们 既 不 能 把 点 对 系 为 和 谐 的 ,也 不 能 称 为 不 和 谐 
的 .如 果 相 持 在 = 中 , 则 称 该 点 对 为 “附加 的 y” 对 :如 果 相 持 在 > 中 , 则 称 该 点 对 为 “附加 的 
z "对 .如 果 zy 同时 有 相持 ,我 们 根本 不 能 对 该 点 对 称呼 什么 ,读者 和 我 们 的 观点 一 致 吗 ? 

Kendail 的 r 是 这 些 量 的 简单 组 合 : 
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利 洲 量 -- 不 和谐 量 人 
V 和 谐 量 一 不 和 谐 晤 十 限 加 > 的 基 v 利 谐 量 + 不 和 谐 量 十 附加 > 的 量 
显然 ,rz 在 --1 和 十 1 之 问 , 并 且 仅 在 秩 完 全 一 致 或 相片 时 才能 取得 极 值 。 

更 重要 的 是 , 肯 德 尔 已 经 由 组 合算 出 ,rz 和 ?之 加 没有 联系 的 无 效 搬 设 下 r 鸣 近 似 分 
布 。 在 这 种 情 而 下 ,z 近似 为 正 态 分 布 ,期 望 值 为 0 ,方差 为 : 
0 
SNCN 一 ]) 

以 上 描述 可 归结 为 下 面 的 程序 .应 该 知道 :这 是 一 个 OOCN 的 算法 , 它 不 象 ~ 算法 ,其 
主要 的 排序 运算 是 NlogN 阶 , 如 果 按 常规 对 超过 几 千 个 点 的 数据 组 计算 Kendzll r 值 , 则 将 
非常 麻烦 .然而 ,如 果 愿 意 将 数据 合并 成 中 等 数目 的 离散 值 , 则 可 用 下 述 程序 ; 


共 include < 一 Imath.bhy> 








Yartfr) 一 4 9) 


void kendll tfloat qdqatal[]，float data2[- ，umsigned Long n， jjoat *# tau， 
float * xz， 昌 oat < Drub》 
给 定数 组 datal| 1， ni 和 dara2'1,.n-. ,六 程序 将 肯 德 尔 " 氨 回 熙 ttu ,将 它 的 妨 次 零点 标准 差 返 回 到 ;- 划 将 它 的 双 


这 灵 著 性 水 平 把 苛 苛 prob ,小 十 的 prob 讼 示 显著 地 相关 (rau 为 正 ) 或 者 反 相 关 (tau 为 负 ) ， 
float erfccttfloat T)]; 


Ungigneec 1ong nz2rfnlsD,x,j， 
1Long is=D: 


EL1oat SVar aa,a2，3al; 
for (jz=1;j<nijy+) 《 对 点 对 的 第 … 个 元 素 儿 蒜 ， 
For (k=(j+t);x<=nix++)》 荆 对 第 二 个 无 素 循 环 ， 


alxdatat[j]-datal [kj]i; 
a2=data2[j]-data2[k]i; 


站 二 = 局 T we 忌 2 3 
if (aa) 【 两 个 数值 都 没 下 相 持 
44+Dn1: 
++0Q2; 
aa>007++ig : -~-isi 
] alse 1 ” 企 或 两 个 数组 有 相持 
if (al) ++nli -个 ”附加 的 < ”事件 
计 〈a2)] ++D21 -个 & 附 起 的 “ ”事件 
了 
】 
*ytausisA(sqrt((doub]le) nt)asqrtktdouble) n2))， 方 香 (1 .6.8) 式 
8VRITs(4.0wB+10.9)7(9.Dunt (~-1-O)) 方 穆 1 14 .6.91 式 
自卫 字 【 事 丰 及 中 ) /和 本 FE 世 【RTV ) 
*PIObserTcc[(faba(az)A1.31d42136》 ; 显 其 性 


有 寺 ,恰巧 对 每 人 = 和 y 只 有 天 个 可 能 的 值 , 在 那 种 情况 下 ,数据 能 被 记录 成 列 联 表 
( 见 第 14, 4 节 ) ,该 表 对 每 一 上 和 > 对 的 列 联 给 出 了 数据 点 数目 。 

Spearrman 的 秩 阶 相关 系数 在 这 些 情 况 下 并 不 是 非常 自然 的 统计 量 , 因 为 它 由 于 每 个 > 
和 > 量化 级 并 不 非常 有 意义 的 中 间 秩 值 , 这 导致 了 大 量 的 等 秩 差 。 换 言 之 ,Kendsil : 由 于 i[ 
算 简单 ,可 以 相当 合乎 实际 .因此 , 它 的 COUV:) 算 法 再 也 不 是 问题 ,因为 我 们 可 以 安排 它 在 
成 对 的 列 联 表 的 项 目 上 (每 个 包含 许多 数据 点 ) 进 行 循 环 , 而 不 是 对 成 对 的 数据 点 进行 循环 。 
这 点 将 在 下 面 的 程序 中 加 以 改进 。 

注意 ,Kendall > 只 能 用 于 两 变量 是 非常 有 序 的 ( 即 良 序 的 ) 列 联 表 , 并 且 它 只 寻求 单调 
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相关 ,而 不 是 任意 的 关联 .这 两 点 使 它 与 第 1*. 4 的 方法 相 比 减 允 了 普遍 性 ,第 14. 4 和 记 汉 吕 
应 用 于 公称 ( 无 序 的 ?变量 的 仁 间 关联。 

比较 上 洛 的 kendll 和 下 而 的 kendl2, 将 知 到 我 们 已 对 许多 寥 量 " 闻 点 化 ”这 是 同 为 在 
列 联 志 中 种 件 的 数目 相当 大 ,以 笃 在 - 些 束 型 算 信 中 会 呈现 溢出 ,而 在 表 ' 单 个 数 择 点 的 数 
目 痢 是 不 可 能 那么 天 (对 “个 OCN3) 程 序 而 二 31 


疼 inc.ude <inatb. >> 


vGiC kenkl2ffloat < rzby intiyint jy，float <*tauy foat xz2e gcoac xprahb) 
给 定 一 个 二 维 表 tab 站 .DT .站 使 tabLk_ -了 包 全 一 个 变量 落 人 第 大 个 下 化 级 .第 二 个 变 生 党 和 第 1 个 基 艺 级 区 出 
和 的 个 数 , 木 程序 将 Kendalr 返 区 到 tau: 和 将 它 便 砍 尝 点 的 标准 共 返 几 独 ?并 于 的 双边 三 著 发 平 返 盯 中 nn03 小 
们 的 Prob 此 去 末 灾 量 之 问 填 莹 柑 关 人 au 为 正己 者 反 二 关 (av 为 负 1 成 奴 Tab 是 浮 点 型 数 蛆 ,位 遂 常 人 是 囊 数 情 
flLoat erfcctfloat x) 1 


long mn ,nm,m2, 呈 1Tj,1i,1,]j ka ks; 
[Loat syar,s=0. 昌 ,onints,Pairs,en2=-0,0,en1=0.0， 


nn=i4j; 麟 联 者 中 必需 的 总 数 
?ointas<tab[il[]]; 
Sor (kzQ;K<<nn-21K4++)》 蔷 对 下 中 表 生 进行 稍 体 
Ki=txrjy); 政 - 行 和 - 列 
kjsk-jwki; 进行 璋 得 
Points += tab[ki+l]fTxj+1]; 前 加 事件 的 世 娄 
foxr {fl=k+l;l<=na-1il++)》《 对 点 对 的 此 必 成 员 进 行 德 理 
1i=17 了 3 双 它 的 行 和 名 
1j=Tjeaii 进行 译名 


岂 m= 《四 1= 荆 i 一 大 9《 功 2] j-j) 
pairg=tab[ki+1] [xj+tJjswtab[1i+1] [1j+3] ; 
让 《mm) 二 不 契机 持 - 
eat +c palTs ; 
8I2 +4= Pairs: 
gs += (mm > 0 ?pairas : -pairs) 了 和 和 涌 的 或 本 合 二 的 
}》 else 荆 
这 (ml) aal += Pairg; 
计 〔《m2)》 en2 +* PairSi 
上 上 
】 
上 
tansBAEdYt GOniwen2) ; 
Svar=(4.Dwpojinte+10,.0)7(9,0wpointsyfpoints-1-0))1 
*Zm{wtau) yaqdTtKSVaT) ; 
*prob=er3cc(iabs[sz)71.4142136) ; 


14.7 二 维 分 布 不 同 吗 ? 


下 面 我 们 讨论 把 K S 检验 挫 户 到 二 潍 分 布 。 这 : 排 广 的 过 程 应 此 珊 于 Fasano 和 Francegchini- - ,实际 
上 上 它 是 Pescock-? 早期 概念 的 变 界 。 

在 二 稚 分 布 中 ,每 人 数据 点 都 用 一 对 值 (z ,y) 来 表征 -一 个 式 们 部 释 的 例 了 是 ,所 琛 沈 到 的 来 睛 题 蒜 还 
1887 的 19 个 中 微 子 , 它 们 每 … 个 都 由 时 间 二 和 能 遇 瑟 来 表征 ( 九 3:)。 我 们 养 望 知道 这 些 测 关 的 数据 
对 (Et . ,19 是 和 与 理论 模型 一 将 ,理论 模型 预期 中 微 子 流 是 时 间 和 了 能量 级 丽 数 , 即 (z,y)? 亚 面 (这 
里 是 悦 , 才 ) 平 面 ) 的 二 维 概率 分 布 .这 是 单 梓 本 检验 ,如果 给 出 来 自 讽 个 可 比较 的 观测 仪 第 两 组 中 微 子 探测 
站 果 ,我 们 希 电 知 道 这 两 者 是 年 本 相 一 和 殖 , 即 这 是 双 梓 本 检验 ， 

或 们 希望 将 - 继 S 检验 引入 (zy 平面, 以 村 求 两 个 二 维 分 布 之 馈 的 某 种 最 大 积 票 差 , 进 司 的 世 .在 
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超过 … 纵 的 情 疯 下 ,不 穿 易 定 尽 积累 的 概率 分 有 !Peacoek 的 页 献 故 找到 了 一 囊 好 的 督 代 物 . 浊 站 综 江 后 
Czis35) 岗 围 四 个 自然 象限 每 一 个 象限 中 的 综合 概率 , 亦 呈 在 人 亲 阁 FS 
DCz2diyy<y 中 的 总 概 认 (或 数 漆 站 分 数 ):… 维 区 汪 久 计 其 天 在 可 看 碟 机 应 二 多 合 禾 尖 的 基 夭 
异 ( 官 阔 及 数据 点 和 象限 向 个 范围 ). 闪 比较 是 个 数据 集 科 :已 伸 月 决 于 数据 集 变化 的 范围 -年 注 束 录 呈 和 
定义 ,个 有 效 咎 帮 为 所 得 列 丙 个 什 的 平均 ,如 果 对 厂 淋 广 感 到 及 惑 ,不 要 人 发炎, 刊 应 的 计算 蕊 天 序 会 蔓 步 
精确 的 算法 定 文 。 
图 14, 7, 1 给 出 了 一 个 例子 ,在 平面 中 65 个 三 角形 和 35 个 正良 形 候 乎 其 有 不 同 的 分 专 . 反 划 线 站 疙 
机 


位 于 使 统计 基 五 最 大 的 三 第 形 上 :最 大 值 出 现在 左上 象限 :在 这 和 象限 中 急 食 了 只 有 12 其 的 一 昌 展 和 
了 56 改 的 正方 形 , 所 以 户 值 为 0.44 ,这 是 吾 在 统计 上 亚 著 不 同 呢 ? 
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一 锥 K S 凡 验 找 到 二 这 样 的 点 ,其 象限 之 “ 叫 点 划 线 凤 出 ?内 三 前 形 分 数 和 正方 形 分 数 之 间 的 于 异 最 大 - 世 委 
式 (14,7.1? 指 出 了 这 一 差异 是 否 在 统计 上 是 显著 够 , 妹 三 角形 村 正方 形 是 否 外 从 不 同 的 分 布 。 


图 14, 7.1 65 个 二 攻 形 和 35 个 下 方形 的 一 维 分 布 


址 食 的 是 ,甚至 对 固定 的 赃 本 太 小 ,下 面 陈述 也 不 是 严 略 止 确 的 ,在 无 效 假 设 下 ;D 的 分 布 独立 天 一 维 
分 布 的 形状 ,在 这 方面 ,一 皆 K-S 检验 并 不 象 一 维 那样 实 月 . 热 而 ,使 用 广义 的 攻 特 卡 罗 积 分 已 老 听 ,即使 
对 非常 不 问 的 分 布 : 二 维 卫 的 分 布 也 极 近 似 柜 同 的 ,只 要 它们 有 相同 的 相关 系数 ~( 屁 纵 式 514.5. 1) 冯 同 的 
公式 定义 的 )。hasano 和 Franceschini 在 他 们 的 文章 中 估 出 了 厂 分 在 作为 ,. 样 本 大 小 N 入 相关 系 教 * 的 
函数 的 苞 特 卡 罗 结 果 . 分 析 这 些 结果 ,人 们 发 更加 绯 居 SS 检验 的 显著 性 水 半 册 下 面 :个 简单 亿 又 近 相 上 公 
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式 给 出 : 





对 单 伴 本 恰 验 ， 
六 
概 记 [D -> 观察 值 ) 一 Quxs 2 -一 人 
1 二 v1 Pt0.25 一 735/ VAN ) 
对 双 样 木 检 验 , 上 而 公式 仍 适 用 ,只 是 有 : 
NA 
六 一 误 赴 冯 人 二 227 


当 MY 和 六 20 且 斥 指示 的 概率 (显著 性 水 半 ? 小 于 (更 如 对 堵 ) 办 20 堪 右 时 ,上面 公式 是 中 况 精 确 的 . 业 闫 
所 指示 的 概率 大 于 0.2 , 则 其 值 不 再 精 确 ,但 也 意味 着 数据 和 槛 并 ( 或 由 数据 组 并 不 显赫 地 不 辣 . 这 一 点 
是 正确 的 ,注意 , 当 r 一 1 完 全 相关 ) 时 , 式 (14.7.1) 和 (14.7.2) 归 结 到 椒 (14. 3.9) 各 114.3. 10): 一 估 炫 摧 
全 人 于 直线 上 ,并 [二 维 K-S 检验 变 成 - 维 K-S 检验 . 

着 便 说 一 下 ,图 14.7.1 的 显著 性 水 平 是 0. 001 左右 .这 就 十 乎 叫 确 寺 朋 形 各 止 方形 取 日 本 把 的 分 布 
{ 实 际 上 也 是 如 此 ) 。 

当 捣 ,如 果 不 想 依 靠 体现 在 式 (14. 7. .) 中 的 时 怕 卡 罗 实 验 , 那 么 可 以 寻求 自己 的 方式 :从 模型 中 过 出 
许多 假想 数据 集 .每 个 泉 中 药 数 据点 都 与 真实 数据 集 相同 ,对 每 -一 假 粗 集 , 利 朋 相 应 的 计算 程 池 计算 天 5 昌 
忽略 它们 的 计算 概率 ), 数 出 这 些 乱 想 五 超过 趴 实 五 (来 自 实 际 数据 组 ?的 次 数 的 百分比 ,这 个 分 数 钴 起 耳 
筑 的 显著 性 。 

与 一 给 验 比较 ,二 维 检 验 的 缺点 是 其 需 槛 N 次 运算 ,两 个 六 阶 嵌 套 循 环 占据 了 RilogN 次 异 年 .天 
小 型 计算 机 来 说 ,这 使 得 检验 只 限于 玉 小 于 几 千 的 范围 内 才 有 用 。 

现在 我 们 给 下 计算 机 执行 程序 。 -个 伴 本 的 情况 包含 在 ks?dls( 即 一 维 ,1 个 样本 ) .这 个 程 店 调用 
个 直接 可 用 的 程序 quadet 来 计算 四 个 象限 中 的 点 ,并 甩 调 用 了 一 个 用 户 应 准备 的 程序 quadvi, 此 能 荣 出 改 
塌 一 点 Cr+ 轨 附近 四 个 象限 中 的 每 一 个 象限 的 综合 概率 .下 面 也 给 出 一 个 不 重要 的 示例 quadvl, 中 和 贞 实 的 
quagvl 是 相当 复杂 的 ,并 经 常 伴随 解析 一 维 分 布 的 数值 积分 ， 


##include 忌 math.h>> 
并 incjude “nrutil, h?” 


void ks2dls 人 float xl[j, float y1[ 门 ，unsigned long nl， 
void 【yx quadvl) (float， float， foat rr ,float *#，y float *，Hoat * ，)，float <*dl,float * prob 
-- 个 祥 本 对 于 一 个 模型 的 K-S 检验 .在 数组 xl[1. .nl 和 >y1[1..nl- 中 给 定 al 个 数据 点 的 x 和 7 的 坐标 ,区 及 纺 定 
一 个 用 户 提供 的 并 作为 模型 例子 的 冰 效 auadvl, 本 程序 返回 - 维 民 -S 统计 到 dl, 它 的 显著 性 水 平 怒 加 到 preh , 小 情 


的 prab 表 避 样本 显著 地 不 同 于 模型 -注意 这 种 检验 直接 依 昭 于 分 布 ,所 以 frob 只 县 一 个 估算 值 。 


void pearsntiloat x[]，float y[ 门 ，unsigned long bn, float *#*Try filoat 关 proby float #Z]1 
float Probsk (fioat alam); 
void quadetkfloat xy， float yy float xx[]，float yy[]，unsigned long mn， 
oat 得。float *# 仙 iloat # 拒 float 关 志 )3 
unsigned long j; 
float dumydumm fafbfc,fdgaygbsgcygdrl'rrysqenl 


#dl 一 0.05 - 
for (ji=1j< 一 al 二 十 ) { 对 所 有 数据 点 循 于 
quadet(Cxl[ 和 ,71-j xl,ylnl.&fa,&fbkfcgfd)+ 
《+raquadvnl)(xl[j,ylLjjv&gay&gb,&egcigsgd)，， 
# 引 一 FMAXC < 了] ,iabs(ta 一 ga)74 
# d1L 一 FMAXC<dlvfabs(fb 一 b))1 
* dl 一 FMAXK*adl ,fabs(fc 一 gc))， 
xd 一 FMAXCx dl,faba(tq 一 gd))5 对 栏 本 和 模 亚 ,聚积 每 一 个 划 限 中 的 分 布 ,并 且 存 储 坟 入 关 


fearsn(xl,y1.nl,&rlv&dumyg&dumm)， 求 得 线 作 相关 系数 zl 
= 348。 


sden 一 sqTtCCdouble)n1)3 

IT 一 sqrtC].0 一 r <trl)i 

*# hrob 一 ptohbks( < dl < sgenA(]1.0 二 iT [0 25 一 各 75ysden7)4 上 用 开 -S 杰 灭 函数 probks 来 关 算 机率 
值 


1 
『 


void quadctffiloar Xy， float y， float xxL」 float yy[ 了 、unsignec long nn， 
有 oaf K 招 ， foat # 证 有 aoat fcy fost 有 凤 )》 
痊 定 原点 46x,y) 并 给 定 un 点 数组 其 坐 杯 为 xx[ 1,,mmj 称 yy -1 .nn], 计 算 坪 绕 原 点 的 每 个 象限 中 有 多 人 数据 点 .并 


将 好 一 化 的 分 数 返 回 , 和 三 个 象限 用 英文 字 和 为 下 标 标记 ,从 有 .角道 时 针 方向 计算 起 ,此 程序 用 于 kszdls 和 kszcts 
中 。 


Unsjgned long 上 naynbyncynd' 
float 4 
Da 一 nb 一 nc 一 hd 一 0; 
for 引 一 1 让 忆 一 nonetk 一 十 )》! 
if (yy[k > yy) 1 
xx[k] 盖 x? 了 十 十 na : 一 十 hb) 
) else ! 
xx[k] x ?十 一 nd : 十 十 nci 
4 


1 


并 一 1.07nunt4 

闪 人 一 二 # nai 

x 人 一 红 *nbi 

# fce 一 皇 2 mci 

# 弘一 生 * ad; 
} 


开 incjude ”nrutil， :5 


void quadwj [floar xx，tloat yy Hoat fa, iloat * 外 ,iiott * 天 ， float 加) 
这 是 被 才子 ge2d1s 中 用 户 所 提供 的 程序 样本 ,模型 的 分 布 是 均匀 的 在 -1<z<1l, 一 1<yc1 区 间 己 同 。- 般 情况 
下 ,本 程序 应 该 对 每 点 (xy 所 加 男 膏 此 点 四 个 和 蒙 限 之 每 一 象限 中 ,总 分 布 的 分 数 全、fh. 和 上 d 煤 折 忆 预 为 1 ,每 个 
象限 用 英文 字母 为 下 标 祈 记 ,从 右上 和 角 冰 时 镍 方 向 计算 。 


iloat savqb ,gcy*gd 


qa 一 MIN(2.0,FMAX(O, 0,1,0 一 x))3 
qb= 王 FMIN《2.0,FEMAXK0. 0 1.0 一 y)]1 
Ge 一 FMINL2.0FMAX(O OO,X 十 1.0)71 
gd 一 FMINI2.0,FMAX(0 Or -1.0)) 
# 类 一 站 25 # garfdqb' 

# 也 一 0 25 xx 人 gb *r gei 

六 和 一 0.25xqcgdi 

# 纪 一 0 25 < qd * 984 


程序 ke242s 是 两 个 样本 的 二 维 K-S 从 验 。 它 也 油 用 quadect ,pearsa 和 Brobks .进行 两 个 样本 检验 时 ， 
不 需 蓝 肖 析 的 模型 。 


#includc <muath,h> 
#ineclude "ncuti-h" 


void ks2d2s(Ctloat xl[j， float y1[]，unasigned long nl， iloar x2[], foat y2[]， 
tnsigoed iong D2。jloat #*d, float xprob) 
摧 个 样本 的 二 续 K-S 检验 .给 定 教 钥 x1f1. .pl1] 和 ylfl,.nl] 为 药 一 个 样本 na 个 值 的 xy 柴 标 .同样 . 数 钥 x2 和 y2 


为 第 二 个 样本 nz 的 xy 全 标 .本 程序 将 二 维 . 两 个 样本 的 K-S 统计 量 返 加 为 d, 它 的 显 医 性 水 平 为 prob. 小 但 的 
549， 


Preb 圾 阳 这 皮 个 赃 闷 录 著 不 同 : 注 看 ,这 和 鸡 验 直 坡 依 暗 二 分 在 . 王 b5 prob 只 是 种 合算 量 - 


void Pearsnfftoat X[ ，lpa: y[ 、umnsignet Joag ay，iloas * > 下 ar ybrob，ftoat 关 z)7: 
foat brobks'ftioat alamy)， 
void quadet( 匡 oat x， jloa: yy， 掉 pa: Kx foal yyu]，ursignasd ]nng nr， 
芭 jeaz > 所、float 市， 六 oar 下， 瑟 eat * 人 es 
uISJgned long j; 
fosf dsd2sdurmieurmrma rapPhsicytd, gs:vgbygcvgdsrlyre rrwsGCemi 


dt=0.0i 

for 【js=t;jcenl;j++) 苹 首开 、 用 第 - :样本 中 的 点 作 男 际 点 
qnadctCxt[j],y1[j] ,xl1,71,nl , 记 fa, 业 fb , 妇 fcC ,上 td) ) 有 in5. 
quadctfxt[j] ,71[]j] ,zx2,72,n2 ,和 Ea, 上 gb ,BC ,g 吧 ) ; 
qleFEMAX(d1,Efabsaffa-Ealy)y; 
dl=FMAK(dil ,fabagfb-gb)y; 
dti=FNAXId1 ,fabSTtc-gc])li 
Ljm 记 MAXYAL1L fabEdtfd-gdy li 


+ 
d2=0.01 
for 〔j=l1;j<<n2;j++) 工 卡 深 ， 上 第 “个 兰 束 中 的 点 作风 虎 必 
六 nadctKx2[j],y2[j] ,xl ,71 ,1 ,上 上 下 ,此 fb ,此 于 C ,二 开口 ) ; 
quadact(x2[j] ,72[j] ,zx2,yY2,a2 ,让 ga 此 BEb ,外 gc :此 gG) ; 
虽 2=FMAX(d2 ,faba(Ta-ga)y li 
马 2EMAXdZ ?abs(Efb-gb)y)i 
d2=FMAXKd2,fabstfc-Ec) li 
d2=FMAXKdu2:fab6(Tfd-gd)) 
上 
sdnO.5wfdi+d2) : 状 K-S 统 计生 的 由 史馆 
3qenssQqrtKn1aD02/(double)(nl+n2)); 
业 全 六 mnI ,点 rz ,此 dur, 业 dumm) ; 对 仍 个 翌 恋 求 线 性 娟 关系 娄 


PaarsgnQ[x2,72,Dn2,&r2,kdun ,durm) ; 
Fr=SqrtK1.0~0O.5+(1*+KT+Lt23T2)]) 


*+Prob=probks(+dr5qeny(1.0+rTs(O,25-0.757sqen))); 用 K-S 册 党 果 数 probks 涯 算 嵌 府 
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vo]. 237 PP，1471~-1473.。 573- 


14.8 ” 萨 维 兹 凯 - 戈 雷 平滑 滤波 器 


在 第 13. 5 节 我 们 巴 对 数字 滤波 器 的 结构 科 应 用 有 所 了 解 ,但 对 一 些 特 珠 用 处 的 滤波 器 知之 基 少 .当然 
这 取 次 十 我 们 要 用 沥 波 器 完成 什么 事情 , 戏 低 通 滤波 器 而 占 , 其 明显 的 用 途 是 平滑 噪声 数据 ， 

数据 平江 的 前 提 是 ,大 们 正在 测 最 的 变 景 是 慢 灾 化 的 并 党 到 天 机 噪声 的 十 可 .有 时 用 某 . -点 虞 轴 计 前 
平均 德 米 代 营 该 点 的 值 是 非常 采用 的 .这 于 山 于 周转 点 值 与 该 名 约 值 差别 不 大 ,下 芍 只 会 城 少 噬 许 柯 不 会 
给 访 点 填 带 来 大 大 的 偏 闫 。 

我 们 电 颈 指出 ,数据 的 平 讲 是 针对 瑞 区 的 , 医 而 已 超出 了 基 些 更 俏 得 瓶 出 和 推 厦 的 技 厂 的 范围 ,这 些 
技术 在 本 书 其 它 部 分 讨论 ,例如 ,如 昌 正 在 拟 台 数据 恤 -个 参数 模型 ( 见 第 15 节 ), 利 月 原 治 数 总 尾 比 利用 
己 被 匣 先 平滑 处 理 过 的 数据 好 -号 .种 使 数据 平滑 相形 见 抽 的 技术 证 称 为 * 最 优化 "或 维 纳 沥 波 (这 忆 在 第 
13,3 季 中 讨论 ,于 详尽 的 见 第 13. 3 节 , 数据 平滑 最 适合 于 图 形 技术 ,能 消除 所 有 带 在 科大 诬 准 障碍 约 数据 
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， 点 ;或 是 一 种 能 从 图 形 中 若 出 切 步 未 又 粗糙 的 简单 参数 估算 的 上 吧 。 
在 这 一 - 季 , 我 们 将 让 座 “种 等 足 的 拒 通 滤波 器 , 它 演 谷村 数据 于 滑 ,被 称 之 为 萨 维 葡 刘 .和 下 CS 

T 千 
换 到 讨 间 焉 ,S- 忆 滤波 器 直 接 来 自 时 间 域 六 数 据 平滑 何 题 的 “种 特 殊 公 起 5 止 象 现 让 我们 只 在 刘 让 5 
o 滤 肖 器 起 初 ( 下 在 仍 维 经 共 地 ) 林 于 提取 可 和 见 尖 在 噬 记 潜 数 执 中 庶 织 的 宽 诬 和 商 谋 . 

让 我 们 回 题 一 下 .一 个 数 宁 涉 波 器 尽 应 用 于 “ 列 等 问 虹 的 数据 序列 产 兰 关 0 .这 昌 上 -ta 让 中 辐 
卫 4A 为 常数 ,= … 2， 140,1,3.… 从 种 13. 3 当 我 们 乔 到 其 答 贡 的 数字 斌 波 由 [ 非 递 归 或 如 机 肪 六 响应 
滤波 叭 ?是 将 每 一 个 数据 值 六 则 其 本 身 条 邻近 的 位 & 的 线性 纪 合 来 代 钙 : 






<s、 


有 一 一 0 


其 中 心 其 所 使 用 的 半 左思 的 数据 个 获 ! 在 之 之 前 ),x 由 症 右 光 的 ( 即 任 它 之 后) 的 数 寺 个 时 靖 , 为 因果 滤 
泪 器 的 mx 应 等 于 零 。 

在 讨论 SG 滤波 占 时 ,我 们 首先 考虑 最 简单 的 平均 泪 程 :对 固守 的 一 玉 * 计 算 等 -全 和 作为 耻 
太 - 刘 态 -w 数 据点 的 平均 ) ,有 对 称 世 为 活动 窗口 平均 , 它 相 当 于 co 一 1 人 (mr 央 守 站 的 二 本 1 剖 
桌 基 础 两 数 是 常数 或 随时 间 线 性 家 化 [ 增 间 或 碱 消 ) ,那么 结果 中 下 会 引入 任何 从 状 , 在 立 : 站 上 困 隐 - 澡 的 较 
商 点 被 另 一 端的 较 低 点 所 平衡 。 然 而 ,如 果 其 础 呆 孝 有 二 阶 非 零 导 数 , 则 篇 益 被 引入 .例如 自 - 一 最 氢 关 逢 点 
处 活动 窗口 光 拘 总 荐 减少 了 上 出 处 函数 值 . 握 如 在 光 济 测定 的 应 用 省 ,使 得 一 束 窑 潜 线 其 高 度 减 少 . 完 度 增 
加 .上 轩 为 这 些 参 最 本 身 有 物理 意义 ,所 以 在 项 扎 引 入 稍 莹 ， 

应 注意 ,活动 窗口 平均 保留 了 谱 续 下 的 区 域 ( 即 零 阶 第 ) ,如 果 窒 人 古 对 称 的 ,此 人 么 还 你 管 了 它 厅 时 间 
上 的 平均 信 置 5 即 -- 阶 组). 爱 到 挑动 的 址 二 阶 拭 ,等 价 十 线 宽 - 

S-G 滤波 的 设计 思想 是 能 计 找 到 合适 的 沥 波 系 数 。 以 保护 高 防 年. 也 就 是 说 ,在 对 基础 吸 葡 进行 近似 
时 ,不 是 市 常 数 窗 1 5 共 的 估算 尾 均 值 ? ,而 基 用 高 阶 儿 项 式 ( 如 二 次 .加 次 ) ;对 每 个 点 方 , 线 扩 利用 展 小 - 
乘 方 执 会 ,对 该 窗 11 的 所 有 we -me 十 :个 点 拟 台 成 -个 多 其 式 , 拟 后 令 吕 为 多 项 式 在 点 的 什 : 如 果 不 数 瑟 
最 小 二 乘 方 拟 合 , 可 以 先 看- :下 第 十 五 章 ) .我 们 并 下 使 用 在 其 它 点 处 多 项 式 的 得 . 当 窗 本 系 动 到 一 赤 
六 .时 ,我 化 将 对 新 得 口 进行 新 的 最 小 “ 乘 方 拟 合 。 

好 果 照 此 做 下 去 ,显然 所 有 最 和 作 二 科 方 擅 合 是 相当 繁复 的 - 率 运 的 足 , 由 于 基 小 二 铺 疡 接合 过 往 仅 涉 
及 -个 线性 矩阵 取 汉 , 见 氢 会 多 硕 式 系数 本 身 与 数据 值 必 线性 关系 数 . 这 意味 着 我 们 可 以 党 先 对 组 假 设 
什 ( 除 一 个 1 外 其 它 都 捕获 ?做 拟 合 ,然后 通过 线性 组 合 米 拟 会 真实 数据 ,这 里 的 关键 是 ; 戏 式 (141.5 3730 
二 ,存在 一 级 特殊 的 泪 波 芭 数 cs, 能 "自动 完成 在 活动 窗口 内 的 县 小 二 死 方 拟 全 过程 。 

为 了 导出 这 样 的 系数 , 引 我 们 考虑 go 址 怎样 得 钊 的 :我 们 希望 在 第 : 密 上 中 对 什 了 
合 一 个 邮 险 多 项 式 ( 即 es 十 al 十 .Teni) 那么 芒 二 为 ?一 0 时 多 项 式 的 值 :天 和 一 居 对 这 - 题 的 设 
计 具 阵 为 (第 15.4 节 )， 


0 1 一 nr -yyaRgy 了 一 0 .时 TS 
向 量 {a,} 和; } 的 正规 的 方程 以 短 阵 形式 给 出 ; 
(8 一 Ar 3 
我 们 也 吉 得 到 ， 
| Ce 
{ 和 7 和 一 了 As 了 At CH.8. 1 
一 一 中 人 
和 
玫 K 
[AT7 1 > 4 人) 108.5) 
用 一 一 玫 =--n 


因为 系数 ex 旦 当 上 用 单位 回 蜗 ef scan) 代 欣 时 的 ao, 则 有 : 
避 
名 一 人 i11 4 .69 


Hi ] 
吕 一 人 


注 训 : 式 (14, 8 人) 表明 我 们 仅 雹 一 行道 第 的 信人 ( 教 值 小 算 上 和 庆 , 仅 用 单一 的 后 代 换 的 LV 分 解 就 可 以 内 到 这 
一 仁 )， 

下 面 的 saygoil 是 将 并 (14.8.6) 程 序 化 ,作为 输入 , 它 皮 签 数 则 =mnr 一 mg 和 下 一 好 ,给 出 数组 的 物 
理 长 度 np 也 是 输入 昌 , 孝 据 拟 合 的 参量 贡 将 是 罕 ,实处 上 ,1 指定 了 (中 甩 一 个 系 歼 将 返回 ,这 里 我 们 
仅 对 感 兴 趣 。 为 了 另外 的 日 的 , 即 汗 算数 复合 分 (第 3. 7 节 中 所 及 》, 虽 有 用 的 选择 是 坦 六 1 ,例如 出 一 : 
时 滤 出 的 -- 阶 导数 是 式 514. 8. 1 的 卷 租 除 变化 量 A. 对 求 导 而 言 , 上 和 们 总 是 希望 问 =4 班 章 大 些 


廿 include 一 math-h2> 

亲 ipclude "ntubl. hn 

void svgol(float ec[_，int npy int nl.int nr. int 19，incm) 
在 c[1. -om -中 返 区 组 S 一 CG 滤波 系数 : 它 是 以 环绕 次 序 厘 列 ,与 竹 序 comvlv 中 的 变量 resphs 是 一 致 的 ,中 是 记 候 
有 币 的 左边 5 过 去 ?数据 点 的 个 数 :而 nr 其 右 记 5 将来) 数据 点 的 个 数 ,而 所 体 用 的 全 部 歼 据 点 个 数 为 nj nr+1,1d 是 
所 这 导 阁 的 阶 ( 即 ,对 平滑 天 妆 1d4=0 :aa 号 平 请 多 项 式 的 阶 ,如 等 于 最 商 的 保 留 和 是: 道 党 区 一 1 或 血 一 4 


void lnbxsb(zloat wa int 卫 ，int indx，f1car 了 b 门 ); 
Void ludcap(fLoat wa， int 了 ，int 中 iudx， 闻 Loat dd) ji 
int jimj,jpj,j,kk,zam:s*indzxi; 
了 loat 员 , 了 ac， Shi 由， 二 站 驴 ,中 口 : 
放 (noP “ hl+nhrrl || pl < 0 jnprecoboilla>m llnlt+or < 2) 
mraerFforf”*bad args in 5aV 各 DT") 
indxmivectort1:D+1) ; 
到 mm 划 蕊 区 芋 工 (1 ,上 迪 十 1，1 ,四 1) 3 
b=vector(1,D+1) ; 
for (ipj=0;ipj<=(m << 1);izpj++) 工 设 关 所 求 最 小 “ 乘 训 拟 合 的 目 规 方程 
sums(ipj ?0.0 : 1.0); 
GF 【kti;XcanIIK++) BUDD += powf(double)k,(double)ipj)i 
Tor (krl4X<=n1:K++) sua 4= PowK(double)-xk, (aouble)1Pj) 
bm=FMIN(ipj,24Zz-ipj); 
zoT {ij = -am;jbj<=mmiimJ+=2) afi+(ipj+iamj)yx2] [ivfipj~imjJJ72]=gumi 
) 
ludcmp(a,m+1,indx, 和 gd); 求解 : 民心 分 解法 
Toz 〈j=1;j<sa+li1++) 已 [jj=0.0i 
brld*t]=1.0; 右 端 向 量 是 单位 问 量 ， 依 赖 了 于 所 求 导 数 
luUbxsb (aog+l,indxsb); 求 闻 算 阵 之 行 
了 or (KK=1iJCc<rnP3iXx4e) 5 [kx]=0.0; 零 化 输出 抵 阵 ( 林 能 大 二 系数 的 个 数 》 
for tk 王 -alik<=nrik++) 《 
sumzsb[1]i 扒 个 S - 台 系 数 是 整数 医 与 道 克 阵 行 的 点 梯 
了 acC1 .Bi 
for 【mmzl ;mmczrm ;IO++) 5UD + b[mm4l]eC7ac em X) 1; 
kk=((oP-k) % np)+1; 存 贮 环 绕 的 贤 序 
[xj=enum; 
] 
Zre9e_vectorfb,1,m+i)i 
free_matFiE({a,I, 四 +l1il, 下 +1) 1; 
free.tivector(Kindx ,1,mrl) 1; 


作为 输出 ,savgol 给 出 了 系数 oo 一 本 系 na 科 ma 这些 都 以 * 环 绕 屈 序 " 的 形式 储存 在 < 中 , 即 < 在 
[1 ec- 在 cL2] 中 ,( 对 进一步 的 负 标 亦 类 推 ) 等 等 ,cl 则 存储 在 [np], ci 在 -np 一 1]( 对 更 大 的 正 括号 亦 类 
排 ) 等 .这 一 顺序 看 起 来 挺 挤 密 , 但 对 因果 滤波 器 来 说 却 很 自然 , 它 在 低 的 = 数组 元 素 内 有 非 堆 系数 ,这 也 
是 第 13. 1 节 中 函数 rorvlv 拆 枫 求 的 顺序 , 它 是 对 一 数据 组 进行 数字 滤波 时 所 采用 的 次 序 。 

才 14.8. ] 中 给 出 了 savgoj 的 其 此 标准 输出 .对 于 2 阶 和 4 阶 锅 情况 ,给 出 几 种 本 和 ma 选择 的 S.G 让 


“552。 


波 器 系数 :中 问 “ 列 是 为 区 得 被 平滑 的 8; 而 永 用 于 数据 广 的 系数 :左边 的 系数 用 于 以 前 的 丈 据 ; 右 忆 由 二 
以 后 的 数据 , 系 敏 之 和 总 是 1 ( 汪 有 伟人 误差 3. 人 们 看 到 ,作为 于 清算 子 ,系数 总 是 在 中 心 有 正 的 岂 趾 , 介 
前 有 小 苞 .下山 中心 明 成 对 的 下 的 种 负 的 臣 正 .要 实 上 ,5- 滤波 器 最 适合 于 非常 人 的 天 种 ze 四 坝 这 些 
点 的 人 台式 可 用 机 对 少量 前 咎 请 完成 ， 


表 14.4. 1 
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凑 端 ! 合 成 的 被 只 声 千 扰 的 数据 , 它 由 一 系列 不 断 变 从 的 隆起 部 分 和 附加 的 高 斯 白 喂 卢 给 成 .中 
加 ,用 条 音 的 活动 窗 平 均 进 行 数据 平湖 的 结 内 .这 个 窗 左边 延伸 16 个 点 ,右边 延 伟 16 个 点 ,总 共 33 
个 点 ,注意 ,其 较 府 隐 起 部 分 变 寅 而 且 相应 幅度 先 低 。 点 划 的 曲线 是 表示 原 产 生 合成 数 撕 的 基本 
函数 . 底 山 : 用 S-G 平滑 起 波 器 进行 数据 平 潮 的 结果 ( 阶 为 4t), 采 用 了 同样 的 33 个 点 -其 对 较 谷 的 
隆起 部 分 的 平滑 性 稍 兰 ,但 较 容 的 余 起 部 分 的 高 度 玛 宽度 得 到 了 保护 - 


图 14.8.1 


图 14. 8. 1 给 出 了 使 用 33 个 点 半 滑 滤波 器 的 数值 实验 ,地 台 =aa 一 16 .最 上 -网 为 被 测试 的 丽 葡 .有 六 


攻 
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心 


个 不 悦 宽度 ( 都 是 8 个 单 宇 商 的 ) 竹 起 做。 对 十 这 个 函数 ,单位 方 状 的 党 里 仆 蜡 吉 已 经 被 村 可 上 三 ( 没 认 被 
噬 询 千 拢 的 测试 邱 数 出 占 间 各 下 而 图 中 区 点 划 线 苔 出 1 隆起 部 分 前 宽 旗 ( 城 太 企 半 直 的 全 宽 攻 或 
FWHM) 分 匣 140、.43.24.17， 3 和 和 10。 

图 14.8. 1 的 中 间 部 分 笃 贞 了 了 几 话 动 洽 半 南平 汝 的 咎 果 ,可 以 知 出 ,宽度 为 33 的 窗口 在 下滑 最 宽 向 隆 
息 部 分 站 党 有 效 ,而 对 较 窒 的 队 直 由 存在 柜 当 太 的 调度 降低 和 寓 虐 增加 .用 它 岳 壕 碌 基 本 函数 由 不 管 益 
的 . 

圾 小 雷 图 给 玉 了 同样 觉 度 ,好 一 1 的 汪 G 钴 法 器 阅 消 的 寻 信 :可 以 下 出 妈 起 部分 的 山 交 和 宽 应 而 二 寻 
倘 地 保税 任 了 , 唯 的 齿 隐 是 最 宽 的 降 起 部 允 信 下 痊 : 这 是 医 为 S-G 滤波 中 系数 区 主要 的 正 的 蕊 处 位 二 临 
个 33 点 宽度 的 分 数 . 可 以 猜 忽 最 好 芍 绪 果 应 在 ,4 阶 S-0 涉 波 吕 的 全 宽度 足 所 期 让 的 数 湛 的 上 砚 GYL - 盏 
2 倍 时 得 到 5 会 阅 [3] 和 [3 ) ， 

芭 ?4.32 给 出 用 较 袜 的 “个 不 同 的 除 泪 滤器 半 交 相关 " 噪 吉 "的 结果 ,其 巾 心 一 az 一 32 65 个 点 失 算 
补 器) - 2.4.6: 可 以 看 沙 , 当 降 起 部 分 机 对 十 意 波 器 的 大 小 大 罕 时 , 则 S-G 放流 器 也 会 不 革 此 点 区 孝 ， 
较 疝 阶 的 旋 波 器 对 较 论 的 降 起 布 仅 , 但 以 牺牲 较 宽 起 剖 今 的 平滑 性 为 代 丛 ， 
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顶 图 , 阶 为 3, 中 乒 : 阶 为 4, 谋 型: 阶 为 6. 对 上 这 剖 分 的 分 辩 率 来 谤 , 折 有 这 些 涉 波 器 帮 是 邻 人 不 
并 意 的 .高 阶 渡 变 器 能 和 较 好 地 保 久 高 庶 的 宽度 ,但 对 较 宽 部 分 的 料 福 较 差 。 


图 14.8.2 对 与 图 14. 8. 1 相同 的 孝 据 组 ,使 用 较 宽 的 55 点 S-G 滤波 器 的 结果 


怠 广 言 之 ,在 限制 条 件 下 ,S-G 滤波 器 能 提供 没有 分 辨 率 损失 的 平滑 .做 到 这 点 是 基于 假设 相对 种 吃 
的 数据 点 其 有 能 用 来 减少 避 声 电 亲 的 有 效 的 部 余 订 .所 设 宛 祭 度 的 特点 是 基础 函数 应 该 被 多 项 式 拟 兮 , 寻 
果 这 点 成 立 , 当 亚 滑 线 轮 亡 和 相对 寺 泪 让 器 宽度 不 导 太 率 时 ,S-G 溃 波 器 的 效果 相当 惊人 。 如 果 这 点 不 成 宇 ， 
这 一 滤 泊 器 与 其 空 下 站 器 相 比 就 设 有 太 大 优势 。 
戎 后 要 讨论 的 是 不 襄 划 眼 样 数据 , 即 坟 在 时 间 轴 上 不 是 均匀 分 郧 的 -这 种 情况 下 ,推广 SC 滤波 必须 
对 每 个 教 据点 的 活动 窗口 散 最 小 - 乘 方 拟 合 ,每 个 左 布 都 包括 固定 的 数 损 点 各 和 we. 因为 是 不 规则 分 凡 ， 
“554， 


没有 任何 办 法 得 到 少 工 一 个 点 点 上 的 ， 航 秆 区 滤波 系数 .入 们 忆 须 对 胆 个 点 枪 骸 最 小 “ 想 二 下 让 ia 、 
mx 和 昌 较 大 时 ,将 会 遇 到 震 别 章 的 计算 。 
作为 “简单 阐 替代 方法 , 邯 仍 把 数据 点 视 为 等 间隔 的 (实际 上 不 是 ) .这 村 当 于 ,在 短 个 开 





简 . 移 













动 教 据点 到 等 问 两 位 置 。 这 样 的 侈 称 会 验 丽 数 引 人 条 的 等 效 附 折 嗓 声 源 .在 这 大 情况 下 , 王 潮 二 在 庆 汪 内 
为 这 种 噪声 下 小 十 实际 存在 的 防 声 : 桂 别 其 :如 果 在 商 内 总 的 全 闪 近 和 似 随机 六 : 册 一 全 粗 焙 困 玉带 入 :各 炒 
在 整 人 宽度 NN=zr 一 ir 十 1 点 的 从 中 天 ,的 变 位 小 十 52 和 营 的 单一 点 的 噪 后 测 昌 能 ,用 认 生计 丰 法 





二 勾 使 月。 
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第 十 五 章 ”数据 的 模型 建立 


15.0 引言 


给 定 一 组 观察 结果 ,我 们 经 常 更 对 这 组 数据 进行 浓缩 和 概括 ,使 它 适 人 台 和 参数 串 调 整 的 模 
型 .有 时 这 种 模型 其 --: 些 简单 方 使 的 国 数 ,例如 多 项 臣 或 高 斯 函数 ,从 而 让 拟 合 的 结果 提供 
让 确 的 系数 .有 时 ,模型 的 参数 来 自 于 数据 所 满足 的 基本 理论 ,例如 复杂 的 化 学 反应 系统 中 
的 变化 率 方程 的 系数 ,或 者 … 个 双星 的 轨道 参数 .模型 化 还 可 以 用 作 于 ”种 约束 的 捕 值 方 
法 ,从 中 可 以 延伸 出 一 些 数 据 , 形 成 一 个 连续 表 数 。 但 是 ,对 于 这 些 函数 的 大 致 形状 变 有 - 个 
基本 的 概念 

对 各 种 情况 ,基本 方法 通常 是 一 样 的 :选择 或 设计 一 个 忧 值 图 形 函 数 ( 简 称 为 优 值 函 
数 ), 辫 必须 能 度量 数据 和 具有 特别 选择 参数 的 模型 之 间 “ 致 性 的 程度 ,接着 ,对 异型 的 戎 数 
进 行 调 节 , 使 优 值 和 数 取 最 小 值 .产生 最 佳 执 合 参数 .这 种 凋 节 过 程 也 就 是 个 多 维 求 慨 小 
化 的 问题 ,这 种 优化 问题 是 第 十 章 中 的 课题 :但 是 ,还 有 一 种 特殊 的 .更 有 效 的 方法 :具体 地 
说 就 是 模型 建立 的 方法 ,我们 将 在 这 - 章 中 讨论 。 

除了 寻找 最 佳 拟 合 参数 外 ,还 有 一 些 重 要 的 问题 .数据 通常 是 不 准确 的 ,它们 存在 测量 
误 美 (在 信号 处 理 的 文献 中 称 为 曲 声 ). 因 为 ,典型 的 数据 永远 不 会 精确 地 其 合 于 正在 例 用 的 
模型 , 邯 便 这 种 模型 是 正确 的 .因此 ,我 们 要 有 估价 模型 是 否 怡 当 的 方法 ,也 就 是 说 要 有 检验 
拟 合 优 度 的 某 些 统计 标准 。 

我 们 通常 还 必须 知道 ,由 数据 集 确定 的 参数 的 准确 程度 .换言之 ,我 们 要 知道 悉 任 拟 合 
参数 的 似 然 误 差 。 

最 后 ,我们 通常 发 现 优 值 函 数 不 评 单 峰 的 ,不 具 单一 的 极 小 值 . 在 有 些 情 况 下 .我 们 可 能 
感 兴趣 的 是 全 局 而 不 是 局 部 的 问题 ,不 是 * 这 种 拟 合 优 度 如 何 ?的 问题 ,而 起“ 在 参数 空间 的 
其 个 区 域 , 如 条 确 信 没 有 比 这 种 拟 合 更 好 的 了 ?? 的 问题 .正如 第 十 章 所 述 , 桂 区 是 第 10. 9 节 、 
这 类 问题 通常 很 难 解决 ， 

我 们 要 提请 注意 的 是 ,参数 拟 全 不 是 -个 参数 估计 的 终结 过 程 . 一 个 真正 有 用 的 拟 合 
程 必 须 提供 :(i) 拟 合 的 参数 ;ii) 拟 会 参数 的 误差 估计 ;以 及 fiii) 拟 合 优 度 的 统计 度量 -如 蛙 
《iii) 中 的 结果 表明 这 种 模型 不 和 数据 一 致 ,那么 GD 和 (ii) 中 的 结果 也 就 光平 没有 价值 .遗憾 
的 是 ,许多 参数 估计 的 实践 者 永远 只 进行 到 第 (i 步 ! 如 果 数 据 的 图 表 和 模型 “看 起 来 很 好 ”、 
他 们 就 认为 氢 合 是 可 接受 的 .这 种 方法 被 称 为 “肉眼 的 X 方法 ”庆幸 的 是 ,这 种 方法 的 实践 
者 得 到 了 他 们 应 得 的 惩罚 。 


15,.1 最 大 似 然 估计 的 最 小 二 乘 方法 


假定 我 们 用 1 个 可 调 参 数 oj 人 一 1 好) 的 模型 来 拟 合 六 个 数据 点 (Ce 一 
"556。 


1,…. .AN 这 种 模型 给 出 已 测 变 基 和 因 灾 基 之 间 的 -个 国 数 关系 
VC 一 VC Guy) 3 
上 式 寿 边 明 显 地 标 出 了 内 变 草 和 参量 间 的 依 救 关 系 。 


为 了 得 到 ai 的 拟 合 值 , 我 们 要 求 对 什么 求 极 小 化 吧 ? 我 们 首先 想到 的 是 ,熟悉 的 娠 小 “ 
乘 方 拟 合 ,通过 加 9 ，，9 CQ 求 


人 Tv 一 Ce ye {15.1.2》 


的 极 小 值 .但 这 个 式 子 是 头 哪 于 来 的 呢 ? 它 以 什么 基本 上 原理 为 基础 呢 ? 为 了 回答 这 个 避 题 ,我 
们 必须 进行 最 大 爸 然 估计 主题 的 讨论 。 

给 定 一 组 特定 的 数据 , 和 ”% ,我们 有 - -种 直 党 , 某 几 组 人参 数值 gs ……ay 是 非 江 不 可 能 
的 一 “对 这 些 参数 ,模型 函数 *(z) 和 落 据 相差 其 还 ;但 是 另 - - 些 参数 却 非 常 可 能 ， 车 于 
沪 些 参数 , 偿 型 蛤 数 (zy 和 数据 非常 相似 .可 是 我 们 怎样 将 这 种 直觉 作 数量 化 嘱 : 我 们 下 样 
选择 看 起 来 是 正确 的 到 合 参 数 呢 ? 若 问 ” -组 拟 合 的 参数 = ……aw 正确 的 可 能 性 有 多 大 ?” 
这 样 的 问题 是 毫 无 意义 的 ,原因 尾 不 存在 模型 的 统计 全 域 , 从 中 可 以 导出 参数 , 丈 只 是 一 个 
模型 ,一 个 正确 模型 ,和 一 给 数 据 的 统计 全 域 , 从 中 可 导出 数据 集 。 

实际 情 襄公 管 如 上 所 述 ,但 是 我 们 可 以 将 问题 转换 -下 . 癌 " 给 定 一 组 特定 的 参数 ,这 组 
数据 和 集 发 生 的 概率 多 大 ? "在 这 样 的 问题 中 ,如 果 * 取 连 续 的 值 , 概 率 永 远 是 等 .除非 我 们 加 
上 这 样 的 语句 ，… 必 对 十 每 个 数据 点 上 或 减 去 某 个 思 定 的 Axy. 所 以 让 我 人 永远 将 这 句 话 
看 做 是 不 讲 自 明 的 .如 果 得 到 的 数据 组 的 概率 无 限 小 , 则 我 们 可 以 认为 被 考虑 的 参数 是 不 正 
确 的 . 闻 样 ,直觉 告诉 我 们 ,对 于 正确 选择 的 参数 ,数据 集 也 不 会 不 合适 、 

换 刘 之 ,我 们 用 给 定 参 数 下 数据 的 概率 (在 数学 上 它 是 可 计算 的 数 ) 作 为 给 定数 据 下 的 
参数 的 似 然 . 这 种 借鉴 完全 枯 于 直觉 . 它 没有 任何 止 式 的 数学 机 理 。 正 如 我 们 已 经 指出 的 
样 ,统计 不 是 数学 的 一 个 分 支 。 

一 旦 我 们 有 了 这 填 直 觉 的 借鉴 ,那么 我 们 只 要 前 进 小 小 的 一 步 , 就 能 精确 地 氟 合 内 参数 
am……axwy 也 就 是 通过 求 上 商定 义 的 仍然 的 最 大 值 来 确定 这 些 参 数 .这 种 参数 佑 站 方法 就 是 
最 大 似 热 估计 。 

我 们 现在 要 和 式 415. 1. 2) 联 系 起 来 ,假设 每 个 数据 点 % 的 测量 误差 是 随机 独立 的 ,并 
旦 围绕 “真实 ?模型 yz) 车 止 态 (高 斯 } 分 布 .还 假设 这 些 正 态 分 布 的 标准 差 v 对 折 有 的 数据 
点 都 是 一 样 的 :那么 , 教 据 集 的 概率 为 各 个 数据 点 概 举 的 乘积 ， 


村 2 人 
Pece [Te|-- 间 兰 -天 2| | 415.1. 3) 


注意 ,在 乘积 的 每 -项 中 有 因子 Ay。 求 式 (15. 1. 3) 的 极 大 值 等 价 于 极 大 化 它 的 对 数 ,或 者 极 
小 化 它 的 负 对 数 , 即 


以 一 
-i 一 3) 了 r 加 
[> 过 | 一 Nlogay (15.1. 4) 


因为 wa 和 Ay 都 是 常数 , 求 上 式 的 极 小 信 等 价 于 求 式 (15. 1.22 的 极 小 值 。 

正如 我 们 上 面 讨论 的 ,如 果 测 曹 误 差 是 独立 的 ,并 甩 服 从 具有 常数 方差 的 正 态 分 布 , 则 
最 小 二 乘 方 拟 合 就 是 拟 全 参数 的 最 大 似 然 估 计 . 注 意 , 我 们 对 模型 yCzia:…)? 中 的 参数 ai … 
ax 是 线性 的 还 是 非 线 性 的 设 做 任何 假设 在 下 面 ,我 们 将 不 假设 方差 为 常数 的 而 得 到 非常 
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相似 的 式 子 , 亡 被 称 为 " 关 拟 侣 ?或 "权重 最 小 一 乘 方 氢 合 ", 仁 是 ,首先 我 们 还 是 进 一 电 
严格 假设 下 的 让 态 分 布 。 

在 末年 左 布 的 时 间 中 ,数理 统计 学 家 们 对 于 这 样 :个 事实 大量 间 党 ee 
状 之 和 的 概率 分 布 收 敛 于 :个 正太 分 布 ( 放 于 和 更 准确 的 忌 中 心 极 限定 理 的 拖 述 , 柑 阀 1， 
其 von Mises 或 其 它 的 娄 旭 综 计 的 “有 般 昔 车 ?一 一 -由 满怀 沼 情 ,这 种 激情 使 人 们 的 注 间 
力 迹 岗 了 这 样 个 串 实 ,如 戏 实 际 的 数 塘 来 况 , 如 果 能 实现 能 滞 , 生 态 分 有 常 哥 屋 非 党 
的 实 山 .我 位 经 党 而 不 屁 倘 然 也 被 告 则 , 半 均 地 看 , 池 拔 秆 在 址 值 的 士 = 范围 内 的 相 膏 
95 儿 ,在 士 3z 光 财 上 庆 的 概 变 臣 99.7 共 ,继续 扩展 下 去 ,我 们 能 丙 料 测量 的 结果 在 十 20z 册 
外 的 概率 为 172X]107 .我 们 天 知道 "站 信 号 "也 必 这 椒 情 说 齐 为 吕 能 发 生 ! 

在 右 些 情况 中 ,市 态 分 布 的 偏差 答 容 易 理解 和 数量 化 ,例如 在 计数 事件 的 测 武 中, 洱 重 
的 误 凑 还 常 去 夫 为 泊 松 (Peisson)? 分 布 : 它 的 吉 累 概 刘 获 己 经 在 第 6.2 节 中 讨论 过 .sr 注 及 
数据 二 3 计数 数 导 非常 大 时 , 泊 松 公布 不 应 于 冰 斯 分 布 ,但 是 当 按 相对 精度 淹 量 时 . 叱 训 
误 不 是 和 致 的 .分 布 尾部 的 标 疹 益 越 多 ,加 使 某 个 数值 实现 药 二 高 斯 分 布 所 稀 的 计数 数 起 
大 ,这 种 效应 的 家 现 永 远足 一 样 的 :高 斯 分 布 预计 的 * 尼 部 ?事件 远 术 像 它 们 的 实际 情况 :由 
涓 恰 今 布 确定 ) ,这 就 导致 这 样 一 些 事件 ,如果 发 生 的 话 , 它 比 实 际 情况 更 容易 博 府 最 4 和 飞 
方 槐 合 ， 

在 另外 些 情 况 卜 .一 个 下 态 分 布 的 岗 老 节 : 一 些 旬 妆 上 难于 掌 担 .有 些 实验 数据 所存 时 
“ 俯 鹤 正道 ,也 许 在 其 一 忠 的 渴 重 时 ,电源 突然 有 :点 起 优 , 或 着 某 人 中 了 公关 一 脚 ,或 崖 革 
人 与 下 了 一 个 错误 的 数字 :这 种 喜 被 称 为 “偏离 点 " .它们 非常 容易 把 原本 并 其 它 数据 十 分 适 
合 扔 投 小 一 乘 方 拟 合 变 得 获 无 意义 ,在 高 斯 模型 的 假设 下 ,它们 发 牛 的 概率 如 此 小 , 例 街 地 
太 似 然 估 计 错 误 地 团 蛮 曲线 ,而 把 所 们 处 于 直线 状态 。 

稳健 统计 是 解 决 当 正 态 即 高 斯 模型 是 一 个 比较 莽 的 道 反 ,或 者 * 俩 离 点 ?非常 重要 清 况 
“的 桌 题 .我 们 将 在 第 15.7 节 中 简 活 地 导论 称 健 综 计 方法 :从 现在 起 直到 第 15.7 节 我 们 都 
假设 测量 误差 符合 高 斯 模型 ,非常 重要 的 -点 是 ,必须 记 住 这 个 模型 的 局 限 性 ,特别 在 心 明 
鱼 此 秀 设 中 导出 来 的 一 些 有 州 的 方法 时 重 应 如 此 。 

最 后 要 注意 的 是 ,我 们 对 测量 误差 钓 讨论 志 限 于 统计 误差 ， 这 种 误差 在 取 大 量 的 数理 进 
行 平 淘 时 是 能 去 掉 的 .测量 还 易 产 竺 系统 误差 , 它 忠 不 能 通过 大 量 数 据 平 均 洋 去 的 . 例 丫 , 金 
属 米 棒 的 校准 依赖 于 浇 度 .如 昌 我 们 的 测 基 在 癌 … 错 误 的 温度 让 进行 , 则 任何 数目 的 平 示 或 
数据 处 理 都 不 能 校 止 这 不 可 知 的 系统 误差 。 

15. 1.1 交 氢 合 

在 断面 匈 第 14. 3 节 我 们 曾经 讨论 这 入 统计 ,这 里 将 在 稍微 不 同 的 情况 下 进行 讨论 ， 

妇 果 每 个 数据 点 Kx) 有 它 习 忆 的 标准 差 wm ,那么 只 要 把 方程 115. 1. 3) 政 微 变化 
下 .在 符 叶 zc 下 加 :个 下 标志 这 个 下 标 同 样 自然 地 加 进 式 (15. 1. 4) ,以 致 模型 参数 的 最 大 仆 
然 估 计 或 为 求 下 而 数量 的 最 小 值 : 











《137. 1. 2) 
这 个 晤 被 称 为 “hi 平方 "。 
测量 误差 不 论 是 何 种 各 嵌 的 止 态 分 布 , 项 好 均 节 相 度 的 次 个 正 赤 分布 基 的 平方 之 各 ， 
“3558。 


其 中 每 个 量 届 站 一 化 成 兽 位 太 莹 。… 旦 我 们 庆 整 参数 mw ……ayw 使 得 宏 取 极 小 芽 . 叫 在 和 式 
中 的 各 项 就 水 完全 时 统计 独立 的 ,但 是 十 于 参数 是 线性 的 模型 来 说 ,全 径 说 昌 在 最 小 道外 ， 
人 不同 取证 的 关 的 委 率 分 布 还 呈 能 解 必 址 异 出 的 , 它 符 合 自由 度 为 N 一 M 的 chi 平方 分 布 :我 
们 在 第 f 2 节 局 炙 若 道 怎 样 有 不 完全 的 闻 针 (gsmnia) 冰 数 gammg 来 洒 算 这 种 锻 率 疯 数 . 特 
别 是 方程 66. 2.18) 苔 出 了 cni 半 广 偶然 垂 过 其 特定 的 允 仿 的 概率 和 ,其 中 收入 一 昌 是 自 
由 度 个 数 , 展 名 ,或 者 它 的 互补 量 P=1 尽 经 常 在 统计 书本 中 以 列表 形式 给 汕 . 记 尼 我 全 发 
更 用 gamangq 非 党 简单 ,例如 计算 我 们 要 的 们 = 一 gammgf0. 53572052 YX 对 上 参数 。 不 其 
严格 的 线性 模型 时 ,假设 大 分 布 几 然 基 适时 的 :这 种 做 法 很 荫 站 ,不 会 有 大 的 阁 识 . 

这 个 丫 香 出 来 的 概率 息 可 以 巩 为 模 青 拟 和 好 区 的 村 准 。 如 果 对 于 某 一 数据 组, 全 泪 企 
非常 小 的 概率 数值 .种 么 这 种 内 玛 的 全“ 答 . 不 可 能 古代 然 的 波动 导致 的 .更 可 能 是 (ii 模 刑 
是 错 座 的 一 一 从 统计 的 现 志 旅 被 范 奔 . 或 者 5 站 某 人 钳 误 地 告 拆 了 测 基 误 剖 es 六 大 小 
它 信 实际 二 比 所 陈 汪 的 要 人 

还 有 很 重要 的 -点 , 那 就 是 chi 下 万 的 吉 率 包 并 不能 便 量 测量 误差 至 正 大 半 调 的 腿 设 
的 可 入 度 , 我 们 只 足 仍 设 误差 确实 如 此 ,在 多 数 世 非 全 部 情况 下 , 非 正 态 分 布 襄 关 欧 效果 是 
产生 许 老 " 俩 离 点 ”这 些 点 使 概率 值 @@ 减 小 .所 以 除了 王 南 列 出 的 两 点 外 .我 们 涝 可 点 增 各 
一 个 可 能 的 但 不 号 确定 的 结论 : (ii 测量 澡 其 可 能 不 是 旺 目 态 分 布 。 

iii 的 发 咎 呈 很 普遍 的 ,并 上 也 柏 轨 裔 和 |: 正 琶 目 二 这 动 原因 使 得 明知 的 实 星 普罗 容 马 
低 概 率 值 驴 , 对 于 和 任 人 模型 我 们 通常 迁 可 以 确定 一 个 可 接受 的 驴 值 ,比如 久 20 5 这 并 不 
象 它 看 起 来 那样 粗糙 :真正 的 错误 神 型 会 由 于 上 上 常 小 的 妨 值 比如 1079 而 疲 舍 并 亿 寺 让 末 
天 天 援 学 久 一 10 的 模型 ,就 应 流 找 找 原 因 ， 

如 果 磁 开 知 道 测量 识 凑 的 实际 分 布 规律 ,了 那么 名 可 以 用 蒙特 卡 罗 CMonte (arlo) 横 折 的 
廊 法 从 一 个 特定 的 模型 中 得 出 数据 ,如 委 7. 2 一 第 ?7. 3 节 所 述 ,接着 可 以 将 模拟 数据 应 出 片 : 
际 拟 合 过 程 , 涉 全 可 以 确定 不 统 计 的 概 守 分布, 还 可 以 血 定 由 拟 合 所 得 出 的 慎 型 寡 数 精确 
性 ,我 们 将 在 第 15.6 节 对 此 作 进 一 步 的 讨论 。 它 的 技巧 是 止 常 般 狗 , 遇 亿 的 疏 谷 也 闫 常 昌 
- 吧 p 

在 另外 一 个 相交 的 极端 ,有 些 讨 供 概 浆 值 入 太 大 .接近 宁 1 .篇 直 和 好 得 以 数目 不 豆 能 是 
真 的 了 ! 下 正 态 的 调 量 误差 - 股 不 串 能 导 竹 这 种 旦 器 , 羽 为 正 态 分 布 已 达到 任何 个 可 能 的 
分 布 所 能 达到 的 " 紧 淡 ”, 一 个 大 好 的 ch: 下 六 氢 合 的 威 因 目 乎 永远 是 ,实验 者 不 -- 种 保 字 的 
拟人 台中 过 商 估计 了 他 或 她 的 测 址 误 莽 :还 有 -种 非常 小 的 可 能 ,一 个 太 好 汲 ch: 至 方 拟 合 
味 上 标志 着 一 种 局 骗 . 为 适合 模型 而 所 造 志 数据 。 

首要 的 规则 足 . 一 个 拟 台 “中 等 "好 遂 典 晶 矢 革 是 妨 汪 半 更 准确 节 志 达 是 , 随 壮 > 的 增 
大 ,统计 量 娟 烙 近 上 上 正 态 分 有 , 均 俏 为 .标准 差 为 “27， 

在 某 些 情况 下 .和 一 组 测 基数 据 杜 联 系 的 不 确定 性 是 不 能 事先 知 这 的 ,并 日 考虑 出 有 关 
万 的 拟 合 要 导出 = 的 值 .如 昌 我 们 假设 所 有 的 测 盐 有 相等 的 标准 六 ,om 5, 殿 型 拟 会 得 党 很 
好 ,那么 我 们 可 以 采 服 下 面 的 步骤 ,首先 对 所 有 多 去 任意 假设 - -个 常数 .接着 着 汗 汶 他 的 
骸 小 值 拟 合 模型 参数 ,最 后 重 新 计算 

和 
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显然 ,这 种 方法 使 我 们 不 能 对 拟 合 优 度 进 行 独立 的 估计 ,这 也 是 被 它 的 实践 考 得 然 贫 将 朋 问 


3 


靶 。 吗 是 ,在 测 基 误差 不 知道 的 情况 下 ,这 种 方法 全 少 能 为 各 个 数据 点 提供 某 种 误 莽 上 幅 ， 
如 果 我 们 在 式 (15. 1.5) 中 分 别 对 参数 as 求 微分 ,我们 就 得 到 使 chi 平方 取 最 小 介 的 方 
程 红 ， 


下 一 1] .58 《53 1，7 7 


人 34ZI Sa 
0 一 -| 一 一 一 一 一 一 -一 一 一 


| 闻 皮 中 1 
一 般 情况 下 ， 放 条 全 下 人 邮 个 未 知 参 数 必 的 好 个 非 线性 方程 组 .在 本 章 将 后 所 
代 述 的 许多 这 程 都 由 式 (15.1.7) 及 它 的 特例 导出 。 


15.2 拟 合 数据 成 直线 


一 个 具体 的 实例 将 使 上 节 的 讨论 更 上 有 意义 .我 们 考虑 -个 用 六 个 数据 点 拟 合成 直线 的 
所 题 ,直线 模型 为 
YICzr) 一 yz32) 一 4 十 r 《152 19 
这 个 问题 被 称 为 线性 回归 ,这 个 术语 很 久 以 前 源 于 社会 科学 我 们 假设 和 每 个 测量 值 ， 相 
联系 的 不 确定 性 值 = 是 知道 的 ,还 假设 zx; 的 值 ( 自 变量 ?是 精确 知道 的 、 
为 了 衡量 模型 和 数据 的 一 致 程度 ,我们 采用 chi 平方 优 值 函 数 (15. 1. 5) ,在 直线 拟 全 这 
种 情况 下 , 式 (15. 1. 5) 变 为 


jaka, 芒 二 人 如] 罗 。 


1 从 
如 果 测 量 误 差 古 正 态 分 布 , 则 上 面 的 优 值 函数 将 给 出 参数 < 和 “的 最 大 似 然 估 让 ; 如果 
测 县 误差 不 是 正 态 分 布 , 则 这 种 估计 将 不 是 最 大 似 然 估计 ,但 在 实际 应 用 中 仍然 有 用 的 .在 
第 15. 7 节 我 们 将 处 理 偏 离 点 术 多 以 致 优 值 机 数 刀 著 无 用 处 的 情况 。 
求 方程 (15. 2. 2) 的 最 小 值 来 确定 a 和 8。 将 太 (a,b) 分 别 对 a 和 加 求 导 , 并 令 其 等 于 0， 





QQ 一 | 
w 《1503 
、 福 八 JJ 们 一 这 
一 二 ?之 如 
如 果 我 们 定义 下 面 的 符号 , 则 人 下 民 这 古代 的 形 才 ; 
中 。 7 
3: = 立 冯 3 
帮 人 (15. 2.4) 
这 
Sr = 立 二 ys 包 1 
有 了 这 些 定义 , 式 (15, 2. 3) 变 为 
453 十 好 + 一 9 
人 (52 
这 上 遇 个 方程 中 的 两 个 未 知 数 可 计算 如 下 : 
辣 三 9595 ee (2 


二 zz 让 xzSry 
加 和 
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方程 (15. 2. 给 出 了 最 佳 模 型 拟 合 参数 的 答 烷 . 
但 是 我 们 不 能 旬 此 结 桌 .内 为 数据 的 测量 误差 必然 会 异 致 拟 合 参数 不 博 定 度 ,让 产 我 们 
必须 估计 a 和 才 的 不 确定 度 . 如 果 各 个 数据 点 是 独立 的 , 则 每 个 数据 点 的 不 确定 稼 区 公 在 侈 
数 的 不 确定 度 中 产生 相应 的 部 分 -根据 误差 传播 的 考虑 ,我 们 得 到 任 徊 图 数值 榴 大 六 革 
吕 2 
中 红 | 站 


对 于 下 面 的 直线 情形 ,将 式 (15,.2, 6 中 的 a 和 厂 分 别 对 区 求 导 , 得 到 


中 加 rr 六 本 











ON 
4 
0 97 一 
DO 03 
然后 ,按照 式 (15.2.7) 那 拌 对 各 个 数据 总 求 和 ,我 们 得 到 
2 7 
(9 


开 Sa 
它们 分 别 是 e 和 吕方 送 的 估 小 .下 第 15. 6 节 我 们 将 看 到 ,为 了 正确 地 刻 划 参 数 佐 装 的 可 能 不 
确定 度 , 还 需要 增加 个 蜡 。 这 个 量 就 是 a 和 5 的 扫 方 差 ,并 且 由 下 式 络 出 : 
Covfa5) -= -一 9/ (15.2.10) 
a 和 户 不 确定 度 之 癌 的 相关 系数 是 一 个 在 -1 和 上 之 间 的 数值 ,根据 式 (15, 2. 10)( 和 等 
式 14- 5. 1 比较 ) 可 得 


-一 全 
六 (15.2.11) 
史 交 9 和 


上 的 ru 值 说 明 e 和 户 的 误差 澡 能 同 号 ,而 负 的 rs 值 说 明 e 和 二 的 误差 是 反 相 关 , 可 能 右 胡 
反 的 符号 。 

我 们 的 工作 还 不 能 到 此 结束 .我 们 还 必须 估计 数据 和 模型 之 间 的 氢 合 优 庶 .缺少 这 ' 估 
计 , 将 使 模型 中 的 参数 as 和 刀 蜡 示 不 出 任何 意义 ! 一 个 和 式 (15. 2. 2? 扩 确定 的 值 样 粗 劣 的 
好 侦 之 概率 忆 , 由 下 式 计 算 ， 
Q = pammqj 之 天 | 5 
这 里 gammgq 是 第 6. 2 节 中 计算 不 完全 徊 与 疼 数 @(ayzr ;的 程序 ,如果 比 0.1 大 , 慎 迄 我 们 确 
信 氢 合 得 比较 好 ,如 果 护 比 0.301 大 ,只 要 误差 是 非 正 态 分 布 或 者 适当 地 低估 了 .一 点 ,那么 
我 们 认为 拟 合 是 可 以 接受 的 .如 果 肪 比 0.001 小 ,那么 模型 或 者 估计 过 程 有 问题 .对 于 后 
种 情况 ,请 番 到 第 15, 7 节 进 行 深入 的 讨论 。 

如 果 不 知道 每 个 数据 点 的 测量 误 益 rm, 而 贸然 用 等 式 (15. 1. 6) 估 计 这 些 误差 , 则 可 以 采 
取 如 下 的 步骤 估计 参数 es 和 如 的 可 能 不 确定 度 : 在 式 (15. 2.6) 前 后 所 有 的 等 式 中 设 r==1， 
然后 将 式 (15, 2. 9) 中 得 到 的 mw 和 到 乘 以 附加 的 因子 入 /CN -2 ,其 中 叉 由 拟 仿 由 来 的 大 
数 c 各 根 据 式 (15. 2, 2 计算 .和 上 上面 讨 论 的 一 样 ,这 个 过 程 等 价 于 假设 拟 合 得 很 好 :因此 
得 不 玫 独 立 的 衔 量 拟 合 优 度 的 概率 @@。 

。 561 。 


在 第 14.5 节 中 ,我 们 保留 了 线性 相关 系数 r( 式 (15.5. 1 确定 ?和 拟 合 优 度 测 量 值 入: 式 
15. 2. 2 确定 ?之 问 的 关系 , 友 王 无 权重 数据 点 ( 即 所 有 的 < 二 1 这 个 关系 是 


姑 一 (1- Vargv ww) 《13.2.13) 
其 中 
RN 
ANVartn. .yx 三 > 一 7) C1 2 


对 于 在 户 权 重 值 的 数据 点 ,如 昌 将 式 届 4. 53. 中 的 求 和 乘 以 权重 17 中 ,上 式 仍然 和 效 ， 
下 面 的 函数 fit 准 葡 地 实现 了 我 们 上 面 所 讨论 的 运算 . 尖 权 重 " 于 先知 道 时 ,函数 的 计 
算 和 上 了- 面 的 公式 完全 一 致 .但 是 , 当 入 重 = 不 知道 时 ,程序 过 程 假 没 每 个 点 有 相同 的 了 六 寺 
还 做 设 拟 合 得 很 好 ,这 正 是 第 15.1 节 中 讨论 的 毁 样 : 
公式 015.2. 6 对 舍 入 误差 很 敏感 , 轩 此 我 做 将 它 太 重 于 如 下 ;定义 
1 人 5 








] 导 5 下 
| 芝 去 斌 一 1.2.... 下 
。 于 | 沪 1 N 〔]5. 3 13) 
和 
人 
和 2 《5.1 
那么 ,通过 直接 的 代 换 可 让 明 
YY 
= > (1l5:2 7? 
+ 一 | 
六 《15.2 18， 
就 玛 下 | 全 二 Se 《和 
< 一 1+ 瑟 | 5 18 
| -9 9 
人 = 束 人 二- 这 人 二 
Covtcyz》 0 (211 
二 渤 名 长 反 如 《18. 3. 221 
Ca 


六 incjude <math. 了 > 


intelode "rrutil.bhy 


void fi (fioar xC]，floar y[-，int ndatay iloar sig[]. inr mwty flcar <*z， 
loat *by ftoat *Sigay，float *Stgby :loat *chi2，foat *q) 
给 定 一 组 数 握 迪 x[1.. nadata],y:1.. nara], 它 们 具有 千 装 共 sIgE 1.. ndata]. 通 过 求 姑 的 攻 小 乾 将 这 些 数 所 点 拟 全 
成 直线 y 一 a 十 pr。 广 问 惧 ab 以 及 它 订 各 自 的 不 和 册 定 诬 siga 利 :jgE,chi 平方 值 chi2 ,以 副 掀 合 党 度 概 率 俏 q 报 会 
将 傍 衫 及 右 这 么 大 或 者 更 大 ) , 苏 果 在 输入 中 亚 wt 一 2 那么 就 认为 数据 点 标准 茶 不 入道 ,9 将 以 1.0 掺 区 .chi 一 炒 
为 所 和 各 点 的 单位 标准 差 。 
float gammqdrl123t 日 ， 了 1oat X) : 


琶 王 臣 ， 生 二 
float vtit,sXoSsS: SI-0.0Sy-0 0,St23=-0.0,s5s,Sigdat 


“262， 


汪 bsD . 癌 ; 


if 《mwty T 果 让 米 和 .， 
SS=0 ,Di 
for (itii<sndata;i+r) 1 … 者 由 权 下 
Vt=1.073qRCsigiti]); 
39 += wk; 


9 页 + 四 页 [i]wwti 
By + 了 Fi]swt; 


》 
+ else {f 
for 〔〈i=1iic=ndaraii++) { … 税 有 权证 
SX += xfi]; 
S7 4= 了 [ii]; 
Besendatai 
上 
SrOSSmSXxrssi 
if 《mat) 蒜 
for 【is=1;icsnrdataiify+)》 攻 
=fX [] -sxossjAsig[i) ; 
3 寸 2 十 一 史 员 由 
#D +a Tey[i]ysi 多 [i] ; 
} 
else 工 
for (imel;i<=ndata;i++》 革 
蕊 =[ 主 ] -=SXOSB; 
名 2 +m 世人 
# 口 二 中 全 中 了 [让 ] 
拉 
小 
9b Am St523 求 &. 和 en 利 ep 


Baw[9y 一 Xa(sb))Aes; 
5iga<gGIt{(IL，O+SXwSXA (SGwS8L2) ) SB) i 
?adlgbmsqrttl ,DAat2) 1 
*Chi2=0 .Di 计 和 直 X2. 
认 《mwt wm 0) 
foer 【ii=23i<endatait++)》 
+chj2 +m SQR(yY[i]-(*a)-fsb)=x[i]); 
hkqe1.0; 
sigdate=aqrtf(*chi2]AKndata-2)) 对 无 权重 数 陋 ， 用 chi2 估 计 sig 并 日 
中 BiBEa #m Bigdat7 调整 标准 益 
让 BiEb 本 mi 人 dat 
了 1L3e8 工 
for (iml;i<=eodataii4+y) 
*Cchi2 += SQRIC7Y[i]-(*a)-(eb)wx[i])Aaig[i]); 
*q=gammpqtO.5=z (mdat 和 -2) ,0.5wfwchi2))3 方 理 【15.2.12)]， 


15.3 两 个 坐标 数据 都 有 误差 的 直线 拟 合 


如 果实 验 数据 的 测量 误差 不 仅仅 是 ”% 存在 误 莽 ,而 r, 也 存在 溃 莹 , 则 拟 合 直线 模型 
3 一 和 一 眉 0L5 3 

的 任务 将 难得 多 ,我 们 直接 写 出 在 这 种 情况 下 的 刀 优 值 函数 
7 
2 


其 中 吃 : 和 ovr 分 别 是 第 ;个 点 工 和 ?的 标 玲 误 减 .等 式 (15. 3. 2 分 母 中 的 加 权 方 关 儿 .可 以 由 西 个 廊 耐 来 


"563 ， 


【15. 3, 2 


敢 解 ,或 者 理解 为 本 最 小 们 方向 上 符 个 数 玫 点 和 儿 率 为 少 的 直线 转 方 送 , 或 音 解 为 陆 礼 变 苦 交 相 
线性 组 全 wa pr 的 方 苇 : 
Warfy 妇 下 Varly) 一 下 Var 一 三 -| 上 三 17 以 ， 站 
上 式 层 闪 全 随机 变 区 方差 的 半 方 和 ,并 上 月 捍 个 随机 变星 的 方差 部 已 晤 化 ,因此 上 面 的 式 避 5 3 二 起 
和 分布， 
找 们 鉴 地 找 & 补习 的 值 以 使 趟 (15. 3 全 最 小 -不 音 的 是 汉人 在 式 115. 412 分 忆 中 的 渍 现 . 便 得 长 从 府 窜 
式 弛 入 73620 是 非 线 忻 的 ,但 是 邓 序 王宫 度 的 埠 此 条 位 关 738 70, 从 然 是 线性 的 .并 旦 有 


mm 二 ， 六 
习 一 人 Ta > ， 区 [和 


其 中 的 吕 由 等 式 (53.3) 定 祥 。 个 合 囊 能 方案 是 采用 第 十 章 中 的 方法 !( 参 着 程序 brenft) ,通过 婚 抒 的 
值 求 一 般 的 一 维 彝 数 的 最 小 值 , 问 时 在 每 一 步 中 避 计 对 二 灶 最 小 值 时 ,也 村 求 避 小 值 ， 

因为 z 的 误差 是 有 限 的 , 当 记 为 无 旁 太 时 以 瑟 为 变量 的 大 鸭 数 的 最 小 族 也 是 有 限 的 ,尽管 这 个 值 瑚 
太 - 因 此 蕴 度 8 三 arctanph 比 上 更 适 于 和 做作 率 的 参量 , 窟 法 信 从 了 来 看 将 足 周期 的 ,周期 为 (不 荐 2r) ,如 归 
数据 点 的 my 比较 小 ,ex 牛 等 或 很 大 ,那么 有 可 能 人 在 顷 素 9- 区 竺 肥 虹 大 值 , 在 这 种 情况 下 ,有 上 吕 能 在 奋 池 
个 兰 最 小 值 ， -个 在 止 任 率 处 , 往 一 个 在 负 料 率 处 :其 中 记 在 一 个 是 全 忆 的 最 小 变量 ,因此 对 具 或 几 的 玫 始 
儿 测 香 的 选择 是 非常 重要 的 ,我 们 亦 下 面 采取 的 荣 略 是 对 六 的 值 进行 量化 ,以 使 它 的 方 其 等 于 了 的 启 益 ， 
然 于 根据 从 zx -as 量化 的 } 导 出 的 权重 进行 线性 拟 仿 (如 问 第 ;5, 节 ) .如 果 数 据点 和 线性 异型 凰 实 非 党 
相关 的 话 ,这 将 对 总 产生 一 个 非常 衣 的 猜测 俩 

要 确定 参数 a 和 各 的 标准 葵 wz. 外 mm 更 名 鞭 难 。 我 们 在 第 :5.5$ 节 中 将 看 到 ,在 适当 的 情况 下 ,a 利和 的 
桔 准 差分 别 是 “自信 区域 人 这 界 ? 在 志和 户 轴 小 的 投影 ,人 条 * 置 信 区 域 边 界 ?" 上 诊 取 长 它 的 最 小 俏 大 1 的 作 ,AY 
三 1. 在 第 153.2 各 的 线性 情况 下 ,这 些 投 影 遵从 泰 勤 级 数 展 开 

At 全 3 ET 5 

杖 为 在 日 前 情况 个, 二 是 非 线 性 的 ,二 踊 导 数 的 分 析 表 达 式 非常 繁 !, 晶 划 要 药 二 , 低 阶 闸 对 A 妨 经 此 苔 出 一 
个 攻 绞 盖 的 近 岂 ,我 们 的 梨 略 是 ,通过 调整 斜率 二 的 情 远 离 最 小 值 来 求解 A 们 一 1 的 根 。 在 下 面 的 程序 中 凡 
二 了 -最 的 生根 程序 zbrent. 有 对 可 能 一 个 根部 没有 -例如 , 恕 果 所 有 的 混 郑 限 非常 大 ,以 致 于 所 有 的 数据 
点 是 被 此 相 容 的 ,四 此 在 畏 傅 确定 一 个 恨 以 前 , 旭 出 个 求 根 艾 癌 就 非常 重 槛 ， 

六 为 w 站 在 变化 如 的 每 -此 中 得 到 最 小 值 的 ,所 以 成 功 的 教 值 求 根 必 将 导致 aa 值 , 它 生得 对 应 邮 求 
产 披 小 看 时 AX =1. 这 (参看 图 13.3.1) 贞 接 给 岂 了 置信 区 域 在 2 轴 上 的 切线 投影 , 亦 即 m% :但 是 它 没有 治 
出 贰 全 区 战 在 e 轴 开 的 即 线 投影 .不 图 15, 3.1 中 我 们 已 经 找到 吕 点 < 为 了 得 到 wa， 我们 必须 寻找 点 纯 , 儿 可 
上 能 诛 证 :在 填 信 区 域 过 人世 足 酉 图 时 ,可 以 证 明 ( 参 看 加 15. 3. 1)c3. 一 产 十 中。s 的 慎 可 以 从 加 中 的 旺 点 而 
得 到 ,上调 > 的 值 可 以 将 等 式 (15. 3, 2) 和 (15. 3, 3) 应 用 到 癌 的 最 小 请 5 即 图 中 的 0 点 ) 而 得 到 ,给 出 


2 >， au (] 5 3.5) 
: 


map 《ao.3- 4) 





实 和 睛 , 国 为 上 能 赵 于 无 穷 大 ,因此 整个 过 程 在 (ao 及 空间 比 齐 fa, 贡 空间 更 有 意义 。 这 空 际 就 是 下 而 芷 

享 的 工作 过 程 .组 是 怀 惯 上 总 是 返 馈 z 和 少 的 标准 差 , 而 不 是 a 和 ,我们 最 后 采用 关系 
08 = OECDS 细 人 和 人 二 的 | 

必须 注意 ,如 果 台 和 它 的 标准 盖 都 很 大 ,以 致 于 置信 区 域 实际 上 将 包括 无 穷 大 余 府 ,那么 标 由 营 请 没 有 很 人 
旧 义 -中 数 chixsy 通常 仅 该 程序 fitexy 滴 用 .位 是 ,如 果 用 户 想 要 的 活 , 可 忆 昌 已 拧 寻 置 侍 区 域 .这 只 要 在 避 
始 话 用 一 次 fitexy 后 ,重量 滑 用 chixy( 它 的 月 变 好 是 一 个 角度 9 ,在 不 是 斜 刘 轨 ， 

最 后 要 注意 的 ,和 第 15.0 节 衫 重复 ,也 就 是 如 果 执 合 优 度 不 能 被 接受 (被 返回 的 概率 太 小 ), 球 准 雯 ac。 
才 呈 当然 是 不 可 信 的 ,在 坏 的 稍 况 下 ,你 可 能 还 要 试车 用 “个 党 数 因 了 标 度 二 和 YY 的 党 盖 阴 直到 窜 直 谭 的 
檬 率 星 串 演 轩 的 5( 哆 如 少 5 以 得 到 更 合理 的 = 和 公信 


503。 
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号 点 可 以 由 变化 寿 率 而 司 时 求 埠 时 a 最 小 的 方法 得 到 ,这 将 给 出 标 鹤 关 m 攻 、 尼 
值 ,标准 头 c。 可 以 通过 几何 关系 吴 一 到 十 玫 而 得 到 。 


图 15.3.1 参数 上 和 了 的 标准 差 


并 iclude 扫 math-b 全 

并 inctide "nrutil, hy 
Hideftine POTN 1.571000 
并 defire BiIG ].De30 

并 define PI 3. 14159265 
汛 define ACC ] .全 e--3 


Int nni 与 程序 chixy 忧 递 的 全 局 变量 


float * xx xyyixsx.#SsyrXWwWraaroftsi 


void fitexy(float x[]，float y[]，int ndaty Hoat sigx[]， foat sigy[]， 
float x*ay float xb float xsiga、float * sigb, float *ehi2， float *q) 
对 和 yy 都 具有 误差 的 输入 数据 xz 1. .ndat3 和 yftl ,ndat] 进 行 数据 报 合 ,它们 各 自 对 应 误 总 蕴 输 八 最 sikx.…1.， 


ndat] 和 sigy[1.. pdat] 中 。 输 出 量 是 使 折合 直线 y=a 十 oz 的 类 值 晤 小 的 a 和 ,这 个 最 小 娠 放 chi2 返 加 :大 的 入 率 以 
aq 返回 , 较 小 的 9 值 表 明 较 莽 的 拟 侣 (有 时 表明 低估 了 的 误差 ).a 和 标准 差 以 siga 机 sigb 返回 -这 点 结果 在 加 下 末 
种 情况 下 将 无 意义 人 D 扣 全 较 效 ,或 者 人 i)b 太 大 以 纹 数 据 和 沸 直 线 { 无 穷 大 b) 一 致 .如 果 siga 和 sigb 的 运 已 值 为 
BIG ,, 刚 数据 将 种 b 的 斥 有 值 一 敏 


Yoid avewartft1pat data[] ，uUnsigned ohg 辽 ，fLOat 六 ve，f198t Var)i 

fl1oat brenttkflopat ax，TK1oat bx，flLoac cx， 
float (efj5float)，ftl1oat tol，flioat xmin) ; 

float chixyttloat bang)i 

void fitt?leat x[] ，flnat y[] ，int ndata， 寺 lpat S1 话 [] 。 iot mt 。 
float *a，?t1oat 4%D，E1Dat #3iga，FfLloat Bigb， 王 1oat =ChlZ，fLOat *q) 1 

于 Loat 区 apanqgfl1oat 起， 人 loOat x) ) 

vqjd mnbrairffloDat az，1LOa+t 才 bz， 革 lat +CX，fioat fa，f1oat 4fb， 
fLCat 中 CC， 了 10at 《二 gtncl(ftlLaat)); 

1oatg Zbrent (EL1oat 《中 UDC) 51Dakt] ，f1opat XXX，fioat 2，Eloat to)i 

jnt ji; 

Tteat 3Swap,amz,amn,varXx,Vary,aog[7] ,chF7T] ,SCa1 和 bmn ,bmxvdt,d2,r2， 


“9 


duml ,dun2 ,dur3,dqun4,dum5; 


XXsVectorfi ,ndat ) ; 
yy=VvBctort1l,ndat) ; 
SX=Vvector(d1,oadat)i 
syamvectort1,ndat); 
Www=V9ctorgT,ndat》; 
SaVvevarfx,ndat,&duml ,此 varT)] ; 旺 牧 4 和“ 变 若 、 量 化 数 因 成 为 全 局 
avevarky,ndat ,下 du 从] ,四 V 丧 ry] ; 您 呈 以 他 和 轩 数 chixy 进 行 传 音 
5< 员 1BmSQqTtfvarTAVaT7》; 
nnD=nadat 3: 
TOF 《jel;j<endqat;j++) 工 
xx[j]sx[j]i 
yy[j= 了 [jacala; 
ax[ij=sigxrfj]; 
sy[j]=sigy[j]jwscaley 
wz[)=aqrt(S3R(sx[j])+3QRKCsyfj]?); 在 第 “次 试 轨 拟 全 由 考虑 全 部 和 小 
} 的 械 重 
下 放 (X 关 9， naw 人 1 ,二 Qtuml bb, 楷 dun2 ,让 dun3 ,本 aumd wdum5) 对 b 试 用 私 人 台 
off3S=ang[1]=0.0; 根据 参考 数 棋 点 愧 区 几 全 角度 ,放生 
ang[2]jmatan(feb); 为 “多 良 
ang[3]=0.0: 
ang[5]=ang[2] ; 
amg[6]=POTN; 
for 《jz=qijcs6ij++) chf[ 订 =chixzy(Kang[j]y; 
mmbrak(tang[i] ,zamg[2] , 业 ang[3] , 记 chEl] ,此 chf2] :上 ch[33,chixyyi 
Brackeft the Y2 minimum and then locate it with brent- 
*Chi2=brent(ang[1. ,an 区 [2] ,ang[3] ,chixy ,只 CCb) 
*Chi2=chiryfeb); 
电 到 只 
qj= 区 ammqkO -SeKnn-2] ,中 chi2wD-5); 计算 x? 概 率 
for 〔r2=0.0,j=t;j<=nnilt+) I2 += ww[j]i 在 最 小 得 处 保存 权重 和 的 全 数 
r2=1.07cr2; 
bmxr=BIG; 现在 在 AY? := 1 处 寻找 5 的 标准 关 
bmnamBIG ， 
offgnfwchi2)+l1,0; 
ior [jl;j<m6;j++] 从 保存 鸭 赣 据 循 坏 列 括 出 的 想 划 的 想 . 
if (ch[j 了 了 > offa) 汀 意 央 斜 角度 的 阿 期 性 
dl=fabstangf[j]-~(eb)); 
While {djl >z PI) dl ~= PI; 
d2=-PI-ql; 
if (angfi:J < bf 
S5VW8Ped1i， 
dl=d2， 
d2=Bvap， 
} 
if (dl <《 bmx) bmxz=dli; 
if td2 < ban》 bdun=d2; 


》 

】 

这 (bmr < BIC) 渭 用 zbrent 十 根 
bmxaszbreDpttcbixy ,yb,yb+bmx ,由 CC) -Kmb) . 
IC= 有 NTwS) 3 
bmpmzbrentfckixy ,bab-bzn ,AhCC)-(b); 

BamMs=BS- (9) i 
=8igb=Sqrtf0.5*[bIXebDIX+bmD+brn))y7(scaleeSaRfcosrsb))) 了 
=8iEa=gqrt(0O.59 [amXadX+aDI*30m) +Tr2)Asraiei a 的 症 益 区 一 项 r2. 

》 else (wsigb)=(*siga)=BIC; 

ea yz gcalei 将 奈 庶 的 结 虽 复 原 

btanfeb) yscalei 


free_vectortww ,lndat)i; 
于 ree_vegctorfSy,1,ndat); 
Tree_7ectorfax,l,ndat): 
free_yYectorfyy,1,ndast)i 
tree_VectOr(XX 1ndatr)i 





本 


共 include 所 math, 让 > 
共 jnelude ”nruti ph7 
并 define BIG 1.1es0 


extermn int Fi 
RSX1eID TDat 关 XXR， 关 yy # SN SYS Wow dayDlis: 


名 上 
floar chixwvgfiloat bang7 本 
程序 fitexy 的 辅 且 珊 数 :对 于 刺 率 b--tan(bang) .位 捞 回 (入 一 cjls) 值 :祥和 你 度 的 数据 在 offs 通过 企 “ 变 蜡 直行 从 


有 本 
int 外 


ioat ansyavcx 一 0. avey 一 OOssumw-m oshy 


b 王 tankbangy 


[or 站 =1H< 一 ni 7 
ww = SQRIU rr sx 一 SQRIsvT 3 
sumw 十 一 《ww[ 门 = fww[ji == 汪 09? BIG :1.0rww[iDD)3i 





avex 二 一 wwLj “xxj]]i 
avcey 一 一 ww 订 *yy[j; 


1 
了 


让 (sumwe 一 一 0.0) sumw 一 BRIG; 
avex 一 suUmWwri 
avey /= 一 SUTmWI 
5a 呈 3YVey -上 b 关 日 VeX 
foer (ans 一 一 offs .] 王 17j 拉 =n93 十 十 》 
ans 十 一 wwljiy<SQRI7y[i 让 az byrxxL)i 


TPTUID 3nas 


法 意 ,看 起 来 比 碎 直接 的 有 关 本 节 内 容 的 文献 ,一 般 令 人 紧 感 ,有 时 还 完全 是 链 的 , 德 敏 LDeming) 下 
期 的 处 理 是 合租 的 ,但 是 这 处 理 焦 赖 于 泰 草 展 开 ,给 出 了 不 精 玖 的 误 益 估 计 . 参 考 文献 [2 和 大 可 党 做, 更 
近代 的 ,并 以 批判 的 态度 对 早期 的 工作 进行 了 更 一 表 的 处 理 , 约 克 (York) 和 里 德 CResd) 对 本 节 所 处 理 的 简 
单 的 直线 情况 进行 了 有 用 的 讨论 ,但 是 后 者 的 文献 看 些 错误 ,这些 错误 在 文献 L7] 书 得 到 纠正 ,所 有 这 些 争 
论 都 被 吸收 烈 Bayesians 的 文献 B- 关 中 ,他 还 有 不 同 的 观点 。 


， 
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Jetferys， 杠 . 工 ，1980，Axtronomitcet Jozomaf vol、85， hh 177 一 181; see atso vpn 95，P、1288 《2088 》、 
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Jeffeyya， 且 . H，1981 ，4stromrcwrtical Jotrrial ，vYDO]，86，pp，149 一 1558 See also vOl，95，b，1360 (988)， 
[3 4 

Lybanon，M. 19384 ， Erican ,Journal aoF 己 jystcg， vol 52。 pp。22 一 26。54] 
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Zellner，A，1971。， nm 二 it 再 ayesicnm merehtces 说 下 coromretrics (New Yotk: 到 iley reprnreti 
1987 (Mslabar ，F1:R.E，Krieger bub. Co). [8] 


写生 了 丰 这 


人 Gu，S 下，1989，i Jeepoanzttn 天 Ntropy cp 本 aesrant -etRhocs ， .Skillirg 、ed. Boston:Kluwer)， 
Jaynes， 正 . T，199] ，in arinumi- 开 MrGpy one 站 syetrem Pen Proc，108i Tt， 克 2 天 0 力 ， 人 1， 
Cirandy， 五 . ，and TH，Schick ，edqs，、[lyostor ， Kneeery 


15. 4 ”一 般 的 线性 最 小 二 乘 方 


第 15, 2 节 的 -最 推广 是 拟 合 一 组 数据 (zyyo) 集 的 模型 不 只是 1 各 袜 的 线性 组 全 (也 就 


是 epz) ,而 是 过 的 任意 好 个 特定 末 数 的 线性 给 侣 .例如 ,的 函数 可 以 是 lz ， 
这 种 情况 下 :它们 的 - - 般 线 性 组 合 

of 于 of 一 at 十 ,十 GE 《15.3.。1)》 
是 一 个 M 一 1] 阶 的 多 需 式 。 或 者 字 的 函数 是 正弦 和 余 芒 ,这 种 情况 下 它 科 的 线性 组 合 下 地 
个 调和 级 数 。 


这 种 模型 的 一 般 形 式 是 
j 节 
yz 一 > akXefz)》 (15.4.2) 
各 


共 中 不)》 9 。-。 :rr 是 了 竟 任 意 画 数 , 称 为 基 函 数 。 
注意 , 国 数 Xs(z)? 可 以 是 x 的 非 线 性 函数 ,我 们 这 里 讨论 的 线性 是 指 模型 和 它 的 会 数 ww 
之 癌 的 关系 。 
对 十 这 种 线性 模型 我 们 推广 前 一 节 的 讨论 ,十 义 已 值 秀 数 
人 | va10.4. 3 
和 前 在 一 样 ,o 汪 第 ; 个 数据 点 的 测量 间 差 (标准 差 )， 并 且 恨 设 是 已 知 的 .如 果 测 营 误 羌 不 
知道 .那么 和 前 面 … 样 ,让 所 有 测量 误差 为 常数 值 "一 1， 
我 们 将 再 次 用 求 六 最 小 慎 的 方法 得 出 最 传 参数 有 几 种 不 同 的 技巧 可 以 求 这 个 最 小 
值 .其 中 两 种 特别 有 用 ,在 这 一 节 我 们 都 要 讨论 ,为 了 引入 和 阐明 它们 之 间 的 关系 ,我 们 需 柳 
引入 一 些 符号 。 
仅 和 为 NX 闻 阶 的 矩阵 , 它 的 元 素 由 对 个 其 函数 在 N 个 横 坐 标 #: 上 的 取 值 ,以 及 和 
个 测量 误 凑 m 计算 求 得 ,也 就 是 如 下 的 定义 : 
2 5 (15.4.4) 
外 上阵 A 被 称 为 拟 合 问题 的 设计 矩阵 .注意 ,通常 情况 下 A 的 行 数 大 于 列 数 , 即 六 邮 .因为 
数据 点 比 要 求 模型 参数 多 。( 当 然 可 以 用 两 个 数据 点 氟 售 一 条 直线 ,但 不 是 非常 有 意义 的 
可 1 设计 低 阵 示 于 图 15. 4, 1。 
还 通过 下 式 冠 义 长 度 为 Y 的 向 量 h 


忆 二 三 


了 有 上 汪 RS 才 ] 


还 定义 一 个 长 度 为 M 的 向 量 a, 它 的 分 量 是 要 拟 合 的 参数 es … ,avw。 


.568 。 
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中 时 含 基 王 琢 线 性 组 台 . 对 闪 个 数据 点 作 最 小 二 乘 方 拟 合 的 设 订 怎 陈 : 乍 降 的 大 素 包 括 由 测 避 站 各 释 晶 
计 莘 出 来 的 基因 数值 ,村 普 虑 了 口 测量 内 变量 的 标准 卷 , 风 变量 的 测 司 值 没有 被 包括 由 这 个 不 阵 、 


坪 15.4.1 


1s. 4.1 利用 正规 方程 组 求解 


将 式 (15-4,. 3) 中 的 参 分 中 对 条 个 参数 由 求 偏 导 并 今 之 等 于 6 ,将 求 得 和 的 地 小 值 。 等 
式 (15.1.7) 人 在 式 (15. 4， 2》 的 模型 情况 下 ,将 得 到 4 个 方程 


只 ay 
0w 六 [ 一 aiiCa)]Xen)》 于 一 1 (5.4.6) 
1 j=1 
交换 求 和 的 顺序 ,可 以 将 式 (15. 4. 6? 写 成 矩阵 方程 
好 
Zau 4 一 房 (15. 4. 7 
其 中 
oj 或 者 等 价 [四 一 Ar .A 5.4.8) 
[四 是-- 个 Mx 对 和 抢 阵 
yiXe(z) 
甩 = > 一 或 者 等 从 - 拉 一 Ar ob 015.4.9) 


一 


[站 是 一 个 长 为 M 的 向 量 。 

方程 组 (15. 4 6) 或 (15. 4 7) 称 为 最 小 二 乘 方 问题 的 正规 - 柑 组 .它们 可 以 利 骨 第 二 章 
中 的 标准 方法 总 解 得 参数 向 量 a, 比 较 有 名 的 是 民 7 分 解法 和 四 代 法 , 回 代 法 也 称 为 高 斯 约 
当 (kGauss-Jordqdan) 消 元 法 .用 秆 阵 的 形 实 ,正规 方程 可 写 为 


“69。 


[ca:= TB- 或 者 (AR 【15 业 且 7 
道 矩阵 Casa 元 * 它 和 被 全 计 和 参数 a 之 可 能 的 (更 精 侈 地 说 旦 标准 的 ) 不 确定 度 专 紧 
密 联 系 . 为 了 倍 计 这 些 不 确定 度 , 考 虚 


地 站 呈 本 
Cj =: 包 -六 记 一 写 [> ER 
妇 据 式 (15. 2.7) 个 计 参 数 ww 的 广 深 ,可 技 个 式 计算 
要 CC 
人 全 加 | 


注意 as 和 > 是 相互 狂 立 的 ,因此 


呵 c 二 
.= 之 (Ca 15 41 
结果 我 们 得 到 
时 
ae 一 人 >)CaCn 人 宇 人 | | 《15. 4.341 
1 了 
上 式 括号 内 的 项 恰好 大 更 阵 [o]。 因 为 它 是 矩阵 和 3.14) 马 上 简单 化 为 
ofai) 一 Ch 二 时 本 本 


换言之 , 惩 阵 [Cj 的 对 和 元 是 拟 合 参 数 a 的 方差 (不 确定 度 的 平方 ;。 党 无疑 同 ,[C] 的 非 
对 角 元 Cn 是 ai 和 ar 的 协 方差 (参看 15. 2. 10) ;但 我 位 将 把 这 些 问 题 的 讨论 推迟 到 第 15.6 
节 。 

我 们 将 利用 解 正规 方程 的 方法 ,给 出 … 个 实现 上 面 所 讨论 的 “ 般 线 狂 最 修一 乘 方 的 宕 
序 。 内 为 我 们 贤 计 算 的 不 仅 是 待 求 的 向 量 a, 还 包括 协 方差 记 阵 ECJ ,更 方便 的 是 采用 高 斯 - 
约 当 消 元 法 (第 2, 1 节 中 鲁 ussj 程序 ?实现 线性 代数 运算 。 在 这 种 情况 下 的 运算 量 不 比 Zr7 分 
解法 大 .但 是 如 果 不 需 要 计算 协 方差 和 矩阵 ,就 可 以 转 到 FL 分 解法 ,在 线性 代数 中 将 减少 1:3 
的 计算 量 , 此 时 不 需 计 算 逆 和 矩 阵 , 从 理论 上 看 ,因为 &""A 是 正定 的 , 弄 菜 斯 基 分 解 是 最 有 歼 
的 解 正 规 方 程 的 方法 .但 是 在 实际 中 大 部 分 计算 时 间 被 用 在 循环 数据 以 形成 方程 上 了 , 记 以 
高 斯 - 约 当 方法 尾 足 够 的 了 . 

戎 们 需要 提醒 注意 的 是 ,直接 从 天 规 方程 得 到 的 最 小 二 习 问 题 的 解 对 售 入 误 关 十 分 敏 

一 个 更 常用 的 可 蔡 代 它 的 方法 中 设计 花 阵 和 的 QR 分 解 (第 2, 10 节 、 第 11.3 节 和 第 11.8 
节 )。 此 方法 对 于 我 们 在 第 15. 2 节 最 后 所 讨论 的 育 线 拟 合 非常 草 要 ,但 是 没有 甲 色 导出 QR 
所 需 公式 的 运算 。 在 这 一 节 的 后 面 , 我 们 将 讨论 最 小 一 乘 方 问题 的 ee 
题 的 方法 是 坷 措 值 分 解法 (SVD) ,我 们 将 给 出 它 的 运算 .已 经 证 明 SVD 还 能 解决 含 人 误 
问题 ,因此 除了 “简单 ”的 最 小 二 慰 方 问题 处. 我 们 建议 采用 这 种 方法 . 
我 们 颁 向 十 下 画 的 程 亨 ,出 它 来 解 正规 方程 。 

下 面 的 程序 的 稳 序 引入 了 一 个 在 实际 工作 非 常 有 用 的 容 门 ,通常 我 们 要 决定 哪些 模型 
参数 搞 从 数据 组 中 但凡 : 岂 些 * 风 设 定 为 固定 值 ,这 些 丁 定 值 可 以 尾 被 某 理 论 预 让 的 ,也 可 
以 是 前 一 次 实验 测 得 多 .，。 浊 常 是 具有 “艺术 ”技巧 的 :因此 必须 有 “冻结 ?和 “不 冻结 ?参数 
2 的 方便 手段 ,在 下 面 的 林村 中 ,参数 同 的 总 数 日 以 ma 表示 (前 面 是 用 好 表示 .做 为 种 六 
的 输 :， -1. .ma 它们 前 分量 要 么 是 零 ,要 么 不 是 零 (出 如 ]) .是 漠 册 表 
不 区 求 状 问 量 岂 L1. ma- 中 相应 元 素 保持 因 定 在 它们 的 输入 值 上 , 非 零 则 表示 归 对 旬 数 进 

530。 





行 拟 合 . 答 出 时 ,任何 冻结 的 参数 帮 有 空 们 的 方 益 ,而 它们 的 协 方 装 在 直方 莽 返 且 汕 都 营 为 
总 。 
此 jnclude ”mrutl hb” 


oj Thitffloat x ] flea yy ] floar sibg int rdatf josrsCi ftcatia[ ， 


inr Ima，flcar * <* covary 和 oat * ci 坟 xunesytfioat ,float [ into)) 


秒 定 : 志 数 据点 x[j. ,ngat_,y-,， ndat], 行 忆 的 如 隆 尖 Ia signda 否 籼 ,用 求 好 最 小 址 的 方法 聊 池 茶 展 巡 站 | 
na] 系数 占 企 部 或 基尼 系 数 , 这 双 数 利 坟 数 ii 
ra] 中 于 堆 值 演示 可 a 由 这 些 分 划 是 圭 要 拟人 管 : 亲 检 由 家 本 中 些 分 量 诬 该 保持 认定 村 放 短 全 必 村 弃 防 
返 阿 眉 兴 由 .ma 在 一 chisq 以 及 协 卢 冀 息 了 frovar' 1 . 1 ma .参数 保持 志 让 下 
必须 提供 … 个 甬 数 程序 funcskxyaf:nc,mal, 它 这 可 在 -xx 处 演 咎 民 rna 个 其 恒 数 值 访 
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void covartffloat wwCovar，int ma，inf 1a[]，iot mtit  ， 
Yeia Cau55j (ELOat 市 有 inTE 卫 ，f1Dat 本 4O， int my 

int :,]j, 必 ,1 ,四 ,mmfitsDi; 

15oat ?m,at:sSiim,SiEg2Zi ,wbet,3afunci 


beza=matrixr(1l ,ma,1l,1); 
afunc=vaectortT,Da) 
forz (j=1iJj<=mai j++) 
if 《ia[j]l) mfit++; 
i kmfit 2 0) RTerTOTT 1]fit: D9 Daramaters tf he fizterd') 
Tor 《j=1;J<<afit;j+rt) { : 对称 1 钙 属 宴 始 赋值 
Tor (Km1;X<safttig++) cc7ar[j] [xy=0.0， 
beta[j][i]=0.0i 
} 
far (i=1itzc=ndat;i2+y) 攻 半数 撕 循 不 以 累积 计算 正规 方 程 的 条 数 


[sfuncs)[x[i] ,afunc ,aa); 
ym=y[i; 
if 《mfit < ta) 【 排除 对 拟人 台南 数 已 若 训 分 的 依 辆 站 条 
for 〔j=11j<emaij++》 
if (!iaf]) 和 ~= a[jj*afunc[j]i 
了 
sig2i<t.07SQR(s1g[1]) ; 
for {《j=0,1=1i1<=mai2++) 并 
《ta[I]) 
wkeafuuhc[fl]wsig2i7 
for 〔j++,XeO,mzsl ;<=]1i9++)》 
if (ia[fm]) <ovar[j] [++k] + 叶 waftnc[o]: 
beta[jj[i] +s* ymaewt: 
】} 
} 
for 〔〈j=2311c=mfit;i i++》 要 据 对 称 忻 填充 对 角 线 以 上 上 本 全 
Tor (kx=li;K<j:k++) 
CovarEk] [j] =covakrtj] [k] ， 
gautsjtcovarsmtit betal)) 和 阵 求解 
人 or 〔jr=0,1e131<=amail++) 
:if 【〔ia[l]) a[1j=betaL++j: [1] 1; 适合 系数 = 的 部 分 解 
“chis 中 0.0; 
topr (i=1iic=ndatii+r4) 1{ 求 牛 合 攻 碾 值 
(efuDnc6)fx[i] ,afunc ,ma) ; 
for 【sup=0.0,j=1;j<=oai;j++) sun += a[jj+afunc[j]; 
wechjis 可 -= SQRILyLi -sumy7siE[i]); 
} 
COVSITTYCOVar ,功名 ,Ia if] 1 将 执 方 美 抵 竹 扑 序 成 拟 合 系 娄 的 丰 实 量 序 
free_Vvectorfafunc ,1,Ia)》; 
free _matTrix(beta,1.aa,1,1)i 


本 


上 面 程序 中 最 后 调用 冰 数 eevsrt 的 目的 是 扩 展 协 方 关 答 阵 为 maX ma 的 协 方 区 年 阵 . 
根据 正确 揭 行 号 和 列 导 排 列 , 使 “冻结 "的 变量 的 方差 和 协 放 差 发 0， 
冰 数 covsrt 如 下 。 


凸 decfinc SWAP(ashb) {fswap 一 4e])ifa) 一 (bitgb) 一 swap;) 





Yoid covsrttgfloat x* xcovary inr ma，int ial_ ，int mft) 
在 存 侍 器 中 扩展 协 方 交手 阵 covar, 以 全 考虑 导 些 被 保 尘 国 宗 的 萝 斤 :1 计 记 者 . 返 莫 协 坟 差 为 零 :， 
iny ijvky 
flosr swapl 
[or 0 一 tnht 十 ] 5 一 ta 缮 十 十 ) 
jar 人 一 13j 拉 一 i 刘 二 十) covarLi 才 这 一 covEc Li 训 一生 
和 一 mi 
for [一 maij>>-=33 一 一 外 
让 《iafj]{ 
[er (一 1 和 过 一 tna 和 一 十 ) SWAP(euvar[D kj]covar[ 襄 [ 半 )》 
for(i 一 1;j 所 一 maii- 二 ) SS 多 APIecaovarLkj」 Lilcevarl jjLi_) 
一 一 


15. 4.2 运用 奇异 值 分 解法 求解 


在 某 些 情况 中 ,正规 方程 对 于 解 次 最 小 二 乘 同 央 是 完全 足够 的 .但 是 ,在 很 多 情况 下 , 正 
规 方程 非常 接近 坷 异 性 .在 解 线性 方程 时 经 常会 么 ，” 零 主 元 素 ( 例 如 在 gaussj 中 ) ,在 这 种 
情况 上 ,将 得 不 色 任 何 解 。 或 者 对 能 辜 到 一 个 非常 小 的 主 元 素 值 ,在 这 种 情况 上, 拟 合 的 参数 
只 将 非常 大 , 太 灵 敏 而 目 不 稳定 ,以 致 在 对 拟 合 函数 进行 估计 时 就 不 可 能 得 到 精 傅 解 。 

这 种 情况 为 什么 会 发 乍 呢 ? 既 因 在 于 作为 一 个 实验 者 ,你 不 得 不 重 认 ,数据 不 能 清楚 地 
将 所 提供 的 两 个 或 多 个 基 画 数 区 分 并 .如 果 两 个 这 样 的 函数 ,或 者 函数 的 两 个 不 同 的 组 侣 ， 
恰 匡 它们 对 数据 能 进行 -- 样 好 的 或 -- 样 坏 的 拟 合 -- - 风 矩 阵 [aj 不 能 分 辨 它们 ,使 两 列 或 两 
行 洛 全 重 杰 ,形成 奇异 值 ,具有 数学 议 抽 意 味 的 是 在 最 小 二 乘 方 问 题 中 , 超 定 的 (数据 点 大 于 
参数 个 数 ) 和 久 定 的 (存在 参数 的 一 义 性 组 人 台 ) 同 时 存在 :所 这 还 只 是 通常 情况 而 已 .在 复杂 
问题 中 ,这 种 二 义 性 很 难 预先 注意 到 - 

现在 考虑 奇异 值 分 解法 ,这 将 需 重 温 第 2. 6 节 中 的 内 容 , 这 里 不 再 重 述 ,在 超 定 杀 统 的 情 
况 下 ,SVD 将 得 出 最 小 二 乘 方 意义 下 的 最 佳 近似 解 ,参看 等 式 (2, 6. 10) 。 那 正 是 我 们 所 柜 要 
的 .在 欠 定 系统 的 情况 下 ,SVD 得 出 一 个 解 , 它 的 值 ( 对 于 我 们 来 说 就 是 ax 的 值 ? 在 最 小 二 
委 方 意义 下 是 最 小 的 ,参看 等 式 (2. 6.8) 。 这 同样 也 是 我 们 所 要 的 ; 当 某 些 基 本 数 的 组 全 和 拟 
合 不 相干 时 ,SVD 使 这 些 组 侣 得 出 一 些小 的 无 害 的 值 ,而 不 是 上 升 为 脆弱 的 无 结果 的 盛 穷 
大 。 

用 设计 妊 阵 &( 等 式 (15.4.4) 和 加 量 b( 等 式 (15.4.5 力 的 形式 ,在 (15. 4, 3) 式 中 求 字 的 
最 小 值 可 写 为 

求 a 使 得 叉 = ,4 a 一 bi 取 最 小 值 《15, 4, 15) 
和 等 式 (2. 6. 9) 相 比 ,我 们 可 以 看 出 这 恰好 是 程序 sydemp 和 sybksb 所 要 求解 的 问题 .由 方 
程 (2. 6. 12) 所 给 出 的 解 可 重 写成 如 下 形式 ,如 果 根 据 等 式 (2.6.1): 将 口 和 立 引 入 A 的 
<- 572 。 


SYD 分 解 中 ,部 同 sydemp 咱 的 上 所 计算 那样 , 则 设 问 量 Us l 好 表示 开 的 冤 这 
一 列 都 足 长 度 为 六 萨 向 量 ); 还 设 向 熏 Yo 好 衣 示 允 的 一 列 (等 网 是 医大 叶 
的 向 量 ), 则 最 小 二 屁 方 问题 (15. 4. 15) 的 解 (2.6.12? 可 写 为 
a =- ee (3.4.17， 
其 中 ve 如 第 ?7. 6 节 中 所 示 ,其 由 svdemp 所 计算 的 奇异 值 . 
万 程 (15, 4, 17) 表 示 拟 全 参数 as 荐 Y 之 腊 向 草 的 线性 组 台 。 其 系数 为 U 之 列 问 草 和 娄 
据 之 坟 重 向 基 (15. 4,5)? 的 点 积 .已经 让 时 氢 合 和 效 数 鸭 标准 误 苏 (不 严格 邮 说 :可 能 的 误 黄 ) 也 
是 Y 列 向 量 的 线性 组 合 ,尽管 这 个 证 明 超 出 了 我 们 现在 所 讨论 的 范围 ,事实 上 :等 虑 (5 
17) 吕 写成 呈现 出 这 些 误差 的 丈 式 : 
| 定 iv 二 yw 二-… 土 直 Ya .4.18) 


在 这 里 ,每 个 十 只 后 面 是 一 个 标准 偏 益 . 今 人 迟 讨 的 是 ,尽管 分 解 成 这 种 形式 ,这 些 标准 篇 闫 
是 袖 互 独立 的 (不 相关 的 )。 氏 此 它们 可 以 利用 于 方 根 形 式 加 在 一 起 .以 后 我 们 将 傅 看 到 向 苦 
V 是 槐 合 参数 a 的 误差 权 款 的 证 辅 ( 看 第 15.8 节 ). 
拟 合 参数 w 的 方差 由 下 式 给 出 
AN、 


4 
ax(o) 一 人 二 人 人 > La3. 4 19》 


了 = 汪 f=1] 


本 
加 
结果 应 该 和 式 (15. 4. 147 等 价 。 册 一 料 , 对 于 雪 方 此 的 公 趟 应 该 吉 不 惊 证 ,这 里 我 人 
人 


人 号 | 


Coy(Ceivak) = 和 《15. 4 20) 


在 证 论 这 个 小 节 时 ,我 们 曾 提 到 由 于 遇 到 堆 主 元 ， 正规 方程 无 效 .但 是 到 现在 我 们 太 没 
有 说 明 SVD 是 如 何 克 腿 这 天 难 的 .答案 在 于 :如 昌 某 一 奇 漠 值 ww 是 零 ,那么 在 方 种 (15. 
4. 18) 中 它 的 倒数 将 被 个 为 0 ,而 不 是 无 穷人 (和 前 面 等 式 (2. 6.7) 所 讨论 的 相 比 )。 这 相当 
于 给 拟 合 参数 a 加 一 个 零 倍 基 函 数 的 线性 组 合 , 谭 不 是 某 个 随机 大 倍数 的 基 上 晤 数 的 线性 组 
合 ,这 些 基 函数 在 氢 合 中 是 退 迪 的 .这 简直 太 奇 妙 了 ， 

还 有 ,如 果 一 个 奇异 值 ww, 不 是 0 轧 是 非常 小 ,同样 必须 定义 它 的 倒数 为 0 ,因为 它 的 
表现 值 可 能 是 人 为 的 售 入 误差 ,而 不 是 -个 有 意 闵 的 数字 .一 个 似乎 合理 的 问题 是 “ 怎 祥 小 
的 程度 才 算 是 小 值 ?" 在 本 节 , 我 们 认定 所 有 的 奇异 值 满足 它 和 最 大 奇 芥 值 之 比值 小 于 机 器 
精度 < 的 N 倍 。( 你 可 能 煤 问 v 立 或 者 某 个 常数 ,而 不 是 N 做 为 倍数 更 好 ,这 就 开始 涉及 与 
硬件 有 关 的 问题 了 .。) 

还 有 另外 一 个 晨 央 使 我 们 处 理 甚至 旦 附加 的 青 异 值 , 这 些 奇异 值 术 大, 以致 于 伟人 入 误差 
毫 无 影响 , 奇 工 值 分 解法 能 使 用 户 鉴别 出 ,对 减 小 数据 集 的 迷 值 作用 不 大 的 那些 变量 的 线 
性 组 合 .对 这 些 奇 异 值 的 处 理 就 能 极 大 地 诚 小 系数 的 可 能 误差 ,而 对 最 小 值 礁 的 增加 却 可 
以 忽略 。 在 第 15. 6 节 我 们 进一步 讨论 如 何 鉴别 和 处 理 这 些 情 况 .在 下 面 的 程序 中 ,可 能 发 生 
这 和 神 处 理 的 奇异 值 点 将 被 说 明 。 

一 般 说 来 ,我 们 建议 读书 尽量 使 用 SVD 方法 , 丽 不 用 正规 方程 .SVD 的 唯 -- 林 足 在 于 
它 要 求 额 外 大 小 为 Kx 的 数组 来 存储 整个 设计 矩阵 ,这 些 存 婧 空间 被 第 陡 U 重新 写 过 。 
。 573 。 


SVD 还 更 求 存储 MX 的 官 阵 V. 代 这 是 四 来 代替 在 正规 上 方 种 中 同样 太 小 的 系数 盾 几 . 
SVD 比 解 正规 方程 明显 地 要 慢 ; 但 是 它 的 最 大 优点 ,好 它 永远 不 会 无 效 (理论 上 ,这 就 瞻 证 
了 它 在 这 行 环 度 上 的 不 足 ， 

在 下 面 的 香 序 小 ,矩阵 usy 和 间 其 w 砷 为 上 作 空 间 的 输入 : 痢 题 的 刘 辑 尺度 由 hda-a 个 
数据 点 和 ma 个 基 晤 数 (也 即 na 个 拟 合 参数 ?决定 .如 果 只 关心 拟 合 参数 a 的 值 , 则 区 出 鸡 
uv,w 所 包含 的 信息 训 励 用 处 .如 果 要 得 到 拟 合 参 数 的 可 能 误差 ,对 保存 它们 的 依 。 
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共 define TDL 1,.0e 一 三 


void swvdfitffhoar x[], floar y[ ，ftoat sign[_，int ndqara ，?joaf al _，int ma， 
float * *uy Eloar * *vvfloarw ,Jiloat xchtsy，voidts <funesygnoat， Tioar[ int) ) 
第 证 -组 数 关 点 x[1 ,ndats 及 YL1. :dara :至 们 散 标 准 益 出 > 让 1. .2gatz] 给 出 ,用 求 她 展 小 攻 的 克 法 
巧 诸 和 axafun crtzl 的 爱 数 a[1.. maj. 在 这 亚 我 们 利用 近 降 ns 采用 奇异 值 分 解法 解 ndata 个 数据 . 1 
全 方 入 ,下 如 第 2.9 节 所 述 , 数 刀 ui.rdatt ns.ma 1.ma 和 wLlvrral] 为 略 入 提供 村 作 守 H: 在 各 
出 对 , 它 杂 定 文 了 去 巡 值 分 解 , 芳 且 可 用 来 得 当 协 放 京 各 阵 .得 宁 返 回 仁 是 ma 个 拟 合 参数 a 世 及 闪 介 =hiaa- 者 子 体 
月 疹 必 所 标 供 一 个 释 庄 funcstxsfuncsnay, 记 的 返回 值 总 在 一 x 处 出 mr 个 基 蚌 绍 ! 拟 所 得 的 也. 人 存 艾 十 起 纪 ， 


[unc 1 .ma 






void svbksb(float *zsn，float 上 [] ，float +sv，int 卫 。Int nn，float br ， 
Loat x[] ); 

void svdcop(iloat a，int 四 ，int 了 float M[] ，f1oat *av]i 

int jii; 

了 loat wax,tmp,thresbh,sumrb,yafunci 


b=vector(1 ,ndatE) ; 
atunc=Vvector(1l ,az] ; 


for {i=1lii<=<npdataiI++) 累积 计算 拟 合 师 孟 的 系数 ， 
《funcs)tx[i] ,afunc,ma)i - 
tmp=1.0A6ig[i]3 
tor 【j=1;j<=amaij++) ua[i][Lj ;=atfunc[jj*tap， 
b[i]e=y [ 衬 ] *tmpj 
svdcapfu,ndataymaywyv] ji 奇异 逢 分 解 
maxwO ,0i 处 再 这 愉 值 在 标题 说 明 中 昭 定 TOL 由 此 
foF 《j=tirj<=maij++) . 处 起 
if (rt] > wzrax) wmaxsw[j]; 
threbshaTDOLewmax; 
Tor (j=1ij<=maij++) 
if (w[ 订 “thresh) w[jj<0.0; 至 此 
avbksbfkuiwv， ndatasmay bia)i 
?chi5q=O.0; 针 算 chi- 半 方 信 


for 〔i=dii<=ndataii+y)》 芭 
(sfuncs》(X[i] afunc ,mm 加 ) 
for (sudmr=0.0,j=1;j<emaij++》 sum += aa[j]*afunc[j]: 
*+Chisq + 《tmp=m(y[t]-aum)Asig[i] ,tapwtop) 3 


fa6_vectot (aftDC， LT，ma] ; 
fxraa_yector(b,1l,ndatal) ; 


由 工 面 程序 所 得 的 年 阵 y 和 向 量 w 将 输入 下 吾 的 短程 序 ,就 马上 得 到 所 合 参数 a 的 方 
差 和 和 协 方 部 ,方差 秀平 方 根 即 标准 差 .此 程序 是 对 等 民 (15.4. 20) 的 直接 运算 ,同时 遵从 约 
定 * 等 于 0 的 奇异 值 点 在 拟 合 中 已 经 分 辨 出 来 并 且 作 了 处 理 。 


有 jnc:ude ”nruril- bb” 


"874。 


vaGid sydvaz ffloar > win lin oat wii iloat = ovmy) 
尖子 订 算 穆 户 sedfit 所 得 的 na 个 拟 侣 各 笋 的 舟 广 洪 和 上 bn 有 35pa 时 下 调用 此 各 司 : 济 汉 入 梅生 Se@ 


全 竟 箱 出 续 果 ,和 拒 朴 1 rna7T om 所 区 pa 输入 村 生 导 









{ 
int ki 
有 pa sum yx# wfii 
1 一 vecforfl ma 上 
For Ortec Ta 一 》 1 
ti 站 0. 人 ni 
和 《wwDi )》 wii 一 上 ww 
} 
fer 和 一 人 二 ma 二 一 -1 计算 苏 记 差 责 孟 站 环 4. 255 和 网 
for (一 1 和 := 一 和 
fear (um 一 站 kk< =matik 一 T) up T 一 Ti evTiiTk swrifk ， 
cvm[iD 一 cemlol ii sum: 
} 
frse -veetDrfwti,] ,maj: 


1S.4,3 例子 


提醒 注意 的 是 , 某 些 明显 的 划 线 虱 隔 题 可 以 稍 扔 变形 别 成 为 线 岂 的 。 例 站 ，… 个 玫 右 两 
个 参数 上 和 户 的 指数 函数 模 记 
7) 一 GexXDI 疡 rz 二 
可 改 把 为 
lop[Y(zr) = < -2 区 
它 关 于 参数 < 名 儿 是 线性 的 (当然 必须 提醒 注意 ,这 种 变换 不 能 完 灼 地 将 高 期 误 其 转 近 疏 
再 请 注意 那些 “ 井 和 参数? 情 访 ,如 忆 下 式 中 
VC EXPC--- 内 一 了 54 237 
参数 和 < 实际 上 是 不 可 又 分 的 :这 是 一 个 砷 党 好 的 事例 显示 正规 方程 和 SVD 的 区 别 . 正 
规 方程 将 硕 到 奇异 值 (无法 解决 ) ,而 SVD 将 产生 起 奇 灵 值 .SVD 将 人 恨 据 * 最 小 _ 背 方 "的 班 
在 & 和 人 之 局 建 立 -种 平衡 (或 者 ,更 倾 癌 寺 通过 取 对 数 后 得 到 它们 等 价 的 线性 档 型 ;， 人 各 
是 -一 这 对 于 SVD 无 论 在 何 时 给 出 零 奇 异 值 帮 是 正确 的 一 -我 们 建议 最 好 还 是 通过 分 盾 
鉴别 出 基 函 数组 中 的 退化 所 在 处 , 阁 在 基 瑚 数组 中 敞 出 适当 的 删除 。 
于 面 是 区 求 几 户 所 提供 穆 邮 funes 的 两 个 事例 ,第 -个 例 和 非常 一 般 , 用 一 组 数据 氢 全 
普通 的 多 上 项 式 。 
void fpolg(float xy tloat pbL inr ap1 
个 阶 数 为 np - 1 次 才 项 式 的 扩 人 台球 证 , 尼 站 的 系数 让 在 攻 半 5 .op 
jnt 1; 
P[J -一 1. 如 
for 人 一 2 一 PP 和 一 十 ) pi=pIj 1] xi 


第 . 例 于 稍微 有 点 特 赐 , 它 是 用 -组 数据 点 拟 侣 癌 --1 阶 的 勒 让 德 多 项 起 。 





void [gcfieat xysfloat 6L[]，imt nm》 
用 如 同 第 5. 5 节 中 的 递 浴 关系 进行 基 目 ,得 nl 次 勒 计 息 多 所 式 中 的 梳 合 哥 序 . 


nt 1 
fioat twox，f2， fl1， qi 


BlLL1L 一 1.0; 
DLL2 一 xi 
i (nl 全 2 
TDX 一 2.0HXi 
{2 一 xX) 
d 王 1.01 
for (0 一 3 和 jj 所 一 ni 十 二 
电 王 d 工 十 ; 
上 2 十 一 Hwoxi 
p 上 六 一 (下 *D 站 一 二 一 = pl 一 绿 )7d; 


上 
， 


15.4.4 多 维 氢 合 


如 果 要 测量 的 单 变量 y 是 多 个 变量 的 函数 一 一 例如 ,变量 为 x 向 量 ,那么 基 恩 数 将 是 
个 让 量 Xi(x，….…XxGx) 的 函数 , 竺 优 值 函 数 现 在 是 


三 Si AR 
在 过 字 E | 《15. 了 24) 





前 面 的 所 有 讨论 都 不 变 , 只 是 z 被 部 代 赵 。 实 际 上 ,如 果 能 容忍 程序 的 切割 ,由 可 以 直接 用 上 上 
面 程序 ,而 不 加 任何 改动 :在 lfitt 和 sydfit 中 叭 -要 用 到 的 教 组 x「i] 中 的 每 一 元 素 郡 返回 
到 用 户 提供 的 程序 funs , 尼 必 将 给 出 在 那 点 的 基 函 数 的 值 .如 果 在 调用 lfit 或 sydfit 前 使 x 
人 一 ii 并 独立 地 将 数据 点 ( 妃 就 是 全 局 变量 ) 构 成 的 真实 向 量 值 提供 给 funcs, 则 funcs 就 能 
在 无 始 它 的 工作 之 前 电 虚 术 的 x[i] 变 为 真实 的 数据 点 。 


15,.5 非 线性 模型 


我 们 现在 考虑 ,模型 和 M 个 未 知 参 数 集 四 疏 一 1,2，..，M) 之 问 是 非 线性 关系 的 拟 合 ， 
我 们 使 用 利 前 一 节 相 同 的 方法 ,也 就 是 定义 闪 忧 值 洒 数 , 通 过 求 它 的 最 小 值 确定 最 佳 拟 合 
参数 但 是 在 非 线性 关系 时 , 求 最 小 值 必 须 选 代 进行 .对 参数 挨 定 一 个 初始 值 ,我 们 设计 - -个 
改善 这 个 初始 实验 解 的 过 程 .这 个 过 程 接 着 不 断 重复 进行 ,直到 祝 储 不 再 增长 (或 者 不 再 明 
显 增长 ) 为 止 。 
这 个 问题 和 我 们 在 第 十 章 已 经 解决 的 求 一 般 非 线性 函数 老 小 化 的 问题 有 何不 网 呢 ? 表 
面 上 有 不 同 ,全 不 是 完全 不 辣 : 当 非 常 接近 极 小 值 时 ,我 们 着 望 六 函数 趋 近 于 二 次 型 ,我 们 
可 以 将 它 写 为 
xD wy 一 4a 十 于 Da 在 计 训 记 


其 中 心 是 长 度 为 好 的 向 量 , 而 了 是 MX 对 的 矩阵 (和 方 称 (10. 5. 1) 比较)。 如 果 这 种 近似 
"576，。 





是 一 个 很 好 的 近似 , 则 我 们 知道 怎样 从 当前 的 实验 参数 泪 au 步 跳 到 执 小 慎 总 aes 也 就 
是 
2 一 一 2 

(各 优 410.7.4) 相 比 )。 

另 - 方 商 : 式 (15.5.1) 对 于 在 av 处 进行 极 小 化 的 区 数 形状 二 一 个 比较 其 的 局 域 近似 . 
在 这 种 情况 下 ,我 们 首先 要 做 的 是 , 沿 尔 梯 麻 的 方向 走 -- 步 ,如 同 在 最 速 干 降 法 中 那样 (第 
10. 6 节 )。 换 言 之 , 即 

ae 一 2 一 党 数 入 和 全 如 (ai 1 5 90. 3 

其 中 常数 要 岂 够 小 ,以 保 让 水 仿 离 上 - 降 方 癌 

为了 利用 式 115. 5.2) 或 者 (5.5.3) ,我 们 必须 能够 计算 在 任意 参数 集 a 上 无 苑 数 的 境 
训 : 为 了 利 甩 式 (15. 5. 2) ,我 们 世上 必须 计算 矩阵 D, 它 是 在 a 取 任意 值 时 , 寡 优 值 通 数 的 一 阶 
寻 数 低 阵 ( 海 赛 续 阵 ? 

这 中 所 讨论 狼 和 第 十 章 的 重要 区 刚 在 于 :在 这 里 我 们 没有 直接 计算 海 赛 包 阵 约 方法 -我 
人 只 能 估算 需要 慨 小 化 的 函数 以 及 (在 某 些 傅 况 上 下 ) 它 的 梯 关 :因此 我 们 必须 求助 于 代 方 
法 ,不 仅仅 是 因为 我 们 的 函数 是 非 线 性 , 丙 且 是 为 了 我 们 要 构造 海 赛 矩阵 的 内 容 . 第 10.7 节 
宴 第 10. 6 节 中 已 提 到 两 种 厅 同 构造 这 些 内 容 的 方法 。 

在 这 里 ,情况 要 简单 得 多 .我 们 精确 地 刊 道 刀 的 形式 ,因为 它 建 立 在 我 们 自 乌 所 经 规定 
的 模型 函数 的 基础 上 ,因此 海 赛 (Hessian) 矩 阵 对 我 们 来 说 是 已 知 的 .只 要 我 们 愿意 ,我 们 便 
可 无 约 东 地 采用 等 式 (15. 5. 2)。 使 用 式 (15. 5, 3) 的 唯 -- 硕 因 在 于 , 式 (15. 5. 2) 不 能 成 功 地 改 
萝 拟 合 , 并 标志 着 式 (15. 5. 1) 做 为 一 个 局 吉 近 似 的 不 可 行 。 


15. 5. 1 ”梯度 和 海 赛 矩阵 的 计算 











需要 拟 侣 的 模型 是 
一 了 (5)》 (15. 5. 4 
万 优 什 本 数 是 
入 (a) 一 | | (15.5,5) 
籽 对 参数 a 的 梯度 ， 在 取 补 小 信 时 为 0, 它 的 各 个 分 量 是 
纹 =- [Se 0 和 CCti8)] DCziia) 二 
了 D3 2 
Re 
寻 了 [ay(zaa) ay(Cziia) 3 y(zi3) ， 
Qt9U 二 下 dal 一 [一 ?zeft8)]- 3 ] 《15.5.7) 
可 以 通过 如 下 定义 条 去掉 因子 2 
二 工 3 和 莹 玉昌 
应 关 一 了 or 二 六 (15. 5.8》 


和 式 (15. 5 2) 中 的 D 的 关系 是 [o]= 二 D ,利用 式 (15， 5.8) 可 以 把 式 (15, 5. 2) 量 写成 一 组 线 
性 方程 组 
7T 





了 


1 2 本 
aar na 一 肥 《3 


做 
这 个 方程 组 解 出 增 量 各,, 和 当前 的 近似 福 吉 给 出 下 一 步 的 近似 。 在 最 小 一 竹 方 问题 总 文献 
d, 算 阵 La 通 常 被 称 为 曲率 拖 阵 , 等 于 海 赛 吊 阵 的 .分 之 一 。 

等 式 (15, 5. 3), 即 最 速 下 降 等 式 ,可 写 为 ~ 

230 一 常数 当 碳 115,.5. 1D0) 

注意 , 海 赛 第 阵 (15. 5.7) 的 分 量 su 依 束 于 基 函 数 对 它们 参数 的 一 阶 及 二 阶 导数 . 某 些 
处 泽 过 程 常 常 示 加 评注 地 忽略 了 一 阶 导数 ,我 们 也 名 格 一 阶 导 数 ,但是 稍 可 评 江 喇 者 这样 
做 ， 

当 式 (15, 5.6) 中 的 梯度 依赖 于 导数 g ya 时 ,一 阶 导数 便 发 生 了 ,因为 十 习 度 近 微 分 
必定 包括 象 #yiyaawaax 这 里 的 项 , 当 二 阶 币 分 项 是 0 时 自然 可 以 去 掉 ( 例 如 在 方程 615. 4. 
8) 的 线性 情况 下 ) ,或 者 和 一 阶 导 数 项 相 比 足够 小 羽 致 于 可 以 忽略 ,在 实际 应 用 中 :还 海 另外 
一 个 因为 小 而 可 忽略 的 可 能 情况 :在 方程 (15.5.7) 中 , 乘 以 二 阶 导 数 的 项 是 .wa 
对 寺 一 个 成 功 的 模型 来 说 ,这 - ~ 项 应 当 奶 每 - :点 的 随机 测量 误 益 .这 个 误 盖 可 正 可 痢 , 并 开 
一 般 应 该 和 模型 无 关 。 因 此 , 当 对 ;累加 求 和 时 ,一 阶 导数 项 就 相互 抵消 了 上 。 

在 拟 合 模型 比较 差 ,或 者 在 襟 型 数据 中 ,不 存在 道 讨 反 号 补 民 而 抵 清 的 数据 点 时 , 若 殷 
一 阶 导 数 项 包括 进来 , 则 会 导致 不 稳定 性 ,从 夫 在 起 .和 式 们 将 : 雪 用 下 式 作 为 sw 的 定义 

作 
交 站 | 王 守 定 | (15. 了 .]i1: 
这 个 表达 式 和 它 在 线性 问题 的 同类 项 (15.4.8) 非 常 村 似 . 必 须 明白 [ao] 是 元 足 轻重 的 . 它 对 
于 参数 a 的 最 终结 果 澡 无 影 啊 ,只 是 影响 匠 得 此 结果 的 达 代 过 程 。 太 取 最 下 值 的 条 件 , 即 村 
所 有 的 大 存在 记 =0, 是 和 [ea] 如 何 定义 训 无 关系 此 ， 


15.5. 2 勒 昌 伯 格 - 马 阔 特 方法 


在 勒 温 伯 格 (Levenberg ) 的 一 个 早期 建议 的 启示 下 , 马 阀 特 (Marquardt) 提出 了 一 个 
非常 巧妙 的 方法 , 它 是 在 逆 海 赛 矩 阵 方 法 (15. 5. 9) 的 极限 和 最 速 下 降 法 (15.5. 10) 之 问 进行 
平滑 训 和 .后 一 方法 在 远离 最 小 值 时 运用 , 当 接 近 最 小 值 时 它 逐 渐 切 换 到 前 -一 方法 .这 种 勒 
温 伯 格 - 马 阔 特 方法 (也 称 马 联 特 方法 ?在 实际 应 用 中 非 带 奏效 ,并 且 已 经 成 为 非 线 性 最 小 一 
生 方 问题 的 标准 。 

这 种 方法 基 十 两 个 基本 的 但 是 非常 重要 的 洞察 .考虑 方程 (15. 5, 10) 中 的 "常数 ”, 它 应 
该 是 什么 ?大 小 数量 级 有 多大 ?由 什么 来 确定 它 的 尺度 大 小 ?在 梯度 中 没有 关 十 这 些 答 案 的 
任何 倍 息 。 梯 度 只 说 明了 一 个 披 度 ,而 没 有 岗 明 这 个 坡度 延伸 到 多 远 。 马 痢 特 首先 润 察 到 , 海 
赛 矩阵 航 各 个 分 量 , 尽 管 在 一 些 精 确 场 合 是 无 用 处 的 ,但 节 对 问题 的 尺度 大 小 及 数量 级 提供 
了 一 些 信息 。 

量 六 是 无 量 网 的 ,也 就 是 说 它 是 一 个 纯粹 的 数 ;这 可 以 从 它 的 定义 式 (15. 5.51 中 时 显 
看 出 。 另 一 方面 ,8 是 由 1/us 量度 的 , 它 很 可 能 有 量 钢 ,例如 为 cm ,或 者 千瓦 小 时 .或 者 其 
它 形 式 的 单位 (实际 上 : 访 的 各 个 分 量 可 能 有 不 唇 的 量 网 ' 7。 因此 在 如 和 6oas 之 辣 抱 比例 常 
数 必须 具有 量 岗 喉 . 检 查 - :下 [oj] 的 各 个 分 量 , 会 发 现 只 有 一 个 基 明 显 地 具有 这 种 量 岗 , 那 
就 是 1/au，, 即 对 间 元 的 便 数 .因此 这 些 对 角 元 确定 了 “常数 ?的 只 庭 .但 图 这 种 尺度 可 能 本 身 

-578 。 








就 很 大 , 因 进 我 们 引 和 人- :个 人 为 的 因子 人 ,而 将 它 险 以 常数 (无 量 钢 ,并 尽 避 能 痢 >1 
以 减少 步 长 .换言之 ,四 下 式 和 代 蔡 方程 (15, 5. 107， 


ba 一世- 局 或 op 二 尼 [5.5.12) 
上 式 要 求 ;是 正 的 ,这 可 以 由 定义 式 (15. 5. it1) 保 让 -一 这 也 是 采用 式 (15.5.1]) 的 另 一 个 


马 阴 特 的 第 二 个 洞察 在 于 ,等 式 人 15. 5. 12? 和 (15.5.9) 可 以 结合 起 米 , 如 果 我 六 按 是 如 
下 规定 定义 一 个 新 垂 由 an 
ai = wiiL 十 必 


人 3 5 13》 
站 三 QH (上 天 下》 
那么 式 人 15. 5. 127 和 (15.5.9) 拘 可 用 下 式 代 替 
AT 
公 ; ai bar 一 闷 (15,. 3. ]4J) 


4 

当 、 非 常 大 时 ,和 矩阵 w 强制 成 以 对 角 元 为 主 的 ,此 时 等 式 (15. 5. 14) 和 (15,. 5. 12) 包 平等 全。 
另 一 方面 , 当 4 趋 近 于 零 时 ,等 式 (15. 5. 14) 便 回 到 了 式 (15. 5. 9)。 

对 拟 合 参数 a 给 定 初始 值 后 ,我 们 建议 采用 如 下 的 马 阔 特步 聂 

* 计算 奏 (a) 。 

“ 取 一 个 适中 的 入 值 , 比 如 4 一 0.001。 

"《“+ ) 解 线性 方程 (15. 5 14) 矢 到 8a ,并 且 计 算 妇 (a 十 3a) 。 

， 如 果 大 (a 十 Ga) 之 丰 (a), 则 将 扩大 10 倍 ( 或 者 其 它 的 具有 意义 的 倍数) ,下 回 到 ( 

7 

:如果 和 Ca 二 5) 天 从 (a) ,将 4 喊 小 10 倍 , 将 8 十 8 代替 a, 再 回 到 (+ )， 

我 们 还 必须 知道 余 止 选 代 的 条 件 . 收 化 后 继续 进行 多 代 是 不 必 权 的 ,也 是 浪费 的 ,因为 
求 最 小 值 充其量 是 对 参数 a 的 统计 估计 (收敛 的 程度 决定 于 机 器 的 精度 以 及 舍 入 误差 的 极 
限 ) ,正如 我 们 将 在 第 15.6 节 中 所 看 到 的 那样 , 当 基 的 变化 量 一 <1 时 ,在 统计 的 角度 上 人 参数 
的 变化 是 雍 无 意义 的 。 

进一步 ,我们 经 常 发 现 极 小 值 位 于 一 个 复杂 药 拓 扑 形状 的 平谷 处 ,参数 围绕 此 极 作 值 午 
徊 .其 原因 在 于 马 阔 特 方法 是 对 正规 方程 (第 15. 4 节 ) 的 推广 .因此 它 也 员 到 和 正规 方程 -- 样 
的 问题 , 即 在 极 小 值 处 的 退化 ,由 于 堆 主 元 也有 可 能 导致 的 直接 失败 ,但 可 能 性 不 大 。 更 经 常 
遇 到 的 情况 是 ,一 个 小 的 主 元 将 会 产生 一 个 大 的 补 导 而 被 排斥 ,的 恒 随 之 增加 。 对 于 足够 
大 的 和 ,矩阵 fa 3 完全 是 正定 的 ,不 可 能 有 很 小 的 主 元 ,因此 这 种 方法 的 确 能 倾向 于 远离 堆 主 
元 ,但 付出 的 代价 是 ,在 一 个 下 降 坡度 不 大 的 谷地 处 做 最 速 下 降 ,从 而 使 趋 近 于 最 小 值 比较 
慢 。 

从 这 些 考 虑 我 们 建议 ,在 实际 中 ,在 太 减 少 很 小 是 的 第 一 次 或 第 二 次 时 停止 选 代 , 例 好 
交 绝 对 值 的 减 小 量 小 于 0. 1, 或 者 (以 防 舍 人 误差 阻止 获得 这 个 精度 ) 某 些 分 数值 如 10 :不 
要 在 姑 增 加 的 那 一 步 停止 先 代 :这 只 说 明 1 还 没有 调理 得 非常 合适 。 

一 电 可 接受 的 的 极 小 值 找到 了 ,就 可 以 令 1= 0, 并 计算 年 阵 

IC] 三 [fo 人 15.5. 15) 
如 同 前 而 所 讨论 的 一 样 , 上 式 可 用 来 计算 拟人 台 参 数 a 的 协 方差 算 阵 (参看 下 节 ) 。 
* 579 。 





下 面 的 一 对 闹 数 程序 准确 地 体现 了 目 线 些 参 数 估计 的 世 闪 将 方法 。 程 序 太 部 全 3 直 生 
和 在 第 15. 4 节 中 所 用 的 Jfit 一 臻 .特别 要 注意 的 是 ,人 在 数组 iaf Re 和 
1 或 零 , 它 们 分 别 对 应 于 数组 a7 41. .maj] 中 柜 庶 的 参数 侦 是 需要 被 拟 合 的 ,还 是 需要 识 桂 降 
定 在 它们 的 输入 值 ， 

程序 mrqmin 执行 马 归 特 方法 的 :一 个 近代。 在 第 -一 次 调用 它 时 今 alamda<28. 它 款 太 普 
程序 的 开 妈 .alamds 首先 设 定 后 ,在 这 个 设 定 值 证 的 调用 将 作为 下 次 迭 钦 的 4 币 :a 本 
作为 迄今 找到 的 最 佳 估 计 参 数 以 及 对 应 的 X 返 癌 : 当 你 对 收 伍 程度 注意 时 ,在 进行 如 了 
次 调用 前 令 alamga 为 0. 眠 阵 alpha 和 covar( 在 所 在 先前 的 调用 中 它们 镍 用 作 于 人 空间) 
就 是 收敛 参数 值 的 曲率 算 阵 利 协 方差 . 参 量 alpha.a 和 ehisq 在 两 次 调用 之 加 不 能 步 化 ， 
alamde 除了 在 最 后 一 次 调用 时 设 为 零 外 ,任何 其 世 两 次 调 己 之 间 也 保持 不 变 ; 兴 和 吝 刘 全 宛 
增加 的 -个 步 邓 时 ,chisd 和 和 a 返回 它们 的 输入 值 (最 传 什 ), 钥 是 amada 将 没 回 为 “个 刀 大 
的 值 返回 。 

. 程序 mrqmino 要 调用 程序 mrqcof 用 来 计算 共和 隆 ,xi( 参 看 等 代 15.5. :2 世 和 向 是 号 等 忆 
15. 5. 6 和 等 式 15.5. 8) .在 mrqeof 中 又 要 调用 抽 户 提 和 的 程序 funes(x ,ay,dyda) 刀 用 来 
计算 输入 值 x 二 和 及 a 一 8 时 的 模型 隔 数 值 y 反 》Crra 以 及 微分 向 是 duda 二 5223uk 


其 inclade ”ruti 让 ,有 7 


vcid mtqdmintiloat x[]，fleal y:] ,flosl 3g jef ndrta， floa: al iatia[， 
int mmay toat =# covar toat * *alphs，oat * chisd， 
void 《5# fanes)filoat，float 5 了 oaf #+ for Luoy int》y， flont <atatmnqday 


采用 勒 租 伯 悄 - - 马 冰 符 方法 来 约 化 一 红 萄 担 点 x_1. ,ndata  .y[1 .ndata 各 某 - -函数 氢 合 的 姑 利 ,这 些 数 据点 县 自 
标准 让 汶 sg[1. .ndere], 相间 线 性 明 数 依 条 的 ma 个 系 表 为 aL1. .mo]. 输 入 数组 ia 1 .ma 其 非 零 项 表明 数组 8 和 
它 些 分 最 需要 进行 拟 合 ,而 零 项 表明 3a 中 沙 些 分 长 应 该 惧 持 虱 定 在 它们 的 输入 时; 程序 返回 当前 参 获 1. ru 的 
最 住 报 人 台 值 和 寡 一 chisu 值 . 在 大 多 数 这 代 中 ,数组 wevarrl .ma 1 .njphacl, .ina[l nt 用 放 尖 工作 空间 ， 
用 户 担 供 -个 子 程 应 本数 frcs(xyavyfhsdydams), 它 能 计算 板 合 后 数 y 避 ,六 及 辫 关 于 拔 合 和 数 = 在 :处 钓 导 监 
dydafl. ,ma1, 算 一 次 网 用 时 ,对 参数 4 妖 供 -个 初 娘 猜 铀 值 , 闪 初 巡 赋 值 afatmndas 拓 0 然后 转 aamda 一 ao251): 旭 果 
一 步 成 功 , 贝 | chisdq 变 得 更 小 各 aandu 天 降 到 1717. 姑 果 一 步 失败 ,由 alarmnda 增加 用 10 倍 ,必须 反复 调用 本 丢 字 . 直 
到 这 到达 艇 ,然后 ,最 签 用 alamda 一 Dj 周明 一 次 本 香 诬 , 恒 得 存 covar 1..maj][1.,.ma -中 返 困 协 方差 所 阵 ,a1p2a 返 匠 
曲 认 黎 阵 ,5 所 保 某 固定 的 打数 返回 笃 动 态 卷 >。 


Vold coYeTt(IDWt 中 CoYar ，int ma，int iar ，Iat Ofit)》; 

Did 画 和 0 机 《天 20C 站 直 12t 驴 ， 三 10O8 世 kb， 0t 前 ) ; 

void wrqcof (float x[]，float 了 []，float 8ig[] ，int adata，fLoat af， 
int 4[] ，int Da， 了 1oR 人 pha，f1O8t bt 上 [] ， 节 1ORE 省 Chi 和 G， 
Yol 相 《etuncs)gfloat，K10at [] ，fLoat 中 ，fLoat [] ，tnt))3 

ant ] ,13; 

最 七 生 纪 CC II 蕊 ITit; 

胃 七 有 区 计 C 帮工 人 查看 白 避 这 你 梧 ， 才 肌 华 了 也 机 世人 契 在 加 全 ， 昌 机 轨 也 是 且 


27 (walasada < 0.0) { 初始 稚 倩 
起 十 了 了 全 名 避 攻 OTC( 1 ， 几 且 ) : 
etamVactoKKIL， 卫 ) ; 
amVGCctOTC1 ,ma》 
如 DY 《到 站 夫 tw 吕 下] 于 <mW 瑟 于 十 》 
iz (iaTi]) mgfit44; 
onedasmatrixk1l,ztir, 1,1) ; 
LaBda0 DOl; 
mrqcof(z,y,Sig ,ndata,a,tiana,aLPhasbeta,chitqifuncsli 
gcbisqzK 权 chigo) ; 
?or 〔j=1;jczmaij++) atryii 让 =aci; 


"580。 


for (j=D,1=I;i1<enait++》 攻 通过 增加 对 有 角 孝 ， 改变 线性 化 的 拟人 台 和 矩阵 
i 计 《ia[2i》T 
for jj++ 区 =0,m= 工 ;E<amai;mo++)》 奴 
if (ia[m]) 
kx++ii 


covar[j] [k]=alpha[j] [kx] ; 


} 
covar[J] [j]=alpPha[j][j]*(1.0+ (zatamda)); 
oneda[j] [1] =betaf 林 ]; 


了 

gau5sj(covar ,fit,oneda,1); 年 陡 求 解 

fer (j=1ijc=zfit;ij+ty da[j]j=oneda[j] [1] ; 

证 (>alamda mw= 0.0) 1 - 山 改 鼓 、 计 算 协 方 晨 基隆 
COVSgZYTCOVaT ,加 和 ,ia,afit) ， - 
free_matrcixtonoda,1, fit,1.1)， 
fraae_Vectorfda ,1,ma) 

于 tree-vectDT [Data lmay); 
” free_vactor[atry ,La) 
TettID; 
+ 
for (j=<D,lzl;lx<=mai;l++) 试验 成 功 了 吗 


让 《iaf1-》 atxy[l]=a[l]+da[++j]; 
mrqcef (xs yy，sigvndataavatry ,iavmacovar, daschi6qifuncs)i 
ii fwchiaq < ochisq) 成 幼 则 接收 新 的 解 
中 必 ] afnda 站 .1; 
chigq*(K#chigso) ; 
for (]=0,1=1:1<ema;le+y { 
ii [iarl]) 1{ 
faT 【j++ ,Xa0 , 怪 = 夺 imt=ma;m++) 二 
if 《ia[m3) 革 
Kf+i 
alpha[j] [kx]=covar[jjfk] 


betafj]da[j] ; 
a[1] =atryJl1]; 


} else 1 失败 则 增加 alamda 天 返 亲 


帮 全 LamG 让 二 DO.0i 
#chigqeochiaqi 


注意 其 中 使 用 了 第 15.4 节 中 程序 covsrt. 这 仅仅 是 为 了 将 协 方差 华 阵 covar 重 排 成 所 
有 ma 个 参数 的 顺序 .上 闸 程 序 中 也 使 用 了 以 下 函数 ， 


芳 include ”ntrutil. hw 


void mrqcof(filoat xf]，float y_jfloat sig 门 ，int ndatay fioat a[]，int 记 口 ， 
int ma fioat # * alpha, float berta[ ， float * chisq ， 
Yold《# [uncsjfiloat， float [float xy flosat [utt)) 
本 息 序 被 程序 mmrqmla 而 来 计算 式 (15. 5. 8) 中 线 作 化 了 的 报 各 矩阵 alpha, 和 向量 beta ,以 及 计算 她 。 


int ij,E,1, 四 ,myitcsO; 
季 1oam J7modRE,Sig2i,dy,*dydai 


7dasvector(1,aa) 
for 〔(j<1;jx<saayzj++)》 
IE 《ia[j] fit++; 
for 《j=1;j<=msit;ij++) 攻 (对 称 的 ， 家 始 岩 估 
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for 《k=411k<=jik++) alpha[)]fx]=D.Di 
beta[j]=D.0i 
二 
Cisq=D .Di 
for (id3i<=ndata;irryT 对 上 所 有 数据 稍 环 水 和 
{sfuncSs)(xfti] ,aa 此 ymod dydara)i 
SiE2inml.OACSsig[i]s*sig[i]); 
Gy=yfi] -ynmodi 
for 【jz=0,1sdi1<=aail++》 1 
if (ia[I)》T 
Vwt=dyda[l]*sig2i; 
站 DT 《区 = 口 ,四 =]1 1 工 <= 荆 i 丰 + 十 1 
if 《ia[r]) alphaljjt+d4x] +- mtsdyrdalnm] 
befa[L: += dy#wui 


】 
】} 
过 chisq += qyecdyrsig21; 时 找 7 
上 
for [js<2;j<=mfit;jr+) 直 补 对 称 的 寺 


for 《ke=tik<jik++) alphalk]Lj]=atlFha[]]Uk]; 
Tree_vector(dyda,:i,aa)y; 


15.5.3 例子 


直面 的 函数 fgauss 是 一 个 要 用户 提供 的 甫 数 程 斥 funes 的 示例 .应 用 上 而 的 姐 吝 
mrqmin( 同 时 要 用 到 mrqgeof ,coysrt 和 aussj) 它 训 册 来 扳 合 下 面 的 模型 
到 


-一 六 
yz) 一 和 Bicbx 一 | 二 人 (15.. 16) 
1 人 


它 是 天 个 高 斯 耳 数 的 和 ,等 个 范 数 具有 可 变 的 位 置 ,振幅 和 宽度 ,我们 把 各 参数 搞 瑟 ,天 
CUIEa0o Ex 的 邢 序 存 嵌 。 


坟 Jnclude 所 math.t 人 > 


veid fkauss(float x:、 float ai ,flcat *y、Toat qycal ,int nal 
Se363? 诗 naz3 个 南 斯 明 数 式 (15.35.16) 的 要, 母 个 高 矢 疯 数 的 左 .中 心 位 置 访 及 党 虐 注 续 方 贮 计 aa 中 :0 上 光 
四 一 2esi- 的 = 全 一 3 vnar3: 数组 的 维 数 为 4..na ,dyde1. ,naji. 


int 1 
feat fac,， ex，argi 


+ 一 昌 , 0 

for [i 一 ;< 一 na -1 十 :3 
arg==KX 一 a[i 十 1]》5ali 一 2 3; 
EX 一 4Xh( 一 aT 多 8 HT 民 ) 
fa 一 afcxr2.Dsargi 
+#Yy 一 一 ai sexi 
dyda[i 让 一 ex; 
dyda[i 十 :=fasys[i-- 2 小 
对 yqa[i | 2] 一 fac > argyali - 公 ]) 


15. 5.4 非 线性 最 小 二 艇 方 法 的 更 先进 的 方法 


勤 温 们 格 - 马 阐 竺 算法 可 以 认为 是 ,一 种 异型 -置信 区 域 方 法 应 月 于 在 最 小 二 乘 方 洒 数 
之 硅 听 情 况 中 求 匆 小 值 (参阅 第 9. 7 节 和 参考 文献 [2_) 。 白 摩 瑞 (More) 汪 编制 的 这 类 代码 斌 
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以 在 MINPACKC- 中 找到 ,另外 -种 非 线 性 最 小 二 飞 方 和 法 ,保留 了 我 们 在 蒜 温 伯 格 洁 冰 
特 方法 中 放 耕 的 二 阶 导数 项 ,任何 时 候 保留 这 项 将 更 好 .这 些 方法 被 称 为 "全 牛顿 型 "方法 ， 
并 有 旦 认为 它 儿 勤 湿 伯 - 己 阐 特 方法 更 稳健 ,也 更 复杂 -这些 方法 的 一 个 实现 是 代 厂 
NL2SOL 一 。 
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15.6 被 估 模 型 参数 的 置信 界限 


在 这 一 章 昌 ,我们 已 经 好 几 次 论述 M 个 被 估 参 数 a 的 标准 误差 或 不 确定 度 。 我 们 不 仅 
给 出 了 每 对 参数 之 闻 的 协 方差 公式 (等 式 (15. 2.10); 在 后 面 又 用 等 让 (15.4. 15)、(15, 4. 207 
及 (15. 5.18)) 给 出 了 单个 参数 的 标 牙 关 或 方 益 公 式 ( 等 (15. 2.9).(15.4, 15) 及 (15.4.19》 
式 六 

在 这 一 节 , 我 们 要 更 明确 地 表述 这 些 量 的 不 确定 底 的 精确 含义 ,还 要 对 如 何 定 基 地 估计 
拟 合 参 数 的 置信 界限 进行 深入 的 讨论 .这 个 问题 的 讨论 涉及 到 一 些 技巧 ,甚至 会 感到 - -点 困 
惑 , 西 此 我 们 将 尽 可 能 做 精确 找 述 ,即使 我 们 未 做 秆 何 证 明 

图 15. 6, 1 呈现 了 "测量 ” - 乌 参 数 的 实验 的 概念 性 结构 。 某 些 基本 参数 \ 集 ) 的 真实 值 
ae 只 有 上 帝 才 匈 道 ,实验 也 是 不 可 能 知道 的 . 趴 实 的 参数 是 通过 统计 实现 的 ,如 同 测量 数据 
那样 , 带 有 随机 测量 误差 ,我们 将 用 区 ,标记 数据 集 。 数 据 集 多 m 对 实验 者 来 说 是 可 知 芍 。 
他 或 者 好 用 数据 拟 合 一 个 模型 ,通过 求 好 最 小 值 或 者 其 它 的 技巧 ,获得 参数 测量 值 即 摘 全 
值 ,在 这 申 我 们 用 ac 标记 。 

国 为 测量 误差 具有 随机 分 量 , 纪 to 不 是 真实 参数 值 au 的 唯一 实现 相反 ,存在 真实 参 
数 的 无 穷 儿 个 其 它 实现 ,我 们 可 以 把 它 人 避 作为 " 根 设 的 数据 集 ”, 其 中 每 -组 都 可 能 已 是 --- 组 


测 基 结果 ,但 恰巧 又 不 是 .让 我 们 把 这 些 数据 集 用 纪 必 、 急 o,…… 标 记 。 每 一 个 数据 集 如 果 
实现 了 的 话 ,将 分 别 给 出 稍 徽 有 些 不 同 的 拟 合 参 数 集 au) ,at ，……… 因 此 ,这 些 参 数 集 at 将 


在 所 有 参数 集 a 梅 成 的 M 维 空 介 中 呈现 出 一 种 概率 分 布 . 实 味 测 基 到 的 一 组 参数 ae 旦 从 
这 个 分 布 中 导出 的 一 个 结果 : 
比 ao 的 概率 分 布 更 有 兴趣 的 是 ao, 一 ace 差 的 分 布 .这 个 分 布 和 前 面 的 所 讨论 芒 分 布 所 
不同 之 处 在 于 ,一 开始 它 就 把 只 有 造物 主 才 知道 的 真实 值 考虑 了 进去 .如 果 我 们 知道 了 这 个 
分 布 , 则 我 们 对 于 实验 结果 ao 的 定量 不 箭 定 度 将 无 所 不 知 。 
“583。 








真实 参数 ai* 遂 过 -组 数据 得以 实现 . 邵 愉 注 组 数 搓 拟 合 (观察 ) 正 参数 @- 如 果实 驶 重复 老 
次 , 那 久光 得 到 新 的 数 其 集 和 兰 的 拟人 台 爸 数 伯 ， 


图 15.6.1 来 白 基 本 模型 的 熬 涡 集 的 统计 全 域 


因此 ,我 们 工作 的 目的 是 , 住 下 知道 ar 以 及 不 可 能 获得 无 穷 老 个 假设 的 数据 集 时 , 诸 
找 估计 或 近似 as， ae 的 概率 分 布 的 方法 。 


15.6.1 合成 数据 集 的 蒙特 卡 罗 模 拟 


尽管 测量 的 参数 集 wo 不 是 真实 值 , 但 我 们 可 以 设想 个 趾 构 的 空间 ,在 这 个 空 碌 里 
aioj 是 真实 值 .因为 我 们 希望 我 们 测 莫 的 参数 值 不 要 错误 太 大 ,所 以 我 们 又 希望 虚 爸 空间 和 
au 所 在 的 实 味 空 间 不 相差 太 远 . 特 别 是 ,我 们 希望 一 一 不 ,还 是 让 我 们 假设 一 -在 虚构 空间 
中 au 一 ae 的 概率 分 布 的 风 状 和 真实 空间 中 ac; 一 avwe 的 概率 分 布 的 形状 相同 或 者 接近 相 
同 :注意 我 们 没有 假设 ar 和 aw. 相 等 ;他 们 肯定 不 中 等 .我 们 只 假设 引入 实验 和 数据 分 析 
的 ,作为 ave 函 数 的 随机 误差 变化 不 快 ,因此 ae 可 作为 一 个 合理 的 代替 者 。 

观 在 在 虚构 空间 里 我 们 完全 有 能 力 计算 ac 一 ae 的 分 布 (参阅 图 15, 6, 2) . 当 给 定 一 刀 
假设 的 参数 集 at ,如 果 我 们 对 从 它 产生 我 们 的 数据 的 过 程 有 所 了 解 , 则 我 们 通常 可 以 将 这 
些 参数 的 “综合 ”实现 模拟 成 “合成 数据 集 ”, 这 个 过 程 就 是 ,从 合适 的 分 布 中 取得 随机 数 ( 参 
阅 第 7. 2 节 一 第 7. 3 节 ), 以 使 模拟 我 们 对 十 基本 过 程 和 仪器 中 测量 误差 的 最 正确 理 艇 .通过 
产生 这 些 请 机 数 ,我 们 梅 造 了 一 些 数据 集 , 这 些 数据 集 具 有 和 实测 数据 点 的 个 数 相 等 ,以 及 
和 所 有 控制 (独立 ?变量 的 值 精 傅 好 相同 , 灵 同 我 们 实际 的 数据 集 的 多 ,> - 样 , 让 我 全称 这 
些 模 拟 的 数据 集 为 服 0 2 .根据 怕 造 ,这 些 数据 集 和 at 的 统计 关系 应 该 怡 好 与 数 
据 集 史 m 利 ae 问 具 有 的 关系 相间 。( 若 读者 还 不 知道 怎 伴 允 正在 测量 的 数据 才能 做 一 个 可 
信 的 模拟 的 话 , 请 阅读 下 面 ,) 
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其 深 , 让 每 个 20 ,精确 地 执行 本 柱 的 参数 沽 算 过 程 , 即 巡 最 小 直 法 , 它 与 为 得 纪 参 数 
at 而 对 实际 数据 执行 的 过 理 完 全 相 庆 ,由 此 得 到 模拟 的 测 最 参数 aa :每 个 模 氢 的 
测量 参数 集 产 生 一 全 点 ai acos 模 殷 是 够 多 的 数据 集 和 寻 出 足够 多 的 异 氢 征 浏 敬 歼 , 然 
后 ,就 可 以 在 好 维 空间 中 尊 出 所 期 望 河 委 座 分 右 ， 

事实 上 :入 们 以 这 种 方式 进行 蒙特 卡 罗 懂 拟 的 能 刀 江 经 使 当代 实验 科学 的 许多 和 外域 发 
生 了 革命 .大 们 不 仅仅 能 金 用 :种 旧 常 精确 的 六 法 来 表征 参数 估 算 的 党 益 的 特 作 :而 芷 还 能 
能 在 计算 机 上 试 驼 出 不 同 的 参数 佑 算 方 法 ,或 者 试 骆 出 不 同 的 数据 约 化 技术 . 避 划 朴 择 和 企 行 
期 望 的 准则 进行 探索 使 结 丑 的 不 确定 性 达到 极 小 ,如 果 要 求 作 选 择 ,是 选 样 精 请 开间 岂 遍 的 
-书架 解析 统计 学 著作 陀 . 还 是 选择 华 握 实施 迷 特 卡 风 模拟 的 站 等 技能 ,当然 我 们 剖 于 帮 问 


地 参 选 择 具有 后 一 种 技能 。 
”| 蒙特 长虹 客 娄 
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光 





从 实 乐 实验 得 到 的 拟人 台 和 参数 作为 真实 参数 的 代 蔡 物 - 计 算 机 生成 的 随机 数 用 于 模拟 许多 合 戒 数 振 巢 。 讨 街 个 这 
利 数据 集 进行 分 析 状 得 它 的 拟 侣 参数 .于 其 ,对 这 些 拟 台 和 参数 围绕 (已 知 ) 真 实 项 数 符 代 物 的 分 右 进 行 研 宾 ， 


图 15.6.2 人 尖 验 的 蒙特 盯 必 模拟 


1s.6.2 快速 粗糙 的 药 特 卡 罗 方 法 :新 带 法 

当 对 基础 的 处 理 过 程 知 之 不 多 ,或 者 对 测量 误 莽 的 性 质 不 了 解 , 以 致 不 能 进行 合理 的 莹 
特 卡 罗 磺 拟 时 ,本 节 提 供 了 “个 强 有 力 的 技术 .假设 ,数据 组 由 N 个 独立 是 完 全 相同 分 布 前 
人 0 俩 如 一 ee 


家 靖 订 相 扒 介 旨 凡 卫 处 例如 ， 起 (15. 5. 5) 即 5 和 关 本 交换 点 补 析 加 的 大 央 是 光 关 
的 。 最 简单 的 例子 是 测试 量 的 平均 值 或 者 测试 基 的 某 些 函 数 的 et 

“对 s 个 数据 点 组 成 的 数据 集 贸 习 产 生 和 ”于 技 稀 集 
终 m, 史 9- 每 个 数据 集 也 看 N 个 数据 点 ， 这 个 过 各 中 简单 地 用 入 | 鞭 凡 7 让 省 和 


数据 点 -内 为 是 雁 换 ,所 以 不 必 每 次 回 到 原始 数据 总 。 在 得 到 的 数据 集中 ,原始 效 据 的 随 苞 的 
一 部 分 ,典型 的 是 ~ 二 = 37% 被 复制 的 点 所 蔡 代 -现在 ,和 前 看 讨论 的 完全 一 拌 ,对 这 些 数 


撕 点 进行 对 实际 数据 处 理 冠 全 相同 的 情 计 过 程 , 得 到 … 组 模拟 的 测量 参数 atbyar，…… 它 
们 加 绕 ato 的 分 布 和 am 围绕 ae- 的 分 布 非常 接近 。 

着 起 来 似 平 什么 也 没有 得 到 ,是 不 是 ?实际 上 ,为 了 使 茜 带 法 证 统计 学 察 们 接 党 , 花 了 上 
年 多 的 时 间 . 到 现在 ,很 区 定理 的 泪 明说 明了 郁 衬 法 的 可 靠 性 (看 参考 文献 _ 2])- 在 识 带 法 中 
隐 合 的 基本 思想 是 ,实际 数据 组 在 被 测 托 的 数值 处 看 做 是 由 3 国 数 组 成 的 概率 分 有 .在 大 多 
教 情况 下 ,这 是 最 好 的 甚 全 是 唯一 可 能 的 对 基本 概率 分 布 的 估计 .做 到 这 一 点 需要 勇气 .但 
是 人 们 通常 简单 地 将 那 种 分 布 作为 蒙特 卡 罗 模 拟 的 基础 。 

注意 , 当 靳 带 法 的 这 种 独立 完全 相同 分 布 的 假设 不 满足 的 情况 .例如 ,对 一 些 控制 变量 
在 空间 等 间隔 上 进行 测量 ,那么 通常 可 以 排除 这 些 点 是 独立 完全 等 同 分 布 的 假设 .而 它们 是 
在 测量 的 范围 内 均匀 分 布 .位 是 ,a 的 某 些 知 计 ( 例 如 有 关 傅 里 叶 方法 ?可 能 对 出 现在 网 格 上 
的 点 特别 敏感 .在 那 种 情况 下 , 靴 带 法 将 给 出 错误 的 分 布 .也 还 必须 注意 , 当 估 计量 看 做 是 在 
N 个 数据 点 中 的 小 扩 度 量 的 块 ,或 者 估计 基 排 序数 据 并 看 成 是 相继 的 差 时 ,显然 靴 带 法 世 
不 适用 于 这 些 情 况 。 证 明 这 些 方法 的 公理 还 是 止 确 的 .但 是 其 中 的 一 些 技巧 性 假设 被 这 些 
例子 破坏 了 。) 

然而 ,在 大 多 数 情况 下 , 靴 带 法 能 容易 而 又 非常 迅速 地 产生 在 估计 参数 集中 的 误差 的 蒙 
特 卡 罗 估 算 、 


1s.6.3 置信 界限 


为 了 掌握 分 布 的 概 和 狐 ,我 们 还 常 是 按 置 信 界 跟 的 形式 ,而 不 是 对 参数 估算 误差 的 概率 分 
布 提供 所 有 的 细节 .整个 概率 分 布 是 定义 在 参数 a 的 1 维 空间 上 的 一 个 函数 :一 个 量 信 区 
域 ( 或 者 置信 区 间 ) 恰 好 是 M 维 空间 的 一 个 区 域 (希望 是 一 个 小 的 区 域 ) ,这 个 区 域 包含 全 部 
概率 分 布 的 : 定 百 分 浅 (通常 希望 此 值 大 )。 例 如 可 以 指 着 :个 置信 区 域 说 :" 真 实 参数 有 
99 贤 的 机 会 落 入 围绕 被 测 值 的 这 个 区 域 肉 。” 

恒 得 强调 的 是 ,作为 一 个 实验 者 ,必须 同时 拾取 置信 水 平 ( 在 上 面 的 例子 中 为 99 多 ) 太 
芭 信 区 域 的 形状 ,唯一 的 要 求 是 ,置信 区 域 必 须 包 括 所 陈述 的 概率 百分比 。 一 些 百分比 是 科 
学 中 惯用 的 ,它们 是 : 58. 3 狼 ( 可 引用 的 最 低 置 信 水 平 )，90 铬 、95. 4 多 、98 儿 和 99. 73 史 。 
更 高 的 置信 水 平 可 方便 地 写 为 ”* 99, 9……9 ”至 于 置信 区 域 的 形状 ,显然 想 要 的 是 ， -个 台 
理 地 围绕 所 测量 值 at> 为 中 心 的 紧 关 的 区 域 ,因为 找 一 个 置信 界限 的 全 部 目的 在 于 确定 被 
测 值 的 可 信和 度 , 在 一 维 避 是 中 ,置信 区 域 是 一 个 以 测量 全 为 中 心 的 线段 :而 在 高 维 问题 中 , 抒 
常用 到 椭圆 或 权 球 。 

读者 可 能 怀疑 数字 68. 3 多 、95, 45 、99, 73 站 以 及 椭 球 的 应 用 可 能 和 正 态 分 布 有 联 
系 。 从 历史 的 前 度 看 这 是 完全 正确 的 ,但 是 今天 并 不 总 是 和 正 态 分布 有 联系 。 一 般 说 来 , 盆 数 
概率 分 布 不 是 正 态 分 布 , 前 而 所 用 作为 置信 水 平 的 数 ,纯粹 是 出 于 惯例 。 

图 15, 6. 3 画 出 了 在 M=: 的 情形 下 一 个 可 能 的 概率 分 布 图 ,该 图 显示 了 二 个 可 能 有 用 
的 不 同 的 明 对: .过 人生 都 有 相同 的 置信 水 平 .两 条 重 直 线 畏 代 的 一 条 罕 带 (水 平 区 间 ) , 它 
代表 在 不 考虑 a* 值 时 变量 we 的 68 狗 的 置信 区 间 。 同 样 ,两 条 水 平 线 为 az 围 住 了 68% 畔 售 
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区 间 .。 梢 圆 则 代表 了 < 和 <: 联合 的 68 治 的 辟 信 区 可 ,注意 ,为 性 蔓 和 果 半 带 形 相 问 的 慨 
率 , 捕 圆 必 须 扩展 到 两 条 迪 形 过 外 ( 藻 下面 我 们 还 要 返 癌 来 讨论 这 一 点 )， 





有 


0 和: 阴 全 的 汉人 
冒 傍 区 辣 











测量 到 著 总 的 相同 部 分 (这 申 征 68% 1 位 于 (在 两 条 重 直 线 隐 1(:D 在 两 订 水 半 线 之 齐 55iiiy 在 本 图 由 
了 疼 15. 记 3 1 绯 和 2 维 的 置信 入 间 


1s.6.4 常数 chi 平方 边界 作为 置信 界限 


当 用 于 估计 参数 at* 的 方法 是 chi 平方 最 小 值 方法 , 即 我 们 在 这 一 章 前 几 季 讨 沦 的 , 刚 
对 于 置信 区 间 形 状 有 - -个 自然 的 远 择 , 它 的 应 用 几乎 是 普 适 的 .对 于 观测 到 的 数据 集 多 
而 言 ,六 在 am 处 取 极 小 秆 . 称 这 个 报 小 值 为 鸡 如 办 参数 认 量 a 的 倩 偏 离 a- 则 入 将 增 
加 .使 蕊 增加 值 小 于 A 姑 的 区 域 可 定义 为 ,围绕 ac 的 M 维 空间 的 置信 区 域 . 羡 果 上 说 是 一 个 
大 的 数值 , 则 这 个 区 域 也 较 大 :如 果 A 好 比较 小 , 则 这 个 区 域 也 较 小 -如 果 想 要 这 个 区 域 包括 

上 面 所 定义 的 a 的 概率 分 布 的 某 一 部 分 ,例如 68% ，905 等 , 则 必须 选择 .不同 的 4 达 . 这 些 
区 域 可 看 作 参 数 av 的 喷 信 区 域 。 

大 们 常常 对 全 部 4 维 置 信 区 域 不 感 兴趣 ,而 对 其 些 较 少 的 ， 个 参数 的 单独 葡 信 区 域 感 
兴趣 ,例如 ,人 们 可 能 对 每 个 参数 的 单独 的 置信 区 间 感 兴趣 (如 在 图 15. 5. 3 中 的 澡 形 六 在 那 
种 情况 下 ”一 1. 基 于 这 种 考虑 ,内 维 参 数 空间 中 的 ， 维 子 参 数 空间 的 置信 区 域 ,是 在 周 定 
A 大 定义 下 的 对 维 区 域 在 我 们 感 兴趣 的 > 维 空 曾 中 的 投影 .在 图 15. 6.4 的 情况 二 M = 2 ,我 
们 标 出 了 不 同 Az 什 对 应 的 区 域 .由 az=:1 限 定 的 区 域 ,所 对 应 的 变量 xz 的 一 维 再 信 恬 间 位 
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于 直线 4 和 4' 之 加 。 

注意 ,采用 的 是 高 维 区 域 在 低 维 空间 中 的 授 影 ,而 不 是 林 肌 它们 的 州 变 。 在 图 15.6. 4 中 
醒 交 部 分 是 乙 和 过 之 间 的 带 形 , 它 水 不 会 锌 出 到 .在 多 让 其 必 最 示 的 月 的 只 是 为 了 括 旺 
读 弄 不 要 和 投影 搞 记 了 。 
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寿 汪 2 一 1.00,.2.71.6.53 于 村 序 的 实 线 椭 贺 投影 到 一 次 轴 上 入 到 区 宁 44 ,88 CC 这些 区 间 - 一 
不 是 彬 圆 本 身 一 一 包含 了 68.35 、 的 色 和 风 芳 的 正 态 分 布 数据 点 ,包含 38, 3 闻 的 正 态 分 布 数 撕 点 
的 梢 圆 巴 磺 线 表示 , 它 对 应 的 汪 x 是 2. 30。 对 攻 它 的 数据 ,请 看 相关 伏 表 阁 - 


图 15,6.4 3 逢 大 十 拟 合 极 小 值 听 对 应 的 椭圆 跨 信 区 域 





1$,.6.$ 正 态 情况 下 参数 的 概率 分 布 

读者 可 能 要 问 为 什么 迄今 为 止 ,我 们 的 讨论 还 和 六 报 合 过 程 的 误差 估计 ,最 注目 的 协 
方差 多 阵 Cp 没 发 生 任 何 联 系 . 原 因 在 于 :六 枚 小 化 方法 是 一 个 非常 有 用 的 参数 估计 方法 ， 
即使 渴 基 误 莽 不 是 正 态 分 布 也 适用 . 忆 管 如 果 关 参 数 估 计 成 为 最 大 似 然 估 计 ( 第 15. 1 节 )， 
但 要 求 误 差 是 正 态 分 布 时 ,人 和 们 还 是 放弃 最 大 似 然 佑 计 的 这 个 特性 ,而 运用 相对 方便 的 六 
处 理 . 只 有 在 极端 的 情况 下 ,测量 误 莹 分 布 带 有 很 大 的 "尾巴 ?时 ,人 们 才 放 弃 入 极 小 化 方 
法 ,而 及 用 更 加 稳健 的 技术 ,我们 将 在 第 15. 7 节 讨 论 这 一 方法 。 

木 过 ,只 有 在 测量 误差 实际 上 呈正 态 分 布 (或 者 达到 这 种 程度 ) 时 ,由 记 极 小 化 方法 导 
出 的 形式 协 方差 矩阵 才 有 意义 ,在 误差 分 布 不 是 目 态 时 ,可 “允许 ” 

" 通过 求 好 极 小 信 获 得 拟 合 参数 。 

' 用 常数 A 太 的 一 个 轮廓 线 作为 置信 区 域 的 边界 线 ， 

“ 用 蒙特 上 罗 模 拟 方 法 或 者 详细 的 解析 计算 确定 哪 一 条 AZ 轮廓 能 正确 地 表示 了 所 想 

"588。 


要 的 是 信 水 平 ， 
， 把 协 方差 算 阵 生 , 作 为 ， ' 拟 合 的 形式 协 谨 凑 拒 防 ”。 


但 不 允许 
“ 使 用 在 正 态 误 考 情 况 下 给 出 的 公式 ,这 此 台式 表示 呈 允 以 及 置信 求 下 二 问 全 址 
| 


里 列举 在 以 下 茶 什 下 成 立 航 关键 定理 :ii 测 座 浊 关 是 正 态 分 布 ; 兴 芒 归 忆 57 拱 卫 对 
本 要 么 6Giib 样 水 数 日 是 够 大. 拟 个 参数 a 的 不 确定 度 汪 有 拉 惟 生 民政 以 
外 ,在 此 区 咸 中 异型 中 出 一 AR [注意 条 件 (ii? 并 没 备 排 除 更 用 “个 
非 线 性 拟 合 程 序 例 如 mgrfit 次 污 找 拟 令 参 数值 。: 

定理 4 za 的 分 布 是 月 川 度 为 N- 一 好 的 安 分 布 , 文 里 N 是 数据 点 孜 个 数 .7 是 了 玉 全 


参数 的 个 数 。 这 是 个 估算 模型 槐 合 优 度 的 基本 定理 ,如 问 我 们 在 第 15.1 节 直 记 “党 的 那 
璋 。 我 们 首先 将 这 杂 定 理 列 出 来 二 为 了 提醒 读者 ,除非 拟 合 优 度 是 可 依 的 ,站 多 下 1 和 葵 数 从 
汁 过 程 是 不 可 算 的 。 


定理 B 如果 a, 基 从 实际 参数 ae 对 空 的 模拟 数据 的 全 减 中 导出 的 .见得 二 由 aa 
的 概率 分 布 是 多 元 正 态 分 布 


了 (6a) ce .da 一 常数 2 cxp| 一 二 6a * ix]， 5a du ， ,ta 


其 中 ,[ 扫 是 在 等 式 (15.5.8? 由 定义 的 山 率 矩阵 。 

定理 C 如 果 ai 是 从 实际 参数 au 对 应 模拟 数据 集 的 全 域 中 导出 的 , 则 量 大 一 大 
(ao 一 六 (ato) 的 分 布 呈 现 为 自由 度 为 好 的 六 分 布 在 这 里 , 闪 信 都 用 固定 (实际 ;的 数据 集 
外 估 算 。 这 个 定理 把 特定 的 AX 值 和 它 御 包围 的 好 维 区 城 戏 应 的 概率 分 布 部 分 .也 对 对 
维 蔷 信 区 域 的 置信 水 平 之 间 建 立 了 联系 , 

定理 DP 假设 9 是 从 模拟 数据 集 的 全 域 中 导出 的 (如 同上 面 一 伴 ): 还 很 设 它 的 前 > 个 
分 量 ac， .… ,av 保持 固定 值 , 剩 下 的 好 一 * 个 分 量 使 太 取 极 小 值 . 称 这 个 级 小 读 为 沁 , 划 、 和 
二 太一 Xen 是 自由 度 为 "的 太 分 布 。 姬 果 查 看 图 135, 6. +, 就 会 明白 这 个 定理 将 A 太 的 搜 影 区 城 
和 置信 水 平 之 间 联系 了 起 来 ,在 图 中 ,让 :固定 ， 变化 = ,使 万 取 极 小 值 的 点 描 出 -个 构 圆 ， 
椭 辆 的 顶部 和 底部 分 别 和 常数 e* 对 旋 直 线 相 切 , 因 此 椭圆 也 就 是 能 将 它 投 影 到 婉 低 维 空间 
的 线 。 

作为 第 一 个 例子 ,让 我 们 考虑 := 1 的 情况 ,其 中 我 们 要 找 某 单 变量 (比如 a ) 芍 营 党 区 
间 . 注 意 自由 度 *=1 的 祝 分 布 和 单个 正 态 分 布 量 的 平方 分 布 相等 ,因此 和 玉 < 二] 发 主 的 慨 率 
为 68. 3 名 ( 对 于 正 态 分 布 为 1 一 DJ) ,4A<4 发 生 的 概率 为 95.4 共 《对 于 正念 分 布 为 2 一 =)， 
Ax'<9 发 生 的 概率 为 99. 73 多 (对 于 正 态 分 布 即 3 2) .用 这 种 方法 就 能 找到 和 所 想 要 的 管 
信 水 平 对 应 的 AX%( 其 它 的 数据 在 表 15. 6. 5. 1 中 给 出 >。 


3589， 





唐 15. 6.5.1 sA 刀 作为 定 信 水 平和 自由 度 的 函数 





88.3 汉 ”1.0n 2. 30 3. 53 4 ?2 5 39 了 .0 入 
95.45 ，4.00 5 17 8 2 日 了 11.3 12,8 


573 帮 和 0 ]]- 8 ]d, 2 ] 写 ,3 13.2 20. 1 


99.9955 饮 后 .1 8 革 性 到 放 2 25.7 27.8 


设 6a 表示 和 僚 数 变化 , 它 的 第 一 人 分 量 是 任意 的 je ,从 是 苇 余 分 量 选 择 将 便 A 妨 取 绕 小 
值 . 了 是 可 以 应 用 定理 DAY 值 通常 由 下 式 络 电 ， 
aA 们 一 6a [doceca 《1:.8. ])》 
它 由 将 等 式 (15. 5. 8 用 到 六 :处 而 得 出 .其 中 凡 :==0. 因 为 根据 假设 .6a 除了 第 .- 个 分 量 外 ， 
其 余 分 量 使 刀 取 最 小 值 , 所 上 正规 方程 (15.5. 9) 中 第 .二 到 第 M 个 方程 依然 有 效 , 加 此 , 式 
(15. 5. 9) 的 解 是 


， ， 
四 | 

pa= qq] = | | (15.6.2) 
dj 


其 中 < 是 一 个 任意 的 常数 ,我 们 可 以 调整 ,使 赤 (15. 6, 1) 给 出 期 望 的 的 左 端 值 .将 式 、1:.5， 
2 代入 式 (15. 8.1) 并 且 注意 到 5C1 和 fo] 互 为 道 矩 阵 ,我 们 得 到 


CC 一 DC 和 3 一 (9a37Cn 《15.E. 3 
人 
或 者 pe. = 二 六 4U VC 《t35. bd， 


注意 最 后 一 个 等 式 ! 它 给 出 了 壮 信 区 间 二 8a 和 于 式 标 准 盖 mn= 上: 之 则 的 关系 。 毫 无 疑问 、 
我 们 发 现 68%% 的 置信 区 间 是 士 c，9536 的 置信 区 间 是 士 2c: 等 等 。 
以 上 能 讨论 不 只 对 单个 参量 mw 成 立 , 而 且 对 它们 的 任何 线性 组 人 台 者 成立; 如 果 
则 


二 >)coai 一 eva 013. 0. 
二 一 
则 ?的 68 治 置信 交 间 是 
人 后 一 上 ve TcJ ec (15.6,. 6 


但 是 ,这 种 简单 的 ` 如 同 正 态 分 布 的 数值 关系 在 >>1 的 稍 况 下 不 成 立 , 特 别 是 和 车 六 > 1 
时 ,4X 一 1 并 不 是 68. 3 内 的 置信 区 趟 ,也 不 是 它 投影 到 边 春 上 来 .如果 要 计算 不 是 单个 参 
量 的 置信 区 间 ,而 是 两 个 参 旱 的 联合 置信 椭圆 ,或 者 三 个 参量 的 置信 梢 球 ,或 者 更 商 ,那么 必 
须 按 照 下 面 的 步骤 实施 上 面 所 说 的 定理 CC 和 PD， 
" 令 " 为 所 想 显 示 的 廉 合 剖 信 区 域 的 热合 参数 数 日 ,y 委 好 , 称 这 些 参数 为 * 感 兴趣 人 参 
* 令 记 为 所 期 竺 的 置信 耻 ,例如 产 一 0.68 或 户 =0.95。 
:590 。 


- 寻找 4 也 加 是 3) 使 得 一 个 日 由 度 为 的 关 的 变量 小 于 4 的 概率 是 二 ,对 某 些 产 种 
的 有 用 值 ,4 用 卖 格 给 出 .对 于 其 它 的 值 , 可 以 利用 程序 gammp 和 一 个 简单 的 或 根 
程序 (例如 二 分 法 ) 寻 找 和 使 gammgq(2/2,372) 一 1 一 六 

* 将 chi 平方 拟人 台所 得 的 邓 X 邓 摧 方 差 所 阵 求 着 , 即 LC]=[o 一 ,将 所 感 兴趣 的 参数 对 
应 的 ” 行 和 ，” 列 相 兴 处 的 元 素 重 写 到 一 个 uxu 的 矩阵 ,命名 为 LCur]。 

“对 抑 阵 [Cre:] 求 道 .( 在 一 维 情况 下 ,只 需 将 元 素 Ci 求 个 数 即 可 ), 

“在 所 感 兴趣 的 > 维 子 空间 中 ,所 郑 望 的 置信 区 域 的 椭圆 边界 方程 是 

和 一 ba EC 3 (15.6,.7》 
其 中 ja' 是 感 兴趣 参数 的 , 维 问 量 。 

如 果 对 这 一 点 还 有 疑惑 ,那么 将 如 15. 6.4 和 附加 的 表格 进行 比较 会 大 有 帮 有劲 . 读 者 ` 定 
能 证 实 下 刘 论述 :考虑 朵 一 2 及 "一 1 和 "一 2 的 情况 ,人 在 C 和 C 之 间 的 水 平 带 形 包 含 了 
89%% 的 概率 分 布 , 因 此 也 就 是 az: 单独 泗 信 水 平王 的 置信 界限 ;4Gi? 和 上 面 类 似 , 在 六 和 妆 之 
闻 的 水 平 带 形 是 人 信 水 平 为 90 冯 的 置信 界限 ;(ii) 虚 线 的 棋 圆 ,以 A 刀 =2. 30 标 出 ,包含 了 
68. 3%5 的 概率 分 布 , 国 而 它 是 耕 此 轩 信 水 平 卜 , 关 于 ci; 和 as 的 联合 置信 区 域 。 


如 











向 量 Y 地 县 沿 着 置信 区 城 土 畏 的 单位 向 量 。 半 和 灿 的 长 度 等 于 奇异 值 wi 的 倒数 .如果 朝 用 某 个 
常数 医 子 "来 标 度 的 二 ,那么 ,az 将 胃 因 子 吧 米 标 度 。 


亨 15.6.5 4X=] 的 置信 区 域 梢 球 和 上 由 条 异 值 分解 计 算 的 量 之 间 的 关系 


15.6.6 奇异 值 分 解 下 的 置信 界限 


如 果 是 用 奇异 值 分 解法 (第 15. 4 节 ) 求 z 拟 全 ,那么 执 合 的 形式 误差 的 信息 将 以 不 加 的 
形式 出 现 , 但 通常 是 更 加 方便 的 形式 。 和 矩阵 Y 的 各 列 居 正 交 的 M 个 向 量 , 它 们 分 别 是 4 = 
ro 成 反比 ,参看 图 15. 6. 5, 椭 球 的 边界 由 下 式 给 出 ; 

4 太一 iv 3 浊 十 刀 (Vao pa (15.6.8)》 
“591 ， 


上 式 是 前 面 藉 (15.4- 18) 的 改写 形 臣 . 记 住 ,在 给 出 了 - 列 精 球 的 向 量 主轴 情况 下 : 画 模 球 
的 图 形 , 比 给 出 它 的 二 次 矩阵 形式 后 面 燃 球 要 容易 得 多 。 
协 方 莹 算 阵 L[C] 的 公式 几 向 量 Vo 来 表示 将 成 为 


FC]J = >， 六 Ye 区 Ya 《15. 5. 9) 
或 者 用 分 量 
Cu = 了 之) 二 人 Te 《15.6. 1D1 
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1S.7 稳健 估计 


稳健 的 摄 念 在 前 面 已 经 提 到 过 见 次 。 芷 第 14. 1 节 中 我 们 注意 到 ,中 位 数 是 比 平 均值 对 中 
心 值 的 一 个 更 稳健 的 估计 ,在 第 14. 6 节 中 曾 提 到 秩 相 关 比 线性 相关 更 加 稳健 .对 于 因 实 验 误 
差 而 引起 的 偏离 点 不 能 用 高 斯 模型 的 情况 ,我 们 也 已 在 第 15. 1 节 中 进行 了 讨论 。 

稳健 的 概念 是 1953 年 由 G. E. P, Box 在 统计 学 中 提出 的 .对 此 术语 具有 各 种 不 同 的 严 
格 的 或 不 太 严 格 的 数学 定义 ,但 是 一 般 说 来 ,稳健 是 一 个 统计 估计 量 , 它 意味 着 “对 最 佳 汕 计 
量 所 假设 的 理想 模型 ,发 生 微 小 偏离 的 不 向 感 性 ”。 微 小 "的 意义 有 两 种 不 同 的 解释 ,都 是 很 
重要 的 :或 者 是 所 有 的 数据 点 都 有 一 个 小 的 偏离 ,或 才 是 数据 点 中 很 少 的 玫 个 点 存在 较 大 的 
偏离 ,对 于 后 一 情况 ,引起 了 仿 离 点 的 概念 ,这 在 统计 过 程 中 通常 是 最 强调 的 。 

统计 学 家 们 已 经 发 展 了 各 种 不 同 的 稳健 估计 统计 方法 .它们 中 的 很 多 (即使 不 是 全 部 ) 
可 以 分 为 三 类 。 

” M 估计 是 建立 在 最 大 位 然 方法 上 的 , 炎 似 于 由 等 式 (15. 1. 3) 导 出 的 等 式 (15, 1. 5 和 
(615.1.7)。aM 估计 通常 是 和 模型 拟 合 ,也 就 是 参数 的 估计 ,关系 最 密切 的 一 类 ,因此 在 下 面 
我 代 将 详细 地 讨论 这 类 估计 。 

估计 是 “ 蚌 序 统计 量 的 线性 组 合 ". 这 类 估计 方法 最 适用 于 中 心 值 和 集中 欧 势 的 估计 ， 
它们 介 尔 也 用 于 某 些 参数 估计 问题 .两 种 典型 "的 工 估计 方法 将 给 出 一 个 一 般 的 和 梳 含 . 它 


四 分 位 点 的 加 权 平 均 , 权 重 分 别 为 174、172 和 174。 

R 结 计 是 建立 在 秩 检验 上 的 估计 ,例如 丙 个 分 布 的 相等 或 不 等 可 以 用 威 尔 科 克 斯 
《Wilcoxon) 检 验 来 估计 ,这 种 估计 是 在 两 个 分 布 的 组 合 样本 中 计算 一 个 分 布 平均 秩 。 柯 尔 莫 
册 洛 夫 - 史 密 诺 夫 (Kolmogorov-Smirnov) 统 计 ( 等 式 (14,. 3. 607 和 斯 皮尔 皮 (Spearman) 秩 阶 
相关 系数 (等 式 (14. 6. 1) ,本 质 上 都 是 丸 估计 ,尽管 它们 D 定义 的 形式 上 不 是 只 生计， 

其 它 的 一 些 稳健 估计 坊 法 ,出 自 最 优 控 制 和 最 优 滤波 领域 而 不 是 数理 统计 领域 .我 们 将 

“592。 





在 这 一 节 的 后 面 提 到 .一 些 非常 需要 采用 稳健 估计 的 例子 示 于 图 15. 7. 1 中 。 


__ 狂 罕 的 中 心 峰 






篇 离 点 的 尾巴 





人 1} 











fbl 
fa)-- 个 带 有 协 离 点 尾巴 的 一 纵 分 布 ! 在 这 些 偏 闹 点 处 的 统计 起 估 可 以 阻止 精确 地 确定 中 央 话 的 位 置 .rh 执 介 
成 一 条 直 绥 的 二 维 分 布 , 非 稳健 估计 技术 例如 最 小 二 宋 方 热合 具有 对 偏 南 点 产生 不 期 刘 的 数码 性 . 
图 15.?,1 稳 邹 统计 方法 最 适用 的 两 个 例子 


1$.7.1 用 局 部 M 估计 法 估计 参数 
假设 我 们 知道 我 们 的 测量 误差 木 服 从 正 态 分 布 ,那么 在 导出 模型 (zia) 的 估计 参数 a 
的 最 大 似 然 等 式 时 ,我 们 将 用 干 式 代替 等 式 (15. 1, 3) 
5 
忆 一 工 [flexp[ 一 PCyiyy{zzsa})]Ay) (15. 7.1) 
其 中 函数 p 是 概率 密度 的 负 对 数 .- 和 式 (15, 1.4) 类 但, 对 式 (15, 7. 1) 取 对 数 ,我 们 发 现 我 们 
要 极 小 化 下 式 
了 
pyyfzita)}) 《15.7.2》 


『 一 1 


“593。 


常常 会 出 现 这 种 情况 , 划 通 数 " 并 不 起 完 全 优 赖 于 它 的 两 个 自 变量 (测量 的 六 和 区 测 哆 > 
zi 而 是 只 依赖 于 它们 的 差 , 至 少 在 用 我 们 分 配色 各 点 的 权重 岗子 c, 来 莉 谨 时 就 基站 奢 . 
在 这 种 情况 下 ,az 估计 称 为 是 局 部 的 ,我 们 可 以 用 下 面 的 表述 代替 式 (15. 7. 2)， 


六 1， 一- 亲 标 多 ， 
对 a 求 j 芋 定 | 的 航 小 化 站 


其 中 上 函 数 p(e) 的 单 变量 ==s[y-. yz,)]yei 的 两 数 。 
如 条 我 们 定义 pf 的 德 分 男 数 为 多 )， 
yz) 兰 0 ， 
则 推广 式 人 15. 1.7) ,就 得 -- 般 的 对 估计 情形 下 的 等 式 


0 时 1 六 基 一 了 9YCG 刘 天 吉 本 
号 呈 人 1 C, 1 7 一 1 ，， 二 





训 果 将 式 (15.7.3) 和 (15.1. 33.015.7.5) 和 (15.1 7 比较 ,就 全 发 现在 误差 旺 王 态 分 布 
的 特殊 情形 下 有 


6(z) 一 癌 z Jizy = = 〈 正 态 ， 《6153 61 
如 果 误 差 呈 二 重 或 双边 指数 函数 分 布 , 也 就 是 
Prohb {35 一 9070 人 ~ exp| 乓 | 人， 
则 对 照 之 下 ， 
ofgz) 一 |z| gz 一 sgnkKz) 《一重 指数 ) (15. 7, 8) 


比较 等 式 (15.7. 3) ,我 们 发 现在 这 种 肖 形 下 ,最 大 似 然 佑 计量 是 通过 求 平均 绝对 偏差 极 小 来 
获得 ,而 不 是 对 艾 方 山 差 歌 极 小 来 得 到 的 .这 里 ,尽管 分 布 民 巴 仍 呈 指数 衰减 ,但 是 蕊 的 渐 近 
结果 比 相 应 的 高 斯 函数 大 很 多 。 

带 有 更 广 衣 的 一 一 因此 有 时 也 更 加 真实 的 一 :尾部 的 分 布 是 何 西 CKauchy ) 分 布 吗 者 
洛 伦 效 (Lorentzian) 分 布 
1 








Prob 4 一 3 一 1 9 (15, 7.91 
TIE 
旦 上 Di ! 
这 隐 合 善 
p(z) 一 log| 1 十 羡 o2)| 4 = 一 过 一 〈 洛 伦 效 ) 《15.7. 19) 
于 洁 六 2 


注意 ,在 推 广 的 止 规 方 穆 组 (15.7.5) 中 ,函数 名 作为 一 个 权重 函数 而 市 现 . 当 误差 呈 目 
态 分 布 时 ,等 式 (15.7. 6) 说 明 数 据点 的 偏 认 值 越 大 ,权重 越 大 -与 此 不 同 的 是 , 当 分 布 的 尾部 
稍微 突出 些 ,如 式 (15. 7.7), 则 式 (15.7. 8) 说 明 所 有 的 偷 离 点 得 到 相同 的 相对 权重 ,而 只 玫 
到 了 它们 的 符号 信息 .最 后 ,如 果 尾 部 更 大 , 则 式 (15.7. 10) 说 明 随 着 偏离 值 的 增 大 ,多 开始 


增加 ,然后 开始 减 小 ,以 致 非常 大 的 偏离 点 - 一 真正 的 俩 离 点 一 一 在 参数 的 估 值 中 根本 没有 
计算 在 内 。 


由 个 别 数 据点 绽 出 的 权重 随 着 仿 离 值 的 增加 开始 递增 ,然后 递减 的 一 般 概 念 促使 人 们 
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对 终 进 行 一 些 附 加 的 规定 , 它 和 标准 的 教科 册 上 的 委 率 分 布 并 不 对 应 .下 面 肥 两 个 保 了， 
安德鲁 正弦 国 数 (Andrew s sine》 
兄 {》 一 


站 113.7.i1 ) 
| 0 |z >> cz 
如 果 测 基 误 差 恰好 是 止 态 分 布 , 标 准 盖 为 m, 则 可 以 证 明 常 数 c 的 最 优 直 是 c = 2. 1， 
塔 凯 双 权 (Takcey s biweight) 
(1 zzrc2)2 |<| < 之 ee 
| 5 
0 xz| >c 


对 于 正 态 分 布 误差 ,上 式 中 < 的 最 优 值 是 < = 5.0。 
1s.7.2 AMz 估计 的 数值 计算 


. 用 好 秸 计 的 方法 拟 合 一 个 模型 ,首先 必须 确定 想 要 员 … 科 M 估计 方法 ,也 就 是 起 要 用 
哪 一 对 匹配 的 ",%。 我 们 倾 问 于 使 用 式 (15.7,8) 或 才 (15. 7. 10)。 

接着 ,必须 在 两 个 “ 样 难度 的 问题 中 作 霍 布 森 (Hobson) 选 择 . 要 么 解 Mr 个 卢 得 构成 的 
非 线性 方程 组 (15. 7. 5) ,要么 或 含 好 个 变量 的 单一 函数 的 极 小 化 (15.7. 3) 。 

注意 ,在 式 (15. 7.8) 的 函数 中 ,% 是 不 过 续 的 ,6 的 导数 也 是 不 连续 的 ,这 些 木 连续 性 党 
常会 在 一 般 的 菲 线性 方 得 求解 和 求 函 数 拟 小 化 的 过 程 中 引起 大 的 混乱 .现在 可 能 想 舍 弃 式 
《15. 7.8)，, 而 采用 式 (15.7. 10), 因 为 式 (15. 7. 10) 中 的 函数 比较 光滑 .。 企 是 ,也 奖 发 现 后 - 选 
择 对 很 多 方程 组 的 求解 或 求 极 小 化 程序 来 说 ,有 很 多 粳 糕 之 处 :拟人 台 参 数 的 微小 变化 可 能 使 
4%(z) 仿 商 它 的 峰值 ,而 进入 它 小 的 渐 近 值 区 域 .因此 ,方程 中 的 不 同 项 有 寺 起 作用 ,月 时 不 
起 作用 (和 解析 不 连续 性 几乎 一 样 精 糕 。》 

但 是 不 要 绝望 1 如 果 读 者 的 计算 机 (或 者 对 于 个 人 计算 机 来 说 ,忍耐 力 ) 能 召 侍 ,出 这 对 
于 向 下 单纯 形 极 小 化 算法 是 一 个 非常 好 的 应 用 事例 。 这 一 算法 示 于 第 10. 4 节 久 amoeba 和 
第 10. 9 节 中 的 amebsa. 此 算法 对 于 连续 性 没有 作 任 何 假设 , 它 只 是 体现 向 下 滑 的 总 图 . 尝 对 
函数 p 的 任何 合理 选择 算法 本 质 上 部 有 效 。 

无 论 如 何 找 一 个 好 的 初始 值 是 非常 有 利 的 (更 加 经 济 ) 通常 ,我 们 首先 用 标准 的 %! 笑 
稳健 统计 ?方法 拟 合 模 型 ,如 我 们 在 第 15, 4 节 或 第 15. 5 节 中 所 叙述 的 那样 .接着 用 也 得 的 结 
果 作 为 程序 amoeba 的 初始 值 ,并 且 按 稳健 统计 方法 挑选 p, 再 求 (15. 7. 3 和 表 法 式 的 极 小 估 。 


15. 7,3 通过 极 小 化 绝对 偏差 拟 合 直线 
有 时 偶然 会 出 现 比 上 而 所 讨论 的 - 般 技 七 喝 容易 的 情况 . 当 模 型 是 -… 条 简单 的 直线 
Zi 昌 ) 一 芭 十 此 区 (15.7.13) 
并 且 其 中 各 点 的 权重 wx 都 相等 时 ,等 式 (15. 7.7) 一 (15. 7. 8) 就 是 这 种 情况 .这 个 问题 怡 好 
是 在 等 式 (15. 2, 1 中 提 到 的 要 采 肯 稳健 估计 方法 的 问题 ,也 就 是 用 一 组 数据 点 拟 合 .条 直 
线 。 要 求 其 极 小 化 的 优 值 郊 数 是 
s 天 (15.7.12) 
而 不 是 由 式 (15. 2. 2) 给 出 的 刀 ， 
简化 的 关键 是 基于 以 下 事实 :一 组 数 … 的 中 位 数 cu 也 就 是 使 偏差 绝对 值 的 和 这 刊 极 小 
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的 值 
汪 | 一 cvl 


(证明 , 在 上 式 中 对 cy 求 微分 ,并 令 它 为 。 
由 此 我 们 知道 对 固定 的 5, 使 起 (15.7. 14) 最 小 的 < 为 


ay 一 5r 的 中 位 数 (15.2.15) 
对 于 参数 总, 方程 (15.7,5) 变 为 
和 
0 一 》， SB 疡 c) 《15.”. 16) 


(其 中 sgnC0) 看 作为 零 ) .如果 我 们 把 (15. 5. 15) 中 隐 含 的 函数 关系 e() 代 替 上 式 中 的 < , 那 
委 我 们 将 得 到 -- 个 含有 单 变量 的 方 称 , 它 可以 采用 我 位 在 第 9, ; 节 毅 述 的 二 分 法 或 划 界 法 求 
解 . (事实 上 ,如 果 采 用 更 高 级 的 求 根 方法 将 非常 危险 ,因为 等 式 (15.7. 16? 中 的 范 数 是 开 连 
续 的 。) 

f 面 是 一 个 完成 以 上 所 述 的 穆 序 。 它 调用 第 8. 5 节 中 的 select 求 中 位 数 . 划 界 法 和 二 分 
法 都 用 于 下 面 的 程序 中 ,用 来 计算 闻 的 结果 ,此 结果 将 产生 2 和 情 的 初始 猜测 值 . 注 意 (15. 
7. 16) 的 右 端的 计算 是 采用 程序 rofume , 它 通过 全 局 (最 高 级 别 ) 变 量 和 程序 medfit 进行 数 
据 传输 。 | 


并 include <math. h > 
int nGatat# 
fleaf *xt， 关 yt，aay abdevri 


void medfitkfiloat xf ]， flear y[、， int ndata, float *a， foat xb foat *abdev》 
采用 最 小 钨 对 偏差 的 痊 则 氢 公 直线 y=a 十 红 。 教 组 xf..ndata] 郑 y[1. .ndata] 是 输入 实验 雪 据 点 。 输 出 氢 台 参数 = 


帮 b, 芭 时 箱 出 的 还 有 来 自 氢 合 直线 的 实验 元 据点 { 关 于 y 的 ?平均 绝 共 篇 券 abdev, 此 尾 序 还 要 用 到 程序 rafuuc ` 亡 
们 之 间 通 过 人 多 局 变量 进行 数据 交换 ， 


float rofuncfTfiDat b) ; 

int ; 

float bb,bl,b2.del,f,fl,z2,aigb,temp; 

flLoat 8za0.0,3y=0.0,5xzy=0.0,3XXmD.DD,chisqn0.0; 


Ddatatendat 生 ; 
TeEi 
yy - 本 2 
for (jnmlijkc=adataij++) 对 于 a 和 Pb 的 初始 值 ， 我 们 将 浮 扫 最 小 二 胰 报 全 直线 
ax += [j] 
sy +a y[j]; 
Sxy += [jj] sy [可 ] ; 
SXxxX + 共 fj]x[j]， 
} 
de]l=zdaetaa 站 吕 和 XX 一 号 开本 全 工 ) 
aas(BzIY6y-SXeSxzyyydeli 最 小 二 受 解 
bb=(hdptaw3xy7-SxyB7) ydeli 
for 【je1;jc=<adata;j++) 
chiaq +e 《temp=yfj] - (aa+tbbex[j] ) ,temp*temp) ; 
eigb=sqrt(cChieqyael1) 标准 芳 绽 出 交代 步 长 忘 该 多 大 的 概念 
blsbbi; 
flsTrofunc(bl) 
D2=bb+SICN3.Owsgigb,zi)i 
沙 着 由 P1 已 策 的 向 下 方向 ， 猜 测 噬 越 3 -的 划 界 
f2=rofunctb2); 
thile (ft9z2 > 0.0) 1 进行 划 界 
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bb=2.0*b2-bli 
bteb2; 
ELeT2; 
b2mbbi; 
f2rofunc(b2) ; 
】 
3lgbs0.01*31gbi 不 断 本 损 精度 ， 朋 至 误区 是 “个 可 忽略 的 标准 差 的 数 
whale (fabs[b2-bl) > szgb) 工 
bb=0.5*{bl+b2) ; 二 分 汰 
if (bb == bl ]1 pb = b2) break， 
f=rofunc(bb) ; 
411 (fs#fl >= D.0) 工 


fl=f; 
blL=bb; 
} else 1 
f2=X | 
b2=bb; 
》 
本 各 = 且 有 
4b=bb; 
*abdevs=abxdevtyndatai 


上 ineludqe <rmath.h 一 
皂 include ”nrutil, h” 
共 define EPS 1.0e 一 ? 


extern int ndatar; 丰 medhp: 中 定义 
CXtetn float #k xty xyt，auy，abdevrct 


floeat rofonecgnaort by》 


对 于 给 定 的 h 们 计算 等 式 (15.7. 16) 右 端的 值 , 和 性 序 medfit 的 数据 交换 是 通过 全 局 变 生 ， 


ELoat Beleci(unsSignead 1ong 上 ，tumsigned 1on& D，fioat arr[]y); 
nt JJ; 
下 Loat 中 TI , 凡 , 习 UPD=O.O; 


aTrYeVaector(1i ,pdatat); 
for (〈j=1;j<=ndqatatijJ++) arr[j]=yt[J]-b*xtfj]; 
4z (adata5 点 1) 
Bar=3elactffadatatr+1t)>>1,ndatatvarr): 
】 
日 1SG 攻 
]j=nadGacat >> 11; 
aakw0.5+ (Selecttj,ndatat ,arr)+salect(j+lndatat ,arr)): 


abxlevtsO.0; 
for 【jz=13j<=ndaatati;j++) 工 
d=yt[J]-(b*xt[j]+aa) ; 
abhdevt += fabskd) ; 
if (yz[]j ! 0,.0) gd /= fabatyt[j]); 
证 《fabsfd) > EPS) sum +=d>009?xtkj] : -rt[j]; 
了 
fraes_-vyector(arT ,1,ndlatat?， 
YetuUrn 8Umi 


1S.7.4 其 它 的 稳健 估计 方法 


有 时 候 ,要 从 一 组 数据 点 中 估计 出 “ 些 参 数 ,而 对 这 些 参 数 的 可 能 值 和 可 能 不 确定 性 有 

些 先 验 的 知识 ,在 这 种 情况 下 ,可 以 进行 一 个 把 这 此 预知 的 信息 正确 考虑 进去 的 拟 合 , 既 不 

是 用 - 个 预先 确定 的 值 冻结 “个 参数 ,也 不 是 使 参数 完全 由 数据 组 确定 .这 样 做 的 形式 体系 
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称 为 " 先 验 的 协 方差 的 运用 ”。 

人 在 信 叶 处 理 和 控制 理论 中 有 一 个 相关 的 问题 ,我 阅 要 在 噪声 中 找 出 随时 间 变 化 的 祝 号 。 
如 果 信 号 由 一 些 变化 非常 慢 的 参数 表征 其 特 人 性 ,那么 卡尔 曼 滤 波形 式 体系 告诉 了 如 何 对 接 
收 到 的 ,粗糙 测量 的 随时 间 而 变 的 信号 进行 处 理 , 产 生 最 住 的 参数 估计 .例如 ,如 果 信 号 是 一 
个 频 域 调制 的 正 欧 信号 , 则 缓慢 变化 的 参数 可 能 是 瞬 仿 频率 .这 种 情况 下 的 卡尔 曼 滤 波 称 为 
锁 相 环 , 它 装置 在 高 级 的 无 线 电 接收 粥 回路 中 。 
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第 十 六 章 ” 常 微分 方程 组 的 积分 


16.0 引言 


与 常 微分 方程 组 (ODEs) 有 关 的 门 题 通常 都 可 以 化 成 -系列 一 阶 微分 方程 的 司 题 来 研 
究 。 例 如 ,一 个 二 阶 常 微分 方程 
地 


2 二 宰 5 416.9.11 
能 够 化 成 吓 个 一 阶 方程 
2 三 2 
《16.0.2) 
< 


元 一 六 过 )》 一 9(x)2CZ) 


其 中 zx 是 一 个 券 变量 .这 是 对 什 意 高 阶 常 微分 方程 的 典型 处 理 方法 .新 变量 通常 光 择 使 它们 
互 为 (和 方程 原 变 量 ) 导 数 。 有 时 ,在 定义 新 变量 时 , 记 加 上 -- 些 和 方程 有 关 的 系数 或 某 些 自 
变量 乘 方 ,以 减缓 导致 计算 溢出 或 舍 人 误差 的 积累 ， 可 以 遭 循 这 样 一 条 常识 性 的 原则 :如果 
发 现在 结果 中 ,原来 变量 变化 平稳 ,而 缚 助 变量 变化 不 规则 , 则 应 该 找 出 原因 ,并 重新 选择 合 
适 的 变量 。 

这 样 ,对 于 一 般 的 常 微分 方程 便 可 以 通过 一 组 N 个 函数 %G 一 1,2…，N) 的 入 个 联 艾 
一 阶 微分 方程 组 来 处 理 . 这 些微 分 方程 可 以 写成 下 面 的 一 般 形式 : 

一 万 人 (zeoyo0 1 《16.0.3)》 
其 中 等 式 右边 的 函数 广 是 已 知 的 。 

常 微分 方程 组 (CODEs) 的 解 不 完全 由 其 方程 决定 。 要 确定 方程 的 解 还 需要 边界 信条 件 。 
边界 值 条 件 是 指 式 (16. 0. 3) 中 的 天 数 % 的 值 的 代数 条 件 : 一 般 来 说 ,它们 能 在 共 些 确定 的 
离散 点 得 到 满足 ,但 是 在 这 些 离散 点 之 间 就 不 成 立 『 , 即 不 能 由 微分 方程 自动 得 到 满足 边 
界 值 条 件 有 时 很 简 单 ,例如 ,要 求 定义 某 些 变量 具有 某 些 数值 ;有 时 候 却 较 复 杂 ,成 为 一 组 变 
量 之 间 的 非 线 性 代数 方程 。 

通常 , 正 是 边界 值 条 件 的 属性 决定 了 哪 种 数值 解法 是 可 行 的 ,边界 值 条 件 可 分 为 十 谨 的 
两 大 类 ， 

”在 初始 值 问 题 中 ,所 有 的 yx 都 给 出 了 起 始 值 x, ,希望 找 出 在 终点 zxr 的 % 值 ,或 在 某 

离散 点 列 (如 表 列 间隔 上 ) 的 % 值 。 

”在 两 点 边界 值 问 题 中 ,在 多 个 < 处 定义 了 边界 条 件 。 在 典型 情况 下 ,有 的 条 件 在 z， 

处 进行 定义 ,并 给 出 xy 处 的 隐 含 条 件 ， 

本 章 将 讨论 初始 值 问题 , 有关 两 点 边界 值 的 可 题 将 在 第 十 七 章 进 行 讨论 ,后 者 通常 更 困 
难 一 些 。 
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解决 初始 值 问题 的 基本 思路 是 :把 式 616.0.3) 中 的 cey 和 ez 用 有 有限 步 长 ay 和 呈 z 末代 
替 : 然后 等 式 两 演 同 乘 以 Ar。 这 便 给 出 了 肯 数 随 良 山 变量 > 的 " 步 长 "az 上 灾 化 而 变 比 的 代 
数 公 式 。 在 屯 步 长 取得 尽 可 能 小 的 极限 过 程 中 , 便 可 以 租 划 微分 方程 的 “个 焉 好 的 近似 。 理 
论 上 ,实现 这 个 过 程 林 以 而 欧 拉 方 法 5 下面 的 蕊 (16.1.13 估 实际 二 起 厌 实 册 的 。 欧 芋 在 法 
在 型 论 上 是 很 重要 的 ,许多 实际 的 方法 囊 归 关上 了 欧 拉 方法 同 尘 的 思想 ,将 导数 (等 式 丰 去 1 天 
以 步 长 ,函数 相应 地 增加 :个 小 增 量 。 

这 .一 兽 中 .我 做 主要 讨论 对 常 微分 程 组 (CDDEs 求解 初 始 依 问题 的 三 冲 主 要 的 守 出 数 便 
能 法 ; 

。 龙 格 - 库 塔 {Runge-Kutta 法 ， 

。 理 查 德 森 (Richaxdlsony 外 摸 法 .其 特例 为 布 中 斯 吞 - 断 托 (Bulirsch-Stroer) 法 : 

， 蔬 测 - 校 目 法 ， 

下 面 对 这 一 种 六 法 分 别 作 一 简要 分 洛 ， 

1， 龙 格 - 库 塔 法 通过 类似 欧 拉 方法 中 的 步 长 (和 芷 次 部 要 计算 出 右边 的 了 值 ), 把 各 个 步 
长 所 提供 的 信息 结合 起 来 ,算出 有 一 定 问 取 的 解 , 然 与 用 所 香 到 的 党 息 和 奈 惑 Ciaylnv 展 睹 
式 下 配 ,以 得 到 高 附近 似 解 ， 

2， 理 查 德 森 外 推 法 利用 了 … 种 很 育 效 的 思想 , 它 是 在 症 虹 步 长 比 实际 值 小 得 时 对 
能 得 到 的 计算 值 进行 外 推 。 特 浆 情 况 下 , 赵 近 零 的 睛 长 全 进行 外 推 是 理想 的 虽 标 , 布 里 斯 奇 
-斯 托 法 是 把 取 每 一 单个 步 长 的 特殊 方法 (做 正中 点 法 ) 和 特别 的 外 推 法 (有 吉明 数 外 椎 法 ， 
结 会 起 来 的 结果 。 

3， 镍 测 -校正 法 把 每 上 消 计 算出 的 结果 保留 下 来 ,放出 那些 结果 外 推出 下 一 步 的 结果 , 然 
后 ,用 新 点 上 的 导数 信息 进行 校正 。 这 方法 对 于 平滑 函 数 效果 最 好 。 

龙 格 : 库 塔 法 围 于 :(? 不 知道 别 的 更 好 的 方法 :GibD 用 布 里 斯 奇 -斯 托 法 无 法 解决 的 加 
题 :(ii) 一 个 攻 较 平常 的 ,不 需 考 虑 计算 效率 的 问题 。 龙 格 库 塔 法 通常 总 是 能 成 功 的 ,但 和 
它 并 不 是 最 快 的 方法 。 在 对 上 进行 估 值 比较 容易 ,而 且 只 需 达 到 一 定 精度 ( 委 10 “的 鼎 候 - 
用 这 种 方法 通常 是 最 快 的 。 戎 测 校正 法 因为 需要 利用 蕊 计算 的 值 ,所 以 开始 计算 时 比较 
困难 ,但 对 急 多 平滑 函数 来 说 , 它 比 龙 格 库 塔 法 计算 效率 高 -- 些 。 近 几 年 来 , 布 里 斯 奇 -斯 托 
法 在 银 多 应 用 中 取 上 党 了 预测 -校正 法 , 供 布 里 斯 奇 -斯 托 法 一 揽 天 下 的 说 法 尚 为 时 过 早 。 汰 市 
实 距 表明 , 妈 有 相当 复 杀 的 预测 - 校 上 算法 才能 和 这 种 方法 的 效果 相当 ,因此 在 本 书 中 -我们 
没有 给 出 预测 -校正 算法 的 实施 。 我 们 将 任 第 16. 7 季 中 进一步 讨论 预测 -以 下 算法 ,以 便当 
读者 遇 到 适当 的 网 是 时 ,能 使 用 一 个 表述 比较 粗略 的 程序 。 按 我 们 的 经 验 , 我 们 给 出 的 相对 
较 简 单 的 龙 格 库 塔 法 和 布 里 斯 奇 -斯 托 法 程序 ,对 大 多 数 问题 来 说 已 经 足够 了 。 

这 三 种 方法 都 可 以 系统 化 编制 来 监视 内 部 数据 的 协调 性 这样 便 可 通过 改变 基本 阔 长 ， 
自动 减缓 -- 些 可 避免 的 引入 解 中 的 数字 误 养 ( 自 适 应 地 )。 我 们 一 直 建 议 在 程序 中 实 珀 目 适 
应 步 长 控制 ,下 面 我 们 也 将 这 人 么 做 。 

曾 而 言 之 ,所 有 三 种 方法 都 可 以 用 于 任何 初始 值 问题 每 种 方法 各 有 其 优点 和 缺 刚 ,这 
是 在 使 用 之 前 必须 了 解 的 。 

在 这 - - 章 中 ,我 们 把 程序 组 织 成 柜 互 调用 的 三 个 棋 套 级 唱 。 最 低 一 级 我 们 称 为 算法 程 
序 。 它 实现 了 方法 基 不 公式 ,从 = 处 的 因 变 量 * 开始 ,计算 因 变 量 在 * 十 上 处 的 新 值 、 算 法 
程序 中 ,也 捍 供 了 有 关 该 步 计算 结果 的 近似 效果 信息 .但 得 序 不 能 自 适应 判定 这 个 解 可 不 让 
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以 接受 。 

精度 控制 判定 的 代码 六 在 步 进 树 床 中 , 步 进程 序 调 用 算法 程序 , 它 可 以 拒绝 接受 计 虹 的 
结果 。 投 路“ 个 较 小 的 步 长 ,重新 阅 用 算法 程序 , 表 至 达 介 沁 先 定义 好 的 精确 度 力 由 法 进 
的 基 林 午 务 是 根据 特定 性 能 选用 最 拓 步 过， 只 有 这 一 点 达到 了 ,算法 的 威 尹 相让 下 严 革 汪 
来 ， 

企 步 进程 享 之 上 是 驱动 程序 .用 以 开始 和 引 束 下 分 - 仓 鱼 中 间 纺 果 , 以 及 后 于 和 和 办 半 的 

接 H 。 我 们 的 驱动 程序 并 不 是 标准 的 . 该 痢 应 该 把 它们 当 作 : 些 例 了 , 首 且 能 为 拉 定 的 上 用 
而 修改 这 些 程序 。 

在 下 面 的 程序 中 ,rkd4 rkck .mmid .stoerm 和 和 simpr 是 算法 程序 ,rkqs .bsstep .stiff 利 
stifhs 是 步 进程 序 ;rkdumb 和 odeint 是 台 动 程序 

这 一 草 的 第 16. 6 节 将 讨论 刚性 方程 (stz77 eguetoz) 的 问题 ,这 和 和 微分 方程 以 及 依 微 
分 方程 有 关 ( 第 十 帮 章 ): 


参考 文献 和 进一步 读物 : 
Lanlbert,J. 12373， OratzbtiatIOHGE 上 cfRocds 2 Dretanary Prerentrat Panabnns(Nemw York: Wi:lev 
Lapitlos，[.、，and Seinfeld, 」 197I，Nzmaerreal Sodutaonm pr Crdinery DrFerenmiiaz oaedioc (New Tirk， 


具 cpdemic Press)， 


16. 1 龙 格 - 库 塔 法 


欧 拉 法 的 公式 是 

2 一 or 十 用 Fr) (16. 17) 
这 里 ,从 zx。 导出 2 1 为 :rw 1 三 7 十 站 。 这 个 公式 不 许 对 称 的 :通过 每 次 增加 间 了 站 将 解 推 
进 , 但 只 是 在 问 隔 的 起 始 处 用 到 求 导 的 信息 (参见 图 i6.1.1). 这 就 意 叶 着 ,了 [入 民 015.1.1) 


的 步 长 识 差 比 修 止 值 小 h 的 一 次 寡 , 即 O462)( 可 以 道 过 医 级 数 展 开 式 来 证 明 )， 


(3 


-一 一 -一 于 -一 一 一 一 一 一 赴 - 一 - = -一 -- - -一 -一 一 一 -一 一 -一 


31 3 -3 了 


和 企 这 种 求解 削 熏 分 方 型 最 简 某 { 也 是 区 不 晴 确 ?的 方法 中 ,通过 对 每 朋 问 卫 起 站 上 必 
外 扒 来 求 出 下 一 个 函数 利 , 这 种 方 运 的 精确 度 昆 一 阶 的 : 


网 16.1.1 欧 拉 方 法 


欧 拉 法 末 得 到 实用 有 凡 个 目 恨 ,其 中 : (iD 这 种 方法 和 其 它 更 巧妙 的 方法 相 比 . 汪 在 是 证 
351 


常 精确 的 ; (iD 这 种 方法 的 稳定 性 也 不 是 很 好 的 (参见 下 面 的 第 16.6 节 )。 
何 是 ,我 们 可 以 考虑 用 类 似 式 (15. 1. 1) 中 的 步骤 , 吧 间隔 的 中 点 为 "试验 " 步 , 然 后 , 尘 悍 
中 点 的 和 y 值 计算 整个 问 陋 的 “实际 ? 步 长 . 几 16. 1. 2 说 明了 这 个 思想 .写成 方程 是 : 
虹 : 人 Ca 和) 


三 (和 上 21 


3 一) 
在 式 (16.1,2) 的 误 关 硕 中 已 表明 ,这 种 对 称 性 算法 消除 了 一 阶 澡 差 项 ， 使 其 误差 成 为 二 阶 的 
《如 果 某 种 算法 的 误差 量 OOCir- 0) , 则 习 民 上 称 它 为 呈 阶 的 ) .实际 上 , 式 (16,1. 2) 称 为 二 阶 
龙 格 . 库 塔 法 或 中 点 法 。 


YN 


使 用 在 每 一 步 上 人 蕨 切 始 导数 , 炒 出 间 随 - 半 处 的 点 ,然后 用 这 个 中 点 导数 求 出 尾 太 
可 隔 的 项 ,这 翌 可 以 得 狸 二 阶 的 精确 度 ,在 这 个 图 中 ,实心 点 代表 最 乓 的 函数 书 ,而 
宅 它 点 代表 ， 旦 空位 的 导数 被 计算 并 俩 用 以 后 , 便 被 舍 寿 的 函数 值 。 


图 16.1.2 中心 法 


下 面 继续 讨论 。 丰 很 多 方法 计算 右边 的 /zy) ,它们 都 满足 一 稚 误差 的 精度 ,但 这 些 方 
法 都 各 自 有 不 同 的 高 阶 误 差 项 .将 这 些 方法 适当 结 人 台 , 可 以 逐 阶 逐 阶 地 消除 误差 项 :这 也 正 
是 龙 格 一 库 塔 法 的 基本 思想 .Abratmowize 和 Stegum' ,以 及 Gear 2? ,都 根据 这 种 思想 提出 
了 各 种 不 同 的 算式 .但 目前 最 常用 ,最 有 效 的 是 四 阶 龙 格 - 库 塔 式 .这 个 式 子 有 一 定 的 光滑 
度 : 


友 ] 一 办 Fr) 
具 开 
上 一 丰 F(Czr 十 了 5 卫 / 
入 一 AAGs 十 去 , 因 十 全) SO 
并 4 一 内 Cr 十 大 3 十 大) 


本 
2 二 二 二 二 Oh 


四 挫 芒 衫 : 导 二 庆 在 地 个 步 长 关中 ,对 右 端 需要 四 次 求 值 计算 (参见 图 16.1. 3) .如 果 存 
式 416.1.3? 中 ,用 全 少 可 能 是 倍 大 的 步 长 就 能 达到 中 点 法 式 (16. 1. 2) 一 样 精度 的 话 , 则 这 种 
,602 。 


方法 是 优 于 中 点 法 的 ,是 这 洋 的 蚂 ? 等 案 主 :通常 情况 足 汶 样 的 , 供 涉 能 说 总 是 这 样 的 .这 让 
我 们 回 到 一 个 绢 重要 的 可 题 . 即 高 阶 并 不 意味 着 高 精度 .四 阶 龙 格 - 库 塔 法 通 澡 亿 圭一 阶 ” 
的 说 法 是 对 的 ,但 庶 该 把 它 当 作 科学 实践 中 的 暂时 性 法 则 ,而 非 严格 数学 中 的 法 则 .也 就 是 
说 , 它 反 映 了 当前 科 家 门 解决 州 题 的 一 种 特性。 


在 短 “ 步 中 求 导 通过 内 悄 来 返修: 次 在 起 始点 ,两 次 在 试 次 中 点 ,一 次 存 遇 来 试 酚 六 。 国 尽 
些 导 教 算出 最 后 的 函数 值 : 用 实心 点 者 东 ) 洋 纸 说 明 苍 见 正文 ) 。 


图 16. ..3 四 阶 龙 格 库 描 法 


对 于 很 多 搞 科 研 的 应 用 者 来 说 ,四 阶 龙 格 - 库 弄 法 首 砂 仅 是 常 微 分 方程 最 初 使 下 的 方 
法 ,而 卓 是 现在 使 用 的 一 种 和 庭 捞 的 方法 -实际 上 ,用 这 种 山 老 的 算法 :此 其 象 我 们 下 让 那 样 
把 自 适 应 步 长 算法 结合 进去 ,还 是 能 收获 很 大 的 。 但 是 注意 ,这 种 方法 也 有 其 局 腿 性 ,好 于 崩 
高 精度 的 情况 , 布 里 斯 奇 -斯 托 法 和 页 测 - 校 下 法 会 更 加 有 效 。 这 些 方 法 才 是 真正 汐 " 赛 
马 ”, 而 龙 格 - 库 塔 法 只 是 竺 来 * 划 地 "的 马 , 但 , 老 马 装 上 新 鞍 也 会 更 加 灵巧 .在 第 i6. 2 节 中 。. 
我 们 要 给 出 一 个 龙 格 - 库 塔 算法 的 现代 实用 算法 ,在 精度 要 求 不 高 时 , 它 是 很 有 竞争 力 的 :在 
参考 资料 [3] 中 有 编制 此 格 - 库 塔 法 程序 的 精彩 论述 
下 面 是 对 一 组 儿 个 微分 方程 实施 一 步 龙 格 -上 库 塔 法 计算 的 释 序 .输入 自 恋 量 的 值 ,然后 
得 到 一 个 步 长 凡 可 止 可 负 ?的 新 值 .读者 会 注意 到 ,程序 不 但 需要 用 户 提供 计算 上塘 程 右 端 项 
的 函数 derivs ,还 需 提 供 起 始点 的 导数 值 .为 什么 不 让 程序 调用 derivs 米 计算 初始 倡 呢 ?等 
案 在 下 一 节 阐 明 , 简 言 之 是 这 样 的 :这 个 调用 术 只 是 具有 这 些 初 始 条 件 的 唯一 的 调用 .也 许 
先前 步骤 中 取 的 步 长 值 太 大 ,这 样 便 可 更 改 。 在 这 种 情况 下 ,就 没有 必要 人 在 起 始点 调用 丽 数 
derivs)。 注 意 下 面 这 个 程序 ,只 调用 了 三 侈 derivs 函数 。 


荐 include "nrutil.h” 


Yoig rk4ffloat y -foat dydx ten: ay iloat xy tloat hfloat yontC， 

vold《*# dervs)tfioeatv floar ,float [])) 

给 定 已 夭 x 的 > 个 变量 [1 ，, 呈 肥 其 导数 dydx-1..n3 的 值 。 利 用 四 阶 龙 格 - 些 塔 法 以 间 闯 h 递增 求解 , 返 合 光 增 量 
秆 存储 到 youtf 1 .oj 中 , 它 并 不 需 和 > 夭 阵 有 明 呈 不 问 : 用 户 提供 程序 dervstx,yvdydxy, 计 息 在 x 人 的 ddx 乔 ， 
zat 工 ; 

于 1Dat xh ,hh,b6,*dym,sayt,+yt; 

Gym=vectorfl1,n) i 

dytemVvecCtor(t,n)i 


了 LVGCEorf1,p]; 
hbh=hy*0.5; 


*， PbD3，* 


h6=hy6.0; 
Xh=I+hh; 
for (i=1ilc=niiy+) yt[i]=<y[E]+bhrdydxfi]i; 第 步 
[+dariya)f(xh,yt,dyt) 1 第 “ 步 
for (i=liicso;i+r+) yc[i]=y[i]+hhydyt[i 1; 
fderiv8)(xh,yt,dym) ; 第 一步 
zior (imliicsnii++) 工 
yt[i]zy[i]+bhwdym[i] ; 
dym[i] += dyt[i]i 
1 
(+derivsj)ftzrt+h,yt,dyt)i ， 第 婚 步 
tor 《il1;i<sa;I+t) _ .以 通 当 术 乎 积 困 丧 项 
youtfi]sy[i]+h6wtdydr[i]+dyt[i]l+2.0wdymfil) 
了 free_vector(yt 1,n); 
free_vector(dyt,1 习 ) ; 
frae_yvectorrdya,1,D) ; 


芷 格 - 库 塔 法 每 示 都 采用 相同 的 方法 ,以 前 的 计算 状况 不 用 在 以 后 的 计算 中 ,这 车 迷 学 
于 是 人 台 庆 的 ,因为 常 微分 方程 轨迹 线 中 的 任 -- 点 部 可 作为 初始 点 .这 种 每 步 处 理 方 法 邦 相 上 
的 这 -事实 ,使 得 “了 驳 动 程序 "很 容易 对 龙 格 - 库 措 法 进行 调用 ， 

对 于 精确 计算 中 基本 的 自 适 应 步 长 控制 问题 ,我们 将 在 下 -- 节 讨论 .当然 , 倘 尔 存 卫 呈 
想 在 等 距 间 了 同上 计算 函数 秆 列表 ,而 且 也 不 需要 很 高 精确 度 . 在 大 洛 数 通常 情况 下 , 想 要 画 
出 函数 图 形 . 这 时 就 需要 一 个 简单 的 驱动 程 译 ,以 一 定 的 落 数 从 万 始 的 六 计算 到 最 终 的 rr。 
为 了 检查 结果 的 精确 性 ,可 以 加 倍 步 数 ,重复 计算 并 比较 结果 .这 种 和 近 当然 不 会 减少 计算 
时 间 , 谭 关 对 要求 吕 变 步 长 的 铺 况 也 许 失 彤 。 人 是 ,这 种 方法 总 少 了 用 户 的 额外 考虑 大 素 , 对 
于 小 型 的 问题 来 说 ,这 上 可能 是 考虑 的 最 重 鉴 的 一 个 方面 。 

下 而 是 一 个 驱动 程序 ,把 积分 的 澳 数 放 在 全 # 雹 组 *x 和 < *y 中 ;注意 要 分 别 调 用 
yettur(7 和 matrix( 函数 为 它们 分 配 内 存 。 


革 fineeude “nturil-h7 


了 loat 关 守 丫 。 关 区 其 与 主 程 扑 御 仿 
void rkdumhbtfloat vstart_j，int nvary filoat xl float x2，ibt nstep， 
void 《xderivsyffloat float - ], hoarf 
认 已 知 x1 处 nvar 个 隔 数 的 初始 介 vstart[1..nvsr] 寺 始 . 利 用 四 阶 此 格 - 库 红 法 ,以 丰 等 增 量 递增 nstcp 好 弄 xz， 肝 


六 提 供 的 terivs(xyyvdydx) 佑 算 导数 值 ,每 : 步 的 续 果 存储 在 全 穆 变 景 xx[l, ,nstep | 1 了 7[1.,nvar]| 1. .nstep 
1 中。 


vcid rka(fLloat 了 []，fleat dydx[] ，int n，fEloat x，float h， xloat youk[]， 
void (4darivs)(21oat ，ftloat [] ，Tfloat 品 )) ; 

3 1,k; 

1Oat 基 ,; 

float ysVout ,dvi 


V=Vector(1 ,ovVar); 

Voutmvectot(1,nVvar)i 

dvevector (lnDVar) 1; 

for (itiic<nyar;iiy+)》 苹 装 次 起 娩 值 
V[i]m=vetart[i] ; 本 
y[i] [ti]*v[i]; 

了 

xx[1]=zl; 

工 亚 工 了 ) 

h=fkx2-xlyrnaetepi 

for 《je=il ;<=natep ;x++] 工 进行 nstapb 步 计 算 
《ederiveyx: vdv] i 
Tik4afv,ay,nYar,I, 了 ,Yout,derivs)》; 


RbBoOd 。 二 


了 人 Eloatr)txyhy == K) DFTTOT( St8PD SiZ6 fn SRAiT in TOIUT IDG Tkrlumnb ) ; 
太 += hb: 
xx [krTjvwx， 在 贮 巾 国 步 长 
for 【ii=1,i<=nvar;i++) 芽 
vy[il=vout [i ; 
fi3j [x+4]=vftaxi 


了 

frea_vectorfdvy,1,nvar) 
free_vectorfVvout ,1,nVar)i 
子 TaG_VSctorttY 1,nvar)i 


二 


人 参考 文献 和 j 赴 一 步 读物 ， 
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16.2 龙 格 - 库 塔 法 的 自 适 应 步 长 控制 


一 个 好 的 常 微分 方程 的 积分 解法 ,地 在 求解 过 程 中 加 上 - 些 站 通 应 任 制 ,不 亲 电 谍 妆 步 

氏 值 .通常 情况 下 , 白 适 应 步 氏 的 控制 是 为 了 用 尽 可 能 少 的 计算 量 达 刘 解 的 预定 精确 度 .万 
- 些 不 可 靠 的 地 方 , 应 该 用 : 些 较 小 的 步 氏 ,而 和 “: 些 平滑 的 无 关 紧 要 的 地 方 , 风 用 大 一些 

的 步 长 以 加 快 计算 过 程 . 其 结果 的 效率 相 只 是 百 分 之 几 或 几 倍 ,有 时 是 十 几 倍 ,上 百倍 .其 人 
更 多 ,所 需 的 精 柄 度 不 仅 是 指 在 解 中 ,有 时 是 找 在 某 些 可 被 监测 的 相关 量 中 ， 

自 适 应 沙 长 控制 的 实现 ,需要 关于 你 步 执 行 算法 过 程 中 的 有 关 信 息 : 尤 其 是 戴 断 误 兰 有 有 
效 的 估计 .本 节 中 ,我 们 将 要 了 解 能 得 到 劣 少 信息 .显然 ,这 些 信息 的 计算 会 增加 额 钦 的 汁 算 
开销 ,但 是 这 种 投资 通常 是 能 很 快 偿还 的 . 

对 十 四 阶 龙 格 - 库 塔 法 ,最 直接 的 方法 是 步 长 数 如 倍 ( 参 见 参 考 资料 [1]) .我 们 地 末 上 秒 
分 成 两 次 计算 ,第 一 次 作为 整个 ~- 步 ,然后 再 一 次 按 独立 地 分 成 西 个 平 步 来 计算 (参见 蜀 16. 
2. 1)。 在 这 种 情况 下 ,厕所 式 求 值 需要 进行 多 少 额 外 的 计算 呢 ? 每 三 个 龙 格 -第 典 步 在 求解 让 
算 中 需要 四 次 的 估算 ,而 每 一 步 经 过 步 长 数 加 倍 以 后 共用 - -个 的 起 始点 ,所 以 总 数 是 11, 央 
为 我 们 胃 步 长 控制 法 可 达到 较 分 步 氏 ( 原 步 捧 的 半 ) 时 的 精度 ,所 以 应 和 8 比 而 在 是 种 
比 , 额 外 计算 系数 是 1. 375 。 这 对 我 们 能 有 多 大 损失 呢 ? 

我 们 现在 糖 确 地 论 焉 :下 从 并 到 z* 十 2 计算 y(z 十 哆 ) ,用 两 种 近似 解法 ; 阅 ! 这 一 消去 
2 和 %( 两 个 步 长 ,每 个 步 长 如 ,因为 基本 方法 是 四 阶 的 , 酚 种 数值 近似 的 结果 大 

3 | 名 ) 一 y (2p152 0 十 .，. 
3( 工 十 21) 一 3 十 2080P 十 CIR) 十 . 

这 里 ,对 于 上 ,9P 的 值 相 对 于 步 长 保持 为 常数 (根据 泰和 劳 展 开 式 , * 的 值 为 y212)551 量 级 )。 
在 式 人 16. 2.1)? 的 第 “个 玫 达 式 中 ,因为 步 长 是 2 所 以 是 (2)sp 5 而 第 二 个 表达 式 中 , 特 一 
步 步 长 的 误 莽 是 产 ?， 所 以 结果 是 28s9 ,两 种 数值 估算 的 差 很 方便 地 表明 了 截断 鸯 兰 


"605。 


(16.2. 1) 


人 一 一 多 (18, 2, 2) 


我 们 对 这 个 差 值 应 保持 恰当 的 精确 度 , 不 要 太 大 也 不 要 太 小 ,我 们 可 以 通过 调整 六 来 做 到 这 





大 姑 长 


昌 | 冰 个 小 步 长 


实心 襄 代 表 进 行 求 导 估 和 的 点 ,空心 点 去 泵 上 一步 进 生 辽 求 导 估算 以 村 来 基 实 心 的 点 ， 
所 以 竺 算计 算 的 包 数 是 每 两 步 11 次 , 肛 过 比较 太 步 区 和 了 量 个 小 步 长 归 精 从 度 , 米 决 证 是 
在 上 一 步调 整 步 长 值 ,过 旦 因为 精度 不 操 贡 新 让 算 这 点 的 站 果 ， 

图 15.2.1 四 阶 此 格 一 库 塔 法 通 这 步 氏 数 如 习 进 行 身 适应 步 民 控 出 


汛 者 也 许 会 想到 , 锦 略 了 天 以 及 更 高 阶 项 ,我 们 可 以 通 过 解 (16. 2. 1) 式 中 的 西 个 厅 程 
来 改善 理想 值 v(z 一 中 ?的 数值 估计 情 襄 ,如 
3 十 抽 ) 一 六 十 计 十 Oh) (18，2， 3》 


这 种 近似 精确 到 五 阶 , 比 最 初 的 龙 格 - 固 塔 法 高 一 阶 . 但 是 我 们 不 能 想当然 地 这 么 做 . 式 (16. 
2. 3 也许 是 五 阶 精度 ,但 是 我 们 没有 办 法 监测 其 截 尾 误差 。 更 高 阶 并 不 代表 永 计 是 高 的 精确 
度 1 使 用 式 (16. 2, 3 一般 不 会 有 多 大 坏处 ,但 是 我 们 无 法 育 接 了 解 到 改善 情况 如 何 . 因 此 我 
们 应 该 用 作为 误差 估计 ,而 使 用 式 (16, 2. 3 计算 以 得 到 较 高 的 精确 度 。 使 用 类似 虑 (16， 
2. 3) 的 过 程 ,技术 上 称 为 “局 部 外 插 ”. 
可 选 的 步 长 调节 算法 是 基于 巩 入 的 龙 属 - 库 塔 公式 ,最 初 是 非 尔 由 格 CFehlberg ?发 时 
的 .一 个 很 有 意思 的 情况 是 ,在 龙 格 - 库 塔 公式 中 ,对 于 高 于 4 的 阶 次 邮 来 说 ,需要 大 于 池 
个 函数 的 估计 值 (尽管 不 会 大 于 W+2)。 这 说 明了 四 阶 算法 的 通用 性 ;给 不 拘 一 格 的 想法 反 
戈 ` 击 .但 是 , 非 尔 妃 格 发 现 了 用 六 个 图 数 佑 值 的 五 阶 算法 ,同时 六 个 函数 佑 值 的 另外 “种 
组 台 将 导出 了 一 个 四 阶 算法 ,两 个 对 yz 十 到 的 咎 计 值 的 差异 能 够 四 来 佑 计 截 断 误 差 并 以 
调整 步 长 .从 菲 尔 处 格 的 最 初 的 公式 发 现 以 来 ,另外 也 发 现 了 几 个 其 它 的 代入 龙 格 - 库 塔 公 
式 . 
很 多 实 呈 者 一 放 对 龙 格 - 库 塔 菲 尔 贝 格 算法 感到 担心 .这 是 因为 用 同 栏 的 估 值 点 向 前 
估 测 旺 数 值 和 估计 误差 , 比 部 倍 步 长 的 方法 要 危险 得 多 .但 是 ,经 验 表 明 , 这 种 考虑 实际 上 是 
不 必要 的 。 一 般 说 来 , 瞪 入 的 龙 格 - 库 塔 公式 , 比 基 于 加 倍 步 长 算法 要 提高 效率 一 到 两 倍 左 
各。 
一 般 的 二 阶 龙 格 - 库 塔 公式 是 ， 
古 | 一 访 产 (zy 
有 一 用 Fr 十 ay 一 加 册 ) 


“606。 


上 站 2 二 
Jr 二 十 (一 一 
入 四 阶 公式 是 : 
下 人 


误差 估计 估 为 ; 


二 和 ,fc 国人 7 2 


我 们 倾向 于 使 用 不 同 常 量 的 特殊 全 , 妃 希 (Cash) 利 F 巧 (Karp> 的 发 规 、 绚 在 袁 疏 ,2 
1 中 ,这 给 出 了 比 非 尔 贝 格 原 交 依 蝎 有效 的 算法 .人 洪 营 特 拓 方面 更 为 好 - 些 。 
表 46.2.1 媒人 的 龙 格 - 库 塔 的 凯 希 - 卡 珀 参数 


























人 
由 
| 5 79 345 277 
5 ， 汉 | 和 
| 5 2 27 ?27 1 二 
葡 1641 17: 575 44275 253 | 82 1 
8 55295 513 13823 110592 1996 1771! | 4 













站 和 S 
现在 ,我 们 至 少 已 太 约 卸 道 肖 差 的 所 在 ,我 们 需要 少 虑 如 何 将 其 控制 在 一定 范 于 以 内 - 

&A 和 户 之 间 有 什么 联系 吗 ?根据 式 (16. 2, 1) 一 (18. 2.2) 可 知 :a 六 成 止 比 - 如 果 我 休 取 步 

区 加 ,产生 误差 A, 则 到 步 长 各 时 , 兰 生 的 误差 可 以 佑 订 为 

| 

因此 ,我 们 用 汶 来 去 示 所 需 的 精确 度 :这 样 等 式 (16. 2. ?) 可 放 十 两 个 方面 :如 衬 、 数 作 上 此 

aa 大 , 则 从 等 式 可 以 得 出 ,再 次 试 当 前 (失败 ) 步 时 应 该 拦 步 长 减少 多 全 ;如 果 和 计 立 小 ,看 

从 等 式 可 以 得 出 ,在 下 一 步 时 我 们 提高 步 长 值 多 大 足 安 全 的 。 局 部 外 地 接受 王公 的 倘 、， . 

尽管 误差 钻 计 实际 上 用 于 四 阶 值 wy” ，,。 

我 们 的 表示 式 中 兆 藏 着 这 汗 :个 事实 ; A, 实 际 上 是 折 需 精 人 风度 的 一 个 向 量 , 几 : 落 党 
微分 方程 的 每 个 等 式 都 有 一 个 误差 项 ,总 的 说 米 , 我 们 的 精度 要 求 ,各 等 式 的 误 益 帮 在 各 己 
人 允许 的 误差 范围 以 内 .也 就 是 说 ,我 们 可 根据 * 最 坏 情 况 "等 式 的 需求 相应 地 放 冰 步 长 大 小 ， 

我 们 怎么 把 所 需要 的 精度 ,例如 , 令 述 为 “精确 到 10" 分 之 一 ”", 和 Ao 联 系 来 更 ” 文 旺 个 
比较 难以 确定 的 问题 ,这 和 实际 应 用 问题 有 关 ! 有 时 也 许 在 处 埋 … 组 因 变 量 娄 人 相关 很 太 的 
方程 ,这 种 情况 下 ,也 许 希 望 用 相对 误 美 ,A; 一 sy 这 里 上 是 类 似 10-4 或 着 它 晰 站 秆 么 幸 的 


0DU7“。 


站， 天 


值 . 有 附 也 许 在 处 理 某 些 振 划 男 歼 ,人 穿 过 答 点 伺 限 制 十 其 一 最 大 值 范围 内 ,这 时 ,中 证 由 六 
设置 成 最 大 值 的 e 倍 。 

综合 这 些 考 碟 设 计 出 一 个 比较 通 田 的 程序 .程序 的 个 参量 ,当然 是 在 兴 前 上 攻 和 始 生 下 去 
变量 的 向 量 , 把 这 称 为 yL1..nJ 再 六 开户 为 每 一 步 , 定 文 另外 一 个 相应 的 向 最 参 芥 yscat 
L1..n], 以 及 总 的 容 差 限 epbs. 这 样 , 对 于 第 ;方程 来 说 所 需 的 精 痪 岩 就 为 

有. 一 eps X yscal[i] 《2 

旭 奚 四 用 相对 误差 去 示 , 则 可 以 地 指向 y 的 指针 放 和 yscal 指针 的 凋 用 位 置 (不 需要 节 亿 找 
员 到 另外 -- 个 拒 阵 中 )。 如 果 读 者 想 用 与 某 一 好 大 值 有 关 的 绝对 误差 形式 , 则 可 以 把 ysca: 
的 元 索 设 置 成 则 些 最 大 值 .对 于 那些 不 是 非常 靠近 过 0 点 的 情况 ,有 一 种 很 有 用 的 * 诀 穿 ” 
可 以 得 到 恒定 的 相对 误差 , 那 就 是 把 yseal[ 订 设置 成 和 y[i]|- | 请 Xdydx[i- 1 相等 即 可 (下 
面 的 程序 odcint 恒 是 这 样 处 理 的 ) 。 

下 面 是 更 关 贡 的 技术 要 点 。 我 们 必须 考虑 yseal 的 另外 一 种 可 能 性 .有 目前 我 们 所 瑚 到 误 
卷 准 则 都 毗 * 局 部 ”的 ,是 考虑 每 一 步 的 误差 .在 有 的 实际 情况 下 ,通常 想 计 算 * 全 程 " 积 误 
关 , 从 积分 的 起 点 到 光 点 ;以 政 在 最 二 情况 下 ,所 有 的 误差 都 取 同一 符号 而 进行 果 加 ,这 样 ， 
步 长 h 越 小 ,所 聊 处 理 的 利生 也 越 小 .为 付 么 ?因为 从 起 点 到 终点 ,xz 会 有 重 多 的 步 数 .在 这 . 
”种 情况 卜 , 镀 需 要 让 yseal 和 大 成 出 例 , 得 到 类 似 下 面 的 式 子 : 

au 一眼 尖 dydx[D] 【416.2.57 

这 使 使 对 精度 s 不 是 作用 寺 y, 呵 是 (更 加 严格 一 些 ) 作 用 十 每 一 步 值 的 增 量 .我 们 回头 看 
一 看 式 (16.2.7). 寻 果 ao 隐 含 和 记 成 比例 , 则 指数 0. 2 就 木 再 正确 了 : 当 步 长 值 从 一 个 很 大 
的 值 减 小 时 , 当 yscal 也 随 新 的 预测 值 后 改变 时 ,这 个 所 便 达 不 到 所 项 的 精 训 。 因 此 我 们 必 
贷 把 原来 的 0,2=175 放 太 到 0. 25=1/4 才能 正常 使 用 。 

指数 以 20 和 4. 25 实际 上 并 没有 很 人 人 不同. 这 促使 我 们 采纳 了 下 面 更 合 埋 的 通达 方 
法 ,作为 用 户 也 就 演 有 必 昌 事先 知道 用 步 长 来 放 缩 yseal 的 值 . 无 论 何 时 减 小 步 长 ,我 们 部 
月 较 大 的 指数 值 ;( 不 管 需要 不 需 槛 1) 而 增加 步 长 时 ,用 较 小 一 些 的 指数 值 .而 且 , 因 为 我 们 
对 误差 的 估计 不 是 精确 的 ,只 和 六 的 主 项 阶 的 精度 有 关 ,所 以 建议 加 入 “个 安全 系数 ,8 
的 值 出 单位 1 小 百 分 之 几 .这 样 ,方程 (16, 2. ?) 便 圭 换 成 : 


[sl 生 ee  。 包 A 

页 一 (16. 2，1603 
1 | 全 je Au < A 
【 1 A， 昌 1 


在 实际 应 月 中 我 们 发 现 这 种 表示 是 有 效 的 。 
下 面 龙 采用 了 "控制 计算 质 基 "的 龙 格 - 库 塔 法 的 步 进 程序 。 


于 inclnde <matrh.b 全 

开 ineluqde ”Drutil. h” 

并 define SAFETY 0.9 

芽 define PGROW 一 和 2 

车 define PSHRNK 一 0. 25 

环 define 下 RRCOKN 1,85e 一 4 ERRCON 的 值 等 于 (5/SAFETY) 的 (17PGROW) 次 短 


void rkqs(floar y[ 太 ,Heat dydx[]，int by， float xx float htry， floar eps， foat yscal[]， fioat * hdid， 
float * hnext，veid〔*# derivs)ffloat, foat[ ,iloat [])) 


五 险 龙 糙 - 库 拱 法 具 与 截断 误差 的 监控 ,以 保证 精度 和 调整 步 长 .输入 的 是 在 测 立 变量 x 处 的 初 妨 慎 对 记 钓 因 变 向 
4 0608。 


} 


蚌 y-1.…n- 灯 其 导数 dydxt1. ,ma]: 党 诚 的 步 区 为 htry, 所 需 情 豪 为 eps， 对 误差 进行 标 度 的 向 量 广 ,ssai:1..n ,办 洁 


下,y 名 x 由 其 新 值 奉 按 ,hdil 是 实际 梁 用 的 步 民 ,hnex: 地 估算 的 下 - - 步 的 击 长 值 ,desive 是 由 用 国 蔓 忆 的 序 . 泣 
十 计算 厂 边 的 导数 。 


Vnbid xxkcxfy1loat 了 []，tlioat aydr[] ，int a。flcac xx，flioat hv 
float yout[] ，float yerr[] ，void (*derivs) 7103a4，ztl1oat 口 ，fYloat [])); 


全 到 人 瑟 
floatr 此 Ims3z,,Dtamp ,xDen,*yeTI ,ytezpi 


yerxr=vector(l,a); 
yteampsvectorf1,D)?; 


hebtx7; 设置 步 长 为 初始 实验 值 
Yor 【3 攻 
Tkck( 了 ,dydr nsx,b,ytemap,yerrydezrivs) ; 进行-- 步 
errDaXeN0 -Di 个 计 精 度 
for 《is13i<szii++)》 GeLLmarsFMAXKCarrmaX ,faba(yerz[i]xyscal[i]))i; 
errmar /= epsi 阮 择 相应 的 和 艰 
if (erreaz > 1.0) 1 茂 断 误区 太 大 ， 碱 小 步 长 


htemp=SAFETY#byPpowCeTTumazr,PSHRMK? ; 
-b<thb >a 0.0 ? FHAXthteap,D.1eh) : FEKTR{htemP ,个 .二 + 3 了 


小 于 14 的 系数 ， 
HGWe (+]+b); 
if (xneu = 4x) nrerrort"atepsize Undertlow in xkqe"); 
Cont inua : 再 试验 .- 次 

] aase{ 成 功 ， 计 算 下 一 步 大 小 ， 
if 《arrmaxr 》 ERRCON) *hbext=<SAFETY*hs+pow(errmax,PGROW) ; 
日 188 #hnextn5 .D+b， 不 大 于 5 增 量 


本 和 上 《二 bdidman) 
for 《it1ii<aDii++) y[iijmytempIi] ; 
breari 
】 
】 
Trea_vectortytamp ,In)， 
Tree_yectorfyerr 1,n)i 


程序 mkqs 要 调用 程序 rkek , 它 采 用 凯 希 - 卡 珀 - 龙 格 - 库 塔 步 台 : 


区 include "nrutil. hy 


void rEckkfloat yL]， float dydxL int x， fost x， focat hftoat youtD， 


{ 


foat yerr[]，void ( * derivs)rfloat, float[- ,float[])) 
给 是 在 各 x 点 的 处 的 an 个 变量 y[1..a] 及 其 导 教 值 aydx[1..n], 用 五 轨 项 希 - 卡 地 - 龙 格 - 库 塔 法 村 首 隔 请 推导 币 .并 


返回 增加 的 变量 yout[1..n]- 同 时 ,用 其 入 了 吓 阶 算法 将 局 部 骤 断 识 卷 返回 列 yout 中 。 用 户 握 供 程序 desivstxsy dy- 
dx), 蕊 返回 x 点 的 导数 借 。 


了 pt I 
Static fl1oat a2=0,2，a3=0.3,a4=0,6,a5=1.0,a6=0.875,b21s0.2， 


b3le3.0/40,0,b32"9.0740.0,b41n0.3,b42 = -0.9,bi3=1.2， 
bsl = -11.0754.0，b52=2.5,553 -70.0727 .0,b54e35.0727 .0， 
b61l=1631,0755296 ,0,b62=176.0/7512.0,b63w575.0713824.0， 
b64=44275.07110592.0,b65=253.074086 .0,cla37 ,07378.0， 
c3=250.07621.0,cde125.07594.0.c6=512.074771.0， 
dc5 = -277.00714336.01; 

Tl1oat dclscl-2825.0127648.0 ,dc3ac3-78575.0748384.0， 
dc4=c4~135265.0D755296 ,0,dcemc6-0.25 

了 10at aaX 了 2 ,unK3 ,本 了 KBL5 ,are ,*7teanpi 


ax2=vectorK1n) 


ak3emwgctor(i,n): 


，609。 


ak4=vector(1l,D) ; 
3k5=Yector (ln) ; 
ak5=Yector(l,n)y:; . 
了 tenpp=vectortl,D) 


Eor (imlii<=n; i++) 第 一 步 
ytempfi]sy[i]+eb21lrhedydxfi]; 
(*derivsg)(x+a2z* ,Yemp ,ak2) 1 第 二 步 


Yor (1=13idmQji++)》 
teamp[i]ny[i]+h>Kb31tsdydzx[i]+b32aax2[i]) ， 

fx=aerivgs)(I+a3eb ,7 七 mp akS) 7 第 二 步 

for 【1iz=13fi<=nii+t+) 

了 tenmtp [ 切 =y[i]+hegb4aledydx [i] +b42+ak2[i]+ba3naxk3[i]); 

《derivs)(I+84sh ,yteamp yaka) ; 第 四 步 

for 【ie1ifi<Dit++) 
ytemp[i] sy [i]+bstb514dydx [i]+b524akxk2[i]+b53*ak3[il+b54+akd[i]); 

(wderlve) (CryaSsh yteap ,ak5) ; 第 天 此 

for 《is=1;ic<=za3;ii++)》 
ytemp[i=y[i]*hy[b61s#dydz [ij+b62+ak2[i]+b63rak3[i]yb64*ak4[i]+b65*akS[i]》， 

[#deriVs)(I+aG*+h temp ak6)i 第 太 妙 

for 《im1;i<enhia+t) 用 适当 的 权重 累积 增 量 : 
yowut [i]=y7[i]+bh#fcz+dydx[E]+c34akc3fi]+c4uaka[i]+rc5sak6ri]》: 

Eor 《1=171<=;i++) 
yerr[i]mbhvfdcledydz[i]+dc3rak3[i]+dcd4yak4[i]+qdc5eax5TIi]+dc6eak6Gii]]) 
估计 作为 由 阶 和 去 阶 算法 的 误 益 

free_vectorfytemp ,ta)i 

Tree_v6SLOY (ak6 1，D) 1， 

ree_vectorfak5 ,1D)7 

Tree_vector(axa4,1:n) 1 

fra6_Vvectotfa3,1,n) 1; 

基 reg_Vectorfax2 107， 


注意 ,上 面 的 称 序 都 是 单 精度 的 ,在 定义 ens 时 不 昌 太 贪心 了 -贪心 会 得 到 惩 踢 区 :各 
用 基 水 伦 特 (Gillesb 和 萨 利 文 CSullivan? 法 则 :程序 把 步 长 取得 很 小 , 古 各 个 hy' 加 于 各 个 
7 就 象 加 了 零 - 样 ,程序 始终 能 取得 过 似 的 误差。. 十 是 程序 来 回 地 运算 ,选用 无 方 多 个 人 , 步 
区 ,而 丝 党 不 会 改变 一 点 点 册 变 量 的 值 .( 为 了 避 锡 这 种 灾难 性 的 后 果 , 可 以 监视 是 否 品 现 简 
常 外 的 步 长 ,或 一 步 消 计算 时 因 变 量 值 是 不 是 没有 变化 -在 微机 上 ,可以 判定 执行 这 全 程序 
的 时 间 不 会 超过 . 顿 午饭 时 间 。》 
正面 是 一 个 成 熟 的 自 适 应 步 长 惊 硅 龙 赂 - 库 格 算法 的 “ 戏 动 程序 *. 我 们 热诚 地 排 荐 腹 这 
个 程序 或 类 似 的 程序 来 处 理 各 种 问题 ,包括 普通 常 微分 方 得 和 常 微 分 方 枉 组 ,总 及 有 限 积分 
《增强 了 第 四 章 中 这 种 方法 的 功能 ). 对 于 中 间 结 果 的 存储 5 如 果 想 查看 ) ,我 们 假定 全 程 指针 
参数 xxp 和 #* x yp 已 被 有 效 初始 化 (例如 通过 应 用 程序 veclor 和 matrix()) ,因为 每 .- 步 
的 问 降 是 不 等 的 ,结果 只 能 在 比 dxsav 大 的 间隔 中 存 侍 起 来 .全 程 变量 kmax 指 时 了 能 够 存 
储 的 更 大 的 步 数 . 如 果 kmax=0, 则 没有 中 间 人 存储 区 ,而 且 指 针 * xp 和 * * yp 不 融 要 指 阿 
有 有效 内 人 存 。 刘 果 却 过 了 kmax 值 . 便 停止 存储 步 长 ,除了 疼 止 值 总 要 被 存储 的 情况 以 估 。 醒 用 
这 些 控制 只 足 为 用 户 的 需求 而 指 直 的 .odeint 应 该 常用 于 解决 手头 的 问题 。 


世 include 拉 math. h 人 > 

苹 iphetude "nrutil.h” 

区 define MAXSTP 109000 
菇 djne TINY 1.0c 一 30 


extern jint kmax ,kotanfr 
exXtecn filoat 关 XD，# 关 yb，dxsavr 


为 中 间 结 员 所 下 的 存 鳍 训 间 .在 班 床 调 用 中 交 距 xmax 和 dxsa' - 若 kains 天 人 5 结果 将 以 dxssv 苑 近 佑 问 陋 存 入 数 如 
8 1 onnt],yBL1.，nvsr] ,直下 kount 示 程 序 oderr 的 输出 ,对 这 比 变 工 的 定 久 并 是, 对 数 级 具有 xpi ii xcnax' 
10。 


5 ypil- nyaz] .kmaxj] 的 内 有 分 配 , 邦 将 在 程 学 调 户 叶 给 川 。 


void odeint kfloat ystarf[ ，jrt nvar* float xl fioat x2， float eFs，float hl， 
float hmjn , int *nok. int xnbad，vGid【 * tcrivs)(float， flonr [ .float[)、 
void《〔《# tkgs》(tteat [ 门 ， filoat [int ,float * ，float，filoar， filoat[， 
toat # ytfloat # void ts ftcat icarr iontLyD) 
其 有 上 自 适 应 控制 的 龙 硝 - 库 塔 法 驱动 程序 .积分 的 初 什 ystart[1..nvarj 庆 到 x2 夭 变 尺 eFs ,在 全 天 家 量 下 下 储 中 
问 结 果 .hl 设 置 生 第 - 步 的 预测 步 长 ,hmia 作为 步 长 个 最 低 限 ( 开 以 量 03, 对 于 输出 ,cok 功 nbag 其 由 行 打工 汕 或 失 
败 ! 但 重新 计算 和 调 鉴 ) 的 步 娄 .ystart 省 积分 癌 隔 末 妊 的 人 这 取代 .demys 是 用 中 担 和 共用 来 计 和 前方 过 水 身 站 时 的 得 


户 ,rkqe 任 所 站 的 上 少 进程 厅 。 





int nstp,i， 
于 Loat XgEaVv,Xuhnext ,adid,; 
flioat wySCalryrndydx， 


yacalzvecteort1lDvar)i 

y=yector(l,nvac)i 

dydx=vactor(1, avar)i 

XaXl; 

heSIGM(Chl ,x2-xt)i 

中 OK 二 《让 nbad)》 = Kount 关门; 

for 〔i=1;ic=nvar;ii+t) 了 [ij=ystart[i] ; 

了 《Xmax > 0)》 xsav=x-dxsav#2.0i 保证 第 … 北 的 存 贮 空 间 

fcr (nstpsli;nstpc=NXSTP;nstp++》{ 最 大 峭 数 为 MAXSTP 
(ederiye)ytx,y,dydx)i 
for 【ial ,1c=navar;i++) 


.用 耳 监测 精确 庶 的 放 缩 ， 如 果 需 更 的话 、 这 个 选择 可 以 进行 余 改 


yacal[i]mfahs(7[i])+fabakdydx[i]*h)+TINY: 
if 《mar > DA kaunt “< maz-1 & fabe(x-xsay) > fabs(dzaav)) 工 


rp[++kountjsx; 存 入 中 间 铺 果 
for 《i=1ii<=nvarit++) yp[:] [xount]=yfl]; 
工 aavmx; 


了 

if (《(zrtb-X2)? (x+h-xl) > 0.0)》 hsx2-xi 如 些 步 长 超出 谋 端 ， 刚 缩 短 步 长 
(erkqs) (y ,dydx ,nyar, 业 xb,9ps,yScal,khdildvzhnextyderivs) 

放 〔hditd = bj) ++(yraoxk)i elIse ++(hnbad)i 


417 【(-X2)*(x2-xI) >m 0,0) 工 完成 了 吗 
for (im1id<=nyaz;iit++) 7start[i]my[i]' 
江 (kmaxz) 1 
zp [++iount]exi 存 铺 最 后 -- 步 


Yor 《ist1iiz<=ayarii++) yp[t] [xount]=y[i] 


free_vector(dydx,1inyar)i 
frese_vyectorgy,1.nvar) ; 
Erae-yectorKyscal, IDvar)i 


Foekbura; 正常 远 出 
】 。 
让 〈fabathnezt} <= hmiD》 NTerTor("StoPp size too small in sdelat')i 
bbnpext; 


】 


RrerTOT( "Too many stapa ina routipe odelntn); 


参考 文献 和 进一步 读物 ， 
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Clifts ，NJ:,Pren:ice -Hall). [1] 

Cash:J. 有, ，and Karp、 和.H，1990，4CMH Transartforg ont 后 aihemnaetisal SoPraare，val，1， 
Pbp，201 一 222. 1 2 
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16.3 修正 中 点 法 


这 一 节 讨 论 修正 中 点 法 .从 点 到 点 = 十 吾 通过 每 - - 步 长 为 请 的? 子 步 来 计算 因 恋 量 
3(z) 癌 量 , 其 中 
真一 再 7 《tf 3， | 》 
原则 上 ,可 用 修正 中 点 算法 医 为 一 种 常 微分 方程 的 积分 器 ,实际 上 ,这 种 方法 最 重要 移 忘 用 
大 用 在 第 16, 4 节 介 绍 揭 布 里 斯 基 - 斯 托 法 中 .因此 ,也 可 以 把 这 -一 节 当 作 第 16.1 节 的 .个 抽 
奏 。 
等 式 右 边 所 需 的 估 值 计算 ,在 修正 中 点 法 中 需要 十 1 次 .这 种 算法 的 公式 如 下 
Ye < 二 区) 
2 一 z0 填 丰 太 rz) 
zol 一 zm 1 十 37 十 mp 1 一] 2 一 上 《16.3.2) 


3(z 十 如 ) 全 凤 三 辣 四 一 zw 一 由 Fe 十 五 ,z.)] 


这 蛙 所 有 > 是 沿 等 步 二 的 中 间 近 似 值 , 而 yw 基 用 于 近似 y(z 十 吾 ? 的 结果 . 除 第 .点 和 最 后 
一 点 以 外 ,这 种 算法 根本 说 来 是 “中 心 差分 ”或 “中 点 ?法 ( 利 等 式 (16. 1. 2》 相 比 ), 因 此 给 了 个 
限制 词 “ 修 正 ”。 

修正 中 点 法 是 一 种 二 阶 算法 ,每 式 (16. 1. 2)… 样 ,但 是 有 一 优点 ,每 一 步 六 只 需要 (对 于 
比较 大 的 2 一 个 导数 宣 , 而 不 象 一 阶 龙 格 - 库 塔 法 中 项 要 两 个 学 数 值 .也 许 因 为 式 (16. 3. 2?) 
的 简单 性 ,也 很 容易 媒 入 基 些 应 用 程序 中 。 但 昆 意 的 说 来 ,修正 中 点 法 不 只 用 在 前 一 节 中 实 
施 的 自 适 应 控制 的 四 阶 龙 格 - 库 塔 算法 。 

在 布 里 斯 亲 - 斯 托 法 中 ,用 修正 中 点 法 是 为 了 从 式 (16. 3, 2) 中 求 出 深刻 ”的 解 米 . 这 
已 由 Gzagg 证 明 ,所 得 出 的 式 (16. 3. 2) 的 误差 可 表达 为 h 的 一 个 级 数 ,而 且 只 含 拓 的 偶 次 


项 3 一 3 十 再 ) 一 >) ap (16. 3, 3) 
# 一 | 


其 中 兄 保 持 常 基 , 但 在 式 (16. 3. 1? 中 广 随 二 而 变 . 这 种 偶 次 方 级 数 的 重要 性 在 于 ,如 果 我 们 
仍 运用 通过 组 合 步 长 的 情况 来 达到 消去 高 阶 误差 项 的 话 , 每 一 次 我 们 可 以 提高 两 阶 ! 
例如 , 俱 设 =” 是 偶 的 ,并 设 yz 表示 应 用 式 (16. 3. 1) 和 (16. 3. 2 ,是 步 数 为 一 半 nn 六 


的 结果 . 则 估计 式 yz 十 ID) (16.3.4 


基 四 阶 的 精确 度 , 和 四 阶 龙 格 - 库 塔 法 一 样 ,但 每 步 疡 只 需要 1. 5 次 求 导 佑 值 ,而 不 是 龙 格 - 库 
嵌 的 四 次 暂时 不 要 着 急 实 现 式 (16. 3.4) ,我 们 还 能 作 得 更 好 些 。 

现在 我 们 最 好 回 过 头 来 看 一 看 第 4, 2 节 中 的 程序 qsimp ,并 把 等 式 (4. 2.4? 和 上 面 的 武 
406. 3. 4 进行 一 下 比较 ,就 会 发 现在 第 四 章 中 ,根据 理 查 德 森 外 推 思想 进行 的 变换 ,在 第 4. 5 
季 龙 贝 格 (Ronjesg) 积 分 中 实现 ,恰好 类 似 于 从 这 一 节 伸 下 一 节 的 转移 。 

下 面 是 修正 中 点 算法 的 实现 ,在 以 后 将 要 用 到 。 


中 Inelude ”Drurj.h” 


29: 由 IDmidtEioat y 门 ，float qdydqx []、int hvar， P 放 oa xs, 划 oat htot ,int mstep 
站 ac 20 veida《*dervsjtloaty float ，fioat 1 D 


"612， 


妖 改 中 点 法 ,在 xs. 输 入 因 变 量 向 量 y-],.nvar- 和 它 的 求 导 向 量 dydxrl..nvar], 箱 入 还 方 总 的 步 阁 站 Pt 让 肌 如一 
步 中 的 子 步 的 数目 nstep ,输出 以 yoat .1..nvao 瓜 四 ,该 咏 隆 不 必 和 y  - 料 5 查 如 果 和 了 本 - 样 , 程 上 诺 入 上 区 完好 关 报 
地 返回 > 利 dydx 值 devirs 基 用 户 担 恬 用 于 计算 右边 求 导 人 此 程序 
Iat 卫 ,1)，，“ 
了 10aY 工 ， 名 中 有 PP，D2 ,耳闻 7 本 ,本 了 7 
了 meyectork1,nVYar) ; 
mvector(1,nvar)i _ 
bh=htot rmstaep; 步 长 的 行程 
for (ie=1 it<eayYaT ;i++) 荆 
了 [ij]=y[i]3 
妈 [ 引 =7[i]+heqydxz[i] ; 第 一 步 
工 定 并 上 十 也 ) 
《dorzYg)(x TOUt) 用 yout 上 暂 存 当 数 位 
h2nm2.0rhi 
Tor (ph=2imnx<=nstep;mntr》 荆 一 般 步 ” 
or 〔je57iceowar;a++) 工 
UP 了 m[i] +h2e*7out [] 
7m[i]=yn[i] 
了 [=swapi 
了 
开 + 四 搓 ; 
【9tderiwa)( 工 ,mv 了 out》; 
了 
for {ie1;i<eDVvar; I++) 最 后 一 步 
7out [ij=-O.5afym[i]+7a[i]+bwyouy [1])， 
了 Tree_YeCctOor(7D 1， 加 YaT) 1 
Ttbe_vectorf 了 和 ,二 ,nyar]i 


16. 4 理 查 德 森 外 推 法 和 布 里 斯 奇 -斯 托 算法 


在 这 一 节 的 介绍 的 方法 不 是 针对 包括 非 平滑 函数 的 微分 方程 组 的 .例如 ,读者 也 许 会 仍 
到 这 样 的 差分 方程 ,方程 右边 的 函数 值 是 通过 查找 表 或 插值 来 定义 的 ,如 果 是 这 样 的 儒 , 可 
以 回 到 龙 格 - 库 塔 法 用 有 适应 步 长 来 计算 。 那 种 方法 对 于 不 周 定 的 或 不 连续 的 定义 域 的 情况 
处 理 得 很 好 。 同 时 也 是 一 种 对 微分 方程 的 一 种 快速 而 较 粗糙 ,精度 不 是 很 高 的 解法 .另外 
点 要 说 明 的 是 ,在 这 一 节 介绍 的 方法 对 于 在 积分 区 闻 中 有 奇异 点 的 微分 方程 处 理 得 不 是 特 
别 好 ,一 个 正规 解 需要 很 小 心地 一 点 一 点 盘 近 这 些 点 ,而 带 崩 适应 步 长 的 龙 格 - 库 塔 法 有 时 
处 理 这 个 问题 很 有 效 ; 更 善 遍 的 是 ,采用 其 它 特别 的 方法 来 解决 这 些 问题 ,但 这 已 超出 了 我 
们 这 里 范围 。 

除了 上 边 的 两 个 缺点 以 外 ,我 们 认为 这 一 节 中 的 布 里 斯 奇 -斯 托 法 是 用 最 小 的 计算 达到 
常 微分 方程 求解 高 精度 的 一 个 有 前 来 说 最 好 的 方法 (有 时 可 能 有 例外 ,这 种 例外 苷 实际 中 很 
少 发 生 , 将 在 下 一 部 分 讨论 ) 。 

这 个 方法 有 三 个 关键 ,第 一 个 是 理 查 德 森 延 退让 近 极限 ,我 们 已 在 各 4. 3 节 中 的 龙 只 和 客 
积分 中 已 经 遇 到 了 .其 思想 是 把 数值 计算 的 结 昌 ,作为 其 一 象 步 长 二 这 样 的 可 酒 整 估 获 的 解 
析 函 数 ( 如 果 是 一 个 比较 复杂 的 )。 这 个 解析 蚂 数 串 以 通过 进行 不 同 坟 值 的 计算 来 千 测 .这 里 
的 疡 值 没有 必要 为 达到 我 们 所 需 的 精度 而 取得 大 小 。 当 我 们 得 到 这 个 函数 以 后 ,我 们 把 后 数 
拟 合成 某 个 解 古 式 , 然 后 在 很 重要 的 点 六 -0 处 进行 估算 (参见 淹 16. 4. 1) 。 理 查 初 琳 外 推 法 


= 站 ,3 


真是 -种 点 右 成 金 的 方法 ， 

第 二 个 关键 是 用 什么 样 的 匹配 前 数 : 布 电 斯 某 杆 斯 托 首 先 认 识 到 了 在 理 查 德 条 并 法 中 
有 理 函 数 外 推 的 作用 .有 悍 函 数 的 外 推 突破 了 圭 级 数 和 其 收 敏 半径 的 限制 ,只 受 复 平面 的 第 
一 次 极点 的 影 呈 : 即 司 在 到 的 各 次 项 数量 级 机 莽 不 大 的 情况 卜 , 有 理 昨 数 匹 配 仍 能 很 好 闻 近 
似 解 析 羡 数 ,入 广 之 天 可 以 取得 较 大 ,让 这 种 方 活 的 " 阶 次 ?失去 意义 ,而 这 种 方法 仍 能 取得 
很 好 的 效 典 ,关于 这 : -点 串 以 重新 看 :下 第 3. 1~-3. 2 节 , 在 那 时 我 们 已 经 讨论 过 有 理 丙 炮 外 
推 的 同 题 . 
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式 x+ 月 


一 个 人 的 问 大 开 出 逐 浙 细 分 的 竹 步 举 列 来 组 成 :其 结果 基 对 谈 怒 的 无 穷 细 分 的 子 步 进行 耸 推 ,在 
市 里 席 奇 - 基 托 蕉 中 ,和 分 所 是 来 用 牙 正 中 点 法 ,外 推 法 是 采用 有 柄 本 数 的 外 挫 法 。 


图 16. 4.1 布 里 藉 辫 -斯 托 放 中 瞩 用 的 理 查 德 森 外 推 靶 


第 三 个 关键 在 前 一 节 已 经 讨论 过 ,也 就 是 指 让 误差 函数 是 严格 惕 函数, 使 有 理 冰 数 或 多 
硕 式 通 近 为 变量 让 的 形式 两 十 呈 的 并 式 。 

把 这 二 个 主要 思想 综合 在 一 起 ,我 们 便 得 出 了 布 里 斯 奇 -斯 托 法 …, 单 步 的 布 里 斯 奇 -斯 
托 法 是 从 二 计算 到 z 一 召 , 这 里 的 11 是 一 个 比较 大 一 一 而 不 是 近似 无 穷 小 一 一 的 下 离 .每 一 
单 步 是 由 很 多 ( 几 百 上 千 个 ) 修 正中 点 法 的 子 步 组 成 ,它们 都 采用 近似 于 等 炒 长 的 有 理 函 数 
的 外 推算 法 。 估 算 间隔 如 的 序列 是 由 x( 子 步 长 数目 ?的 递增 序列 组 成 的 ,通常 布 里 斯 奇 和 





斯 托 提 出 的 =” 序列 为 
一 24.6.8.12,16,24,32,48,64.96:.. [一 20 |] (186.*.1) 
Deuf'hard “… 最 近 发 表 的 文章 中 建议 重用 序列 
4 一 24,6;8,19,12.134 [ma = 2 门 ..， (186, 4.2) 


通常 它 更 为 有 效 。 对 于 每 - - 步 来 说 ,我 们 事先 不 知道 沿 这 个 序列 要 执行 到 多 远 。 在 硕 序 执行 
每 -个 = 人 以 后 ,我 们 余 图 用 有 埋 外 推 冰 数 进行 试验 .外 推 结 果 给 出 了 外 推 值 和 误差 估 记 。 
如 果 深 差 不 满 足 要 求 , 则 采用 更 大 的 n 值 ; 如 果 浊 差 满足 要 求 , 则 继续 下 一 步 , 从 ”一 ?重新 
开始 ， 
当然 必须 有 “个 上 限 ,民运 上 限 以 后 ,我们 可 得 出 结论 ,在 沿 间隔 再 以 内 的 路 径 中 有 障 
“6itd， 





表 , 因 此 我 们 必须 减 作 条 值 而 不 是 对 世 进行 更 纲 的 划分 。 在 下 面 的 程序 实施 中 ,所 要 试 的 nm 
的 最 大 数目 称 为 KMAXX。 我 们 通常 取 这 个 值 等 于 &, 因 为 式 (16.4.2) 的 序列 中 第 8 个 倩 是 
16 ,所 以 这 就 是 我 们 允许 吾 的 最 大 细 划 分 数 ， 

和 龙 格 - 库 塔 算法 - 样 , 这 是 我 们 同样 道 过 监视 内 部 变 元 前 .一致 性 ,以 及 根据 与 部 截断 
误差 的 允许 误 关 冰 围 ,来 调整 步 长 大 小 以 控制 误差 的 大 小 。 修 止 中 点 法 积分 的 每 “个 新 的 沾 
果 允 许 象 第 3. 1 节 中 的 图 表 那 样 被 峙 机 的 一 组 对 站 元 扩充 .每 一 步 增 加 的 新 校 工 量 被 采用 为 
〈 保 守 的 ) 误 差 估 计 。 我 们 应 该 乓 样 用 这 个 误差 估 值 来 调整 步 长 呢 ? 目 前 最 好 的 方案 是 Deutfl 
hard- 提 出 的 ,其 完整 内 容 摘录 如 下 ， 

扎 设 从 外 推 开 第 关 列 (也 就 是 第 丰 -i 1 行 :返回 的 旋 益 告 计 前 把 对 值 为 名 ，. 误 其 控制 是 赴 过 在 接受 





当前 步 时 需要 满足 Et Le 12 
来 达到 ,其 中 上 是 允许 的 误差 范围 ,好 村 式 515. 4, 轨 的 倡 序列, 该 方法 的 阶 次 是 号 一 : 
可 让 让 宙 站 《16. 4》 
这 样 , 为 了 在 其 一 指定 列 业 达到 收 僵 、- 个 新 步 攻 ms 的 简单 个 汀 覃 由 为 
i (2 大 ，1 
了 一 有 一 G16， 1 5) 


我 们 的 日 的 是 ,使 忆 一 个 业 列 达到 收 侣 件 呢 ? 我 们 比较 一 下 厅 同 天 死 所 需 的 上 作 量 。 我 全 假 没 4k 为 达 
到 外 推 图 表 的 上 行 所 需要 的 计算 量 , 而 4k ,是 达到 大 列 的 工作 量 ,我 们 舍 定 工作 量 是 由 微分 方 径 右边 希 函 
数 佑 值 来 决定 的 ,对 于 五 中 必 细 分 ,函数 估 值 的 数目 可 由 下 面 的 递 推 式 来 求 出 


4 一 ?1 一 1 


《16. 二 的 
4 一 4 一 玛 H1 
达 估 二 列 的 每 一 小 步 的 下 作 量 是 4- 这 是 我 们 用 因子 召 进行 无 量 纳 化 ,并 写生 
Ps -和 罕 吕 人 于 7 
， LAC3A 十 17 
一 4k-i| -| (16. 4 人 8) 
在 积分 的 过 程 中 ,Ps 的 值 可 以 进行 尖 算 -这样 最 优 列 9 以 下 标 由 下 式 定义 
Tv 一 记名 人 Hz (1 人 主 , 9) 


这 里 ,Ar 是 最 后 - 列 , 在 这 一 列 中 虑 满足 式 (16.4. 3) 的 误差 范围 ,由 式 (16,4, 9) 定 义 的 9 决定 了 『 用 于 下 一 
个 基本 的 步 长 值 百 e* 这 样 我 们 可 望 在 最 优 列 g 处 达到 收 敏 。 
对 于 该 算法 必须 有 两 个 限制 ， 
, 如果 以 前 的 Z7* 太 小 ”, 则 好 也 会 " 太 小 ”, 这 样 , 也 * 太 小 "就 可 能 需要 增 大 五 值 以 便 能 在 列 ?>r 
土 达 划 收 伍 ， 
` 如 果 当 前 的 K" 太 大 ”在 当前 步 无 法 站 笋 , 则 必须 玻 小 总 香 。 我 们 可 以 通过 检测 s+iz 的 值 来 发 现 
这 一 点 ,使 得 我 们 可 以 尽 可 能 早 地 停止 当前 步 。 
Deufihard 的 文章 中 用 通信 原理 中 的 思想 ,确定 外 推 的 “平均 收 伍 期望" 案 处 理 这 两 个 问题 .在 他 的 模 
型 由 ,他 提出 了 一 个 校正 因子 x(e,9) ,通过 和 鼎 * 相当 以 后 试图 在 8 列 处 得 到 收 黎 .因子 et,e) 共 依 殊 于 
及 序列 tni) ,这样 可 以 在 初始 化 的 时 候 一 次 算出 ， 





对 于 <Y (16.4.10) 
而 且 aa, 一 1. 

现在 处 理 第 一 个 问题 ,假设 收 委 发 生存 列 4=#7r .我们 希望 增加 步 长 使 在 4 十 1 列 达 到 居 训 , 而 不 是 用 
*。 有 ]5。 


五 y 来 进行 下 一 步 操作 ,内 为 我 们 不 能 计算 州 可 用 的 五 *-; 值 , 歼 而 把 它 和 估计 为 


一 万 qt:9g 十 17? 【16. .1 7 
根据 式 (16.4,7), 这 种 等 代 是 有 效 的 , 即 可 以 减 小 每 一 小 步 的 计算 最 。 如 率 
aa 4 
之 疡 o 1 下 下 忆 旨 
或 
Hat909 工 1) 人 > 人 有 和， 


在 初始 化 过 程 四 ,这 种 不 等 关系 对 于 8 一 1,2， .可 以 检查 中 来 ,以 决定 Anaax* 天 允许 的 列 - 这 全 , 罗 式 
(6.4 12) 满 足 时 ,用 与。-: 总 是 有 效 的 { 实 践 中 我 们 杷 &asax 限 制 基 为 8, 即 使 汝 很 小 且 : 在 这 利 情 况 下 看 
效 性 不 会 有 老大 改进 ,而 售 入 误差 却 成 了 问题 ) 。 
此 长 减 小 的 问题 可 以 通过 在 当前 步 中 佑 算 步 长 什 
五 二 了 ofgy9)， 下 一 1 一 外 1 人 6, 4 4》 
有 完成 .好 在 最 优 列 4 中 ,达到 收获 的 步 长 的 估计 利 . 如 果 豆 i* 太 小 >. 我 们 则 未 再 继 续 妆 前 步 ,而 是 用 /7 
重新 并 始 .“ 太 小 * 由 以 下 规则 进行 制定 
Fe(R:9 二 1) 所 上 人 16. 053 
ca 满足 ak 有 Rd 十 1)》2>a( 友 汉 ) 。 
去 第 一 步 中 ,我 们 并 没有 关于 钾 的 任何 信息 , 步 长 碱 小 的 检查 是 针对 所 专 k 来 完成 的 .以 后 ,我们 汪 一 - 
个 “ 庄 溯 窗口 "由 检测 收 倒 和 可 能 的 步 长 减 小 ,该 ”序号 窗口 "如 下 
Taxft1:9- 1 人 大 六 mintknaxr.g 开 ]11 《16. 了 于. 16)》 
之 所 以 这 样 定义 窗口 是 因为 ,一 三 丰 , 如 果 对 k<e- 1 处 似乎 象 收 化 的 样子 , 那 往往 是 很 的 .过 是 在 外 挫 过 
程 中 小 误 鞭 偶 然 作用 的 结果 ; 另 一 方面 ,如果 需要 在 请.& 十 1 以 外 的 地 生 达 到 收 兽 ,这 个 局 部 收获 模 型 亚 
然 木 好 ,就 需 归 减 小 步 长 重建 此 模型 。 . 
在 程序 bsstep 中 ,这些 各 种 敬 们 的 检 调 详 际 上 是 挟 


《6117 


在 程序 中 谷 名 汶 err[k- 的 值 来 实现 的 .和 以 往 - 样 ,我 们 在 步 长 选择 中 包括 了 -… 个 “安全 系数 ", 这 是 通过 
用 0. 25 来 代 葛 < 达到 的 ,其 他 的 安全 系数 在 程序 注释 中 说 明 。 

注意 ,尽管 最 优 收 化 列 的 限制 为 最 多 一 次 递增 一 步 ,但 根据 式 (15.4,9) ,顺序 是 允许 打 乱 的 。 这 加 司 秆 
这 种 方法 对 不 连 约 知 是 有 一 定 适应 性 ， 


我 们 再 次 担 恒 , 变 元 的 尺度 比例 通常 对 微分 方程 的 成 功 求解 是 很 关键 的 ,在 式 (16.2.87 
以 后 讨论 的 只 度 比例 技巧 是 - ,种 很 好 的 通用 的 选择 ,但 并 非 完全 正确 的 .以 变量 最 大 值 为 只 
虚 攻 倒是 较 稳 健 的 ,但 需要 有 一 些 先 验 的 信息 ， 

下 面 的 程序 实现 了 布 里 斯 奇 -斯 北 法 的 一 步 计算 , 它 和 控制 计算 质量 的 龙 格 - 库 塔 法 步 
进程 序 *kqv 所 调用 的 变量 序列 是 完全 一 样 的 .这 就 是 说 ,在 第 16. 2 节 中 的 驱动 程序 odeint 
能 够 象 调用 龙 赂 - 库 塔 法 程序 一 ' 样 调用 布 里 斯 奇 -斯 托 法 程序 ,只 需 在 odeint 程序 中 将 rkqs 
天 煞 用 bsstep 蔡 换 , 并 注意 要 让 程序 是 浮 点 型 或 双 精 度 型 保持 一 致 ,程序 bsstep 调用 mamid 
采用 修正 中 点 序列 ,然后 调用 下 面 的 pzextr 进行 多 项 式 外 推 。 


蔬 inetude <math.h -= 

打 jnclade "mrutil. hy 

玫 deRne 区 六 大 入 避 司 于 外 外 的 版 大 行 数 
人 fp TNM NARY TEAXX- ED 


， 人 


节 define SAITT1L 习 .25 安全 因子 
此 define SAFFE2 《7 


超 define REDMAX 1.ne 一 - 步 式 减 小 的 最 大 因 了 

世 xle[ine REDYMIIN .7 和 和 减 小 的 景 小 因子 

define TINY 1.0e 一 30 防止 被 稚 除 

##define SCATMX 0.1 i7SCALMX 是 步 长 能 够 增加 的 芭 大 吾 池 

ioat 关 并 芝 天 和 5 此 守 指 向 南 pzexir 或 rzextt 调 同 的 宅 阵 和 癌 世 


void bsstep (float y[_，float dydx[], int nvy， flosgt * xx foat htry、，fioal sps，iloat ysecakt[  ，f]:， > hdid， 
fleat * hnext，void ( *derivs)kfloat float - 站 ,float . 沪 ) 
布 里 斯 奇 -斯 托 步 , 辫 用 监视 局 部 截 全 误 益 来 保证 精度 各 肯 整 东 长 -得 入 是 片 变 黄 x 的 起 阁 值 处 的 内 守 可 斌 YL 
ny 此 其 导数 dydx[1..nv -得 入 还 有 尝试 的 步 芭 htry, 所 一 精 庆 eps ,测度 襄 盖 的 血 量 ysczl-.1 .av 在 葵 出 站 种 
x 田 其 新 人 普 的 ,hdid 是 实际 采用 的 步 长 值 ,hnext 是 步 长 的 下 --* 步 估算 秆 .derirs 是 月 户 提供 的 程序 , 剂 以 计算 等 
式 右 身 的 导数 ,生意 , 左 成 功 的 步 时 ,把 从 前 夫 频 返 加 蜀 huext 赋 给 下 一 连 浪 步 的 htry ,这 样 久 备 此 程 侍 苇 wdernt 调 
用 ， 


Yoid waidtfioat yp] ，float dydz[] ，int nvar，float X6，ftloat htot， 
int astep，T1Loar yodut[ 口 ，Yoid (wderiya) floatr，float[]，Floatr])); 
Vold pzextrtjnt iegt，tloat Xest，iloat yestT] ，ft1oag yzZ[] ，fl1oat dyD， 
int ny); 
.1nt iiq,KX,kx,i; 
8 七 atiCS in 王 ixats1,xmaz,xoPti 
8 蕊 atic 10ar @p3dld * -t.0,XDdwi 
节 Lcat epB1L,eITRSX TaCct ,ITedacale worx,wTmin,xest ; 
10 二 T 本 人 9 下 式 ,本 了 四 站 站， 和 了 站 起 V ， 机 了 本人 
3taIC 了 1Oat 中 [INMAXXYL]; 
七 有 万 c .三 LOat al1 王 [XMAXX+T] 了 ERKHAXX+1I] ; 
权 帮 外 蕊 生 CD 七 卫 昌 帮 可 [工科 胡 居 系 +1] 一 《人 ， 卫 ,六 ,G 日 ,1 It2 1，156,187， 
1nt Feduct ,exXitf1ag=DOi 


damatziz[1, RMAXX 1,KMAXX) ; 
TImVYGC 世 OF】 ,民国 大 关 忆 ) ; 

工 杞 妇 后 C 七 四 【二 ，XXMA) 了 
yeITeVector(1l,ny); 

?了 aaVs=yvector(1, nr)?; 

了 seqevektorr1l,nv) ; 


1 (epB !m epsolg) 《 新 的 容 头 ， 所 以 重新 初始 红 
shnexzt = Inevy = -1.0929; “不 可 能 ?的 但 
8PaT=SRAEFE14#GPB 
a[1] “ageq[1]J+1; 计算 有 效 系数 4x 
for 【kk=1;x<=KNAXXIK++) [x+1]sa[k]+aseqf[x+rl] : 
for 〔1q=2;1q<=KMAXX，iq+4+)》 1 计算 裤 ,9)、 


for 《kz=1 ;<iqix++) 
alf[x] [iqj=powfepeBl,.(a[k+1l]-a[iqt+i])7 
(fafiq+I]-a[i]+l,O)a《2ex4177)7: 


} 
人 PC1LdaaPp3i 
1or 《koPte23 和 opPt<KINAXX opte+) 确定 收 北 的 最 优 行 数 
并 《a[kopt+1] > a[xopt]watz[xopt-1] [kopt]) brea; 

ou x=xoPti 

】 

bmbtry ij 

Tor (i=t;ic=a7;i++) yaav[i]wy[i]; 存储 起 始 值 

iT 《rzE 1= Xnaw || h !< 《whnext)) 新 的 步 长 或 新 的 积分 
firstw1i 重新 建立 阶 次 窗口 
kopt=jamaz | 

) 

YeductOi 

for (5)【《 
for (kelikc=jmaxixt+) 工 和 个 算 履 改 中 点 积分 序列 的 值 


了 DG [本 了 X) 二 hb 

ifIZDoV =<= 【+II))》 nrTeITOr "step sizb Underf1ow in bsstgpn") 1 
bid(ysay ,dydr,av,#Xr:hnseq[X] ,y3e@q vaattye) 
xeat=SQR{hynsaq[k]) ; 环 广 ， 峡 为 攻 差 级 数 是 偶数 
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pzZextrKk ,xogt,y8&8Sqoy ,yercynv]1 执行 外 排 : 


if (k 4 1) 工 计算 昌 化 误差 估计 值 
BYY 世 和 区 mTINT ; 二 (大 . 
for {imtiicenv;iii+) errmaxrFMAX[Grrteazr, 夺 abstyerr[ilyyscal[Ii]) 7; 
BTTEAT /= psi 相对 于 容 限 放 缩 误差 
ax-1i 
br [xmj=PpovferTmar/ASAEE1 1.07(2#Nm+t)) 1 
】 
if tt IT 上 kt (E > xopt-i | firsc)) 在 阶 次 窗口 中 
if (erraax < 1.0) T 收 笋 
昌 X 寺 tX]agm1; 
brezki 
】 
if (kk mm xmaxz || K = Xopt+1)》 T 恰 查 可 能 的 步 长 茂 小 
redeSAFE2/err [xm] ， 
break; 
了 
elsa if (KE = XoPt & BaLf[xopt-t] [kopt 《< err[kzgj》 妆 
Tedsl,Grerrfm]; 
breax 
了 . 
81s6 if 《kopt sea max 8 alf[imz] [kmax-t] “ arrFza])《 
Tedaatf [km] [kmaz--1]*wSAFE27err[kma] : 
breaxi 
】 
el8e if (alz [ma] [kxopt] < srr[xm]》 世 
readwali [km] [kopt-1]7arr Da] ; 
break ; 
】 
二 
了】 
证 〔exitflag) bzeaxi 
redwFMINKred,REDXKIN) ， 由 让 小 情 REDNIN 和 政大 值 REDNMAY 
red=FMAX(Yed ,REDMAX》 碱 小 步 长 
b 9 二 ed; 
reductsl3 
再 试 
1] 成 功 完成 -- 步 
同 d 二 1dehi 
下 irsteDi 
azkmin=1.0835; 为 收 贫 计算 最 优 行 和 相应 步 长 
for (kr1;kk<=kmixk+r) 
Tact=FMAX [6eTT [xxk] ,SCAIMX) ; 
Vork=f3CT#8 [KK+l] 
主 (WOrk “ VTmin) 
尽 CL Ba SC 7 
grkmdiRneworSi 
opt=kxk+l; 
】} 
#hmneXkmb7scalai 


好 《kept >= 和 雍 opt !m kax 届 ?Feduct) 工 
对 可 能 出 现 的 粉 次 增长 进行 检测 若 步 长 正好 碱 小 则 不 检测 
uCt=FMAXKRCaLGAalt[Eopt-z] [xopt] ,SCALMX) ，; 
放 (〔(a[xopt+1]wzact <= WTkmin) {《 
才 了 b 口 自 工 世 mh act 
opt++i 
】 
》 
free_yector(yaaqs1:nV) 
free_vector(ysnaY 1，DV)》: 
Tree.yYectDr(YerT tnRV] 1; 
TBG_VaCtOT(。1 ,其 风头 工 X) ， 
free_vectorferr， 1, KMAXXD) i 
开工 直 折 _ 站 全 世 广 区 【四 在， 区 M 让 丑 头 ， 研 ， 伏 风 大 民工 ) 外 
} - 
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多 质 式 外 推 的 程序 基于 相 第 3. 9 节 polint 中 必 回 的 算 靶 。 它 是 已 较 简 兰 的 , 斗 2 总 是 外 
推 到 零 ,而 非 外 推 到 任意 值 .但 它 也 是 较 复 杂 的 ,因为 必须 单独 地 对 某 数 值 度量 相 的 舍 一 分 
其 进行 外 推 ， 
共 include "nrutil.h” 
eXtern float 关 #T， 基 X3 在 程序 :sstch 中 崖 区 


vaid mrextr(inT iest， font yesEL ly loat yz iloat Riy[ tt bnv) 
佼 阴 多项式 外 推 米 计 算 mr 个 末 数 在 x 一 6 处 的 管 , 记 尺 迁 汗 将 密 项 式 拟 音 咸 “ 列 具 有 这 次 较 小 利 xs sl 可 相生 这 
六 刻 让 旗 yes[1, .rw 六 襄 负 来 计算 的 ,这 次 是 调 习 床 刻 条 区 第 iest 颁 凋 用 .条 外 推 的 函 小 做 二 
的 性 计 香 误 次 输出 为 dy 中 rs 






int xl,j: 
fnOaC 唱 * 王 271，tLelYa Ci 
Cavectorf1l,nv)]i 
xf[ieat]=xeSt; 保存 当前 它 变 莽 
for 【je1;j<=av;j++) dy[j]=yz[j]=yesti] ; 
if (test = 1) 《 存储 第 -- 列 傅 计 值 
for [j=1ij<=nvij++) dfj][ 菇 =yest5] 
] elee 蒜 
for 〔j=1;j<snv;ij++) cr[jJjnyest 订 ] ; 
Yor (xlmL;gl<iestixdi++) 工 
delLta1.0Or0xr[iest-kt]-xest] 1 
寺 1=xestedelt 
T2uX - 荆 @5 七 -LT] da1tBi 
for [jnlijcsnv;j++) 荆 将 式 1 的 对 其 元 延 仲 则 页 多 
qs 纺 [j] fk1] ; 
<e[jjfxi]mdy[j]; 
Geltaez[]] -qi 
Gy[j]=f1+delca; 
c[j]e=T2wdeltei 
yz[j] + day[j]; 
了 
for 【j=1;j<=tmv;j++) d[j] [iest]=dy[j]; 
》 
fres_vectorfc,1,nv)， 
1 


目前 人 们 在 布 里 斯 奇 -斯 托 法 中 用 多 项 式 外 排 , 而 不 用 有 理 函 数 外 推 . 但 是 ,我 们 的 七 党 
是 ,这 种 观点 是 由 各 种 问题 的 测试 中 得 出 的 ,并 非 是 某 一 种 方法 确实 "更 好 些 ", 相 弃 地 ,我 们 
也 提供 了 上 有理 苛 数 外 推 的 最 优 程序 rzextr, 它 完全 可 替代 上 面 的 pzextr 程序 . 


共 incjudqe "nrutil,hy” 
Cxtcrn float 天 A 间 ， Xi 在 竹 序 bsstep 中 定义 


void tzextr(jnt iesty iloat xest， ftioa: yest float yz[j，float qy[]，int ny) 


木 程序 可 完全 苛 代 程 庆 pzextr .有 用 对 角 有 理 因数 外 推荐 弥 多 项 式 外 推 。 


了 nt 症 ,，ji 
fl1oat yyY，Vsddy cbli,b,rfzri 


xseTectorf1,iest) ， 
X[ieBgt]=xest; 保存 当前 自 变 量 
iy (〔〈iast me 1) 
for 【ja=l1;:j<=nvijt++》 工 
yz[0jj=yegt[J] 


1 攻 


QT] 1] mrost[3] ; 
邮 [ 记 =yest 引 ]; 
3156 
了 oz 【Yad ;区 <iegt ;K++) 
ftx[xk+1jsx[iaet-hk]yAxatt: 
for (j=d1ijic=nv,j++)y 苹 求 表 中 下 -对 角 元 的 和 掉 
wed [jj [1 
dj]TL=yyrc=yest[j]: 
LOE 不 m 人 ;上 <m1 后 Bt ;++) 工 
bb1= 人 [KJ wwri 
bbi~c; 
17 fb) 二 
bmgc-yyb; 
ddy=cerhb; 
Ceblsyb 
1 elee 当心 ， 必 须 帮 和 免 零 作 除 数 
ddy=y 
if (KE }m iest》 vd[i] [k]i 
d] Drnddyi 
yy +ye ddy; 
下 


好 [jj=ddy; 
痉 [] <yy 


ree_vector (tx,1,iegst); 


直 
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16.5 二 阶 守恒 方程 组 


通常 情况 下 , 当 要 般 一 组 高 阶 微 分 方 各 组 对 , 遇 好 把 它 化 成 一 个 一 阶 微分 方程 组 ,如 第 16 节 中 记 这 的 
那样 .但 实践 中 通常 右 一 类 特 听 的 方程 组 ,通过 直接 差分 而 效率 下 提高 两 倍 . 这 一 类 方程 组 是 二 阶 系统 , 其 
在 等 式 右 端 没有 出 现 导 数 : 

3 “一 xz Yo 一 加 (za 一 2 {16. 3.1) 
和 以 往 一 样 , 这 里 的 y 可 以 代 责 -个 数值 的 向 量 ， 
分 解 这 样 的 问题 ,最 通用 的 方法 可 追溯 公 1907 年 所 出 的 Sroernaer 法 则 。 设 上 一 扎 poa ,我们 有 
3231 一 0 十 夷 [<e 十 二 Atrs ,mn ] 
3 一 2 一 嘎 To 一 由 0)， 类 一 1. 网 一 1 0 
一人 一 加 让 二 十 FPC 一 旦 ,yn) 


这 里 ,za 是 》 (2 十 召 )。Henriei 说 时 了 如 何 通过 利用 值 Al 二 yt 一 六 重 写 方程 (16. 5. 2) 来 减 小 念 人 误 
差 。 
首先 
Ai 一 瑚 _2p 十 冯 4Pxrvyo] (5 5 
1]D.5.3) 
3 一 加 十 ao 
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然 上 1 对 上 有 1. 下 一 下 坎 置 
人 一 | 


二 人 
总 后 从 下 式 计算 好 烙 


“ 坝 


3 
人 本 | 有 yw 


Giragg 重新 说 上 蜂 闻 方程 硼 (16. 5.3) 一 (06.5.5) 包 省 的 系列 民 关 只 含有 hh 看 偶数 次 半 , 这 年 :区 种 了 入 
中 辑 上 和 便 可 适用 十 布 人 盘 斯 月 -斯 托 法 ,我 们 用 上 列 程序 stoerm 找 衬 mmig， 


#incluce "nruftil.hy 


void stoerm (float y float q2y7 inf nr float xg， fjoat htor。int mstrcp， 
float your[ ].weid【* derivs)ffipar，floal [ 门 ，bear [7 
对 于 ma 一 nvy72 个 方程 ,用 Stoermer 法 则 求解 一 Fr) 的 程 丰 。 -个 输入 yL1 .nj 在 前 于 个 灵 村 2 在 合 -站 它 和 
十 元 素 中 包含 在 xs 处 的 y 值 ,d2yz1. .av] 前 上 个 元 党 已 念 右边 的 所 数值 区 也 是 在 xs 处 + 后 m 下 工 订 . 爸 闪 用 1 只 
一 输入 量 htot, 总 共 要 采取 的 步 数 ,及 nstep ,要 采用 的 了 步 数 , 端 出 返 末 在 your 1. ,ny :中 ,和 YY 的 村 储 兰 梅 - 样 。 
deriys 是 用 户 袍 作用 于 计算 革 的 程序 。 


int ia,neqne ,za 
Tloat h,h2,halfh,x,*wyteap; 


ytCeap=vectar(1,avV) 
hhtotAmatapi 这 次 的 步 发 
baTfpmD .by 
hadnaeny/2; 睫 程 个 数 
for 《imliz<=neqng;i1++) 二 第 一 步 
Deneqn 名 + 这 
ytampfi]ny[i]+(ytemp [anj=h*(y[nj+halfhed2y[i])): 


和 =X8+ 了 Di 
(ederive) fx,ytemp,youc)i 利用 yout 和 车 时 存 巡 导数 什 
h2whz# 
for (arn=2:nncs=ngteginnpy+) 一 释 情 况 
for (isl1iic=naqnsii++) 
ytemp[i] += (7temp [fn<neqna+i)] + h2wyaut [i]) ; 
| 
【sederivayfEz,yEenp,7out) i 
】 
for (ieli;i<=eaeqnBidl++) 最 司 -- 步 
neDBeqD5+ii 
yout [a] =ytegp [an] /hrhalfheycout[i]， 
yaut [1] = 了 temp [i] ; 
free_yectcor(7tanp， 1，ny)i 


注意 ,为 了 和 bestep 装 容 ,数组 y 和 d2y 的 长 度 对 n 个 二 阶 砌 程 是 2ay 值 存 情 在 y 的 前 mn 公 姜 素 店 ， 
而 后 n 个 元 素 中 存 铺 第 - 阶 求 导 值 等 式 右边 的 f 存储 在 d2y 矩阵 的 前 na 个 元 率 中 ,后 虽 个 元 索 未 使 用 .在 
这 样 的 存储 结构 下 ,可 以 使 用 bssteb, 只 带 简 单 地 用 同样 的 参数 值 调用 stoerm 来 代替 对 mmid 的 调 虽 ;中 
是 要 注意 bsstep 的 参数 ny 设置 成 如 ,也 应 使 用 Deuflhand 建议 的 宣 有 效 的 步 长 序列 
如 二 12 3 4 3. (6. 间 
并 在 bsstep 中 将 KMAXX 设置 成 12 。 


参考 文献 及 进一步 读物 ， 
Devflhatrd，P, 1985，SI 和 M Reureru vvol. 27*pP.505 一 535. 
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16.6 ”方程 的 刚性 集 


当 处 理 多 于 一 个 的 一 阶 涩 分 方程 时 , 方 考 的 刚性 集 也 许 就 可 能 出 现 了 .刚性 问题 通常 出 
现在 自 变 二 的 取 值 有 两 个 或 多 个 不 同 尺度 ,而 应 变量 正 随 此 而 变化 的 问题 中 .例如 .考虑 下 
面 的 方程 组 


4 一 958z 洒 1998Y 
《Tb 上》 


2 一 999r 一 1999 
其 边界 值 条 件 为 
zf0) 一 1】 PtO) 一介 | 
通 和 地 变形 
一 2 一 一 FS 《18,，0. 3 
我 们 得 到 解 
下 一 2677 el0t5x 
Se CE 玉生) 
辣 二 一 人 
如 昌 我 们 用 这 “- 章 内 到 目前 为 止 的 任意 一 种 方法 ,对 (15. 6. 1 方程 组 进行 积分 求解 , 共 中 的 
< 7 项 需要 步 长 AS 17]000 才 能 使 方法 稳定 (其 原因 在 下 面 介 绍 )。 即 使 当 “ 离 并 原点 ,在 


决定 x 和 值 的 过 程 中 eae* 项 完全 可 以 钨 玫 时 也 得 这 样 ( 见 图 16. 6.1) 











这 于 假 定 方 条 有 两 给 静 , 如 片面 襟 线 秆 短 杉 线 东 ,尽管 廊 始 条 件 是 据 供 溃 是 实 线 解 为, 但 
积 耸 的 稳定 性 (如 图 中 不 稳定 的 带 总 的 线段 序列 ? 则 是 由 变化 很 快 的 短 模 线 解 所 诀 定 的 ,名 
使 在 那个 解 册 乎 趋 近 于 零 时 也 -- 栏 .要 稻 决 这 个 问题 可 以 利用 隐 式 积分 。 


图 16.6,1 积分 刚 吐 方程 中 通 到 相 稳 定性 的 例子 (图 示 ) 


这 是 刚性 方程 的 道 病 :我 们 下 要 在 解 的 皮 俊 较 小 的 度 基 范围 内 变化 步 长 ,以 保持 积分 的 
稳定 性 ,尽管 积分 精度 可 以 允许 - -个 比较 大 的 步 长 值 。 
我 们 来 看 一 下 怎么 解决 这 个 何 题 .考虑 下 面 这 个 方程 : 
3 一 一 人 《16.6.5) 


1622。 


这 由 c>0 是 一 个 常数 ,用 隐 式 (或 前 向 ) 欧 拉 法 以 步 长 六 积分 ,这 个 方程 是 
3 一 二 (一 续 )3 站 6 6. 6)》 
这 种 方法 称 作 隐 式 解法 ,因为 新 的 值 mw ,是 以 旧 的 值 mm 的 隐 含 方式 给 出 的 .显然 ,当天 > 2yc 
时 ,这 可 方 法 是 不 稳定 的 ,因为 当 mn 一 cs 时 ,yn 一 o。 
最 简便 的 解决 方法 是 采取 隐 式 差分 ,其 中 在 新 的 》 值 处 估算 右 映 项 .在 蔷 促 情况 十 、 坊 
们 得 到 了 后 向 欧 拉 法 


Js 一 3 一 用 w 《16.e,7) 


或 Js 一 于 这 二 (16. 6.8) 
这 种 方法 是 绝对 稳定 的 :即使 当 Aco 时 , 亦 有 w:=t0, 这 实际 上 是 微分 方程 的 正确 解 .如 
果 我 们 把 z 设想 成 代 才 时间 , 央 隐 式 方 法 将 以 大 的 步 长 收敛 到 真实 的 平衡 解 ( 如 时 间 和 晚 
一 些 的 解 ) .这 种 隐 式 方法 的 良好 特性 只 对 线性 系统 成 立 , 担 即使 在 - 般 情 况 下 , 隐 式 方法 也 
能 给 出 比较 好 的 稳定 性 .当然 ,如 果 我 们 町 较 大 的 步 长 通 近 真实 解 时 ,我 们 得 放弃 精确 度 . 人 


我 们 还 是 坚持 稳定 性 优先 
这 些 思 想 能 够 很 容易 地 推广 到 常 系数 线性 方程 组 的 情况 
7 一 一 C.y 《16. 6.9》 
其 中 C 是 一 个 正定 矩阵 。 隐 含 盖 分 法 为 ， 
yl 一 (1 一 CA) yn (16. 6. 10》 


一 个 所 阵 A* 当 m = 时 赵 近 于 零 , 仅 当 & 的 最 太 特 征 值 小 于 单位 1. 因 此 , 当 rw 一 = 时 ,> 有 
界 的 充分 条 件 是 , 仅 当 3 一 Cr 的 最 大 特征 值 小 于 1, 换 育 之 
2 


天 < 起 《16.6.31) 
这 里 ,Am* 是 C 的 最 大 特征 值 。 
另 一 方面 , 隐 含 差分 式 给 出 了 
yz+1 一 y。 十 AH 《15， 昌 , 12》 
或 
yi 一 《 业 十 CA) yn 《16.6, 13) 


如 果 C 的 特征 值 是 , 则 (1+CR) 一 的 特征 值 应 是 (1 十 ‰5) ,对 所 有 丘 来 说 , 它 的 量 值 都 小 
于 1( 正 定 拒 阵 的 所 有 特征 值 都 是 非 负 的 ). 因 此 这 种 方法 对 于 所 有 的 步 长 六 都 是 稳定 的 .为 
达到 这 种 稳定 性 ,我 们 所 付出 的 代价 是 每 一 步 都 对 矩阵 东 道 。 
遗 晨 的 是 ,并 非 所 有 方程 都 是 常 系数 的 线性 方程 .对 于 诸如 方程 组 
y 一 f7) (16. 6. 14) 

隐 式 差分 法 导出 ， 

小: 一 yn 十 (7y 1D) (16.6. 15) 
一 般 赔 来 ,这 是 一 个 比较 麻烦 的 非 线性 方程 组 ,必须 每 步 进行 只 代 处 理 。 假 设 我 们 能 化 成 线 
性 方程 组 , 象 牛 上 顿 法 中 那样 : 


| 3 
yi 二 oo 十 区 到 Gil 一 总 | 避 6.6. 15) 


其 中 afyay 是 右边 矩阵 ( 雅 可 比 矩 阵 ) 的 偏 导数 。 重 新 将 方程 (16. 6. 16) 安 排 -- 下 ,有 
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和 

如 来 二 不 是 很 大 ,也 许 只 用 一 次 牛顿 法 夺 代 就 足以 精确 地 用 式 (16. 6. 旧 求 解 方程 
15> .也 就 是 说 ,在 每 步 , 我 们 必须 把 矩阵 

1 一 站 = 一 《人 


求 着 必 求 出 加 -用 线性 化 解决 稳 式 解法 的 问题 称 为 * 半 稳 式 解法 " .这样 ,等 式 (16. 6.1 年 
世 半 腹 式 欧 拉 方法 .这 种 方法 并 不 保证 是 稳定 的 ,但 通常 是 稿 定 的 ,本 为 其 局 部 表现 很 富生 
于 上 面 所 述 的 常数 矩阵 C 的 情况 。 

这 样 ,我 们 讨论 了 有 一 阶 精 确 度 的 隐 式 算法 ,这些 算 法 可 用 性 是 很 温 的 ,大 多 数 问 题 可 
从 高 阶 算法 中 得 到 满意 结果 。 下 面 昆 刚性 方程 组 二 种 重要 的 高 阶 算法 。 

“通用 的 此 格 - 库 塔 法 ,其 中 最 有 用 的 是 加 塞 布鲁克 《Rosenbock) 算 法 。 首 次 用 该 思想 进 

行 实践 的 是 Kaps 和 Retrop ,了 寻 以 这 些 算 法 又 被 称 为 Kaps-Rentrop 算法 。 

“通用 的 布 里 斯 奇 -斯 托 算法 ,尤其 是 Bader 和 Deuflhand 提出 的 半 稳 式 外 推算 法 ， 

， 项 测 校正 法 ,其 主要 部 分 是 Gear 后 向 差分 法 的 继续 。 

我 们 将 给 出 前 两 种 算法 的 实现 .注意 ,如 果 方 程 的 右边 显 式 地 掖 赖 于 .fty,r), 司 以 通 
过 把 = 加 到 应 变量 的 列表 中 来 解决 ,这 样 ,方程 组 变 成 


中 一 站 (6.6.193 
1 了 1 


fy。 


在 入 节 要 给 出 的 两 个 程序 中 ,我 们 已 把 这 种 替换 灵 式 地 完成 了 .这 样 , 用 户 就 不 用 再 为 考虑 
fy,z) 而 费 多 大 劲 了 。 

现在 ,我 们 提醒 很 重要 的 点 :在 用 自动 调整 步 长 来 积分 刚性 方程 时 ,适当 地 标 意 变 元 
起 移 对 很 关键 的 事 . 和 . 非 刚性 方程 求解 程序 : 样 , 需 提供 一 个 向 量 you* 用 其 来 测量 误差 。 例 
如 ,为 得 到 常数 部 分 误差 ,只 需 简 单 地 设置 yu= | 了 |。 也 可 以 通过 把 ye 设置 忒 其 最 太 值 , 米 
得 到 常量 相对 十 某 一 最 大 值 的 绝对 误差 。 在 刚性 方程 中 ,在 其 解 中 常常 有 递减 极其 迅速 的 部 
分 , 当 其 变 得 很 小 时 ,用 户 可 能 不 十 分 感 兴趣 .这 时 ,可 以 控 撩 高 于 其 一 浆 信 忆 的 相对 误差 、 
或 是 低 于 该 阐 值 的 绝对 误差 ,通过 设置 

ysoad 一 maxCC,ly|) 《18.6, 201 

如 果 用 某 一 适当 的 无 量 纲 的 单位 , 则 C 的 每 一 分 量 是 有 序 的 单位 值 .如 果 不 能 确定 应 该 给 C 
采用 什么 样 的 值 , 则 只 需 试 善 把 每 个 分 量 设 成 和 单位 值 相间 即 可 .对 于 刚 福 何 题 .我 们 积极 
提 侣 选择 式 (]6. 6. 20)。 

最 后 敬告 一 点 :解决 刚性 问题 有 时 可 能 导致 精度 的 极 大 差距 .所 以 要 注意 , 籽 使 用 双 精 
庶 型 的 情况 。 


16.6.1 罗 塞 布鲁克 算法 


这 些 算 法 在 理解 和 实现 起 丈 相对 比较 简单 .对 于 中 等 精度 要 求 {e 委 10- 一 10-5 以 及 中 等 复 灵 的 问题 
{Nssl0) ,它们 和 更 加 复杂 的 算 法 是 可 相 比拟 的 .对 于 更 加 严 烙 的 参数 , 罗 塞 布鲁克 (Rosenbrook 算法 仍 
然 有 效 , 这 些 算法 在 有 效 性 上 只 是 比 半 陷 含 外 推算 法 ( 见 后 面 ) 要 差 一 些 ， 

办 塞 布 重 布 算法 好 找 了 一 个 形式 如 下 的 解 
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yz 十 妇 一 9， 416. 全 21) 


其 中 花 止 系数 k; 通过 综合 式 (16.8.17) 中 结构 的 个 线性 方程 进行 求解 而 获得 ， 
7 一 1 


CE 下、 5 人 


ee 


其 中 ,用 工 表 六 雅 可 比 秆 阵 , 系 数 Ya,i 郑 了 是 和 后 题 无 关 的 国定 参数 ， 如 果 Y 一 7 下 这 是 简 单 的 龙 祝 
- 库 塔 法 , 方 称 (16.6. 223: 可 被 成 功 地 解 出 水 
二 二 让 生硬 二 站 届 交 和 十 站 仙人 | 的 各 证 和 Rentrop 汪 发 现 了 :种 骨 入 式 或 龙 格 库 
塔 -Fechlkceg 算法 ,如 第 16.2 节 中 所 述 : 计 算式 (26.5. 21) 的 疯 个 估计 值 " 真 实 值 "y 贡 及 有 不 同 的 系数 cs 
6 一 1 3) 的 低 阶 佑 计 值 ,这 里 5 < :但 k 是 相同 的 . y 和 y 之 关 可 以 导出 局 部 截断 误 辩 的 估计 倩 ,这 
可 以 用 于 步 长 控制 -Kaps 却 Renrrobp 指出 , 取 典 入 的 最 小 * 可 能 是 。 一 4 一 3, 从 而 成 为 .个 四 阶 算法 . 
为 恒 式 416.5. 22) 右 端的 拖 阵 调 若 的 琵 积 最 小 ,我 们 用 下 列 量 重 写 方程 ， 
1 一 | 
站 -了 7 十 并， [本 
二 
则 方 称 蛮 成 下 面 形 式 
人 1 
人 7 一 个) 基 一 fy 一 cai 的》 一 ci 有 ER 
《1 下 一 站) 8 一 fy da:g 十 asig:) 一 (cag. 一 Ca 人 zy 天 人 
5177 全) 区 一 fy 一 ax 人 十 9 十 co 玫 )》 一 《cu 十 cosg， 十 cyEs) 
在 我 们 根据 Kaps-Rentrop 算法 实施 的 程序 由 ,我 们 己 经 在 方程 (16. 6. 24) 中 显 式 地 实 更 了 式 (16.6. 19) 中 
的 代 换 ,所 以 用 六 肖 已 不 用 为 此 担心 了 ,只 需 简 单 地 提供 一 个 程序 (在 stiff 中 称 为 derivs) ,该 程序 返 可 上 
《 称 作 dydx) 作 为 和 了 的 函数 ,同时 也 提供 一 个 程序 jacehn ,该 程序 返回 人 dftdy) 以 及 afy3ytdfdx) 作 为 
工 和 ?的 函数 . 旭 果 z 在 右 端 没有 显 式 出 规 . 则 dfdx 为 零 . 道 常 闪 可比 矩阵 可 通过 对 右 问 『 解 本 微分 所 得 
到 。 如 果 不 能 ,用 记 的 种 序 必 须 用 适当 的 增 量 &y 通过 数值 差 来 计算 。 
Kaps 和 Rentrop 给 出 了 两 组 不 同 的 参数 全 ,在 稳定 性 方面 有 稍 许 的 不 同 . 另 外 还 提出 了 其 立 几 组 戎 
数 . 我 们 缺 省 的 选择 是 Shampine-3 提 供 的 参数 ,但 也 给 出 其 中 一 组 Kaps-Rentrop 参数 作为 可 选项 ,有 些 提 
出 的 参数 集 需 归 有 在 积分 域外 的 函数 估 值 ,我 们 希望 还 开 那些 复杂 度 ， 
调用 sttff 的 参数 序列 和 早先 给 出 的 非 刚性 程序 中 的 -- 样 ,因此 它 和 一 般 常 微分 方程 组 中 所 给 程序 
odeint 是 兼容 的 , 遗 司 的 是 ,这 种 兼容 性 需要 有 - - 些 稍微 不 同 ,用 户 提供 的 程序 derivs 是 一 个 旺 元 (无 实际 
名字 ) ,而 另 -- 个 用 户 提供 的 穆 序 不 是 一 个 参数 ,而 必须 命名 为 jacobn。 
sttff 程序 首先 存 情 初始 值 ,以 备 在 误差 超过 时 该 步 能 重新 计算 。 线 性 方程 组 (16. 6. 24) 首 先 用 程序 
Jubemp 对 和 矩阵 1 六 一 才 进行 忆 分 解 , 热 后 用 lubksb 对 四 个 不 同 的 右 问 项 进行 回 代 求 岂 本 -注意 ,积分 的 
每 一 步 需要 调用 jacobn 一 次 ,调用 derivs 三 次 (是 在 sttff 之 前 调用 一 次 获取 dydx, 并 在 stiff 内 部 饥 用 两 
次 ) ,为 什么 只 璐 三 次 而 非 四 次 调用 ,原因 是 方程 组 (16. 6. 24? 中 最 后 的 两 个 调用 熏 数 已 经 衫 选择 ,所 以 只 
需 用 相同 的 参数 即 可 . 雅 可 比 矩阵 的 计算 量 大 致 等 同 于 对 右 端 了 的 N 个 估 值 的 计算 量 , 我 们 看 出 Kaps- 
Rentrop 方法 每 步 要 进行 X 二 3 次 函数 的 估算 .注音 ,如 果 N 较 大 ,而 雅 可 比 答 阵 是 攻 丽 抑 阵 ,就 应 波 用 


合适 的 稀疏 和 给 阵 算法 来 代 蔡 ZZ7 分 胡 ， 
步 长 以 制 依赖 于 
yeraer 一 了 十 OCR 
7 = 了 On 416. 避 25) 
因此 
放 一 了 | 一 CGO (16. 5,26) 
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参 壮 方程 (16. 2. 4) 到 (16, 2. 10) 的 起 始 步 长 ,我 们 看 到 新 的 步 长 庶 该 选 为 如 式 (16. 2. 10) ,但 是 把 指数 174 
和 1/5 相 度 地 用 173 和 174 代替 。 同 样 ,经 验 表 明 在 一 步 计 算 巾 ,应 避免 步 长 发 生 大 的 变化 ,否则 我 们 可 能 
荃 在 下 -一步 中 取消 这 种 大 的 变化 .我 们 采用 45 和 1.5 作为 一 步 中 允许 声 的 最 大 减 量 和 增 最 。 


划 include <tnath,b> 
共 inelude ”nrutilL, hy 
林 define SAFETY 0,89 
井 define GROW 1,5 
#define PGROW 0.25 
六 Qefihe SHRNK 0.5S 
##defihe PSHRNK (一 1.073.0) 
共 define FRRCON 0.1296 
并 define MAXTRY 40 
这 里 NMAX 是 # 的 最 大 值 !GRO 允 和 SHRNK 是 在 “ 步 中 步 攻 能 变化 的 最 大和 野 小 因子 ;ERRCON 等 ; 
tGROWASAFTETY) 的 (PCROW) 次 得 ,并 处 理 ettmax 一 0 的 博 况 
林 define 必 和 M【〔1,. 972.0) 
并 define 和 21 2.0 
失 define 各 31 [48.0725.0) 
扩 gefine 入 32 【6, 0725. 0) 
并 xdejine C21 一 8 站 
#define 上 31 (372.0725.0) 
站 define C32 个 2.D75.0) 
共 dejine Cdt1L (一 112.07125. 人) 
并 define GC42 【一 54.07125. 0 
并 deline Cd43{ 一 2.075.0) 
#dejine 如 1 《19. 079.0) 
二 define B2 (].072.0) 
共 deiine B3 35. 07108. 0) 
村 define B4d〔T125.07108.0] 
#derine Et 《17.0754.0》 
姜 中 ehphe 开 2 (7.0736.01 
车 define E3 0.0 
并 define 下 4【125.07108.07 
并 define C]X (1.072.0) 
并 definpe C2X (一 3.072.0) 
开 tlefine C3X (121.0750.0) 
社 define C4X (29.07250,.03 
六 deline 及 2X 1.0 
六 define 入 3X (3.075.0) 


void sriff (floac y[] ,floear dydx[- 、inr ny float *Xy 人 oat htry、float epsvfloat yscalf jiloar * hdqid . 
Jioat * hhextvyoid〔(:# derivs)(float, float[], float -])) 
钉 阶 罗 塞 布鲁克 求 甫 蜀 度 常 微分 方程 ,用 扑 坑 局 部 蚤 尾 误差 以 调整 步 长 .输入 基 自 变量 x 的 阐 始 值 处 的 因 变 节 ? 


[1..m 及 共和 导数 dydx[1.. mm 输入 还 在 尝 试 的 步 氏 htry :所 需 精 度 eps ,出 及 量 测 误 痊 的 向 量 yscal[1. .na], 在 输 也 
中 ,y 和 < 由 其 新 信 料 换 ,hdiq 县 实际 果 用 的 步 氏 值 ,hnext 是 步 改 的 下 ` 步 估 算 俏 .derivs 是 用 户 握 人 殿 的 程序 , 属 以 
计算 算式 右边 相应 于 x 值 .而 jcobn5 固 定 的 名 学 ?是 用 户 握 供 的 程序 .用 以 计算 相应 了 元素 的 右 端 项 导数 的 雅 可 比 
撼 阵 。 

void jacobn 人 tfloat x， float 了 [] ，float dfdzD] ，?1oat wwdfdy，tnt mn) ;， 

Yold Lubiabtt1oat mrB，lint n，、，jtlnt *indx，float br 让) 1: 

void Lotcep(Loat zz 权 ， it DIE dindy，YIcac * 介 ) ; 

inot I jjtxyvsinedzxi 

TlL1Oat derXTmAI Ph , 工 8 和 W 中 市 在 可 dd 中 dEdy sdysaT 二 BE 工 3 

下 Loat 省 区 1 中 区 他， 中 区 3 ， 站 名 丰 ， 本 宁 相 站 呈 ; 


indzeivactort1,z) 


amatr3axt1,mn,t,E) i 
dfdxz=vactor(1,p)i 
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ddymmaCIIXKIE, 了 iD) 

daatyrvector[1,a) ; 

IT=YHCtor(1,a)i 

Ete=vector(1,n) 

EDervectart1n) 1; 

S3mrectcrfl ,Da) 

多 dmyector La) 

yeaTaYectorr1I ,0); 

(中 保存 拥 始 值 

3oF 〔i=1i7<=ni I++) 1 5 
ysav[i]=y[i] ; 
d7aav[i]j=dydr[ijy ; 


acabm( 开 让 和 7 ， 了 S 品 Y ,df 寺 dd 了) 
用 户 提供 的 程序 返回 nxn 孜 年 阵 dfdy 和 向量 dtdz 


hmhtry: 钢 初 始 判 决 慎 设置 步 长 
for 【]jtry=1; jtry<eKAETRY;jtryt++)》 荆 
tar (inlitcenjif+) 建立 绝 阵 1 - hf 


fay 〔j=1;j<=n;ij++) &[i]lfij] ”~dfdyfiyfj]; 
归 [1] fi] +es 上 -OAKGAKdh) i 


》 
1udcup ca ,maindx, 风 d) ; 郊 竹 LL 分解， 
Yor [ie1ii<=ait+rtr) 为 8 设置 右边 
名 L[i] “dysav[i]+awClXydfdz[i] ; 
lubkeb aa, 羡 ,iDpdx ,多 1) 1; 靛 8i 
for 【im1;i<en;ii++) 计算 中 问 变 元 y 和 <x 
了 [4] ye@aYTT]+ 上 21sw 训 1[I] ; 
让 工 一 工 他 己 了 十 由 了 碳 中 习 : 
(aderlYS) (sx ,ydydx) ; 计算 中 间 变 元 处 的 dydz 
于 or 【im1i4c=na i++)》 为 pz 证 置 右 边 
g2[i]=dydzr[i]+b*C2Xsdfdz[i]+C2lwg1[i] Abi; 
Lubksgb (aa iodx,g2) 1 解 x: 
for (iml;i<en;i++) 计算 中 间 变 元 yY 和 x 
y[i]=7aayfi]+A3LewBEL[i]+A329g52[1L] ; 
本 不 杰克 加 有 十 中 忆 入 中] 
《ederivs) (xy:d7Qz) 计算 中 癌 填 处 的 dydzx 
for 《intii<en;d++) 为 &3 设 转 右 边 
g3[i]=dydzf[i]+hsC3Xedfdazfi]+(C3tegl[i]+C32sg2[1]J)Ab; 
lubxab(avaviodz,g3) ; 解 gs 
or 《tet iiL<emnid++)》 为 g4 设 置 右边 ， . 
g&[iTedydr[i]+heC4Xsdgqx[i]+(C4hLegL[1] +C42rg2[i]+C43wg3[i])Zhi 
Lubxsb(a,aingz,g4) ; 解 E 
Tar 《ialtii<=<aii++) 得 到 7 的 四 阶 估 值 及 谋 差 估 值 
了 [ij=myaay[i2+B1*ygf[i]+B2*g2[i]+B3egS[i]+B495S[i] ， 
azT[ 工 ]aEt#giL[i]+E2*g52[i]+E3wg3[i]+Easeg4[i] > 
上 
李 王 入 3 入 二 
47 《IT 王 = 工 5&V) DISGFTOFC”SYSpaiZe DOL BitEgnificant in StiTFf") 7 
BITGaxs0 .0i 计算 精度 
ToT 【imliicsnii+tr) BTTRSIEH 上 XerrgaI,TabS(ertrfi]Ayacal[i)》; 
eTTWRX /= epeji 相对 主 所 需 误 差 容 限 放 缩 
dz (erraar <= .0) 荆 该 步 成 功 ， 计 算 予 一 步 长 并 返回 
中 hdid=by; 
让 拉 吕 工 蕊 可 【 帮 ZTIaX > ERRCUN 了 SAFETY#hepos(arruax,PGROW)》 : GROWY) 
于 reB_VeC 世 OKyS 直 V，】,D》; 
ree_vector(g4 1,a) ， 
了 ree_VeCctoz(E3，1.n) 
Tree -VectorkB2 1:n) 
free_vector(KgLt 1.n)i 
frse_veactorkert ,1,D); 
TYr69_Vector(dysav1D) 1 
free_matrirfdfdy,1nt,D)， 
xzraa_vectortdfdxz,1,n); 
free_gatrizt,1T DDN 
tree_ivectorfindx ,1n)] ; 
Yaturni 
] elae { 截断 误差 太太 ， 减 小 此 长 ! 
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hhnexr=-SAFETY*hepowKorTmsr,PSHRXNK) ， 
hrh >= 0.0 ? FMAX (shnezt ,SHRNKeb) : PHIN(ebnext ,SHRNX+zy ) ， 
了 
1 过 头 茧 研 
mTarTOTT"exceeded MAXTRY in stiff")i 


只 需 在 和 保 训 中 替换 掉 六 define 涪 句 :就 二 简单 地 将 其 中 Kaps Rentrop 参数 替换 成 Shampine 。 


并 define 和 NE DO. 231 

打 define 和 21 3.D0 

作 deiine 和 31 4.52470823736 

闪 define 和 32 灿 1635287886D0 

女 qefine C21 一 5.07167533877 
苹 define CS1 6.020715272865 

女 qefine C32 以 159750684673 

攻 defpnie Cd1l -一 1.85631361862?7 
姜 define C42 -一 8. 50538085919 
闻 define CCt3 一 2.084075135602 
十 define Bl1 3, 95750374663 

并 defmme 2 了 .62489238836 

并 detine B3 0D.517477263873 

斗 defime Rd IT, 282612945268 

症 defne El 一 2. 30215540292 
:deftne 2 一 3.07363448539 

并 defne 3 0.873280801802 

并 define 下 1.282612943268 

并 define C]X GANM 

社 define C3X 一 0. 39625667752056 一 01 
六 define C3X 0.550778539579 
共 define C4X 一 0.553509845700e 一 U1 
攻 define 入 2 和 0 462 

共 define 上 3X 0. 880208333333 


作为 “个 例子 ,说 明 stiff 是 怎样 用 的 , 它 可 求解 下 面 问 题 


如 一 一 由 013y -DO00y, 
史 一 一 2500yz3 016.f 27) 
3 一 一 小 0i3y 一 100Dyty，- 2500y3ya 
具有 初始 值 为 
(0 一 1，3ya0) 一 1，3ys0)7 一 有 0 10 28) 


(这 是 [4] 中 的 测试 问题 刀 .) 我们 用 egeinat 程序 .以 初始 步 长 上 一 2 8X10-… 计 算 积分 方程 组 到 z= 5 .在 
式 (6.6.20? 中 的 的 元 素 都 设 成 单位 值 , 该 问题 的 程序 derivs 和 jacoba 如 下 所 示 。 尽 管 最 大 的 到 最 小 常数 
系数 的 比值 糖 煤 到 10' 左 右 , 但 stiff 还 是 成 功 地 仅 用 29 步 就 求 钙 出 了 这 个 问题 ,而 误 送 为 一 10…. 相 引 
较 而 育 , 此 格 - 库 塔 法 rs 需 训 5:0I2 砂 ! 


void jacobn(float x。 float y[ 门 .fioat dfqx ,float k < dtdy， int ny) 


《 
1 


lnt 1; 


for ti 一 li = 一 ni 一 十 ) didx[Li 一 0.0 
由 dy[1JL1TD 一 ~ 六 013 一 Lon0, Dry[3]; 
dtdy[1]E23=0.0， 


afdy[1][3] 一 一 1000.D#yrl]i 
cfdy[2][11 一 Do 
dfdyrr2jf25 一 …2500.nx3y[3 ; 


dfdy[2][3] = 一 2500.0*vy[2 
"628。 


didy[3]fTI] = 一 0.913 一 1000.0<y[3]: 
dtdy[3]r2 一 一 2500.0xyL3 
dfdy[L31 35] 一 一 1000.0*y 站 一 2500.0xy2]: 


veid cilezivs (lont xfnoat y[ 3 float dydx[ ) 
dydxfi 一 DO13<y[I] 一 1000.0xy[Ii xyC314 
dydx-241 .= 2500.0xy[2]xy[3]， 
dyrdx -431 ==- 一 小 013xy[1] 一 1000.Dwry[lxwy[3 一 2500.fev 23xy S]+ 


16.6.2 半 降 式 外 推 算 法 


丰 里 斯 奇 斯 括 算 法 ,用 修正 中 点 的 方 洪 分 离 微分 方程 :但 对 刚性 方程 无 效 ,Bader 和 Deuflthard- 公开 


了 半 隐 外 推 方法 ,小 末 很 好 ,而 且 能 和 最 初 的 布 里 斯 奇 -斯 托 靶 拌 有 效 ， 
上 息 始点 卸 一 个 隐 式 中 点 规 刚 形 赤 ， 
1 | 


和 
1 2 :一 


线性 化 该 等 式 右 兹 夺 7) :把 方 猩 (16. 8. 29) 园 丈 过 玫 隐 式 , 结 果 便 是 半 隐 式 中 点 规则 ， 


下 党 下 上 2 了 | af 
11 - 4 缉 ].y-， 和 十 有 下 yet 十 2h[ few 袜 且 9 


上 6 人 291 


\】16 59 3 


使 用 了 特 环 的 第 一步 , 半 隐 式 欧 拉 步 (16, 6. 17) ,以 及 在 最 后 一 步 桂 妹 的 "平滑 ”, 其 中 最 后 的 xy. 


Eee 
y， 二 王 ( 二 
来 从 换 .Bader 和 Deni5ard 说 明 , 这 种 方法 的 攻 凑 级 数 也 仅 与 严 的 偶 次 方 相 次。 
在 实际 应 用 中 ,最 好 用 上 -3 ;一 只 改写 一 下方 得 。 利 用 大 一 电 和: 若 先 计 短 
了 中 下 了 一:! 
A =|L1 一 i 芳 】 19) 


my 1 入 
然后 对 于 只 = 1 -四 一 1 设置 
胡可 站 个 机 
习 二 ae- on 2|a 本 3 Lhttys) 于 1 
3 一 入 十 和 
最 后 计算 
As=|: 一 4 纯 Dao 一 


Jo 一 yr 十 An 


让 和 


gb. .3 1 


1 和 11 


企 上 上 面 的 公式 中 , 征 容 易 邦 式 (16. 6. 19) 营 换 公 趟 结合 起 来 .在 雅 可 旨 中 ,来 自 3f7zz 的 额外 项 部 抵 销 了 皇 
隐 福 中 点 规则 16.6. 35) .在 特殊 的 第 … 步 T18.6 生 7 帮 旨 阁 的 方 种 116.6.32) 中 -项 好 杰 成 站 4 和 11 


其 它 方 程 都 亦 变 。 
该 算法 在 程 译 simpr 中 实现 。 


芽 Incluge ”iTLi 7 


void simpr(fles- 5L2, float dydx[L， tear dtidxL 人 oat di， ip by float xs，fieat htoi，irt rstep， 


和 Yong Werive0Tlpet 和 ci ioat 7) 





拟 和 五 一 步 称 头 汪 避 和 表 枯 算法 . 措 必 国 变 最 1 导 散 二 ci 的 右 跑 戎 年 获 di 
28 ， 


训 雌 查 上 5 


处 的 雅 可 比 矩 阵 dtdy-1, .njLl..n]. 答 入 还 有 htot, 总 共 槛 取 的 步 数 和 nstep, 被 用 的 了 步 数 ,给 出 返 同 在 yaut. 1- 
za] 中 ,derivs 是 用 户 提供 的 程序 ,用 来 计算 tydx， 


void lubksbtfloat wa，int ma，iant y1ndx，float br[]7; 
vold ludcmpKfttoat sa int 为 ，int yind 责 天 1O8t > 
int 3 ] nn 中 indri 

float dbvz, 让 有 dal yyTemmpi 


indxsivactor(1,E) : 
amaKtIritrg1ny1D) 


delmvecrorK1:a)1 

光 eEPevectorC1D) ) 

hehtotynatep: 这 “ 步 的 步 长 

for (im1;ic=n3i++) { 设置 拭 阵 工 一 hf 
for (je*t;j<<nyj++) afi3[j] = -hedfdy[il[j] ; 
++a[i][i] ; 

了 

ladcmp ( 主 E,indx wd) 乞 阵 LU 分 解 

or 〔ialii<enilyt) 为 第 一 步 建立 右 应 项 。 用 yout 作 暂 时 存储 器 
yout [i]=betdydx[i]+bedtdxr[il); 

lobkabfan,indx,yoat)3 

_ for 【im1ii<=nikt+y》 第 一 步 

ytegp[i]=yfij+(del[ij=yout[ij); 

其 四; 

《rderiva] (xyYeawP: Taut)]i 用 youl 暂 存 导 数 瘟 

for (pne2;nn<=natepina++) { 
芝 or 《1a1 ;<eDy I++) 为 一 般 步 没 右 闪 项 


”yout Ti]eheyout[1L]-~dek[i]; 
lubxeb(Ka:Dnindz, 了 out); 
for 《jial1;t<mpi;it) 
ytamp[i] += 【dslL[i] +e 人 ,0 了 out[i]); 
X 4 bi 
fuderive)( 工 ,ycemp ,7 了 out)， 
】 
于 OF 《iT iicmai at》 为 最 后 一 步 设 有 端 项 
Yout [i]=hsyout [六 ] -dal[i] : 
lubksb (alndxyout) i 
fof 【ie1;tceny +》 训 后 … 步 
Yout [i] += ytempf[t] ， 
free_vector yteap，Ln)i 
?ree_vector[deI 1n)t 
了 FaR_anatYiE[ 各 , 主 , 了 上， 了) 1; 
Trae_ivactor(indz 1.D); 


】 


程序 stmpr 可 以 用 了 于 程序 stifbe 中 ,基本 上 和 baatap 一 样 ,不 同 的 是 : 
“ 步 长 的 序列 是 
一 富 5 10,14,22，344:50，..， 《16.6. 35) 
其 中 每 值 和 前 面 一 个 秆 相 差 4 的 倍数 ,使 种 相 争 项 的 比值 过 577, 参数 KMAXX 设 为 了 。 
“ 每 一 步 的 工作 量 , 不 但 包括 函数 求 值 的 工作 量 ,还 包括 雅 可 比 计算 的 计算 量 。 我 们 计算 雅 可 比 的 工作 
量 和 入 个 函数 的 估计 值 相当 ,这 里 N 是 方程 的 教 目 。 
用户 提供 的 程序 derlys 是 三 元 ,所 以 甬 取 性 何 名 字 ,。 但 是 ,如 果 要 和 rkqs 、bastep 及 stiff 保持 最 简单 
的 兼容 ,jaeobn 就 不 是 一 个 参数 ,而 必须 定 为 这 个 名 字 . 每 一 步 被 调用 后 返回 作为 x 和 yY 的 画 丈 玫 
(Cdqfdx) 以 及 af/a zfdfdx) 。 
下 面 程序 , 注 般 中 说 明了 和 bastep 的 不 同 之 处 ， 
并 jnclude < math,h> 
社 include ”nrutil. hy 


区 define 民 KMAXX 7 
休 define IMAXX (KMAXX 十 1) 


"630“" 


共 define SAFR1 0.25 

匡 define SAFE2 0.7 

共 deftine REDMAX ,De 一 5 
共 deting REIMIN 0.7 

本 define TINY 1De 一 3 

并 define SCALMX 0. 1 


float :* 王 d，< 芳 ! 


void stifbskfloat y[， float dydxf]j，int ny，float wxxy float htry，float epsyfteat yscal[ j,， fonat ，haid， 


loat * hnext, yoid ( * detivs)kiloat, float [], ftloat -]>) 
半 隐 式 外 推 法 求解 刚度 往 分 方程 . 力 监 视 局 部 埠 断 误 交 以 调整 步 长 .输入 是 白 变 景 x 起 始点 处 的 因 变 最 Y. 1.,n .县 


其 导 教 值 dydx 1,.n3, 输 入 还 有 试用 的 步 长 htry .所 需 精 度 eps 以 履 向 量 yscalLi. .n] 通 过 该 项 来 标 虚 误 效 , 在 答 沁 
中 ,y 和 x 被 其 新 值 所 符 代 ,hdia 是 实际 采用 的 步 氏 ,hnext 是 估算 的 下 “个 步 长 "derlvs 必用 户 提供 的 程序 计算 石 
端 项 相对 于 zx 的 导数 ,而 jacobn( 名 字 河 定 ? 有 是 用 户 提供 的 程序 , 填 算 右 端 项 柏 对 于 > 元素 的 导数 的 收入 比 算 柑 。 注 
意 , 在 成 功 的 步 时 ,把 从 前 面 步 返回 的 hnext 大 给 htry 这 林 以 备 此 悉 序 被 odeist 调用 


void jacobnkfiloat x，float y[] ，float dfdz[] ，fleat sedfdy，int y 
vcid aimprrfloat 了 [] ，float dydxf] ，ftloat dfdx 口 ，float esdfdy， 
int 4，flLoat ze，TlLoat btob，int Datep，fthoat yott[] ， 
void 《#dari9y3a)(float，float [] ，fLoat [])); 
void pzextr(int ieet，float xeat，float yeat[] ，f1oat 了 zE] ，fIont d7[]， 
inat mt 
tnt 1,1q KE ,Iai 
gtatic int firstem1ikmar, opt,nvold = -1; 
Static TY1oat 9psoIid * -1.0,zneg7 
fl15at 日 PEI ,BaFTTTEAK :了 8hCt :用 :YGd SCBLG WOTK:WTKmiD TSSt 
?tlcat #dfdz,4sydydy ,er 47BTLY，# 了 BaV，97BGOq 
四 [atic 于 10at [IHAIX 信 1; 
StaILC 节 10at a1T[KMAXX+1][TKMNAXX+T] 
static inht hegeq[IMAI+1]={0,2,56,10,14,22,34,50,70}; 库 列 和 baste56 不 网 
int caeduct ,63ittiIage0i 


dmacTiXC1 ,KRAXX。1 ,KM 人 XXX) ， 
dTdx=Yectrortl,ny)i 
dtdysmatrixf1,nv,1,DV) 1 
9TF=VYCEOIT 1,XNMAXX) ; 
了 mVGCEOCIC1 ,其 MAXX) 
了 errseyYectorrl,nyY) i 
ySaVe=Vectoz(1av) 
ysaed=yectozfil,ny] 
it(epas (= epsold 11 ny !s pyvold) 如 果 mv 改 变 则 重新 雪 始 化 
neoat  XDew = -1.0929; 
@DPpS1LwSAFEY+PB 
ar[t]=nseq[1]+1; 
for 〔K=1;Xc=KKAXX IgE++) a[X+l]=a[xj+ngeq[k+i]: 
for 〔igq=<2;iq<=KMAXX ,iiq++) T 
Tfor (ks1lixkc<c1lqdix++) 
alifx] [iqj=Pou(epsl, (arx+l]-a[iq4+1])7 
〔(a[iq+1]-a[li]rl.0)wK2ek+rl)))》) 3 


】 

apaacldaop3i 

Dvold=anv; 保存 av， 

a[t] 4 nyi 把 雅 可 比 计 等 量 加 到 工作 量 系数 中 


or 《Km 1 ;YX<=KMAX 克 ;KK++) 吧 [Kk+1] 一 &[K] +hgeqC+1] 
tor 【koptz2;opt<KNAIT ;kopt++) 
放 (a[ropt+l3 > atfxkopt]walf[kcoPpt-1] [kopt]) breaki 
” Jax<kopti 

了 
hmhtryi 
for 〔〈iel;ii<crn7;ii++》yaav[ijsy[i]， 
jacobn(*xxiyvdfdz ,dtdy,nv) ; 计算 徐 几 比 
if (xx != xneN 1 | h (ae 【ebpnert)) 1 


rsteli 
kopt=jymaxi 


了 
Teducte0i; 
for 《7 区 - 
oxr 《=1 ixk<=kmax;k+4)》 工 
Xnew=(wZXX)+b: 





2 《ZDGw = 【+*Xxr))》 oroIkoOT("atep 3izg UDCdGorf]ou iD stitbo")i 


simprt 了 sar,dydr,dftdr,dfdy,nvwIzz;nvnseq[x] ,yssq,derivys)i 
半 隐 式 中 点 规则 
Treat=3QRChymaseq[k]); 程序 其 余 郭 分 和 bastep 相 同 
厂 ZG@ETTT[kE ， 工 昌 让 亡 了 5 了 7GTI ， 拉 V)》 
4 (kxk !m 1) { 

TAX 了 IT ; 


for 《ia1iiceny ilt++) 9FIGSAX=EFH 上 AXCGYImaX ;abs(7 了 err [ilz7scaLIi])) 1; 


TIBaI /mm 全 忆 : 
Jpmk -1 ; 
rrfim]=povfarraaxrSAFE1,1-OF(2wkm+r13》; 
】 
if (8 i=- 1 tt (z >= opt-1 | irsy)) 荆 
工 X 《YY 人 8E < 1.0》 区 


本 和 113R= 工 : 
braak 
》} 
让 《zk = eax || X == opL+l) 苹 
red=SAFE2/arriioe]; 
breaxki 


下 
9Lse 这 《区 ~- X9Pt k aa1f[kopt~I]fkopt] < orrTim3) 工 
redn1,0/err[km] ; 
break' 
】 
416e jif〔〈kopt == max & alf[xm][kmax-1] < ertrifkml) {f 
red=alf[)m] [xmax-1j+3AFE27arr[kmn]i 
break; 
) 
算 让 人 于 《号 1]7 [ioe] Ekopt] < @rT [im]) 上 
red=alf [km] [kopt-1t] yerr [lm] 


Draaki 
了 
了 

了 

荆 人 【二 和 ie 了 tag) braaki 

Ted=FMINLzed REDHMI 基 》， 

TedeaFMaE(rad ,REDNAX) ; 

b .*#m Ted 1 

reductan1， 

了 

机 了 站 居 站 本 W) 

站 必 d 工 全 = 

T1TBtaDO 

wTiaalalL.0e35， 

下 OF 《和 KmI iikk<wjom;xx++)》 工 
Tact=FMSX{9IIT [kk] ,SCALPDD ; 
WOZIef ac 志和 [KK41T ; 

z 《worx < vrliaainy 工 
BCaL 由 一 个 呈 CT， 
YYjoatmmwor: 
optekx+1; 

中 hn 和 XehrBCalei 


1 《opPY >e 其 让 opt != Joaar 此 让 1redatcty 
卫生 5 攻 一 开本 帮工 (为 CE 了 全 8a][EoPt-I] [CEOPt] ,SCALMKX7， 
ti 《fa[xopt+1i]wtact <a= Viain) 工 
市 了 古本 天 名 D 7 丰 罗 C 吉 ) 
opt++i 


人 
站 
reg_VectnIiYera 1 DY ， 
freg_YyHGCTOTIYS YY TV 1i 
fyrnayectoecfyo:I 1 ,D7) | 
frae_VBCtOT(X，1。XNAXX) ; 
free_VecCtoT(eIrT， 1，KNAIK) 
了 rea_matrix(daftdy lav,1,Dv)i 
fres_yector(tdfdr,1,nr); 
frea_matrixtd,1 KMAXK 1,KHAXX); 

) 


程序 stifhs 是 -个 解 次 刚性 方 种 的 极 好 的 释 序 , 凡 大 好 的 Gear 奖 珊 的 程序 打 以 相 比 :stiff 对 于 中 等 
复杂 麻 具 以 及 EE10-+ 时 还 是 很 好 的 . 当 需 要 e--10“. stighs 大 概要 快 一 个 数量 级 ,另外 还 有 : 些 措施 本 
用 来 提高 sttfbs 的 性 能 ,例如 ,很 惕 然 地 ，simpr 中 的 hudemp 会 磁 到 奇异 托 阵 ,这 时 可 以 让 乡 长 减 小 ,可 以 
减 小 当前 nseq[k] 的 -个 因子 .另外 在 某 些 问题 上 , 述 有 步 长 稳定 性 的 限制 ,至 于 怎样 握 码 解 识 这 此 问题 ， 
参见 [6-。 
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16.7 多 步 法 、 多 值 法 和 预测 校正 法 


多 步 法 和 多 值 法 描述 了 两 类 不 同 的 用 于 解 常 微 分 方程 的 基本 方法 .预测 -校正 法 是 这 些 
方法 的 一 种 特殊 情况 一 一 实际 上 也 是 最 广泛 出 现 的 情况 ,相应 地 ,预测 -校正 算法 有 时 证 指 
所 有 这 些 方 法 。 

我 们 怀疑 承 测 -校正 算法 已 经 过 时 ,而 且 对 大 多 数 常 微分 方程 来 说 已 不 是 最 佳 解法 了 。 
对 需要 高 精度 的 情况 ,或 是 对 方程 右边 算式 的 佑 值 计 算 量 很 大 的 情况 , 布 里 斯 奇 -斯 托 算法 
占 撕 主 要 地 位 .对 于 比较 简单 或 低 精 度 的 回 题 , 自 适应 步 长 的 龙 格 - 库 增 法 占据 主要 地 位 。 我 
们 觉得 贷 测 -校正 算法 是 介 于 其 间 的 一 种 算法 ,也 许 只 有 一 种 情况 最 适合 于 此 :需要 比较 高 
的 精度 ,天 数 很 平滑 而 且 等 式 右边 很 复杂 。 这 种 情况 我 们 在 下 面 讨论 。 

不 管 怎么 说 ,这 些 方法 都 经 历 了 很 长 的 历史 过 程 , 现 在 很 多 教科 书 上 都 是 这 些 内 容 , 而 
其 有 很 多 标准 的 党 微分 方 称 都 巧 基于 预测 -校正 算法 解决 的 .很 多 能 于 的 研究 者 用 颈 说 - 校 
正 算 法 很 经 验 , 这 些 人 没有 必要 与 上 改变 原来 的 习惯 .然而 ,作为 一 个 知识 广泛 的 实践 者 ,最 
好 也 能 熟悉 一 下 这 些 方法 涉及 的 原理 .以 及 这 些 方法 局 根性 的 各 个 细节 。 不 然 的 话 , 当 第 一 
次 突然 俊和 到 需 用 预测 校正 算法 娲 程 时 ,会 感到 末 于 无 策 的 。 

我 们 首先 考虑 多 水 兴 通 近 .考虑 一 下 求解 一 个 常 微分 方程 和 求 政 数 积分 有 性 么 不 同 , 对 
于 一 个 函数 ,被 积 函 数 和 自 变量 的 关系 是 已 知 的 .再 且 是 可 估算 的 ,对 于 … 个 党 微分 方 怪 ， 
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“被 积 函 数 ?是 等 式 的 右 端 部 分 , 既 和 自 变量 r 也 和 由 变 量 》 有 关系 ,因此 要 计算 一 rz， 
妨 的 从 必 到 工 的 解 .我 们 有 


yz) 一 基 一 | Carryalzr (16.7. 1 


在 象 龙 格 - 库 塔 或 布 里 斯 奇 -斯 托 法 的 单 步 计算 中 ,在 zs- 处 的 w+i 值 只 仿 束 于 的 值 .在 
多 步 法 中 ,我 们 用 通过 前 面 儿 个 点 yz ii, 或 也 可 能 通过 zx. 的 一 个 多 项 式 来 近似 了 
(zy)。 计 算 z 一 zx 处 式 (16. 7. 1 的 积分 , 刚 成 为 下 列 形式 

oa 二 yn 十 卢 CDBuyai 1 夺 局 让 有 7 局 总 yn 二 汉 : 汉 《16. 3.2) 
这 里 % 代表 frzo ww) 依 此 类 同 .如 果 应 =0, 该 方法 是 显 式 的 ;否则 是 隐 式 的 。 该 方法 的 阶 
次 决定 于 我 们 用 了 多 少 已 走 的 步 数 来 得 到 y 的 每 个 新 值 。 

考 嵌 一 下 ,我 们 怎样 才能 解 一 个 形 为 式 人 16.7. 2) 的 隐 式 公式 求 出 mw- 有 两 种 方法 : 函 
数 送 代 法 和 牛顿 法 .在 琐 数 选 代 法 中 ,我 们 取 ww-: 的 某 些 初 竣 猜测 值 ,将 其 揪 入 到 式 (15, ?7. 
2)? 的 右 端 ,以 得 到 yi 的 变动 值 , 再 把 该 变动 值 代 回 右边 ,继续 迁 代 .但 我 们 如 何 得 到 yn+ :的 
初始 猜测 和 值 ?很 容易 ! 只 需 用 类 似 式 (16. 7. 2) 的 显 式 即 可 ,这 叫做 预测 步 .在 预测 步 中 ,我 们 
主要 是 外 推 多 项 式 , 以 拟人 台 从 以 前 点 到 新 点 za+ 的 导数 值 , 并 从 z 到 rm+: 进 行 类 似 辛 普 森 
法 求 积分 .随后 的 类 似 辛普森 法 的 积分 ,用 y+t 的 预测 步 值 来 内 揪 导 示 , 被 称 为 校正 步 . 硕 测 
步 和 校 止 步 的 函数 值 之 盖 提 供 了 局 部 截断 误差 的 信息, 可 用 于 误差 控制 及 调整 步 长 。 

如 果 一 个 校正 步 成 功 了 , 允 几 个 校正 步 会 不 会 更 好 些 ? 为 何不 用 核 正 步 作为 一 个 改进 的 
预测 步 并 在 每 步 欠 代 到 收敛 呢 ? 答 案 是 :即使 有 一 个 十 全 十 美的 预测 ,该 步 的 精度 仍 只 可 能 
达到 校正 步 的 朋 限 阶 次 的 精度 ,其 不 能 矫正 的 误差 项 和 迭代 能 消除 的 误差 是 同 阶 的 ,所 以 最 
好 只 把 误差 项 前 的 系数 缩小 为 原来 的 几 分 之 几 。 因 此 毫 无 疑问 , 进 . - 步 的 提高 是 不 值得 的 ， 
最 好 还 是 把 精力 放 在 缩小 步 长 上 面 ， 

迄今 为 止 , 读 者 也 许 想到 值得 而 且 必 需 在 每 一 步 之 前 预测 几 个 间隔 点 ,然后 在 类 似 辛 小 
生 法 的 校正 中 ;用 不 同 的 权重 来 使 用 所 有 这 些 癌 隔 点 .这 并 不 是 一 个 好 主意 。 外 推 基 这 种 方 
法 中 最 不 稳定 的 部 分 ,应 该 尽量 减少 它 的 影响 ,因此 ,预测 -校正 算法 中 的 积分 步 双 是 重合 进 
行 的 ,每 一 步 都 涉及 用 个 步 长 间隔 h, 每 一 步 只 比 前 -- 步 扩展 了 .个 这 样 的 步 长 间隔 ,而 且 
只 有 那个 被 扩展 的 癌 隔 是 通过 每 次 预测 步 进 行 外 推 的 。 

最 常用 的 预测 -校正 算法 是 用 的 所 谓 阿 达 姆 斯 - 巴 雪 福 斯 - 莫 尔 顿 方 法 .这 种 方法 有 很 好 
的 稳定 特性 。 阿 达 姆 斯 - 巴 雪 福 斯 部 分 是 预测 步 。 例 如 ,二 阶 的 情况 是 ， 


丁 测 步 ， ys = 入 十 站 (23 史 一 16% -十 5 十 Op) (16.7.3) 
其 中 计 当 前 点 z 的 信息 和 前 两 个 点 rzr。 :和 zx -:( 假 设 设 兽 等 间距 的 信息 ,一 起 用 来 蔬 测 在 
下 一 点 ze+l 上 的 值 w-:。 
阿达 姆 斯 - 莫 尔 顿 部 分 是 讼 止步 .三 阶 的 情况 是 : 
校正 步 ， yi 一 六 十 总 Go 十 玖 一 交 十 OU (016.7.4 
如 果 等 式 右 端 没 有 加 入 从 预测 步 获 得 的 w+ 试 胃 值 的 话 , 校 正 步 将 会 变 成 一 个 曹 含 .的 
很 难处 理 的 式 子 。 


这 种 算法 实 球 上 要 进行 三 个 单独 的 步 又 ;预测 步 , 我 们 称 为 P; 从 最 新 的 》 值 估算 出 导 
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数值 wm， 我 们 称 之 为 E; 以 及 校正 步 , 我 们 称 之 为 C。 在 这 种 表示 中 ,用 校正 去 进 二 m 次 选 
代 ( 这 种 作法 我 们 普 批 取 过 ) 记 作 PC(EC) ,也 下 以 选择 用 一 个 C 步 或 一 个 上 步 .最 后 一 和 步 下 
是 最 关键 的 ,所 以 这 种 方法 通常 建议 用 PECE。 

注意 ,具有 固定 迭代 数 日 的 PC 算法 是 -种 显 式 算法 ! 当 我 们 事先 回 定 了 选 代 的 数 日 以 
后 , 则 最 后 的 值 w-: 可 以 写作 一 些 已 知 变 基 的 复杂 的 函数 式 . 因 此 男 定 进 代 数 下 的 PC 算法 
失去 了 稳 式 方法 的 强 稳定 性 ,只 上 用 于 站 刚 性 问题 。 

对 于 刚性 问题 ,如 果 我 们 想 要 避免 用 细小 步 长 的 话 , 则 必须 用 际 式 方法 ( 共 非 所 有 的 隐 
式 方法 对 于 刚性 问题 都 是 很 好 的 ,幸运 的 是 有 一 些 已 抽 的 方法 如 Gear 公式 是 很 在 效 的 1, 这 
样 , 我 们 解决 隐 式 方程 便 似乎 有 两 种 选择 ,函数 和 迭代 到 收 和 伍 ,或 是 牛顿 迁 代 法 ,位 晤 .村 吉 必 
问题 来 说 ,无 论 我 们 的 预测 是 如 此 接近 , 霄 数 选 代 只 有 厅 我 们 用 航 小 花 步 长 才 可 能 收敛 .本 
此 ,牛顿 欠 代 法 通常 是 多 步 法 解 刚 忻 问 题 的 基本 方法 ,对 于 收 敏 ,牛顿 法 对 步 括 的 大 小 不 秀 
起, 只 要 预测 足够 精确 就 行 。 

才 步 法 ,就 我 们 所 述 而 言 ,在 实现 时 有 两 个 严重 问题 : 

“ 因为 公式 需要 等 间 上 距 步 长 的 结果 ,所 以 步 长 调整 比较 困难 。 

“ 开始 和 停止 当前 问题 时 有 些 麻 需 。 在 开始 时 ,我 们 需要 初始 值 讶 上 前 面 几 步 来 起 动 。 

停止 时 也 有 问题 ,因为 等 兵 的 步 距 不 可 能 刚好 落 在 停 目 点 上 。 

过 去 PC 算法 的 实施 中 ,用 一 些 演 琐 的 方法 米 处 理 这 些 问 题 .例如 , 厅 以 用 龙 格 - 库 堪 法 
来 开始 和 停止 , 步 长 的 变化 需 经 根 当 复杂 的 记录 信息 进行 某 些 内 播 过 程 , 丰 运 的 是 这 些 缺 矿 
可 以 由 多 值 法 来 消除 。 


对 于 多 值 算 法 而 言 , 用 于 积分 器 的 最 基本 的 数据 是 ,在 当前 点 z, 解 的 泰和 劳 级 数 展开 式 
的 头 几 项 。 其 目标 是 求 得 解 及 其 在 下 一 个 点 zw+i 的 展开 式 系 数 , 这 和 多 步 法 明显 不 同 ,在 多 
步 法 中 数据 是 在 rz ，… 上 求解 的 值 。 我 们 通过 考虑 一 个 四 值 算法 来 说 明 这 种 思路 .这 个 
四 信 算 法 中 ,基本 的 数据 是 . 

岂 
(PR27273 
(Asy6)y， | 


y= 一 (16. 7 3 


同样 也 按 惯 例 用 天 一 zx 一 z 的 千 钦 来 测度 导数 项 ,如 上 式 所 示 。 注 意 , 这 里 我 们 霜 向 刀 符 
号 ?代表 其 解 在 某 一 点 的 头 刀 项 导数 ,而 并 厅 是 求解 一 个 有 很 多 分 量 》 的 方程 组 。 
在 式 (16. 7. 5 的 数据 形式 中 ,我 们 可 以 近似 某 点 工 处 的 刨 y: 
天 三世 让 本 = 过 于 2 一 2 

在 式 (16， 汪 6) 中 , 设 工 一 了 二 1 * 即 可 得 季 n+ 的 舌 计 慎 。 同 样 可 以 得 到 ov 以 及 机 各 Sn 器 
称 其 结果 的 近似 值 为 %+., 这 音波 浪 号 提示 我 们 所 作 的 只 是 一 个 对 解 及 其 导数 的 多 项 式 外 
推 .目前 我 们 还 末 用 到 莹 分 方程 ,但 很 容易 证 明 

7 一 了，y， (16. 7.7) 





《16.7.6) 


其 中 矩阵 3 是 
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了 =- 6 3 【16. 7 了 .xx1 
10 总 心 3 
现在 ,我 们 窟 出 以 后 我 们 要 用 到 的 实际 估计 值 yi:, 它 宁 于 癌 增加 一 个 很 校正 量 ， 
y 一 Yi 二 er (16.7. 9)》 


这 里 是 一 个 出 定 的 数字 向 量 , 同 样 了 也 是 -: 岗 定 息 阵 。 可 通过 满足 下 丽 微 分 方程 闫 加 证 
1 (16.7.101 
式 (16,.7.9) 的 第 二 个 方程 旦 
由 一 及 yi 十 和 zs (16.7. 111 
这 将 和 式 (16.7. 10) 一 致 而 提供 
rz 一 1，a& 一 上 FrCcnriyyn+:)》 一 天 sl (16.7.12》 
值 盖 ”和 王 基 任 意 芍 , 可 由 给 定 的 四 值 法 选择 ,不 同 的 选择 给 出 不 辐 的 阶 次 的 算法 5 例如， 
通过 志 的 阶 次 ,最 后 的 表达 式 (16,7. 9) 实 际 上 近似 其 解 ) ,以 战 不 同 的 稳定 性 。 
有 一 个 很 有 意思 的 结果, 我们 艇 释 中 没有 明显 说 明 ,就 是 多 值 法 各 多 步 法 完全 是 李 价 
的 .换言之 ,由 多 值 法 给 定 了 B 和 导出 的 yi 的 值 和 多 步 法 中 用 式 人 16.7. 2) 给 出 8 而 寻 出 的 
值 是 一 样 的 .例如 ,证 明 阿 达 姆 - 巴 否 福 斯 公式 (16. 7. 3) 和 一 个 一 一 0, m 一 374，m 一 176 的 
四 俏 法 是 等 价 的 。 该 算法 是 显 式 的 ,因为 六 =0。 阿 达 姆 斯 - 莫 尔 顿 方 法 即 式 (16. 7.4) 碍 当 于 
mm=5712m 一 3/4 及 六 = 一 176 的 隐 式 四 值 算 法 。 隐 式 多 值 算法 和 隐 式 多 步 算 法 的 处 理 方 法 
样 : 或 者 通过 预测 校正 逼近 ,用 显 式 方 法 作 预 测 步 ;或 者 是 用 牛顿 选 代 解 决 刚性 问题 ， 
为 什么 我 们 要 不 厌 其 烦 地 介绍 一 个 新 方法 ,而 其 结果 却 和 你 已 知道 的 方法 等 效 呢 ! 序 大 
是 多 值 法 很 容易 解决 上 面 提 到 的 实现 多 步 法 时 的 两 个 困难 。 
首先 考虑 第 一 个 问题 步 长 调整 .要 在 某 一 点 志 把 步 长 从 六 变 到 睛 ,只 需要 简单 地 把 式 
《16.7.5) 中 r 的 元 素 乘 上 (号 /) 的 适当 的 医 , 便 可 连续 到 xz 十 刀 了 ， 
多 值 法 也 允许 在 算法 阶 次 上 进行 相对 篇 单 的 变化 :只 需 简单 地 改变 ,这 样 做 通常 的 太 
法 是 首先 从 误差 估计 中 用 现 有 的 阶 次 决定 新 的 步 长 ,然后 检查 是 应 该 用 高 一 阶 或 低 一 除 的 
步 长 来 项 测 .选择 允许 干 一 步 取 最 大 的 那个 阶 次 能够 选择 阶 次 这 就 让 起 点 问题 也 变 得 容易 
了 .只 需 简 单 地 从 一 阶 算法 开始 ,再 让 阶 次 自动 增加 到 合适 的 阶 次 。 
对 十 低 精 度 的 要 求 , 类 似 rkqs 的 龙 格 - 库 塔 程序 几乎 总 是 最 有 效 的 .对 于 高 精度 ,bsstep 
性 能 既 好 且 有 效 。 对 于 非常 平滑 的 函数 ,一 个 变 阶 次 的 PC 算法 可 达 很 高 阶 . 如 果 等 式 右 问 
相对 较 复 杂 ,这 样 估 信 的 计算 量 超 过 了 记录 信息 的 费用 , 则 最 好 的 PC 程 译 存 处 理 这 类 问题 
土 比 布 里 斯 奇 -斯 托 法 要 好 。 正 如 所 想象 的 那样 ,这 样 变 步 长 ,高 阶 次 的 算法 在 程序 中 并 不 恋 
烦 。 如 果 用 户 觉得 自己 的 问题 适合 于 这 种 方法 ,我 们 建议 采用 PC 软件 包 。 详 细 情 况 参 见 
Gear[] 或 Shampine 和 GordqonD 。 
我 们 预计 , 象 布 里 斯 奇 -斯 托 那样 的 外 推算 法 是 越 来 越 精致 而 复杂 , 最终 在 所 有 序 用 方 
面 都 将 琉 弃 PC 算法 ,我 们 希望 我 们 这 点 是 对 的 
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第 十 七 章 ” 两 点 边界 值 问题 


17.0 引言 


当 常 微分 方程 要 求 在 肯 变 最 的 两 个 或 两 个 以 上 值 三 泪 足 边 界 条 件 时 ,这 种 问题 叫 作 两 
点 边界 值 问题 .正如 该 术语 所 表明 的 ,月 前 最 普遍 的 仿 训 是 慨 求 在 两 个 点 一 一 通常 是 积分 的 
起 点 和 终点 上 满足 边界 条 件 , 但 是 “两 点 边界 值 问题 "这 盖 呈 法 也 广 诈 用 于 更 加 复杂 能 情况 ， 
如 有 的 条 件 是 在 末端 指定 的 ,有 的 条 件 是 在 内 部 指定 (通常 姨 奇 异 点 )。 

初始 值 扣 题 ( 第 十 六 章 ) 和 两 点 边界 值 问题 (本 竟 ? 的 主要 区 别 在 于 ,前 者 我 们 可 以 从 其 
起 点 处 (初始 值 一 个 可 接受 的 解 开始 ,只 需要 通过 数值 积分 到 其 终点 (结果 值 ) 凤 可 ;而 在 现 
在 情况 下 ,起 始点 的 边界 条 件 并 不 是 唯 -- 诀 定 求解 开始 的 条 件 而 所 在 满足 起 始 边界 的 
解 (站 完全) 中“ 随 使 ?选择 -- 个 解 , 它 几 乎 并 不 能 满足 其 它 特 斌 点 的 边界 条 件 。 

一 般 人 情况 下 , 希 要 用 近代 法 把 这 些 空间 上 分 散 的 边界 什 条 件 融 合成 一 个 单一 的 微分 方 
程 的 解 . 这 :点 并 不 感到 奇怪 , 正 因为 这 个 原 避 ,两 点 边界 展 问 题 比 初始 侦 问 题 异 更 费 精力 。 
这 必须 在 有 意义 的 区 和 间 鞋 对 微分 方程 积分 ,或 是 执行 类 似 “ 松 驰 ” 过 程 (参见 下 面 ) 几 次 ,有 时 
甚至 是 很 多 次 。 往 往 只 有 在 特定 的 线 注 微分 方程 情况 下 ,才能 事先 说 出 需要 多 少 次 的 渤 代 计 
算 。 

“标准 ”的 两 点 边界 值 问 题 有 如 下 的 堪 式 :我 们 涡 要 求 一 组 N 个 联 立 的 一 阶 常 数 微分 方 
程 的 解 , 在 超 始点 =: 满足 ma 个 地 界 条 件 , 在 最 终点 zs 满足 ma 一 入 一 由 个 边界 条 件 ( 记 住 , 所 有 
高 于 一 阶 以 上 的 微分 方程 都 可 以 写成 一 组 联 立 的 一 阶 方程 , 参 第 16. 0 节 ) 。 

微分 方程 是 
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一 一 323) 1 一] 2 VY (17.0. 1》 

在 点 <y* 解 需 满足 
BCT3 0 一 了 《17. 0. 2) 

而 在 ze 点 ,应 满足 
Tryyiyye .939w) 一 0 炎 一 1 .。 "zz :1 3 


解决 两 点 边界 值 问 题 有 两 种 不 同类 型 的 数值 解法 ,在 打 稻 法 (第 17.1 节 ?中 , 茂 们 在 个 
边界 上 选择 了 所 有 应 变量 的 值 , 这 些 值 必须 和 该 边界 的 边界 条 件 保 持 一 致 ;但 是 在 妆 从 一 个 
边界 上 将 应 变量 设置 成 依赖 于 任意 参数 ,其 参数 值 是 最 初 “随机 ?猜测 的 ,然后 ,我 们 用 初始 
值 的 方法 积分 常 微分 方程 ,一 直到 达 另 外 一 个 边界 (或 是 定义 了 边界 条 件 的 内 点 )。 一 般 说 
来 ,我 们 发 现 和 那里 的 边界 值 不 吻合 ,但 我 们 遇 到 过 多 维 寻 解 问题 ,就 象 在 第 7. 6 节 和 第 9. 7 
节 中 那样 :找到 起 始点 处 的 调整 量 ,从 而 把 在 其 它 边界 上 的 误差 重 减 小 到 零 . 如 果 我 们 把 微 
分 方程 的 积分 过 程 比喻 为 弹道 轨迹 的 话 , 选 择 初始 条 件 就 相当 于 瞄准 的 过 程 ( 参 见 图 17. 0， 
1)。 打 秽 法 提供 了 有 规律 可 循 的 各 近 法 ,可 以 进行 限定 一 定 范围 的 “射击 ,这 可 以 有 规律 地 

"638 。 


识 进 茂 们 鸣 "上 准 ? 作 肌 ， 






.了 御 要 的 
二 界 包 


所 蜂 求 的 
边 内 值 





在 灌 志 这 内 委 侍 抑 基 一 滤 点 成 特性 出 从 开战 元 和 积 分 :在 才 外 一 这 吉 和 所 需 池 异 共 位 广 二 
几 凡 说 攻 总 始 营 件 .站 到 在 下 个 捕 总 的 边界 条 件 孝 锌 泗 : 
图 17. 小 1 打 邮 沃 (于 意 峡 ) 


作为 打靶 法 的 归 一 变异 (第 17. 2 节 ) .我 们 吕 以 猜测 在 定义 域 的 两 端 者. 大 各 的 阁 直 全 帮 
的 值 : 把 方 种 积分 到 呈 一 合适 的 中 吃 ,设法 调整 负 测 的 参数 值 让 解 在 型 一 忌 " 平 澡 地 " 相 
连 ,在 所 有 的 拉 计 法 算法 中 ,试验 解 能 够 “ 精 傅 地 ”( 或 考虑 铬 积分 算法 是 相对 来 由 很 精 谢 地 ) 
满足 微分 方程 ,但是 只 有 在 迭代 结束 以 后 ,试验 解放 能 满足 所 需 的 边界 值 条 忻 。 

松 驰 法 用 了 另外 … 和 和 道 近 方法 ,微分 方程 由 覆 资 积 个 限 的 一 系列 的 有 限 全 问 分 方程 来 
代替 .试验 解 由 各 个 局 格 点 上 应 灾 量 的 依 组 成 ,并 不 满足 所 密 的 有 限 个 巷 分 方程 ,其 爹 卫生 
需要 满足 所 适 的 边界 条 件 ., 达 代 过 丽 , 这 里 称 作 松 驰 过 程 ,时 调整 所 有 在 网 格 上 的 六 , 合 他 站 
满足 各 个 联 立 的 次 分 方程 ,同时 也 满 下 边界 条 件 (参见 图 17, 0. 2) .例如 ,如 景 问 题 涉 及 -个 
联 立 的 方程 兴 及 “在 个 网 格 点 , 则 我 们 必须 根据 解 匈 预测 三 百 个 变 闪 的 值 , 然 尼 进 行 改 j 寺 来 
得 到 服 拓 的 结果 。 

需要 这 么 多 调 更 ,你 也 许 傅 奇怪, 谷 绰 法 其 有 效 的 六 法 吧 ? 但 (对 某 些 问题 来 沪 ? 它 的 确 
是 种 很 有 效 的 方法 ! 当 边界 值 条 件 等 别 藉 乎 而 错综复杂 的 时 候 ,或 是 涉及 到 不 能 出 新 闭 形 
式 进 行 求 解 的 代数 关系 时 , 松 驰 法 比 洒 加 法 的 效果 要 好 .如 果 解 是 平滑 的 而 且 不 是 高 度 根 渐 
的 情况 , 则 松 驱 法 效 昌 地 好 .如 昌 振 荡 得 很 历 嘎 就 需要 很 多 的 网 格 点 来 进行 精 硝 的 赤 示 . 沂 
需要 的 网 烙 点 的 数 晶 和 位 普 也 许 都 是 事先 未 知 的 .这 种 情况 十 用 打 层 法 逐 常 比 综 好 ,因为 打 
靶 法 中 的 变 步 长 积分 能 够 和解 的 特点 相 适 应 

人 们 通常 避 欢 将 松 乳 法 用 于 党 微分 方程 组 的 解 有 凡 外 一 部 分 ,这 部 分 术 同 现代 冯 忆 所 
有 边界 乏 件 的 最 上 后 结果 中 ,但 在 用 打 邯 法 进行 初始 值 积分 时 它 却 会 车 成 很 多 问题 . 热 蜡 交情 
涡 ,是 一 个 汇 减 的 指数 解 中 会 有 一 个 增长 的 指数 部 分 。 

为 使 松 驰 法 有 效 邮 发 挥 作用 ,良好 的 初始 预测 值 是 一 个 关键 .通常 情 现下 ,人 们 常常 需 
要 多 次 解决 同一 个 问题 ,每 次 都 是 某 几 个 参数 略微 变 一 :在 这 种 情况 下 , 当 参 数 收 变 4 . 床 
先 的 结果 也 许 就 是 一 个 好 的 初始 预测 值 , 并 旦 松 驰 法 能 够 有 效 地 解决 问题 。 
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所 要 求 的 
边界 傅 
曾 测 一 柯 始 值 近 航 满足 微分 三 程 和 边界 条 件 . 用 选 代 过 程 对 其 进行 谓 整 直到 最 后 和 真实 完全 隐 台 、 
图 17.0.2 挫 驰 法 (示意 冉 ) 


在 挑选 这 两 种 方法 时 , 恕 果 还 不 太 有 经 验 , 那 么 可 以 采用 我 们 的 建议 ,首先 选用 打靶 法 ， 
然后 再 用 松 驰 潜 。 


17.8.1 能 用 标准 边界 值 问题 求解 的 问题 


有 两 类 重 杰 的 问题 能 够 用 方程 (17. 0.1)~ 一 (17. 0. 37 所 描述 的 标准 边界 值 癌 题 来 求解 。 
第 二 类 是 微分 方程 组 的 特 钙 亿 问 显 ,这 里 的 微分 方程 组 的 右 端 依 丈 于 参数 


dyi(z) 
0 (417.0.4) 


而 且 必 须 满足 w 十 1 个 边界 条 件 , 而 不 只 是 W 个 .这 种 问题 是 超 定 性 的 通常 不 是 对 洗 意 》 
值 都 有 解 ,对 某 些 特殊 的 4 值 , 即 特征 值 , 方 程式 (17. 0. 4 确实 有 解 。 
我 们 引入 一 个 新 的 应 变量 和 另 一 个 微分 方程 来 推导 这 个 同 题 





Su+ls 1 【17. 0.5) 
Gywtl 
0 0 (17.n.6) 


在 第 17. 4 节 中 给 出 了 这 种 处 理 方法 的 一 个 例子 。 

另外 一 种 能 北 成 标准 形式 的 是 自 由 边界 值 问题 .这 里 边界 只 有 一 个 边界 横 坐 标 >, 是 指 
定 的 ,而 另 一 个 z 是 未 殴 定 的 ,这样 使 式 (17. 0. 1) 具 有 一 个 满 直 总共 是 十 1 个 边界 条 件 的 
解 . 这 里 我 们 再 次 加 入 一 个 额外 的 定 值 应 变量 ; 


yw+l 至 -2z 一 泡 (17.0.7) 
地 3yN 1 
3 一 0 《17,.0,8) 
我 们 还 定义 了 一 个 新 自 变量 :, 并 设置 越 
了 一 兰 上 yw li 0 近 上 所 1 (17.0. 9》 


原来 总 共 六 十 1 个 关于 dyrvdt 的 微分 方程 ,现在 即 成 标准 形式 ,其 中 上 在 已 知 区 和 间 0 到 1 之 间 
"640 。 


17.1 打 间 法 


在 这 一 节 中 ,我 们 讨论 * 纯 止 ? 汐 打 几 法 ,其 中 积分 过 程 是 从 二 到 zs: 并且 我 人 努力 使 和 
分 结果 在 积分 的 终点 和 边界 条 件 号 配 。 在 下 … 节 里 ,我 们 介绍 射 向 某 一 中 间 合 适 上 的 博 交 ， 
从 区 间 的 两 端 * 射 击 ”, 争 了 到 在 某 一 中 间 点 满足 连续 条 件 . 这 样 才 求 出 满足 方程 和 边界 什 条 件 
的 解 。 

我 们 实现 的 打 邯 法 精确 地 运用 了 多 维 全 局 收 和 误 牛 顿 - 控 介 森 法 (第 9. ?7 节 》, 蕊 设法 零 化 
和 个 变 开 的 四 个 函数 ,这些 函数 从 二 到 zx: 积分 六 个 微分 方程 得 到 。 我 全 看 一 下 其 原理 。 

在 初始 点 zi 有 六 个 起 始 值 wx 要 进行 定义 ,但 必须 满 吓 冯 个 条 件 , 园 此 这 就 有 产 一 上 一 
六 个 自由 定义 的 起 始 值 ,我 们 假设 这 些 自由 定义 的 值 是 z 维 向 量 空 间 的 一 个 向 量 V. 当 知道 
了 边界 条 件 的 国 数 形 式 (17.0.2), 即 可 作出 … 函 数 ,该 画 数 生成 N 个 起 始 值 y 的 完备 集 , 并 
站 2 点 满足 边界 条 件 , 该 兄 数 可 以 从 什 … 回 量 V 来 生成 。 在 该 辐 量 ,对 其 中 的 z2 个 元 索 没有 
任何 肯 制 .换言之 , 式 (17.0.2) 转 换 成 -个 表达 式 

TD 一 JCY 1 全 村 了) 
下 而 实现 式 (17.1. 1) 的 函数 串 作 lnad 。 

注意 Y 的 元 素 也 许 刚 好 是 y 的 某 些 自由? 分量 值 ,y 的 其 它 分 量 则 由 边界 条 件 来 确定 。 
乙 一 方面 ,Y 的 元 素 也 许可 以 以 某 种 简便 的 方式 ,将 构成 满足 起 始 边界 条 件 的 解 参 数 化 , 边 
界 值 条 件 经 常用 一 些 代数 关系 来 约束 ”, 啊 不 是 单个 地 规定 它们 的 特定 值 .对 某 一 组 % .用 
一 些 附 加 的 参数 集 往 往 比 较 容易 “解决 "边界 值 关 系 . 无 论 采 用 哪 种 方法 都 可 以 ,只 要 能 通过 
间 量 空间 V( 用 式 (17. 1. 1)) 生 成 所 有 人 允许 的 起 始 向 量 y。 

给 定 一 个 特定 的 Y ,特定 的 y(zi) 邯 生成 了 .然后 按 初 始 值 问题 对 常 微分 方程 积分 到 z， 
“二 如 可 用 第 十 六 章 的 adeint) ,就 可 以 将 它 转变 成 了 Y(zrz)。 在 zz 点 ,我 们 定义 -一 个 偏 整 向 
量 下 ,也 是 疡 维 的 ,其 分 量 用 来 测度 离 在 zx: 点 处 满足 ma 个 边界 条 件 (17. 0. 3 的 差距 。 鼠 简 单 
的 方法 是 用 式 (17. 0. 3) 的 右 端 ， 

有 一 百 w(za,y) 一 1 。 ,zt (17. 1.2) 
对 于 向 量 空间, 也 可 以 使 用 任何 其 它 的 参数 化 方法 ,只 要 正 空间 能 够 扩张 成 所 要 求 边 界 条 
件 可 能 的 侠 差 空间 ,而 且 当 且 仅 当 在 z: 点 的 边界 条 件 得 到 满足 时 ,F 的 所 有 分 量 等 于 零 .下 
面 ,将 要 求 提 供 -个 用 户 自 编 的 函数 seore ,用 式 (17. 0. 3) 把 终止 值 yY(z) 的 N 维 向 量 转换 
成 一 个 m 维 偏差 向 量 F。 

现在 ,就 牛顿 - 拉 斐 森 法 而 言 ,我 们 就 得 费 一 些 周 折 了 ,我 们 需要 扳 到 一 个 Y 的 向 量 值 ， 
让 其 使 向 量 值 趋 于 零 .我 们 通过 调用 在 第 9. 7 节 中 ,程序 mewt 实现 的 全 程 收敛 牛顿 法 来 完 
成 这 一 点 。 牛 顿 法 的 核心 涉及 到 求解 zm 个 线性 方程 组 

Jsv 一 一 F (17.1.3) 
的 解 , 然 后 返回 加 上 校正 量 
Verv 一 VE 十 3V (17.1.4) 
在 式 (17, 1, 3) 中 , 雅 可 比 矩 阵 丁 的 元 素 由 下 式 决 定 ， 
"64]。 


轧 = 乏 (1 
州 解 机 法 计算 这 些 俩 导数 是 不 现实 的 ,而 及 每 个 体 都 需要 对 N 个 常 微分 方程 的 单独 积分 ， 
面 由 援 着 估 值 
3Fi 
5T， 2V; 
这 忆 在 newt 程序 下 的 rdjac 程序 中 自动 完成. 出 户 嘎 要 提供 newt 的 输入 所 是 程 子 vec- 
fune, 它 是 通过 视 微 分 方程 组 求 秋 来 计算 了 ,下 所 有 -个 合适 的 程序 ,你 为 shoot , 它 秆 为 … 
个 实际 参 基 传递 到 程序 newl 让。 








《17. 上 站) 


Tejudqe ”TITUEi.” 
站 de[ine 了 上 PS 1.pe 


exterm int DYHTi 用 卢 需 在 主 程 序 书 定义 和 设 亚 的 安 坡 


eXTet [loa: 8 ，X2; 


int kgniax，Koune 与 程 子 stinl 传递 
fleaf *xP，r xynhy dxsavy 


void shoot 《int n。 Joaf v[]，float 拒 
对 nvaz 个 联 立 党 敏 分 方程 州 newt 程序 送 演 从 xl 到 x2 打 靶 解 类 两 点 边界 逢 问题 的 等 许 。 在 x1 处 nvec 个 肯 贞 守 六 
开 的 罕 始 值 大 洲 用 用 自 编程 序 lpaqg, 利 店 闻 个 输入 系数 [1..n2 米 产生 .程序 积分 常 微 分 方 相 采用 并 庶 带 
法 . 容 差 妥 为 eps ,初始 步 长 al, 展 小 由 长 hanine 人 在 x2 点 谢 用 月 户 自 编 租 序 seore 来 计算 n2 个 函数 三. 富 
na2] 应 该 在 满足 x2 处 边 愉 条件 时 变 为 答 . 污 效 于 在 缩 赴 返 可 .newt 用 全 正 疏 误 牛 玫 法 来 调 痕 效 v 人 用 产 
提供 的 程 庆 derivsfxiyydydx) 提 供 常 徽 分 声 程 积分 求 导数 信息 : 见 第 十 六 竟 ). 上 面 第 -组 全 程 亦 量 从 宇 竹 凡 小 接 
疏 值 . 勾 村 shoot 中 能 有 newt 的 售 数 vecfunc 天 需 指 诈 涉 . 








void derive(float 工 ， float 了 7[] ，flioat dydxz[])i 
void Loadtfiloat xl，float v[] ，flLloat y 门 ) ; 
Void codaintkfLoat ystart[] ，int nvar，float xl1，ztloat x2， 
后 Loat spsa，flcoat hl。ftl1oat hmin，int *aox，iot abad， 
yoid 【aderivs)gfiloac，float [] ，float [])， 
void 【erKqa》(z10at [] ，float [上 ，int，float ，float 。 荆 Loat， 
float [] ，flaat =*，ftloat $，void 《*] (fl0Bt，fTLoat [] 。Tloat []>》 
void rkqs(t]oat 了 [] ，float dydx[] ，int 0，float *x， 
float htry，fl1oat Pa，f1o8U ycal[]，T109at *hdtd，t1oat *bnext ， 
void (*derivay(float，float [] ，float 口 )); 
void scoregftioat XRE，?1oac 了 口 ，tloat 于 []); 
dnf Rbad ,nok; 
float bi,bnin=0.0:y3 
JPvyector (layar) 
Jazr=D; 
hletXx2-X1)7100.0; 
loadkrtv,y) 1: 
odeint(y,Dvarixl,X2,EPS:. hi,hmin,tnok,jmbad,derivs,rkq8)i 
BCOoTBIX2,y:T); 
Tree_vectorty,1,nvar) : 


对 有 些 问题 来 说 ,初始 化 步 长 值 也 许 与 初始 条 件 有 很 密切 的 关系 ,最 直接 的 作法 是 修改 
ieoud 冰 数 ,使 其 包括 … 个 作为 另 一 个 输出 变量 的 参考 步 长 hl ,并 通过 全 程 变量 把 它 友 饶 给 
[djac ， 

“42。 


这 样 一 个 完整 的 打 蚂 法 循 坏 过程 需 昌 对 只 个 联 立 常 微 分 方程 齐 行 生 一 1 次 于 分 :次 
积分 用 作 佑 计 当 能 误差 程度 ,z# 次 对 俩 导数 积分 :每 一 次 新 的 循环 过 各 旧 来 新 的 轮 一 ] 
次 积分 .这 屯 说 明了 两 点 边 答 值 吕 题 和 切 始 值 问 题 比较 起 来 的 确 瑚 要 更 大 其 额外 的 工 秆 此. 

如 果 微 分 方程 线性 揭 , 则 只 需要 一 个 完整 的 循环 过 程 , 虑 为 趟 117.1.3? 一 (人 1? 和 4 可 已 
站 接 让 我 们 能 取得 止 确 结果 .- 世 是 再 进行 一 次 循环 也 是 有 川 的 ,这 可 以 减少 部 分 5 但 不 品 能 
是 全 部 ) 的 售 人 误 益 。 

作为 用 户 , 必 须 为 shoot 程序 所 供 :(i) 果 数 load(xlvyy), 用 以 计算 n 癌 廿 [Cn- 
《当然 满足 起 始 边界 条 件 ) ,在 初始 点 x1 给 出 *1.，n2] 的 马 定 义 变 最 :(i) 匿 数 senre(x2.y、 
f2 ,用 讽 计 算 在 终端 过 界 条 件 俏 盖 问 量 古 1. ,na2]: 在 终端 点 x2 给 出 向 量 y-1..n :ii 起 始 
杏 最 v[1..n2 :Cir) 虹 数 derivs 涝 行 常 徽 分 方程 的 积分 :以 及 其 它 在 上 疝 程 上 十 头 所 说 明 
的 - 些 参 数 。 

企 第 17.4 节 中 ,我 们 将 列举 - -个 简单 的 穆 译 ,用 以 说 明 怎 样 使 用 程序 shoot， 


17.2 对 合适 点 打 攻 


在 第 17. 1 节 中 ,介绍 的 打靶 法 约定 了 “射击 "轨迹 能 够 穿越 整个 的 积分 域 ,很 块 即 可 以 收 
伍 到 正确 的 解 上 .在 有 些 和 问题 发 生 的 情况 是 ,因为 错误 严重 的 起 始 条 件 ,初始 解 从 :到 关上 归 
碰 到 某 些 不 可 计算 的 ,或 是 灾难 性 的 结果 .例如 , 某 个 平方 枢 变 成 负数 ,导致 了 数 贷 代 抬 的 混 
居 , 使 简单 的 打靶 法 将 政信 困 堵 。 

一 种 不 同 的 但 是 相关 的 情况 是 ,两 个 端点 都 是 常 微 分 方程 组 的 奇 噶 解 .通常 简要 用 特别 
的 方法 在 奇异 点 附近 积分 ,例如 用 解析 渐 近 法 .在 这 样 的 情 况 下 , 沿 着 背离 奇 异 点 方 六 进行 
积分 是 可 行 的 ,用 某 些 特殊 的 方法 经 过 第 -个 点 旁边 一 点 点 ,然后 求 出 "初始 值 " 进 行进 一 步 
的 数值 积分 .但 中 .通常 积分 到 某 奇异 点 是 不 行 的 ,因为 用 户 遂 常 不 用 费 很 大 的 精 少 就 得 
到 奇异 点 附近 的 “ 鲁 误 " 解 的 解析 展开 式 (这 些 解 并 不 满足 所 需 的 边界 条 件 )。 

解决 上 面 所 提 困 难 的 方法 足 用 对 合适 点 打 疲 的 方法 我 们 并 不 从 如 积分 到 xf, 而 不 竹 
先 从 王 积 分 到 和 zs 之 间 的 一 点 xf; 然后 再 从 二 ( 洛 反 方向 ) 积 到 zh。 

如 果 和 以 前 一 悦 ,在 =. 点 的 边界 条 件数 是 思 , 则 在 起 始 ,有 加 个 可 自由 设 定 的 切 始 得， 
而 在 zx* 有 个 可 自由 设 定 的 起 始 值 。( 如 果 这 里 你 感到 有 些 疑 惑 .可 以 回 旬 第 17.1 节 .我 六 
习 此 可 以 在 六 处 定义 个 导 维 起 始 参 数 向 量 Y ,以 及 一 个 把 Yo 机 射 到 在 ri 处 计 趾 油 站 
条 件 的 向 量 y 的 方法 loadl(xl,rl,y)， 

CD 一 CT 了 f17 了 ,2, 1) 
同样 ,我 们 在 ** 处 也 能 定义 一 个 六 维 起 始 参 数 滞 量 Ye 以 及 一 个 把 Ya 映射 到 在 六 处 满 叱 
人 边界 条 件 的 向 量 y 的 方法 load2(x2.v2,y) 

人 了 人 


这 样 , 把 Yo 和 Ye 结合 起 垃 . 我 们 就 总 共有 只 个 可 调整 的 参数 ,必须 要 满足 的 光 个 条 
件 是 ,从 两 头 积分 得 到 航 , 在 xzr 贞 处 y 向 量 的 六 个 分 量 应 该 相 厅 , 即 
一) 1 一 1. 门 ?,2 5 
和 下 有 些 阿 题 中 ,这 N 个 匹配 条 千 最 好 用 和 个 不 同 国 数 天 人 一 和 3)( 物 理 地 、 数 党 直 或 数 和 
3 


地 ) 进 行 描述 ,每 个 函数 也 许 都 和 y 的 N 个 元 素 有 关 。 在 这 些 情 况 下 , 式 人 17.2.3) 由 下 改 蔡 
代 ， 
Fi[LyCzrrye 让 一 本 [yCrrsyo] 了 工 一 1 《17.2.4) 

在 下 面 的 程序 中 ,用 户 提供 的 函数 score(xt,y:f 是 用 来 把 输入 的 N 维 向 时 y 瞻 射 成 为 
输出 的 N 维 向 量 FE, 大 多 数 情 况 下 ,可 以 把 这 个 函数 直接 进行 相等 映射 。 

射 向 某 一 台 适 点 的 方法 和 第 17.1 节 中 所 使 用 的 牛顿 - 拉 斐 森 方 法 完全 样 , 参 考 前 -一 闻 
的 程序 shoot, 理解 下 面 的 程序 shootf 应 该 没有 什么 困难 。 人 在 使 用 时 的 主要 区 别 是 ,用 户 必 
须 提 供 teadl 以 及 loat2 ,而且 ,在 调用 程序 中 必须 给 v1L1..n2] 和 v2[1. .nl] 提 供 初始 猜测 
值 , 在 第 17. 4 节 中 也 给 出 了 “示例 程序 说 明 如 何 射 向 一 合适 点 。 


十 inelude ”nrutil. hn" 
社 define EPS 1.0e 一 6 


exteTn int nn2ynvaT: 用 户 需 要 在 主 程序 书 定义 和 设置 的 放声 


exteTD 了 oat X1x2，xf 


int kmax，、kount' 与 禹 着 odeint 传递 
flcat xp，# # pydxsav 


void shoaotffint ny float v[ ， fioat 上 帮 ]) 
用 pewt 求解 nvar 咎 圈 立 溺 微 分 方程 组 了 点 这 界 值 问 ,从 x1 和 >x2 射 向 某 一 合适 点 好 的 程序 ,nvar 个 常 微 分 方程 同 


xlftx2) 的 初始 俏 由 metnl)? 个 又 镶 v1(v2) 产 生 , 计 快 用 用 户 握 供 的 径 序 loadltload2) 状 行 .这 本 种 译 中 , 通 己 计 贡 ， 
一 v 和 v2=&v no 把 系数 v1 利 ?2 存 情 在 单个 窍 阵 *[1. .n1 二 ?2] 中 .给 入 参数 5 一 21 十 n2 一 nyver. 程 片 使 用 龙 榨 - 
库 烘 法 积分 带 徽 方 称 到 xf ,其 疹 益 限 为 eps, 初 始 步 长 1 及 最 小 步 长 hmin. 在 好 处 调用 用 片 定 义 的 笨 序 seote ,以 证 
算 .nvar 个 画 数 下 和 失 , 这 些 画 教 应 在 xf 匹配 。f 的 薄 信 应 返 回 到 输出 .aewt 采用 全 局 收效 二 籽 关 - 沁 调 碍 作 . 产 邢 
函数 f 等 于 零 ,用户 提供 的 程序 tertygtx,y,dydz) 给 出 常 微 分 方程 的 导数 信息 (分 见 第 十 六 章 ? .上 蜡 的 第 ， 个 生 语 
蛮 量 十 从 主 程序 中 接收 它 的 值 , 以 使 shoot 能 有 uewt 的 人知 数 vetfurc 的 所 要 求 的 语法 。 在 主 程序 中 让 un3= 3 


Yoid derivs(float x，f108t5 y[] ，t1oar dydx[]); 

void loadlfTloat 31，float vlt ，float 了 口 ); 

void load2(f108T X2，?loat v2[I] ，1loar 了 []); 

void cdaintftloat yatart{ 们 ，ipt QYSTr，?1Cat x1，f?1oat I2， 
fl10at 9ps5，tlcat l1，?zlcat bmiza，int ?nox，int +Qbsdi， 
void (+derive)ffloat，tloat {] ，flcat []) ， 
void 《sqs)ttioat [了 ， zl1cat [] ，tipt，Tl1oat e，T1OaY 19aT ， 
fl1oat [] ，f1cat ww，?zlLcat *。，Yolidu 【se (ztLoag，zl1onat [] ，tloat [])7); 

void zkqafzloat 了 站，t1oak dydz[]，intg 口 ， 了 LOat 站， 
《float htxzy，float epg，float y8Cal[] ，zloat bdid，f1oat wbhnazt， 
YotdG (rderiys)fT108t，fioat [] ， 了 float 口 ))1; 

7oid scoreft1loat XT，TLIo8t 了 [] ，fL1oat 了 [] ) : 

int 1 nbad,nok; 

?+1cat ht ,bmaine0.0,rf1l.*rf2ayi 


Il=vector(1iavar) ; 

于 2=YactOTK1 NVSE) 1 

ysVYB@ctor(1,DVear)i 

mars0i 

hle(x2-xl)z100.0， 

load1(z1,v,y)3 几 最 佳 戌 验 值 *] 从 xi 到 xfr 的 路径 
aodeinttyiDYar,X1,Xf,EPS,Dl1,hmin ,上 no ,tabad ,deriv 包 ZXGST 1 
acareKXEY 73:E1) 7 

Joad2(x2,tv [nan2] ,7); 用 最 佳 试验 慎 v2 从 x2 到 xf 的 路 径 
0odeint(yinyaTrvx2,x ,了 PS ,hi,hain ,nok ,tnbaqd rertV6sTxqg)] 
SCDTSKXE YE2) 1 


.644 。 


for 【imtii<c=<D;q+r) 了 [i]mft[i] -了 2[i， 
free_yector(y,1,nvatr)i; 
Tree_vector[(f2 ,2 iavary; 
Tree_vyector(T1 1，nYaTr) 3: 


有 的 边界 值 河 题 , 即 使 采用 射 向 某 “合适 点 也 会 出 现 问 题 .积分 区 闻 不 得 不 用 儿 个 
合适 点 进行 分 段 ,而 解 则 必须 在 每 个 合适 点 上 得 到 匹配 , 详 见 [1 。 


参考 文献 和 进一步 读物 ; 
Stont JJ ，and Balirseh， 及 、1980，Jritrodhctipom zt Jaraerical rraty50 (New York :， SprlRetr Veriag。 
SS?7.3.5?.3. 轩 L1] 


17.3 松 怠 法 


在 松 驶 法 中 ,我 们 把 常 徽 分 方程 用 革 些 村 全 或 网 冰点 上 的 近似 有 限 郑 分 方程 组 CEDES ) 粹 伐 花 ,这 此 
网 格 点 张 成 了 这 个 积分 域 , 作 为 一 个 范例 ,我 位 可 以 杷 一 个 -最 的 一 阶 微 分 方 冬 


C 本 
商 一 (yy) 
用 一 个 与 在 两 点 大 类 一 1 国 数 值 有 关 药 代数 方 称 
3 xDE[ 二 Cu 所 二 0 一 3 一 7.3.21? 


来 代 普 。 在 式 (17, 3. 27 中 有 限 莽 分 方程 的 掏 式 只 说 明 这 种 息 想 ,但 其 形式 并 非 唑 一 的 :有 想 老 方法 可 以 把 
常 微分 方程 转换 成 有 限 差分 方程 . 当 明 到 用 栅 格 上 的 M 个 点 代替 六 个 联 立 的 一 阶 常 微分 廊 得 的 于 是 时 、 
其 解 是 好 个 辑 几 点 小 的 六 个 应 变 函 数 的 值 , 也 就 是 总 共 入 x 噶 个 变量 ,其 驰 法 程 我 们 以 六 介 绍 过 的 方法 
一 样 .首先 贡 测 一 个 解 , 然 后 对 其 进行 选 代 和 个 正 以 达到 真实 解 , 当 用 达 代 法 儿 册 蚀 时 , 结 林 亨 这 潭 壕 近 到 





直 实 解 ， 
我 们 可 以 用 很 多 衬 注 代 法 , 估 对 大 多 数 问题 来 说 ,我 们 上 关 的, 妹 准 的 疡 维和 中 需 法 流 染 简 划 、 袜 说 六 入 
需要 求解 一 个 矩阵 方程 ,但 该 起 阵 是 一 种 特殊 的 “ 抉 对 角 化 "形式 ,在 求解 的 时 候 , 可 用 出 一 股 条 SAY 和 


CN) 的 矩阵 在 时 间 和 存储 空间 上 都 要 节省 很 多 , 现 为 WAN 很 容易 就 达 几 千 ,这 对 洁 方 法 起 击 厅 行 次 系 下 
密切 , 
在 大 多 数 成 对 的 点 上 ,我 们 的 实施 过 程 痢 基 匹 配 的 ,就 象 在 方程 (17. 3. 2) 吓 - - 样 , 虑 配 的 各 越 如. 淹 轩 
雯 如 了 方 落 的 复杂 性 .如 果 读 者 有 耐心 去 编程 ,我 们 可 以 提供 足够 的 知识 上 背 暴 。 
我 们 来 求解 一 组 由 让 限 差分 方程 替代 上 微 分 方程 的 … 般 的 代数 方 理 。 常 徽 分 方程 河 里 和 起 7 汪 
一 617.0. 3) 所 表示 的 完全 一 样 .这 里, 我 们 有 N 个 联 立 的 一 阶 方程 ,在 xi 点 满足 呈 个 边界 条 件 , 在 一 点 蒿 
是 下 = 六 一 个 边界 条 件 。 首 先 我 们 定义 了 一 织 上 一 1.2，paM 个 点 的 精 格 ,我 们 提供 了 在 这 机 格 组 点 土 柄 
应 的 变量 xx 的 值 .特别 闻 ,z) 晨 初始 讽 界 值 ,zm 是 终点 边界 值 ,我 们 用 u 表示 在 点 共处 应 变 最， 
33x 整 组 的 值 .在 网 烙 中 间 的 尾 一 点 &, 我 们 可 以 用 二 列 代数 关系 式 来 吏 近 六 个 -- 莉 常 汶 分 方 视 的 
方 穆 纽 ， 
自生 4i7.3.3) 
这 个 均 达 式 圾 明 隐 能 用 两 点 A 光 一 1 的 入 息 进 行 计 算 ,由 kx 表示 的 有 限 差 分 方程 提供 了 点 大汉 一 1 的 包 舍 
2 个 变量 的 个 方程 .017, 3.3) 形 式 的 六 分 方程 能 解 出 萎 一 1 个 点 小 =2,3， 于 这样, 有限 莽 分 方程 提 
供 了 ( 叶 一 1 个 方程 ,求解 3 个 术 知 变 胜 , 片 余 的 六 全 克 生 从 边界 条 件 导 册 。 
在 第 -个 边 洽 值 条 件 中 ,我 们 有 
站 117, 4， 1 


Ra 


在 第 -一 全 边界 信条 件 中 ,有 
站 一 下 一 CCwoye7 (17, 小 3 

E: 和 县 只 有 症 全 非 短 元 ,这 对 话 寺 在 二 :点 的 关 个 边界 条 者: 把 这 此 下 零 式 放 在 最 后 后 半 个 产 索 十 以 

会 有 用 的 . 世 就 是 详 , 只 对 盖头 一 1 归 十 2 来 说 局 ,天 0 在 另 一 个 边界 和 人 御 中 , 兵 布 Eee 和 IfC 的 
和 开 iw -1 只 对 7 一 1 z 林 为 堆 。 

在 式 L17. 灿 3 一 17.3.5? 中 的 有 限 凑 分 卢 程 刚巧 的 “ 解 ?出 一 下 yw 变 景 的 侦 弓 成, 世 就 十 由 在 好 个 
点 好 上 上 六 个 变 蝶 的 值 组 成 .这 翌 我 们 即 可 算出 增 量 avi ee 而 yawis 合 尾 一 个 改进 的 近 做 解 . 

增 其 方程 可 以 通过 司 相 对 较 小 的 变化 草 ay* 喇 开 的 - 阶 杂 劳 展 下 式 米 求解 ,在 英 …… 内 点 居 ，2 43. 
z 邮 , 为 ， 

了 Eee 十 ye 十 1) yy 








忆 Ex 3 也 4017. 3.60 
和 司 4 
志 1 ov 本 1 十 二 了 Cn 
豚 真 实 解 来 说 ,我 们 和 希 户 修 下 什 王 (9 一 -机 这 样 ，- 般 所 方 程 组 在 某 - -内 点 能 写成 如 下 纯 阵 形式， 
六 8， 局 光 ina 一 一 下 人 
| 。 
这 里 ， 
日 起 ;4 . 避 此 人 
in 一 一 | 站 二 了 ] 了 是 
7 9 六 人 0 Ji 匹 2 《17.3.81 


在 每 个 点 坟 的 $jn 和 参量 为 一 个 RNX2N 的 抢 阵 .这样 , 竺 个 内 点 提供 - -组 N 个 方程 , 它 把 2 个 校正 时 正本 
到 点 # 天 一 1 的 解 的 灾 量 上 ， 

同样 ,边界 值 的 代数 关系 式 可 以 展开 成 -- 阶 泰 劳 展开 式 来 修正 解 .因为 E 只 依赖 于 四面 变 。 在 第 -- 个 
边界 条 件 ,我们 发 更 有 : 


忆 
S1aa 一 一 本 了 二 可 (17. 3.9)》 
月 一 1 
其 中 
二 
Si 一 天 后 ， 2 一 1 (17,3,10) 


在 -个 迪 界 条 件 处 ,有 : 
人 Sinaywy = 一 已 al 了 一 312 ns (17.3.11) 
斩 一 


其 中 


3E7,41、 
Re 一 ],? ?,. 3, 12 
号 jn 日 多 ， 蛤 站 从 (人 汉人 2) 


这 样 ,我们 通过 等 式 (47. 3,7) 一 (17. 3. 12) 得 公 一 组 线性 方 得 ,可 求解 校正 量 A&y, 选 代 直 到 以 正和 量 忠 况 
小 为 止 . 这 个 方 如 组 的 结构 比较 特殊 ,因为 得 个 Sir 内 和 点 类, 炎 1 上 有 关 ,图 17. 3.1 说 明了 并 个 变量 和 四 和 个 
网 格 点 , 且 在 第 一 边界 处 满足 三 个 边界 条 件 , 在 第 二 边界 处 满足 两 个 边界 条 件 的 完全 矩阵 方程 的 典 埃 情 
况 . 在 抵 阵 左上 和 角 的 那 ' 块 3X5 的 项 来 白 点 丰 =1 的 述 界 条 件 S,,si 另外 三 个 5xXtn 的 其 旦 在 内 部 点 的 
sina 而 且 它 在 网 点 (2:1).(3,2) 和 (14,3)? 上 把 变量 联 立 组 侣 起 来 ,最 后 : 决 是 满足 第 二 边界 值 条 件 的 项 ， 

我 们 利用 高 斯 消 元 法 来 求解 方程 (17. 3. 7)~…(17,3. 12), 沙 出 增 量 sy。 这 和 神 方 法 利用 了 和气 阵 的 竺 殊 结 
构 抬 总 的 计算 量 减 至 最 少 .而 且 这 种 方法 通过 把 元 素 合并 成 一 个 特殊 的 块 结 构 , 而 把 矩阵 系数 的 的 让 储量 
减 至 最 小 (如 果 对 高 斯 消 元 法 不 太 热 疝 ,可 以 参见 第 二 章 此 其 是 第 2. 2 节 ) ,高 斯 消 元 法 求解 方程 组 时 ,用 了 
初等 运算 的 把 作 ,如 通过 其 行 同 除 以 某 一 公 多 子 ,使 在 对 角 线 上 产生 单位 元 ,并 再 加 上 其 它 行 的 适当 倍数 ， 
托 对 角 线 以 下 的 元 素 化 为 堆 .这 昌 , 我 们 利用 了 块 结 询 的 优点 , 比 纯粹 府 斯 消 元 法 过 -此 笛 生 ,这 样 系数 存 

“646* 


情 基 也 减少 了 .图 17. 3.2 表 示 我 们 通过 洪 元 想 要 每 到 的 形式 ,这 是 在 回 代 步 桔 以 前 的 形式 .在 消 民 过 笠 中 ， 
只 有 很 小 的 一 个 经 约 简 后 的 MNXMN 孟 的 虑 素 需 时 进行 存 情 .用 殷 阵 变 成 了 列 17. 3. 2 的 形式 ,通过 
局 代 过 程 很 快 即 可 以 得 条 解 。 


其 其 和 其 六 立 也 
和 以 共有 扩 六 了 了 B 
发 其 共 关 区 B 
其 六 六 基 六 六 多头 关 六 YY 且 
蚊 共 共 基 只 共 民 蕉 只 区 1 
其 其 只 只 只 六 呈 呈 旺 其 YY R 
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六 其 只 六 区 其 从 关 基 次 V 也 
共 基 其 只 共 叶 著作 长 并 V 卫 

叉 其 其 只 久 苹 入 入 次 世 了 也 

闪 六 六 其 从 只 交代 攻关 Y 号 

以 呈 六 员 改 其 时 以 到 其 了 有 

共 共 以 只 人 全 从 从 六 六 TY 有 

其 从 买 以 其 其 时 其 从 V 及 

其 时 号 习 基 各 时 攻 叉 六 上 

共 区 只 共 其 刁 位 鸡 其 其 有 

其 只 其 其 共生 刁 允 其 交 中 

芮 信 捧 居 其 其 其 吕 习 其 也 

芯 买 入 入 买 各 惠 

W 也 


信 系 和 六 习 


x 代表 有 限 卷 分 方程 组 的 系 茹 ,v 绕 才 鱼 向 量 中 的 木 知 苑 ,表示 已 知 的 方 秩 右 庙 的 值 , 室 蝇 
区 卉 示 为 私 . 该 拷 阵 方程 将 通过 特殊 光 式 的 度 斯 消 元 法 进行 求 鲁 ( 敌 见 止 文 ) . 


图 17. 3.」 在 两 痊 点 给 定 边 界 值 条 件 多 线性 有 限 差 分 方程 的 和 阵 结构 


加 
这 
尖 
本 
你 遂 中 图 罗网 四 相克 图 多 台 名 芭 区 和 砍 轩 四 四 网 


图 17-1 中 的 皇 阵 一 世 化 成 这 个 结构 以 后 ,通过 问 代 过 程 马 上 可 以 委 出 解 ， 
锣 17.3,2 商 斯 消 苑 法 的 目标 结构 
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叮 且 ,整个 求 风 过 程 , 除 了 最 后 的 向 代 过 程 以 前 , 拇 次 都 只 对 矩阵 的 一 块 进行 操作 。 这 个 求解 过 程 包括 
所 种 类 型 的 操作 ;(1) 利 用 前 一 步 的 结果 经 约 简 后 把 部 分 元 对 化 为 零 !(2? 通 过 消 元 把 简 下 的 块 结 将 进 行 消 
元 .让 矩阵 对 角 线 上 的 元 束 为 单位 1 , 非 对 角 线 王 元 素 为 0453) 把 余下 非 零 系 数 存 久 起 严 以 备 后 出; 二 区 
化 .我们 用 国 一 步 一 步 地 进行 说 明 。 

对 于 满足 韧 始 化 边界 条 件 , 用 以 求解 校正 量 的 方程 子 块 ,我 们 腾 个 力 程 ,N 个 未 知 以 正 量 , 我 们 送 音 
把 第 一 子 块 进行 变形 ,让 子 块 的 左边 n Xz: 的 方 阵 变 成 沿 对 角 线 为 单位 大 ,而 非 对 阴线 都 为 零 的 形式 ,图 
17. 3. 3 说 明了 矩阵 第 一 坎 最 初 和 最 后 的 形式 .在 图 中 ,我 们 把 蔽 要 进行 对 角 化 的 元 素 标 有 里 为 "万 ": 要 发 后 泪 
化 藤 元 素 标明 为 “4”; 在 最 后 的 块 结构 中 :要 存 情 起 来 的 元 素 标明 为 “3$”, 我 们 依次 选择 前 二 列 的 习 个 “1 
元 ”, 把 主 元 所 在 的 行 归 一 化 ,让 主 元 的 值 为 单位 一 .然后 ,我 们 把 该 行 通 当 的 倍数 加 到 其 它 行 上 去 -使 此 它 
行 中 该 主 元 所 在 列 的 元 豪 都 为 替 . 在 最 后 的 形式 中 , 约 篇 的 皇 阵 说 明了 ,在 网 贻 点 ] 的 前 痢 个 变 元 的 榨 
量 的 值 ,是 如 和 何 根据 在 岗 烙 点 1 处 剩 下 的 关 个 未 知 校正 量 的 值 进行 表示 的 , 赂 ,我 们 更 诗 知 道 了 前 。 公公 | 
是 如 何 由 其 余 rz 个 分 量 岂 定 的 . 岗 此 ,我 们 只 需 把 初始 块 中 凌 后 冯 个 非 零 的 列 以 战 皇 钙 放权 丰 痪 汪 生 省 
的 列 存 储 起 来 。 
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亿 ) 抉 的 最 初 形 起 ,人 hb) 最 深 末 式 ( 参 克 正文 部 县 ) 。 
图 17. 3.3 对 图 7.3.1 中 和 线 孟 的 第 -… 贞 (皇上 关 ? 进 全 区 了 的 证 程 


这 里 ,我 们 需要 强 苦 一 下 这 个 疗法 的 … 个 很 重 上 发 的 地 方 . 查 操 人 必 块 时 要 亿 轩 入 小 存 诗 是 的 寺 候 . 专 一 
点 是 必须 的 : 那 就 是 导 散 拭 阵 $ 的 列 的 显 序 应 保 让 去 无 党 生生 浑 的 前 忆 行 富 到 :就 是 说, 在 第 -一 个 本 的 
个 边界 条 件 必 须 和 筷 初 的 7 一 142，… 和 个 应 熏 量 了 [DELI 扩 这 。 基 星相 是 的 话 , 则 第 一 岂 中 让 宰 的 和 关 本 访 
竹 就 有 可 能 是 奇异 的 ,这 种 方法 便 失 败 了 ,或 者 ,我 们 必须 在 块 中 所 有 N 列 寻 扩 主 元 :这 就 需要 进行 多 的 广 
痪 前 需 更 多 的 记录 工作 。 程 序 中 提供 了 -- 个 简便 的 方法 重新 邓 芒 排 序 , 例 名 高 惠 阵 的 负重 新 排序 ,这 神 ， 
这 一 损 工 作 很 容易 完成 。 这 便 是 重要 的 细节 。 

其 次 ,我 们 考虑 表示 有 限 邯 分 方程 组 的 N 个 方程 ,这 六 个 方 稳 措 述 了 在 点 ?和 点 1 的 2 个 忌 下 量 之 辐 
的 关系 .该 块 中 的 元 雪 以 及 前 -- 步 的 结果 区 在 图 17.4.4 中 说 遇 了 了 , 注 间 ,加 上 第 一 块 中 行 的 适当 区 湛 数 , 我 
们 可 以 把 该 块 中 前 m 殉 ( 标 为 "z”) 约 简 为 零 , 而 且 这 样 做 时 我 条 只 需要 改变 从 第 站 -1 到 和 列 以 及 大江 右 
喘 的 元 素 , 对 于 其 它 列 我 们 可 以 把 图 中 标 有 *2" 的 YX.Y 方 阵 的 元 素 对 角 化 .最 后 ,我 们 把 图 中 祭 有 "7 能 
5 一 1 列 的 元 素 进 行 了 改变 .图 17. 3. 4 中 的 第 二 部 分 表示 我 们 对 矩 血 寞 行 处 理 后 的 结果 .其 中 概 有 ?37 
证 5XA 个 元 北 被 存储 起 来 。 

我 们 在 对 下 一 个 方程 组 , 它 对 应 于 在 点 3 和 点 2 烛 合 的 校正 量 的 有 限 差分 方程 组 , 渤 生 和 远 站 时 ,小 们 
会 发 现 , 可 用 结果 和 新 的 方 径 的 状态 准确 地 芋 现 前 一 妈 中 所 介绍 的 情况 .这 禅 我 仙 可 以 依次 进行 邑 些 法 各 
的 计算 ,直到 第 好 子 块 。 最 后 ,在 块 邮 十 1 上 ,我 们 又 过 到 了 另外 一 个 边界 条 件 。 

网 17, 3. 5 表示 定义 在 网 格 点 M 处 ,N 个 巷 正 量 的 最 后 “ 抉 六 个 有 限 常 投 分 方程 ,以 及 以 前 块 的 约 简 
结果 .首先 ,我 们 仍 用 前 面 的 结果 把 该 块 的 前 六 让 化 为 零 , 在 我 们 把 剩 下 的 方 隆 进行 对 久 论 能 时 馆 , 这 时 部 
称 到 了 有 价值 的 结 梨 :我 们 得 出 了 在 网 格 点 if 处 最 终 mm 个 的 校正 共 值 ， 

最 后 一 子 块 约 简 凡 后 ,矩阵 便 为 原先 在 图 17. 4. 2 表示 的 形式 ,矩阵 即 可 以 准备 进行 基 代 了 ,以 最 后 一 
行 开始 , 回 性 司 最 证 面 行 ,在 每 一 步 , 我 们 可 以 很 简单 地 贞 己 知 最 来 决定 未 知 校 节 荆 ， 

“ 






出 殊 sntiyue 地上 上 面 所 这 的 名 步 闫 织 起 来 .在 算法 中 ,我 们 所 进行 的 基本 过 程 是 由 芽 煞 solvde 的 内 部 调 
二 杖 Eee 引 超 原 米子 块 中 心 短 阵 的 头 几 列 进行 约 简 , 郴 数 piavs 把 3 矩阵 中 的 各 方 阵 对 前 





肌 昕 数 术 实 强 





(Ga 1005S5 
010SS 
001SS 
zZ2ZDDDDDAA 
zZZzDDDDPAN 
了 ZZPDPDPPAA 
ZQZDDDDDEDDAA 
革 ZPDDDNA 人 


刀 总 刀 本 感 总 
效 人 


tb 100SS 
0141033 
心心 [和 人 
04900100DDSS 
J00oi000sSS 
才 遇 1nDn9SS 
站 和 有 和 站 及 
自如 和 册 丰 性 届 上 总 有 

4) 原 妨 形 式 ,cb 最终 形式 (说 明湖 见 直 文 )。 


亲 :- 3 4 对 国 i7. 3.1 中 怎 阵 中 总 块 的 约 笠 过 程 


所 本 本 辣 辣 
用 四 四 相 
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G) 初 始 形式 ,(b) 最 次 形式 (说明 参见 正文 )。 


图 17.3.3 对 图 :7 3. 1 中 最 后 .一块 ( 名 下 方 ) 的 约 简 过 程 


世 葬 葬 嫩 嫩 巡 辣 妆 癌 辣 辣 
妥 且 胸 辽 的 名 可 和 和 济 护 罗 渤 


说 用 solvde 的 大 宅 数 变量 帮 有 电 肥 介绍 这 ,但 还 圳 要 一 些 讨论 。 和 矩阵 yLjjLk] 包 售 解 的 初始 预测 值 ,以 ) 
汉 妈 在 原 偿 点 上 处 航 应 变 景 。 滞 题 入 及 到 = 本 om 个 扩展 点 上 的 ne 个 有 限 盖 分 方程 .在 第 -- 个 点 上 一 1 
志 振 了 nn 个 边 四 条件, 数 谋 indey 订 建立 ”5s 拖 阵 、 方 程 (i7.3.8) 17.3.10) 利 (17. 4. 12) 各 列 之 河 与 度 
变量 的 关系 ,如 上 所 述 , 用 在 k= 1 处 的 sb 个 边界 条 件 来 确定 s 矩阵 前 mb 询 所 定义 的 应 变量 ,这 是 很 基本 
的 一 点 .这 样 . 用 户 能 在 程 户 dtfeg 中 排 度 = 卸 阵 的 第 , 列 元 未 ,以 表示 对 应 于 应 变量 indexv[)] 的 导 歼 。 

在 返回 以 前 函数 只 准备 近 和 后 :masx 次 校正 循环 ,即使 解 尚 末 收 租 也 妇 紫 。 地 数 cony .slowc ,scatr 和 站 
伊 在 英 ,每 次 御 降 变换 俺 产生 在 :个 网 点 钼 ne 个 变 寺 的 校正 贡 . 我 们 希望 随 普 法 代 过 梯 的 号 续 , 这 些 绞 正 
拭 访 麻 趋 于 党. 各 我 们 必 六 证 > 个 习 下 重大 小 的 最 枚 闽 莽 的 "限额 "是 和 各 问题 有 关 的 ,所 以 用 户 也 许 
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想 重 号 这 部 分 程序 代 色 , 伦 下 面 的 程 洗 中 ,我 们 通过 把 泊 有 校正 最 的 终 对 值 如 起 米 , 并 环 般 代 种 不 问 效 开 
的 变 基 加 以 不 阿 的 放大 系数 作为 加 凤 , 来 计算 平均 的 校正 误 盖 "erz”， 


而 .… 3 


TAGrLDLkji 人 
7 m X ne 四 stalv[ jl 人 13 


和 err 蕉 cony 时 ,这 种 方法 即 交 人 训 了 .- 注 总 ,用 六 需 提供 “个 数组 scalv 用 以 度 最 各 个 安 量 的 标 亲 大 小 . 

显然 ,如 果 err 很 大 ,我 们 偏离 种 的 范围 就 很 大 ,而且 也 省 从 - 阶 素 劳 系 数 得 出 的 校正 最 证 汰 确 的 这 
想法 水 米 就 是 错误 的 ,slowse 数 的 大 小 遍 驾 了 校正 晶 的 使 用 ,在 仁 次 迭代 愉 后 .我们 只 点 用 了 出 证 陈 或 道 
所 求 哺 校 让 且 的 一 部 分 ， 


Y[UG -YLi[kz + 一 .iowe 。 AY[ji[k] 人 


InaxfsiOvwrc err 

这 样 , 当 err >> slowec 时 ,只 用 了 调整 量 的 -部 分 ,但 当 srr 技 siowt 时 ,整个 调整 届 痢 使 用 上 『 

调用 诗句 也 提供 给 solvde 酒 数 包 合 要 始 试验 解 的 数 纵 y[1, ,yp2[., nyk], 以 及 工作 空间 数 外 si ， 
ne-LL .ne 一 nb 十 15-1. .中 +]],s[1.ne]il. .2xne1]。 数 组 < 是 .个 匀 大 的 数据 块 : 它 存 储 了 为 门 忆 步 
鲍 所 玲 备 的 还 末 约 简 的 矩阵 元 素 . 如 果 有 上 利 个 网 点 ,就 有 严 十 1 闻 块 ,每 “了 块 多 需要 nc 行 和 me -nhl 
列 。 尽 管 这 个 绝 阵 元 宗 很 多 ,但 和 未 划分 成 块 所 天 整个 和 拭 阵 [neXxm 了 个 元 素 柑 比 来 说 是 祖 小 的 了 ， 

我 们 现在 介绍 用 户 据 供 的 函数 difeg 的 工作 过 程 , 程 序 头 旭 下; 

Yoid 出 ifeqtint kint k1. intk2、int jsf。 int is1，int isy， 

intr indexv[ int ne 、float * 关 Si float # * 允 4 

从 dfeq 传递 给 solvde 的 信息 只是 导数 矩阵 s[1..ne3y[1,.2* ne 十 1]: 所 有 其 它 做 数 名 是 输入 准 夺 字 
difeq 的 ,而且 不 应 被 变动 .k 表示 当 网 格 点 或 是 块 序号 ,1,2 表 示 网 格 由 第 一 个 和 最 后 一 个 点 .如 果 k 一 
k1 吉 k>k2 时 ,相应 子 块 便 村 涉及 在 最 初 点 和 最 终点 的 边界 值 条 件 ;而 则 ,相应 子 块 只 对 和 点 下 一 1 中 变 
元 有 关 的 有 限 差分 方程 组 起 作用 。 

信息 在 数组 s[Li]Li 订 中 存 情 的 约定 ,遵循 在 方程 (17, 3. 8)、(17. 3.10) 及 (17. 3. 12) 中 所 使 用 的 : 行 1 表示 
方程 , 剂 j 表示 解 中 相应 变 元 的 导数 值 . 记 住 , 每 个 方程 无 沦 是 在 一 个 或 两 个 点 。 都 是 依赖 于 me 个 应 亦 量 
元 ,这 样 ，j 能 从 1 变 到 ne 或 基 2 * ne。 每 一 点 上 应 旨 量 排列 的 列 序 必 须 和 indxv[ 门 中 的 列 的 顺序 - 歼 , 这 
伴 , 对 于 不 在 边界 处 的 子 块 , 第 “ 列 乘 以 AYGL=indexv[1],k 一 1)，, 第 ne 十 1 列 弱 以 &AY(=indexv[1_.k)。 
is1 利 导 给 出 在 s 惩 阵 中 ,对 寺 这 一 子 块 中 要 填充 的 开始 和 最 后 的 行 数 。jsf 表示 在 储 山 等 式 (17.3. 3 ~- 
(17. 3 5) 导 出 的 差分 方 吾 互 的 列 数 ,这样 , 一 s[ij[js 人 三 即 是 抑 阵 右 端 的 向 最 ,之 所 以 加 上 上 负 豆 . 基 问 为 
山 feq 提供 的 是 实际 的 益 分 方程 五, 的 傣 , 而 不 是 它 的 负 值 ,注意 ,solvde 给 jsf 提供 了 -个 值 ,这 样 惟 好 把 
该 差分 方程 就 放 在 s 矩阵 中 所 有 导数 后 边 的 列 中 ,四 此 ,difeq 希望 能 寻找 放 入 s[ -让 中 的 伪 , 其 中 itxsi 
么 if 而 且 1 所 j 所 jsf。 

最 后 ,s[1..pe][l.,2xne+ HI 以 及 y[1..nyj][l,.nyk] 给 晒 数 地 feg 提供 了 的 存 娃 空 下 和 该 次 渤 代 
的 解 变量 y。 择 么 使 用 这 人 程序 将 在 下 节 中 举例 说 听 ， 

下 面 的 程序 代码 中 的 很 多 思想 ,出 自 于 Fggleton 上 cl 
共 inlude <srdio.h 盖 


凸 inelode <math.h 
丰 include ”mreuljl,hy 


Yopid solyde(tint itmalx，flcat conv， float slowe, float scalv[]，int indexv [ 门 ， 
int ney int nb，int zy float * #yy float # 关 关 ci 有 oat # xs)》 


骨 愉 缉 法 求解 两 点 边 异 次 问题 的 驱动 程序 ,itmax 是 最 大 选 伐 次数,conv 是 收 伍 准则 (参见 正文 ) ,slowec 拧 制 每 次 法 
代 后 实际 应 用 罗 校 正 量 ,scalv[1.,ne] 包 合 每 个 应 变量 的 标 准 化 大 小 ,用 以 加 权 计 算 误 部 indexv[1..ne] 列 出 了 呆 上 
必 着 导数 矩阵 s[1. - ne]-1. -2# ne 十 们 中 变量 的 列 序 ( 在 第 一 个 风格 点 处 的 ab 不 这 小 条 件 必 须 和 在 indexy 与 列 咱 
的 新 wh 个 变量 娄 关 ) 该 问题 在 每 点 上 涉及 ne 个 方程 ,有 ne 个 可 调 疏 的 应 变 最 ,在 第 一 个 网 格 点 下 . 记 3b 个 得 内 让 
“ 650， ， 








条 性 总 共有 男 个 网 点 扫 ae 和, 严 征 一 个 一 维 数 机 , 它 得 童生 硒 同 点 处 所 有 有 谋 变 基 的 圳 对 在 间作 在 纶 演 
寺 代 证 . 它 被 所 有 计算 的 朗 革 碘 所 让 改 , 烙 全 cne3sm re-nbe [La 二 人 及 < 提供 了 挫 邓 未 本 夺 湖 


空间 、 





void bksubtinat ne，jint nb，lnt jf，int kl1，int k2。 float mcC); 

void difeq(jint X，1Dt kl，ipnt x2，ioat js，tDt tsl，jint is 了 ， 
iat ionderv[] ，int ne， 世 Loat mrs。，E1oat rr 站 

vote hinvs(jnr ial，int ie2，int jbl，int jsf，int jcl，int Kx， 
f]1oat ywC， 于 Lat 中 *S) 1 

void redkint iz1，int iz2，int jzl，int jz2，int jj 加 1，int jn2，tat jmft， 
int icl，int jcl，int jcf，int xc， 节 Loat 。#C， 王 CatL 闻 相 日 ) 3 

int icl,tic2ic3,ica,it,j,jl,j2,j3,ja,j5,j6,j7,j8,j9， 

8 jcCL，jcE wk1, 上 2,km,Xp,nvaIS :4#JOaX 

半 loat erT,Srrj,fac,vmarvZi 中 armaxi 


kmarseivectDrtftne)]i 
GDaX=VGCtOrC1 De) 
Xile1; 设 等 行 、 史 标志 
K2rm; 

Dvays=ne*} 

jl1s=1; 

]2=ob; 

j3snab+1， 

4=aei ， 

Jj5=j4+jl; 

j6z=jayj2i 


ic2=qe-nb; 
ic3=ic2+1) 
Tca=nai 
jcls1i 
jcfsic3i 
for (itzliitx<itmaxiit++) 攻 直 次 夺 代 折 环 
x=kl ; 在 第 . -点 的 过 幅 条 件 
difeqfk ,上 1,X2,j9,1c3,ic4,indexzy,ne,3,y)i 
pinvg(ic3,ic4,j5,j9,jcl,gjc,s)i 
for (k=k1+1ik<c<k2ix++) 攻 在 遍 有 成 对 点 的 下限 发 分 太 香 - 
kp=k-l; 
difeqkkktk2,j3,icl,icd,indezvy,neeiy)i 
red[(ici,icd4,jl,j2,j3,j3,j9.ic3,jcl,jcTr,xkpcys); 
Pinvsficl,ica,j3s,j9,jcl,kg,c,g)， 





小 

Kak2s15 拔 司 的 边民 杀 忻 
difeqk ktvxk2，j3icliic2indexyraev sy) 1 
Yedkiclvic2,j5,j6,j7,j8,j9,ic3,jcl,jct,kx2,c,s); 
Pinvs[icl,ic2,j7，j 号 ,jc k2+1 ca) 1 


bksub (nse,nb,jctf,xlkx2,c); 回民 
屿 了 工 = 加, 口 ; 
tor 【j=1;j<=ne;j++) { 辽 霖 收 黎 佐 ， 辊 入 平均 进 关 


jwvsindexv[jji 

brF]=vmaxbO.0i 

kzm=Di 

or (x=kiikcak2;k+y+) 1 对 你 个 席 变 莽 ， 技 出 其 大 误 闪 的 点 
Yz=fabs(c[jv]Et]j cx]); 
if fvz > vmar) 荆 


VDaX=VvZ; 
jmski 
上 
@rr] += YYZi 
erT += errjyacalvr[j]; 葵 各 必 变 央 加 相 


armax:]]=c[jv][i][km]yscalv[j]; 


ma [了 =ko7 


brI /aa 2V3TSI 
Far=terr > 31oe: ? oowcyerr ; 1.0); 避 稚 较 大 时 ， 碱 小 志 朵 权 小 填 


40r 【jeti js<nai yt++) 工 这 儿 校 正 庆 
jce=indexv[j]; 
for 《cmK1;iK<cK2iKt+》 
YU] 0 -=* facec[jv] [1] fk] ; 


妇 
printy (hyBs js X9aNnmynIter nnErrers "FAC"》 了 科 这 - 步 的 传 止 最 ; 
DriDntffnX6Gd %12.68 YL1.GTNDw ,ierI， 王 CD) 
2 Cert 5“ conv1 { 
frB6_YV 台 CTOT《 人 TOaX 1 ， 攻 ] 5 
Treop_zoxct40 庆 (Jamaz 1 ne)] 
Tatumt 
1 
1 
nyartizr"Teo many 2tarationg im SolIyde") 收 歼 失败 


wp :xDtibtr he intrhb int if in K1， :nt KR2， foat *r +# 基 C) 向 后 国 代 ,在 solyde 中 调用 


ima mnhy ,inkp sk ji 


toat xx 

nbf 一 ne 一 nb; 

imt -起 

far 人 一 k2ik 人 > 一 klk ?1 利用 通 归 关系 消失 余下 的 侠 款 关系 
话 人 k 王 一 kl) im 一 pbf 一 1; 
kb 一 上 十 1; 


for 0 = 和 一 nbfjj 一 十 ? { 
xx 一 czjj[jfJ[kp]; 
or (一 tmilc 一 neli 一 十 ) 


cD]Cg[k] 一 = <CL[k]* xx 


fr (一 kk<< 一 KkK2 放 十 十 7 重 排 第 一 列 中 的 校正 量 
kp 一 k 十 1; 
for G=1i<=nbii 十 十 ) eLi]Cl fk- 一 ce[Li 二 nb 扫 Df[k] 
for 6 一 1ii< 一 nbfji 十 十 ) cLi 一 ab]L1][k]=cD][[kp] 


站 ielude 扩 math hh 2> 
打 inctude ”rutil. bw 


void Pinvs fint iel，int ic2，int jel1y int 扫 fy int 天 Lint kfloat x # 长 cy Hoat # zsS) 


间 


所 基隆 5 中 的 子 二 阵 支 对 角 化 .并 把 < 中 的 递归 系数 存储 起 来 ,在 solvde 中 亩 用 。 


JE 下 二 jpPiY JP，jcoEE JirowIPiv id icozy ,Itzndzr 
下 LO8C Dtytny,piydta .big 中 ptCli 


iadzrr=iwectorgielyie2) ， 
了 acLeY9cYOr(1e1,ie2) ; 
2 jj 本 站 192 一 1 1 
3t=je2+11 
for (imiel;iceie2;3++) 荆 隐 式 渤 主 匹 ， 如 第 2.4 节 
bigmO .Di 
了 or 【1aje1 <mj623]++) 
rr 〔fabetg@[i]fj]) > big)》 big=fabg(s[i] [jy); 
it 《bdEg 0-0) mrertornSiDgtu1ST aatTlZ - TO nail 0，in Pinvs")i 
Pscl[t]=t,OAbig; 


“5652。 


} 


imdxr[itJ=oi 


tcr 《ld=iteliid<aie2;id+y+) 工 
Piwa0.0i 
for 〔ielesliic=ie2;4++) 并 寻找 二 匹 素 
37 《ipdxr[i] ee 0) 工 
big=0.0; 
tor (jejeL;j<=je2:74y) 《 
这 《fabagafiyfjyy > big) 区 


Jp 
和 b+gmfahsggsci] [jy); 
】 
了 
证 《bigewpaclri] > pavy 荆 
ypPiY=3i 
JPivejp' 
Piy=big+pecl[il; 
》 
if {sfipiv] [jpiy] = 0.0) hrQFTOY(C SIRULar mattix in routing Pinvsn)) 
indxxr[ipiv]=jpiv; 亲 乔 约 化 、 保 让 已 排序 后 了 的 列 
pivinva2.07a[ipivj[jpiv]; 
for {jnjslijc=iet;j+r+) sfipiyjr] *= Pivinv; 时 化 主 元 行 
a[ipiv]rjpiv]-i.o; 
for (ji=ialiizc=ia2;iiy+) 【 约 人 引 晤 在 二 刀 素 


zfE 《indxr[il != Jpiw) 
i 计 《sft]fjpir]》T 
dumsgfi] [jpiv] 
for 《jnjel;j<cmjsfij++7 
s[i[j] -= dunes[ipiv] [] ; 
FEEi]IjpiyJ=0O.0; 


》 
了 
jcotfjcl-jal2; 排 询 并 诗 耕 未 约 化 的 系数 
福 Co 于 二 工种 二 一 ]@E; 
于 GT 《ii 本 1 全 二 ;<mL 台 全 ; 半 二 二) 区 
iroweirdxzr[ 守 +icoffi 
for 【je=jsl1;j<c=jst;j+r+y c[iros]t[j+rjcori]lrx]=sriyrj]y 


freo_ysctortpegcL, ielt,ia2) 1; 
《ree_-ivectortindxr iel ,is21)1; 


void redkint jizl，int jiz2，int ji1，int jz2 ,int jn ,int jm2， int jmf、 


int icl，int jc] ，ipt jcf，int ke float y* we. jeat = wags) 
用 存 册 在 上 矩阵 的 原先 结果 来 简化 s 和 矩阵 中 第 Jz1--Jz2 列 ,中 有 jm1 一 jpt2.jnf 列 会 受 以 前 的 结果 影 啊 , 矿 本 让 red 
害 solvds 内 部 语 肌 . 


int lolf ,1 jsiciis 
Rieat vx; 


jofft 一 je1 一 jiml; 


IC 一 ily 
tor (0 一 j21 拉 -=jz21j 十 十 )《 对 要 尘 化 的 列 特 引 
for (1-=jmlil< 一 jim2:1 十 -1 对 要 变动 的 列 福生 
vx 一 c[icJLL 二 joft [ke]; 
for 6 一 iTii 必 一 zz25 二 十) sCD -= SiC exvxy 对 行 福 环 
YX=cricj[jct]tkc]i 
fr (ii 一 记 1 和 区 一 iz23i 二 十》 s[i][jnd] --=- s[ 训 [2 wx; 加 上 景 经 元 案 。 
论 本 1 


四 
< 
外 1 
3 


》 


17.3.1 微分 方程 的 “代数 困难 ” 集 

栏 邮 法 和 许 利用 的 另 -个 使 利 之 处 ,虽然 不 很 明显 ,但 对 某 些 计算 的 速度 能 极 大 地 提高 . 变 景 ,，, 梨 没 
有 必 紫 让 校 秆 诛 始 微分 方 释 应 变 基 相关 ,它们 二 以 通过 代数 方程 和 那些 变量 联系 .好 然 , 解 变 量 外 汽 我 们 
计算 画 数 yg、B.C, 末 它们 是 用 于 从 带 了 微分 方程 来 构造 衣 限 花 分 方程 的 ,这 是 唯 - 必 归 的 。 在 其 些 亲 题 路 、 
z 依赖 于 隐 式 的 y 末 煞 ,这样 融 间 用 和 代 多 法 来 计算 侣 微分 方 称 由 的 冰 数 . 道 常情 况 下 ,可 以 通过 定 文 . 
个 新 的 变量 集 来 处 理 这 种 * 内 部 " 间 线 性 问题 ,从 这 个 新 的 变 基 集中 ,我 们 可 以 吉 接 得 出 y\& 和 边界 条 件 ， 
钠 歼 的 例子 是 在 物 埋 学 中 ,其 中 要 求 … 个 复杂 的 状态 证 征 的 钴 .而 在 状态 方程 中 ,用 其 它 变量 而 不 超 町 党 
微分 方 种 中 次 蛛 始 应 变量 的 形式 来 表达 会 更 加 万 便 . 这 种 近似 过 程 ,就 类 似 于 直接 对 原始 的 常 微分 万 要 进 
行 了 一 次 解 让 变换 ,这 种 解 本 也许 是 杖 为 复杂 的 ,位 在 松 怨 法 由 的 要 县 冰 换 很 罕 易 ,而 且 不 江 枝 解析 操作 


参考 文献 和 进一步 读物 ; 


上 ggIGtOD PP1971，aoptRdy Nolierr 吕 丘 e Rowel 4stroxomicat Soctetjsvol。 151,pp.351 一 364 [ 工 


17.4 一 个 实例 ;球体 调和 国 数 


环 解 前 一 节 算法 的 怠 好 的 方法 是 观看 它们 在 实际 问题 中 是 如 何 使 用 的 .作为 范例 ,我 全 
选择 了 球体 调和 两 数 的 计算 (更 一 盘 的 名 字 是 球体 角 顷 数 ,但 我 们 更 喜欢 球体 调和 国 数 这 科 
秘 含 说 法 ) ,我 们 会 说 明 怎 样 找 球体 调和 台数 ,首先 采用 松 季 法 (第 17. 3 节 ) ,然后 用 打 对 法 
〔 第 17, 1 节 ) 和 射 向 某 - - 台 适 点 (第 17. 2 节 )。 

球体 调和 羡 数 一 般 出 邢 在 , 当 在 球体 坐标 系 中 ,用 变量 分 离 法 求解 某 种 偶 微 分 方程 组 多 
情况 .它们 在 区 半 一 1 受过 WO 

扫 [Ga 5 让 颂 ]+|; Ca ;过 二 |S=o (17.4.1) 
这 里 六 是 一 个 整数 ,“ 是 "偏心 率 ”, 4 十 特征 俩 .另外 , 所 可 正 可 负 , 对 王 c>>0, 函 数 叫 作 
“长 精 形 ”, 而 <<0 则 称 为 * 扁 棋 形 ” 方 程 在 > 关上 1 处 有 奇异 点 ,而 且 求 解 时 , 方 称 鸡 边界 
值 条 件 要 在 x* 一 土 1 处 满足 ,只 有 对 特征 值 1 的 某 些 取 值 ,这 种 情况 才 可 能 。 

我 们 章光 考虑 第 一 种 球面 的 情况 ,< 一 0, 我 们 把 微分 方程 当 作 勒 证 德 画 数 PX(zy .在 这 
种 情况 下 ,特征 值 是 1sv= zz 十 1)a 一 内 :由 一 1，。 鸡 数 关 表示 对 同 定 关 和 值 的 连续 特征 值 ， 
当 ?#=za 时 :我 们 有 最 低 的 特征 值 ,而 且 在 区 问 一 1 和 zc<l 中 相应 的 特征 函数 线 有 结 点 ; 演 

za 一 放 十 时 ,我 们 有 下 “个 等 征 值 ,在 (一 1,1) 中 特征 函数 有 一 个 结 点 ;以 此 类 推 ， 
对 于 一 般 和 六 0, 有 一 种 类 估 情 况 成 立 , 我 们 把 起 (17. 4. 1) 中 特征 值 写作 Me) , 特 宇 男 
数 记 作 Sows(zic)。 对 固定 的 a2m 严 一 1,… 标 明了 相继 的 特征 慎 ， 

一 般 ec) 和 nzic) 的 计算 就 很 困难 .关于 复杂 的 递归 关系 式 , 香 级 数 展 开 等 痢 可 
以 在 参考 文献 中 找到 : -通过 对 微分 方 得 直接 求解 的 简 使 计算 很 容易 实现 ， 

第 一 步 是 考查 奇异 点 x= 士 上 附近 的 解 的 性 态 。 在 方程 (17. 4, 1) 中 用 井 级 数 展 开 式 


SS 一 (1 士 z) 人 (12 


来 普 换 ,我 们 发 现 正则 解 有 一 z/2:( 不 失 - - 般 性 ,我 们 可 以 取 z0, 因 为 方程 是 对 称 忻 的 ， 
654， 





所 以 关 最 下 取 负 部 可 以 -我 条 把 这 个 解 提出 会 外 子 , 芭 得 到 一 个 康 窜 易 数 值 法 良 距 过 铬 的 
卢 程 . 相 空 二 ,我 们 得 世 





力 《| (17,. 4 3 
这 样 , 我 们 由 式 (17.4.1? 发 现 ,7 满足 方程 
人 (13. 二 41 
富生 好 


其 中 
瑚 一 一 玖 一 有 角 
在 了 一 一 上 时， 肛 和 但 (17.4.1) 利 人 7.4.5) 吉 是 侠 变 的 :因此 国 数 汪 四 岂 绎 
的 ,除非 可 能 有 一 个 放大 因子 (因为 坟 程 弓 基 线性 的 , 溃 数 和 逢 相 滋 以 后 从 十 请 吓 坟 和 保 的 
和 解 ) ,因为 佣 要 被 晤 … 光 :所 以 放大 因子 只 可 能 基 二 1 如果 后 ) 是 奇数 , 叫 休 敬 5 ]， 
1) 中 ,能 有 奇数 个 零点 .因此 我 从 ， 攻 顷 选择 一 不 过 元 对 称 的 解 光一 2 一 一 2 让 2 处 
有 -个 堆 战 ! 反 之 , 姓 采 z 一 六 是 偶数 ， 我 们 必须 丰 填 称 竹 ,这样 . 


oa DT) 7 二 9 





对 $Sw 是 类 似 的 。 
对 式 (17.4.4) 的 边界 荣 件 要 求 y 在 * 一 土 1 处 训导 正则 的 , 欣 声 之 ,在 端点 阶 江 . 解 的 形 
式 应 是 
了 一 一 下 人 一 2 人 -3 本 村 2 有 二， 


把 这 个 袁 达 式 代 入 卢 程 (17.4.4) 中 ,并 让 x 一 >1， en 


人 7. 汪 吕 ) 


ET 下 和 
等 价 地 有 
0D = 放 一 邱 0 7 1 59) 
在 > 一 一 1 处 ， -个 类 似 方 猎 成 : 立 昨 等 号 右边 有 一 负 弛 在 端点 处 , 非 下 见解 在 函数 和 导数 之 
向 有 小 同 关系 。 


我 们 可 以 和 用 式 人 17.4. 人 的 称 性 ,从 王公 1 积分 来 代 坟 方 程 从 一 1 至 的 公分 在 
2Z 一 0 处 的 边界 夭 件 为 
(全 ) 一 站 天 一 mi 为 坷 数 
3 0) 一， 一 于 为 眉 数 
第 三 个 边界 值 条 件 米 口 这 样 .一 个 慷 实 : 什 一 常数 乘 以 扰 一 解 狗 结果 的 位 是 志和 入 解 .这 
样 我 们 可 以 对 解 进行 归 一 化 ,我 们 采用 六 样 的 册 一 化 ,使 在 zx 一 1 时 . 昕 教 Sw 和 2 在 辐 学 
的 极限 桂 性 : 


| 


lirmntl 一 着 2onf2ic) limrl 一 2) 02Pmg7) | 辽 光 


T 一 1 


各 种 归 一 化 方法 的 约 幢 部 几 Fiarmmer 列表 进 生 了 说 嚼 。 
对 式 (17.4.4) 的 二 阶 方 穆 加 上 三 个 边界 条 件 以 后 ,问题 邵 变 成 了 求 关 的 特征 着 由 是 ,或 
等 价 于 求 上 的 特征 值 司 尊 . 我 们 把 空 写成 标 并 形式 .只 杰 投 轩 
3 2 
人 1 


乱 二 记 《17.<. 13) 


则 
3 一 因 (17, 4.151 
如 一 未 [2rcm 1 1)y (3 一 Cr23] 《17. 4.16) 
二 《天 


在 这 些 符 导 表示 中 ,zr=0 处 的 边界 条 件 是 
3 一 0 下 一 壤 为 奇数 


17. 4,， 8 
=0， 一 普 为 偶数 Re 
在 < 一 1 处 ,我 们 有 两 个 条 件 ; 
2 
加 一 二 二 (17.4.19) 
轴 一 limkl 一 xx)-mi2Po(z) 一 人 1 十 ml 7 (17.4. 20) 
一 1 


27741 On 一 271 


现在 ,我 们 必须 诀 定 用 前 面 章节 的 算法 来 处 理 这 个 问题 


17. 4.1 松 驰 法 


如 果 我 只 需要 几 个 4 或 3 的 离散 值 , 则 打 轰 法 也 许 是 最 快 的 方法 但 是 ,如 果 我 们 需要 

个 较 大 的 = 的 序列 信 , 则 用 松 驰 法 比较 好 .。 松 豫 法 的 好 处 是 一 个 较 好 的 初始 预测 解 能 较 快 
地 收敛 ,而且 如 果 . 变化 较 小 时 ,先前 求 得 的 解 应 该 是 一 个 较 好 的 初始 预测 解 。 

为 简单 起 见 , 在 区 间 0 委 < 丢 1 中 我 们 选择 均匀 的 网 格 点 .对 总 共 M 个 网 格 点 ,我 们 有 

1 





= 页- (17.4. 21) 
一 一] ) 严 ， 上 三 -123 人 过 
在 内 点 下 一 2, 3 M 处 ,方程 (17.4. 15) 给 出 
真 
玖 一 国 20i 一 训 (32 十 多 二 六 《17,.4, 23) 


方程 (17. 4. 16? 给 出 
形 2 一 2 一 一 记 


广 「 十 Zi)On 十 1)02: 十 ae) 《yt 十 和 st | 
< 省 3 人 2 











《17.4. 24) 
其 中 
十 9 2 十 巧 -3 
站 《17.1. 25) 
《17.4, 26) 
所 一 1 
1 一 本 (4 十 如 -7 
最 后 ,方程 (17. 4, 17) 给 出 


”656。 


所 :4 人 | 全 
在 上 上 节 ! 荡 们 说 好 过 .方程 (17. 3.8) 中 良 导 数 失 阵 人 ,的 走光 它 币 标明 起 种 而 ， 杯 
明 变 最 :在 这 笠 情 识 下 ,在 羡 一 [处 ,7 从 1 到 3, 而 在 玉 处 , 贡 居 和 4 旨 人 本 此 ， 克 行 5 


4. 23? 络 蝇 


] 


3 相 1 8 叶 
汪 人 
和 
9 一 1 .sa 一 2 S$ 一 
同样 , 方 穆 (17, +. 24) 给 出 
9 一 aj 闻 72， 0 ] 记 (z 十 2 CO 二 1112 
1 二 4 一， 
2 = 2 一 本 鸭 5 一 人 和 
而 从 方程 (17.4,277 我 们 发 规 
| 


(17 110 


0 
在 z 一 ,我们 有 达 界 值 条 件 
三 本 人 2 417. 1.31) 
32 好 一 况 为 偶数 
回忆 在 上 节 solvde 程序 中 来 用 的 约定 ,对 # 一 1 处 的 一 个 边界 条 件 , 只 有 8$, 可 以 非 零 。 回 幸 ， 
了 只 能 取 4 到 6 的 值 , 这 是 因为 边界 条 件 只 和 yw 有 关 , 而 和 和 -， 无 关 , 相 应 好 .在 xz 一 和 处 
4 的 唯一 非 零 值 是 


【7.4. 2) 





全 过 
王 ;,w+t 一 asw - 5 YY1,1 了 了 )》 
一 na 一 了 (17.4. .这 ) 
这 样 
2 

s Ji5W 一 人 1 ,时 
we FE 了 

5 六 站， 2 证 人 74 
2 一 1]， :一 0，926 二 0 {17. 4 语 》 


现在 我 们 给 出 实现 上 述 算 法 的 一 个 范例 程序 ,我 们 需要 一 个 主 程 序 sfzoid, 心 流 用 
solvde 程序 ,而 用 我 们 还 得 提供 一 个 由 solvde 亩 用 的 difeq.。 为 简单 起 见 ,我 们 选 驿 午 M- 41 
个 网 格 点 的 等 距 划 分 的 网 格 ,也 就 是 说 ,P 一 0.025。 正 如 我 们 将 会 看 到 的 那样 ,这 对 特征 值 以 
及 ?一 岂 个 调整 值 等 都 能 保证 很 好 的 精确 度 ， 

因为 如 果 = 一 产 为 偶数 的 话 , 在 zx*=0 处 的 边界 条 件 和 汪 匹 关 , 所 以 我 们 必须 用 solvde 
中 的 indexv 特性 .我 们 介绍 过 ,indexv[j] 描 述 了 在 s- 训 Cj 的 哪 一 列 中 放 入 了 变量 Yi. 如 
果 ?一 严 是 偶数 , 则 我 们 必须 把 %m 和 3 的 列 相互 对 调 , 这 样 使 s[i][j] 中 没有 零 主 元 . 

程序 提示 输入 着 和 x# 的 值 ,然后 计算 出 满足 勒 让 德 画 数 Ez 的 y 的 初始 预测 值 ,其 次 提 
示 输 入 <…, 解 出 y, 再 提示 输入 扩 , 用 先前 的 俏 作 为 初始 预测 值 解 出 ,这 寻 循 环 下 去 ， 
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并 ielude 拓 stdio, h>> 

共 jrclude <math.b 全 

井 jrcluae ”rutil hew 

共 qdefinc NE 3 

共 qefine M 41 

妆 definc NB 1 

共 define NSI NE 

共 define NYJ NE 

村 dazfine NYK M 

茹 dsfine NCI NE 

并 define NCJ CNF 一 NB 二 17 
并 dstine NCK (M 十 1) 

蕉 define NS (2 wx IE 一 1t) 


int mmm na，mpt 一 Mi， 


float h，c2 一 0.0，anorm，x[M 一 12; 与 程序 difeq 通信 的 全 局 灾 量 


int main (voig) /* 程序 sireid < / 
使 用 solyse 的 范 悄 程序 , 计 斯 mm 六 0 和 xz2za 的 球体 调和 函数 SCzc) 的 特征 条 ,在 捏 床 中 是 立 mie: 是 <2, 方 束 


117.4. ?301 中 的 7 是 ancrm。 


float plLgndz(int 1，jint 劝 ， 王 LOat 开 ) ; 
yold solvdefinpt itanax，tf1loat conv，float 81LOWE，fl1cac SCcaly 仆 ， 
int jndervf] ，int ne，int nb，int 四 ，f]oat wy、 于 loat wyPC， 玉 198 人 站 本 自 ) ; 
infr 1 ,itaaz ,indervLNE+1]; 
float coav,deriv,taclvtac2,q1.slovwc,5calv[NME+3] ; 
开 O 攻 七 中 出 了， 中 中 卫 ， 溃 本 可 亿 ) 


了 mmatrixrt1NYJ 了 ,1 3YK); 
setm&trixfl,NSI,1, SSJ) ; 
cef3tensor(K1,NCI,:,NCJ,1,NCK) ; 
itmaxm100; 

CODVm 06- 全 

5S1owCnTi.0i 

he1 .OKN-1) 

printf("vnanter 四 na") 1 
ScanmfCvyd %dn amm in) 


if (ntma 丘 41) 工 没 必 要 调换 - 
InQexv[1]=l; 
indexv[2]=2; 
indaxv[3]=3; 
} elLee { 调换 i 和 央 
indexv[1]=2; 
indexv[2]=1; 
indexv[3]=3; 
anoTma1.01 计算 Y 
if 《mm) 【{ 
Qteai 
for 《ielii<smomii++) apoTm 二 -0.5w3DnoOITEs(D+I) (9ql--Ak) 
】 
了 or 〔k=1ik<s=(H-1) ;1k++》 苹 初始 碳 测 谢 
开 [k]=<(k-1)》eh， 
寺 aclmd4.D-z[x3#xix] ; 
1ac2<erpf(-ama/2.0]41logtfac1)); 
y[1] [k]=Plgnpdr (an ,ma,x[k])e*fac2; PPm 是 第 6.6 节 中 的 
dertvy = 一 (fnrhmr1)]wpLgadTrn+1yam, 乞 [r]) 一 从 递 类 关系 式 求 严 亚 导数 
(n+1)jwx[Dr]*plgmndr(na;mm,z[k]))AftacTi 
y[2] (x1=hmsex[K]yyf1] fkK] ATac14d6YtveEac2， 
Y[3] fx] =axy(3+d) -和 Cam+1) 
上 
xf[H]m1.9; 在 ? - | 处 的 初始 猪 测 值 已 单独 给 出 


y[1] fn]=<anorm; 
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了 [3] [M=n=fn+1l)-mmsw(mm+1L) ; 
y[2] [=(y [3] [MI -c2)*y[1] [MAC2.0w(mmrt.0)) 1 
必 C 季 LV ] afTaDSKanor 血 ) ; 
acaiv[2]=(yft2] [K] > scalvy[i] ? y[2] 0 : scaly[1j); 
scalyr[3]=t 了 [3] [M] > 1.0 了 y[3] CDM] : 1.0); 
for 《ii) 萎 
Printt('AaFntar caa2 or 999 to end.vn*)i 
生 避 起 站 革 人 六 于 了) 3 
i【c2 we 939) 工 
了 reG_f3tensortc 1,NCI,1TNCJ1ECK) ; 
free-Imatrix[Ss.1,NST,1,NSI)] ; 
free_iuatrixfy，1,NYJ,1,NYK) 
atuIn Di; 
了 
g#91Vdef itmaxz ,Cony,Slovc,scalv, Indexrv,RE,NB,N,ycvas) 
PriotitnAn %S YX2d %6 YX2d Xa %7.37 %a %1D0.6fvn' 
Am "TEA mrDo' cy < 52， 
”lamda =", 了 [3] [1]+mma(ma+1)); 
了 返 上 C 的 凡 …- 香 


蛋 XCSZT nt mm :3 有 Pt; 在 syroid 中 定 文 
zternm float bc2,anorma,xr]; 


Yeid difeq(int X，int kit， :jnt x2。 int jsf，int ial，int isf，int indervf] ， 
DY na ，Y1D8 世 中油 。 到 oat 了 ) 

为 'BO1vde 返 回 敌阵 5 

{ 


于 10tt 了 LaJP ,9DDP1 ,emp27 


zz 《X == Kl1) 工 Boundanm condition at first paint 
证 【n+mm 上 1) 工 
3[3] f3+dladezv[1]]=1.0; 方程 117, 4. 32) 


s[3] [3+indezv[2]]=0.0; 
s[3] [3+indazvy[3]]=eo.0; 


sf3] [jst]=y[l] [1] 方程 1:7.4,31) 
】] al89@ 工 
Be[3] [3+ipdaxv[Il]]wg0,0; 方程 (17, 1. 32) 


a[3] [3+lhdexv[2]]=1.0; 
8#[3] [3+lndezv [3]]=O.0; 


3 [3] [jaf]=y[2} [1] 户 程 2417, 1.31; 
} 
》 o136 :4f (K > x2) 苹 在 末 点 的 边界 值 
#[1] [3+indexy[i]] = -fy[3] Cnpc]-c2)7(2.0sfa+1,0)) : 117.4. 全 ， 


ati][3+indezrv[2]]=1.0; 
&[i] [3+indezv[3]]】 至 -了 [t] tmpt]7 (2-OeCaa+1 0) 

ea[1] [jsf]=y[2] [mpt]~(7[3] [mpt]-c2)wyf3] Dapt] 7(2.0wCan+r1.0)); 117.34.34， 
5[2] [3+iadexv[1]]=1.0; 方程 117. 小 96， 
B[2][3+indexv[2]]=0.0; 

8 [2] [3yindezy[3]]=0.0; 


5 [2] [jaf]=y [1 [mpt] -anoray 方 答 :17,4.34) 
) elae 1{ 内 点 , 

s[l] [indezxv[i] = -1.0; 方程 (17.4. 28) 

s[l] [iodexv[2]] = -0,5ehi 

[1] [ipdexv[3]]mo.9; 


[t] [3+ipdexv[1]]1.09; 

了 [1] [3+indaxr[2]]】 = -站 .5ehi 

四 [li][3+iotdexzv[3]]a0.0; 

twapl=x[k]+x[r-1]; 

taapahy (1 .让 -amp1s 世 egh1eD.25) ; 

temp2=0.5e*ky[3] [x]+yf[3] [k-1])-c2e*0.25*teapletempl: 

5[2] [indexv[1]]=tempetemp2w0.5; 方程 (17.4.291) . 
&[23 [lndexv[2] 于 =” -~1.0~O.5+tempw (mm+].0)wfemp1; 

a [2] [indeaxrf3]]=0.25*temps(y[1] [x]+y[2] [xz=13); 


"0509 ， 


8 [2] [3+indexy[1]J*s[2] [indezv[1]]; 
3[2] [3+indexvy [2]]=2.0+5[2] [inderv[2]]; 
68[2] (3*ipdexy [3] ]=a [2] [indazv[3]] 
e[3] ndexvy[1]]j=0.0D; 方程 (17,j 30) 
8[3] fiodezvy[2]]=0.0; 
es[3] [inadexzv[3]] = -1.0; 
3 此 j{T3+iadexv[1]]=0.03 
sf[3] [3+iodezv[2]]=0.9; 
e[3] [3+ipdexv[3]]=1.0; 
sfl] [jsaf]=yi1l] [k]-7[1] [zx-1]-0.5*hwfy[2] [kx]+y[2] [k-1]); 
3[2 [jsf]=yiL2] [k]-y[2] [x-1] -tempwfttzrk]+x[k-1]) 
本 .5#fmm+1.D)efyf2] [xj+yf2][k-1])-vemp2 
本 0 ,5wKy[1] [x] +y[1[x-1))》; 
s[3] [jsfJ=yf3J[k]J-y[3] [k- 幻 ; 方程 d17,3.27: 


万 香 :07。 4. 2 
方程 (17. 1,24， 


读者 可 以 运行 这 个 穆 序 ,然后 和 Elzammer 书 一 中 的 支 .或 是 在 Abramowitz 和 Siegun 李 


中 表 21. 1 给 出 的 awkce)? 的 值 进行 对 摄 ,通常 情况 下 .大 约 3 次 达 


了 一 些 比较 值 。 


甫 17.4.1 从 sfroid 中 选择 的 输出 结果 











广 . 14095 


代 后 就 收 修 , 表 19. 4. 1 给 出 


四 园 二 
本 他 ol427 个 。0 上 和 2 了 
| ] 站 4655 
.0 全 5425 6, 54253 
3 5 114.01| 30.4361 30. 437 
16.0 | 36.9968 37. 0135 
1 ]1 一 1.0| 131. 56f 13]1.554 





17.4.2 打靶 法 


| 


为 用 打靶 法 (第 17.4 生 ) 解 决 同样 的 问题 ,我们 提供 了 一 个 郑 数 derivs 来 实现 等 式 (17， 
4 5 一 (17.4,17)。 我 们 将 在 区 间 一 1 科 xz 过 0 上 积分 该 方程 组 .我 们 提供 了 函数 load 把 特 
征 值 %* 设 置 为 当前 最 佳 估计 值 v[12.。 而 且 用 等 式 (17.4. 20) 和 (17. 4. 19) 设 置 ?和 y% 的 边界 
值 ( 有 一 个 负 导 ,相应 于 < 一 一 1) ,注意 ,边界 条 件 实际 上 提供 了 一 个 到 边界 的 距离 er, 以 避 


免 计 算 边 界 右 边 的 me 。 范 数 scose 来 自 于 式 (17.4. 18) 。 
共 Belude <stdio. >> 
于 inelnde ”nruti. h7” 


让 deline 和 2 


DLL DaD; 与 得 宁 loadscore 刑 dueiivs 传递 的 参数 
foat cz,dxyemrma 


jnt nvari 和 sheat 传递 的 参数 
float x1.x25 


int mainxvoidl 7 ww Prograna sphoot *#7 


使 相 打 邓 党 的 范例 程序 .村 证 30 癌 mszm 的 情况 计算 球 伍 调和 正 烤 的 SCricl 的 特征 佑 .注意 shoot! 第 17. 1 


“ 680。 


了 
训 


将 样 图 newt 提供 得 池 vecfunec 的 . 





攻 
了 oOid hewt[TzLont 关 人 ]，iant 了 ，int *checK， 
Yeid 〔#vecfu3cy(int，flcat [1 ，floaf 口 )); 
void ghoot(int D，Tioat Y[] ，fIoat 上 [}; 
1at check ,1 
float ql1 ,+v; 
Ve=Yecfor(1,K2) 3 
dxm1,0e-41; 避免 在 x - 1 处 求 导数 
Tvars3: 方程 个 数 
gfor (5 1 
prilptf ("ipput on,C-8quareda" ) ; 
if (scanf("Xd %d 久 f "ea ,区 nn ,此 C2] = EDOF) breagi 
tif (psomoljllamax<otzontinus; 
Bamarl1.0; 计算 方程 (17. 1320， 的? 
ql=ni 
Xpor [im1;ic=miiy4y) gma #= “0O-Sr(R+ilefd1l--Ai) 
vtl]=nr(n+1])-mekm+1)+C272.0; 特征 昔 的 初始 狼 测 俏 
zx = -1.04dz; 设 积分 区 城 
X2eD .Di; 
newttvN2, 二 cheocx ,aboot); 找 出 使 ecore 中 国 数 f 为 零 的 v 
这 飞 checy 托 
Prinrff”"sghoot fail9dj bad initial g09g88SNa')i 
} else 革 
PEintt(nNtgpif 中 ,mANo*); 
PrintEfrfsX12 .REVan vvrEt]): 
] 
Tree_-vectorty，1,N2) 7 
retnyn 0: 
省 


void load (float xl, float vf，floary-) 
《 


fleat yl -” 人 mn 一 m 习 13? 一 gmnma ， gmmayi 


[3 一 v[1-4 
[2 一 一 (3c2?#y1702+ (m 十 ! 5 
y[L1]=yi 一 沁 2] * dxy 


void sceore (float xf ，float y[]，fiioat fr] 
托 谍 一 Cn mm 人 yyD] ，y2]) 
} 


Ypid derivs (float sx， floal y_ 1, loat dydx[ 丰 7 


《 
dydx[1j 一 %[22; 


湛 殿 在 x=:* 一 1 了 dx 处 的 焉 分 宁 始 异 


检测 边界 条 件 硅 x 一 0 处 是 否 满足 


为 ogeint 计 斯 导 效 信 


dydx[2] 一 (2.0*xyxtm 十 3.0) sy[2] 一 (y[3] 一 c23xy 区) YL1] AKCL 一 六 二 六) 


dydux[3 一 小 01 


17.4.3 射 向 某 一 合适 点 


为 全 面 起 见 , 我 们 说 明 在 第 17. 2 节 中 的 程序 shootf ,其 积分 域 为 -1 二 dzs er 六 1 一 
dz 而 台 适 点 选 在 * 一 0 处 .程序 derivs 和 shoot 的 调用 一 样 .现在 有 两 个 load 程序 .对 >x 一 
一 1 程序 loadl1 和 上 面 的 ond 大 致 相同 ,在 z==1 处 ,load2 设置 函数 债 和 特征 值 ,为 最 佳 
当前 值 ,分 别 为 *2-12 和 *2[2], 能 够 十 分 合理 地 使 接 始 的 特征 猜测 值 在 两 个 区 间 一 - 祥 , 则 在 


”061。 


迁 代 过 程 由 Y1LI 和 2L24 如 昌 将 保 圭 相等 .函数 score 用 米 向 单 地 位 查 二 个 函数 值 佳 兮 


3 
适 点 是 于 相等 。 


全 inr]oqe <stdio.h2>> 

六 Inelude < 民 mmalth.h>> 

世 include ”nyuril.h” 

站 qdqeiine N1 2 

{desine N2 1 

革 deiine NTUT (IN1 二 N2》 

deiine 也 XXX 1 .0 一 让 

int myni 与 程序 loodi,load2,szoreydecive 传递 的 参数 
float c2,dx:Bmnast 

imt Da2sTtvarf 与 程序 shost[ 仿 递 的 欧 数 
[cat x1x2 xf 


inl rain 《void 关 prograrm sj:htpt x% 7 


使 用 shoof 的 范例 程序 :在 w 汪 0 和 zs 空 闫 染 件 下 计算 球 伍 记 和 洒 数 Sowtzi) 的 哇 年 人。 注意 shootf( 第 1]7. 2 十 此 
辐 何 为 newt 提供 程度 Yecfunc 的 ,程序 ertvs 和 上 斌 的 心 。 


世 
voi 右 newt float X[] ，inpt 了 ，int *Chock。 
void (evecEfunc)y(int，float [] ，float [])); 
void shootffint 六 、，Loat v[ ，fl1oat 于 []) ; 
int Sheck 
了 Loat qT wsv1 eV2，eY3 
v=VectortT,NTOT) : 
VLeV 
v2 = 和 vv[N2] ; 
nyareHTOT; 方程 数 月 
mn2<N2; 
过 xmDXX 性 和 免 在 x : 1 处 求 导 
for [ii) 荆 
Printt(vrinput 0,n,e-aquaredYn") 
让 〔acangfeXd 人 d 人 ”En , 呈 c2) == EOF) brSak3; 
if (n“m |1lIm<D) continue; 
Emmas1.0i 计算 f7. 3 2 的? 
qleni; 
foFr {ielii<emiiyr+) BmDa 中 心 - 口 -5#fD+Lye(Q1 一 一 /iD); 
Y1[L]=ne(np+l)-~me(m+1l)+C272.0; 初始 化 特征 值 生 数 值 的 猜测 依 
v2[2j=vl[1] ; 
VY2[1]=gmma*z{ft .0-fv2[2]-c2)adxzA(29Km+1)y)) 1 
Z1 、 -1.0+dzi 没 各 分 碘 
x2=1.0-dxi 
xf=0.0| 扫 合 点 
Dewt (Y,NTOT , 芭 check,shootf) 找 出 在 score 中 使 用 数 下 为 零 的 
i 【check] 1{ 
Printt["3hootf failed; bad initial gueaaNn'") 1: 
else { 
Printftft*tau(g.D)An") 
PYintTC YXt2.6fNn [1]); 
】} 
free_-vector(v,1T:NTOT) ; 
Yetuzm 站 ; 
] 
void loadl (gloas xz flont vl0].float y[]) 提供 在 x= --1 二 dx 处 的 积分 初始 值 


float 1 盖 《n 一 茵 二 一 -galma :griima)i 
7-5j] 一 v1[1-; 
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yL2] 一 一 (CrL3 一 cylf2xm 二 1， 
YL1I] 一 yl1 十 [2]* dxi 


void lozqd2 (人 loat x2，floar v2_]: float yL 有 提 疆 在 x= 1 -dx 处 的 各 分 衬 始 值 
YY[3=v2[2 

y[1 -=v2[1-， 

y[2 = 一 (y[3- 一 c2) xy[1]A02s mn 一 1))， 
} 
vaid scbre 《float xf fioat y[]，, fioar ff]) 榨 测 解 在 合适 点 x= 一 0 处 是 否 相 等 
《 


int ji 


for (i 闻 1j< 一 3 条 | 十 )》f[D 一 Ci 
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Flamtmer，C- 1957，Spperoiial Wane Functions {StanforG，CA:Stanford University Press) 7] 
入 bramcwirz。ML，、and Stegtny，]. 册 1964，F7upmrcdbook or RHathemmeizcedt 了 xpctioms, 生 pplied Mathematics 
- Series ，vol]，55fWashingtonpy National buresu of Standards ，reprinted 1568 by Dover Fubiieaticns， 
New York)， 8 21， [2] 
Morse，P.M. ，and Feshhbach ，H，1953，Mtetprnegs o 太 了 Theorettcat Tsrztvy，Parl 1 (Mew Yorg : 
MeGraw-Hilly)，pp-. 1502f{f.， [3] 


17.5 网 格 点 的 自动 分 配 


在 失 先 法 问题 中 ,我 们 需要 移 择 在 网 点 处 自 变 晤 的 值 , 这 称 作 攀 格 点 的 分 配 ,通常 是 选用 一 些 似 平 合 
理 的 伪作 为 其 值 .如 果 串 行 的 话 , 则 这 组 值 满意 ;如 果 不 行 的 话 , 增 加 网 格 点 的 数目 ,通常 就 可 解决 这 个 问 
题 。 

如 果 我 们 事先 知 遭 解 在 什么 地 方 变化 得 较 快 , 则 可 以 在 那 此 多 设 几 个 网 糙 点 ,而 在 其 它 地 方 少 设 儿 
个 。 或 者 我 们 可 以 先 用 均匀 的 网 格 先 求 出 解 ,然后 看 -一 看 ,我 们 点 该 在 哪里 多 加 -- 些 点 , 接 考 我 们 用 改进 后 
的 网 格 点 重复 求 远 过 程 ,其 目的 前 是 为 了 设置 网 将 点 ,以 使 尽 可 能 地 精 殉 地 表示 解 ， 

同样 , 息 动 进行 网 格 点 的 分 配 也 是 可 能 的 ,这 样 , 即 可 以 在 松 驰 过 程 中 动态 地 ?进行 求解 .这 种 效用 很 
大 的 被 巧 不 只 是 改变 了 松 驰 法 的 求解 精度 ,而 且 ( 正 如 我 们 下 一 和 节 要 看 到 的 ) 可 以 用 很 洒 亮 的 方法 解决 内 
部 奇异 性 的 问题 ,下 面 我 们 学 习 上 自动 分 配 网 格 点 是 如 全 实现 的 。 

我 们 把 注意 力 集中 于 自 变 量 z, 以 及 考虑 两 种 交 幸 的 再 次 参数 化 方法 首先 ,我 们 给 出 ,这 正 是 对 应 
于 网 招 点 本 身 的 仙 标 ,这 上 医 在 上 一 1 处 一 1 在 & 一 2 处 ,9 一 2 4 以 此 类 推 , 在 任意 两 个 网 格 点 之 间 . 我 们 有 
2=1. 些 常 微分 程 中 自 变 量 > 变 为 9 后。 


局 《173 
变 成 了 
dy ct 
2 一 8 瑟 193. 5. 2) 
按 9 的 形式 , 方 得 (17.5, 2) 作 为 有 限 闪 分 方程 可 以 写成 
人 3. 汪 


或 其 它 相关 的 表达 式 , 注 间 ctxzdg 度 沪 乔 才 在 一 栏 初 了 区 癌 的 灾 换 只 依 加 于 雅 可 比 共 茹 gzrzdc 成 创 族 
cosadzr 和 阅 格 点 密度 成 正比 。 

秽 在 ,此花 出 两 数 yz 或 在 当前 挫 怨 步 受 的 页 合式 : 业 我 调和 能 对 怎样 决定 网 客 点 的 寅 天 市 站 -此 
主意 .例如 ,可能 希 绷 在 > 变化 四 快 之 外 ,或 是 在 过 办 寺 处 ,将 机 :的 植 取得 大 一 些 ., 囊 实 上 ,我 们 也 江 才 
以 盗 这样 一 个 式 了 让 人 zt 可 空 引 戌 二 册 .上 阻 问 题 是 我 们 不 完 盾 这 个 比例 常数 ,也 就 是 说 .我 广 构 卡 苇 
式 子 在 z 的 来 值 范围 内 很 撕 其 定义 ,使 从: 变 划 呵 ， 可 能 没有 上 赴 稀 的 积分 ,为 了 解决 这 个 夺 题 ,区 
们 引信 了 芭 次 的 志和 参数 化 Qi93 ,其 中 忆 和 起 个 新 的 月 守节 -总 弄 9 必 辣 的 美 系 取 为 线性 的 .六 术 同 局 包 
分 问 时 公式 嫂 uQyezr 来 党 .交加 的 只 是 共 末 知 的 尼 司 常数 。 

由 一 个 线 性 方程 呆 知 





区 
或 是 出 通 沉 的 联 忌 “和 阶 方 穆 组 


dt， 虽 ， 二 
dg = 性 机 一 (17- 3- …) 


其 中 直 荐 一 个 新 胡 中 于 变 基 。 其 们 把 这 两 个 方 种 加 审 求 鲜 的 党 微分 方程 组 二 ， 
完成 作 量 括 述 局 后 ,我们 天 第 二 个 帝 微 分 方程 ,也 加 是 我 从 赃 正 村 的 网 措 点 赂 六 函数 印 





天 
划 【 下 让 2 让 0 5 
其 由, Lo) 南 我 们 选 冠 . 基 以 网 品 杰 量 y 交 雪 这 公 方 得 , 即 为 
上 于 吧 疝 
本 本 人 (Cr) 放 业 和 二 六 富生 


注意 ,e tx 应 该 选 为 止 定 的 ,以 使 刚 点 密度 在 各 处 吾 是 上 的 . 亚 则 起 (17.5.7) 中 分 母 可 能 火 夫 。 

谢 明 动 网 情 分 划 , 反 517 35017.57) 这 二 个 常 微分 记 程 加 入 方程 组 中 ,如 吉 到 数组 y[j[k] 牛 . 现 
企 z 变 成 了 一 个 应 变 超 !Q 得 章 也 变 成 新 的 应 变节 , 通 第 ,计算 站 不 天 过 多 少 额外 工作 量 , 因 尖 衬 可 以 从 忆 
有 呈 的 那些 吝 分 中 构成 . 白 动 网 格 分 划 计 息 允 许 町 户 先 看 下 ,数值 结 匡 会 如 何 曼 务 种 网 香 点 分 划 二 法 的 
影 弄 (* 刀 果 网 格 汪 凯 范 数 尽 能 通过 解 丑 得 到 ,这 是 种 特例 , 即 eezyez 下 接 可 积 - 这 样 , 只 党 帮 外 雪上 朵 个 
方 各 , 忆 就 是 式 :17. 5,5) 中 的 两 个 方 桂 ,以 及 两 个 莉 的 变量 < 党 ) 

作为 实现 这 种 方法 的 一 种 典型 范例 ,我 们 考虑 一 个 应 变量 yCr)? 的 系统 .我们 可 以 设置 


dQ = 写 | Je (17.5.3) 
pe > 办 = 工 十 ( 全 [17. 5 风 ) 


总 YY 
其 中 关闭 人 是 我 们 选 妊 的 上 数 . 妈 果 共 有 第 一 项 , 则 它 冶 出 关 十 的 均匀 分 划 ,而 第 项 则 是 使 在 > 这 志 
灾 化 的 地 方 使 用 更 多 的 网 格 点 ,常数 的 作用 是 使 了 的 每 个 对 数 变 化 量 了 对 在 二 网 烙 点 要 化 量 总 有 相当 的 
影 吊 , 串 以 通过 试验 来 调整 这 些 澡 数 ,当然 其 它 方法 也 是 可 以 的 : 涯 如 可 用 x 的 对 数 分 划 : 也 就 是 在 第 - 交 
中 十 dlrz 米 代 虞 ar。 


17.6 内 部 边界 条 件 或 奇异 点 的 处 理 


奇 措 性 可 能 会 册 现 伴随 点 这 界 霄 卫 题 的 央 部 ,典型 地 ,假设 有 一 个 点 cs 在 该 点 的 导数 必 融 床上 要 的 
去 达 式 小 鼻 
RN 3y) 


| 一 7 二 让 二 全 而 | 


其 由 分母 五:=0 在 有 限 租 药物 理 门 题 半 柯 拓 点 到 问 帧 通常 伴随 戎 自身 可 以 解雇 的 对 策 :已 “0 
世 \ 物 届 解 3 必须 四 时 让 Se 这 上 , 这 个 比 般 式 情 肥 右 意 义 的 值 了 ,对 解 y 的 限制 通常 称 作 正 则 性 条 性 
穗 号 (cs 在 生 点 茵 是 革 怀特 站 限制 的 条 件 , 泛 全 类 位 二 一 个 禾 外 的 边界 条 件 , 即 在 时 点 外 大 变 县 必须 
满足 :个 代数 关系 . 

在 第 17,2 节 中 .我们 分 绍 了 用 ”合适 点 了 法 "来 处 妊 , 边 章 条 件 是 奇异 的 因 程 的 积分 问题 ,我 们 也 匣 计 
沦 过 这 个 相关 的 站 昌 : 在 那些 搓 题 中 ,无 法 基 和 分 天 肯 “器 积分 到 中 端 ,但 是 彰 微 分 坟 释 在 桔 外 点 峙 近 
确实 有 很 好 特性 的 导数 视 艇 .让 以 可 以 从 王 基 流 点 省 行 可 分 . 轮 怨 法 和 * 射 向 某 合适 点 "的 方法 解决 这 个 
问题 都 很 容 妇 -站 样 .在 那 坚 问题 中 , 奇 只 兰 性 的 让 在 跑 央 了 兹 要 被 满足 进行 求解 的 某 些 特殊 的 边 竺 伍 . 

这 嵌 所 不 同 的 是 ,我 们 壮 虑 的 奇异 性 大 出 现在 中 国 点 于 ,奇异 点 的 记 置 和 解 有 关系 ,所 以 事先 是 本 庆 
的 :内 此 .我 们 站 对 -个 循 荆 的 问题 : 坷 吴 作 站 但 我 们 寻 炎 数值 解法 ,而 我 们 又 需要 用 数值 解法 当 花 调 点 
的 位 置 ,这 翌 的 何 异 竹 也 和 给 某 个 变量 这 择 一 特殊 值 有 关 , 这 些 变 量 允 诗 解 在 奇异 点 处 满足 正则 性 条 件 。 
这 样 , 内 部 奇异 生 的 问题 便 采 用 了 了 内 部 边界 条 件 的 问题 : 

处 理 内 部 奇异 性 的 “和 峡 方 法 是 ,把 这 个 问题 当 征 一 全 白山 边界 值 问题 , 象 我 们 在 第 17.0 节 来 让 过 论 的 
那 栏 .作为 一 个 简单 的 合子 ,我 们 考 虽 方 程 


cy 
二 人 了 人 


其 中 办 和 万 部 天 要 在 其- 一 林 知 点 zx, 空 过 委 点 .我 仙 霄 其 方程 





LU17.6.23) 


间 2 所 一 1 0170 3 
其 中 zs 基本 知 的 奇 昌 点 位 置 ,并 时 通过 下 面 设置 把 白 变量 改 成 t， 
一 :一 人 0 二 ! 苹 1 07 和 
在 := 处 的 也 界 条 件 恋战 
Arvy) -0 Dizy) = 17,5 5 


另 种 方法 是 ,用 前 … 节 讨 沟 的 月 适应 网 格 点 控制 来 处 理 内 部 奇 措 性 的 问题 -村 于 起 505 区 中 国 问 
题 ,我们 增加 网 候 点 分 划 方 程 


一 总 6 
党 - ff 人 


增加 “个 简单 的 风格 点 分 划 霄 数 , 它 杷 * 直接 映射 到 了 ,其 电 4 从 1 变 到 对。 网 禁 扣 的 数 肯 为 


忆 (7r) := 一 工 . 一 1 f 7 了 .6.) 

加 入 这 履 个 一 阶 微 分 方程 以 后 ,我 们 还 必须 加 入 相应 的 边界 条 件 , 如 果 没 有 和 奇异 竹 的 舌 , 这 些 将 阿 他 地 让: 
人 不 4=1:， yx= 站 QQ=0 . 517.5. 9 

在 = 一 于，xz 一 mr 017.6,1D) 


以 及 在 一 1 处 指定 的 总 具 六 个 值 w 。 在 这 种 情况 于, 癌 是 变 成 一 个 在 习 处 指定 了 荆 有 沈 界 家 杀人 引 的 厅 好 
直 问 是 ,并 且 网 格 分 划 上 虹 数 已 荐 多 会 的 。 
担 实 味 上 ,我 们 最 下 要 处 理 的 染 件 是 ， 
在 yyY-1:， <=:， 台 =-0 1 11》 
不 2 一 朵 Na 一 0，Qzsy) 一 站 7125 
以 六 在 9 一 1 处 的 太一 1 个 w 的 值 必 于 和 失 " 的 旨 个 w 值 是 要 进行 调整 的 , 矿 寺 之 ,应 如 此 凋 东 , 使 理解 以 目 则 
形式 (下 除 罕 昏 ) ,而 不 是 以 非 止 旭 形式 (有 有限 值 除 零 ) 冯 过 奇异 点 .还 应 计 意 ,这 些 这 界 条 人 忻 井 林 直 接 纺 <， 
漫 制定 义 - :个 钾 , 而 使 >: 蛮 成 一 个 可 少 或 的 参数 ,不断 过 化 以 匹 称 止 则 性 条 件 。 
在 这 个 伍 中 . 奇 措 性 出 现在 “全 边界 证 ,村 大 由 自 信 冲 是 夫 知 的 ,从 而 增 折 了 复杂 度 ,让 上 上 梁 癌 便 芝 
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中 ,我 们 可 以 简单 地 把 常 微 分 方程 积分 到 奇 媒 点 ,然后 作为 区 个 单 狐 的 问题 ,重新 从 奇 措 点 开始 积分 到 
我 们 党 要 的 地 方 .但 是 , 当 其 它 的 奇异 点 出 现在 内 部 的 情况 中 .并 不 能 完全 确定 回 题 的 全 部 所 在 : 滑 网 六 贞 
汪 看 基 些 更 多 的 边界 杀 作 需要 进一步 满足 .这些 情况 在 点 亩 上 并 木 困难 ,但 对 第 17. 3 节 中 所 给 出 的 松 驰 法 
和 哥 序 代码 确实 需要 一 些 上 改变 - 宗 际 上 所 焉 要 做 的 是 , 正 河 部 过 中 条 件 出 现 的 阿 格 点 处 , 圳 块 “ 怕 殊 "的 方 
释 块 ,然后 帮 一 些 淆 当 的 记录 工作 。 

医 19. 6. 1 说 明了 .个 亦 例 ,其 中 束 个 问题 包 食 5 个 方程 ,在 第 :点 有 两 入 边界 条 件 ,个 "内 在 ”这 界 杀 
件 和 了 商 个 最 终 迪 界 条 件 . 这 个 图 说 明了 各 也 中 ,特殊 :了 块 附近 法 对 角 线 的 整个 第 阵 的 结 神 。 在 区 域 的 中国 . 
一 般 地 块 中 有 5 个 方程 ( 行 ) 和 和 10 个 未 知 司 1{ 列 ). 对 十 特殊 了 上 前 面 的 每 - 块 , 初 姓 杀 件 气 供 了 足够 的 情 马 ， 
把 块 的 头 两 列 化 成 零 . 芯 个 有 限 党 徽 分 方程 至 少 除 上 了 多 于 十 蜀 , 最 后 的 二 列 存储 起 来 进行 国 代 ( 刘 第 13， 
3 节 所 示 )。 为 了 要 处 理 寡 钦 的 条 件 , 我 门 跳 测 正常 循环 ,并 增加 -一 个 只 有 一 个 方程 的 特 妹 子 块 , 内 部 过 界 条 
件 。 这 要 有 效 地 降低 了 一 列 末 约 简 的 其 余 网 风 点 系数 的 存 鱼 景 ,并 且 允 许 我 们 把 以 后 块 中 的 头 三 列 约 简 成 
零 。 国 数 red ,pinvs.bksub 只 符 作 少量 的 重新 编码 就 能 容易 处 理 这 些 悄 况 , 但 每 个 问题 只 针对 一 种 特殊 展 
沈 , 央 此 用 户 必须 根据 需要 自己 来 作 修 改 ， 


(人 1] XXX V  B 
] XXX v  B 
XXXXXXXXXX YV 
XXXIXXXXXXX 入 Y  B 
X 其 兴 和 XX 叉 XXX V 8B 
XXXXXXXXXX V  B 
0 V  B 
VY Ba 

X 光 其 人 XXXXXX V 8B 
XXXXXXXXXX V 日 
XXXXXXXXX 人 X V 于 
XXXXXXXXXKX V B 

和 多 叉 久生 和 兴 XXX V 8B 

(bj 1 其 XXX YV  B 
1 居 XX vV  B 
1 X XXX V  B 

X X X .次 V BRB 

1 X X X ws V  B 

1 V 8 

1 XXX V 3B 

v 8 

1 X X Y 8 

| X X V  B 

| X X V  B 

[1 XXX vV  B 

] XX V 38 


内 部 菜 件 引入 了 -个 特殊 决 ,fa) 补 赂 形式 ,和 芭 17. 3, 1 比较 :4b) 基 终 的 形式 ,和 图 17. 3.2 比 较 
图 :7 六 2 加 上 内 部 边界 条 件 的 有 限 巷 分 方程 
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第 十 八 章 “积分 方程 和 反 演 理论 


18.0 引言 


许多 人 , 除 具 备 数值 知识 和 大 以 区 ,都 以 为 积分 方程 的 数 偿 求解 是 个 豚 其 神秘 的 课题 ， 
因此 ,人 馆 今 为 止 ,数值 分 析 教 科 书 中 几乎 都 没有 包含 此 内 容 。 实 际 上 ,积分 方程 数 俏 求解 坟 面 
的 文献 很 多 , 旦 前 还 在 本 断 地 增加 ,并 咏 也 已 号 版 了 几 本 专著 -所 以 单独 成 册 出 战 的 个 原 
国 是 ,为 为 存在 许多 不 败类 型 的 积分 方程 ,而 用 每 类 都 有 这 多 不 同 的 .可 能 隐 合 的 陷 凸 , 划 重 
是 一 个 简单 的 情况 也 需要 多 种 不 同 的 算法 进行 处 理 。 

线性 积分 方程 和 简单 而 勾 吉 老 的 线性 方程 之 问 有 着 紧密 的 对 应 关系 ,前 总 旺 生 “个 天 
限 维 遂 数 空间 内 ,函数 间 确 定 ” 一 种 线 闪 积分 关系 :而 后 者 则 芯 丰 个 有 限 维 总 直 空 名 内、 
向 量词 确定 了 -一 种 团 忻 关 系 , 因 为 这 种 对 应 关系 是 天 部 分 计算 算法 的 核心 ,所 以 .在 我 们 讨 
论 积分 方程 的 分 类 前 ,有 必要 进一步 明确 这 :-: 概 念 ， 

弗 雷 德 雷 姆 (Fredholn ?方程 涉及 有 具有 固定 上 、 王 限 的 定 积分 .第 一 类 非 齐 次 熙 击 德 誉 
姆 方程 其 形式 如 下 

(二 | ecoD7eoa (8 1 


这 里 ,ze 是 一 个 待 求 的 未 知 所 数 , 而 g(O 蚌 -个 已 知 的 * 右 端 项 *,( 在 积分 方 得 韦 , 册 了 了 某 
些 奇怪 的 诛 因 , 熟 知 的 “ 右 端 项 "习惯 上 却 写 在 左边 1) 有 两 个 容 基 的 阔 数 天 (ts) 称 为 核 。 方 
程 (18. 0. 1) 对 应 的 扎 阵 方 穆 为 
K .fg 0 
其 解 为 f 一 一. 而 基 - 是 送 托 阵 . 与 方程 518,0.2) 类 似 , 当 吕 非 二 g 一 0 的 并 伏 情 形 几乎 
毫 无 用 处 ?及 大 可 逆 时 ,方程 (18.0. 1) 就 有 唯 … 解 ,但 是 ,我 们 将 看 到 ,后 :和 茶 件 让 如 该 规划 
一 样 常常 出 现 例外 : 
类 做 于 有 跟 维 特征 值 问 题 ， 


(KK 一 ai 了 一 多 (3 
叫做 第 二 类 弗 雷 德 似 姆 (Fredholm ) 方 程 .通常 写 为 
FE = 从 | 天 人 ssys)es 十 好人 ) (Rd 


同样 , 储 号 的 习惯 并 不 严 族 对 应 ;方程 (18. 0. 4 中 的 太 村 应 车 (18.0.3) 中 的 1zc. 人 多 对 坊 普 
一 8A14 如果 (或 g) 为 雷 , 幅 称 方程 是 齐 次 的 .如 果 核 KG) 有 界 , 则 反方 程 (8 Si 样 。 
方程 (18. 0. 4) 有 这 种 性 质 . 即 其 齐 次 形式 在 具有 最 多 可 数 无 限 集 1 一 必 洲 一 1.2… 个 特征 值 
上 有 解 . 相 谋 的 解 六 (为 特征 函数 . 当 核 对 称 时 特征 值 为 实数 。 

在 &( 或 虽 ) 砷 二 的 非 齐 次 情形 . 方 种 (18. 9. 3) 知 (18.0.4) 除 了 当头 或 0 先 引 王 什 外 均 
可 解 ” 一 国 为 当 入 (或 6) 为 特征 值 时 积分 算 季 或 拭 陈 ?是 奇 异 的 ,积分 方程 中 驰 妆 盐分 过 
蒜 为 弗 雷 德 合 姆 择 一 性 . 


下 旬 


第 一 类 (Fredholm 方 竹 通 常 是 肥 共 病 入 的 。 枝 生出 到 “个 国 数 了 遂 贡 起 次 论语 芒 和 全 
昼 , 因 而 需要 对 该 算 子 求 道 的 解 , 就 会 对 输入 的 小 灾 公 或 误 点 变 得 极其 敏感 。 兴 灌 雪人 实 
际 上 常常 丢失 信息 ,而 赣 运 算 却 无 法 找 回 它 .这 种 方程 已 有 上 了 私 门 的 处 于 方法 .通常 慰 交 反 
演 问题 般 说 来 , 它 必 须 利 町 解 性 质 的 一 些 先 验 知 识 来 增 朋 和 息 :这些 先 脏 知识 在 一定 租 






度 上 人 恒 用 米 恢 复 竺 失 的 信息 。 我 们 将 第 18. 4 节 中 介绍 这 此 广汉: 
第 二 类 二 齐 次 弗 雷 德 需 姆 方程 的 疾 态 程度 通常 归 低 得 和 多。 方程 人 80 相川 卜 贡 罚 
上 | CEkcee -0 一 1 3 


其 中 6G--5) 是 一 个 狄 拉 克 (Dirac)8 丽 数 (为 明 包 起见, 我 们 将 4 变 为 相应 的 四。 如果 = 的 秆 
足 驶 大 , 则 方程 (18. 0. 5} 卖 际 上 是 对 角 占 优 的 , 央 而 是 民 态 的 .只 有 当 = 很 小 时 .我 们 和 又 回 
到 病态 情形 : 

第 二 类 齐 次 弗 雷 德 去 姆 方程 回 伴 没有 特别 的 病态 - 旭 果 灵 是 一 个 光滑 算 子 . 江 便 会 将 
许多 了 值 映 为 秋 .或 接近 过 。 困 而 ,在 z 一 060 一 2) 附 近 会 出 现 大 芝 退 化 或 近 和 也 退化 的 特 拭 
倘 , 但 这 对 计算 并 未 产生 特别 的 困难 ,现在 ,我 们 可 以 看 出 . 实 哮 上 使 非 齐 次 方程 (18, 0. 5 不 
发 生病 态 的 = 值 的 大 小 ,通常 比 对 角 占 优 情 形 所 机 求 的 e 泪 小 得 多 。 由 计 c 项 会 使 所 有 特征 
值 发 生 偏 移 , 因 此 它 要 足够 大 ,以 使 一 个 光滑 算 季 的 -系列 索 峙 近 的 特征 侦 祖 离 地 , 堵 么 全 
成 的 算 子 就 变 得 可 逆 的 5 当然 , 除 离散 特征 值 外 )。 

沃 尔 泰 拉 (Volterra ;方程 是 弗 雷 德 四 如 方 程 的 一 种 特 味 情形 , 即 当 > 朴 : 态 捕 人 一 
0. 扔 掉 不 必要 的 积分 部 分 , 沃 尔 泰 拉 方 程 可 写 为 积 了 上限 为 独立 变 基 上 的 风 却 ,第 一 类 沃 尔 
论 拉 方程 


gt)] =: 政 人 fs Get 18.0, 6 
利 它 的 对 虚 方 程 类 似 . 也 有 和 拖 阵 方 程 ( 现 在 用 分 量 写 出 ) 
下 
>， 天 六 一 册 寺 


与 方程 (18. 0. 2) 相 比 ,我 们 发 现 沃 尔 泰 拉 方 程 对 应 着- -个 下 ( 即 左 ) 一角 矩 阵 K, 零 项 均 在 对 
角 线 上 方 。 出 第 二 章 我 们 知道 ,这 样 的 窍 阵 方程 只 震 简 单 地 通过 前 向 代 换 就 可 解 出 ,四 此 . 添 
尔 泰 拉 方 程 的 解法 也 同 翌 直接 了 当 , 当 实验 测量 的 品 吉 不 占 绝对 优势 时 ,第 一 类 沃 尔 泰 所 方 
程 基本 上 是 非 病态 的 .对 积分 取 上 限 估 产 先 -个 极 强 的 从 上 妈 , 它 通常 能 破坏 核 所 有 的 光 消 证 : 
质 . 
第 二 类 沃 尔 素 拉 方程 写 为 
FL 二 上 民 (tsJs)els 十 厅 ( 118. 8 
和 此 对 应 的 失 阵 方程 是 
( 玫 一 1)》 一 118.0.9) 
其 中 KK 为 下 三 角 型 瑟 阵 .这 些 方程 中 没有 4% 的 原因 是 :(i) 在 非 齐 次 铺 形 下 (g 非 霉 ) ,4 证 以 
被 K 吸收 ;iD 而 在 齐 次 情形 下 (es=0) 下 ,有 -定理 , 即 核 有 界 的 第 二 类 沃 尔 泰 拉 方 穆 演 有 
具有 平方 可 积 的 特征 范 数 的 特征 根 。 
我 们 将 定义 都 限定 在 线性 积分 方程 的 情形 .方程 (18.0. 1) 或 (18.0. 6) 存 非 线性 情 纶 下 ， 
被 租 攻 数 将 是 天 (Gyres) 而 非 天 Ge)FGs) ;方程 (18.0.4? 或 (18.0.8)? 在 非 线性 情形 下 .被 


“0668 ， 


积 师 煞 将 是 天 人 ss 直线 性 井 十 殴 侍 验方 程 比 卉 应 的 线 折 方 程 归 虽 信和 十 
运 的 是 ,在 实际 应 出 中 这 类 方程 负 珊 得 本 多: 木 章 我 们 基本 上 不 考 话 它们 ,但 是 共 解 天守 
沃 泉 素 拉 方程 ,通常 只 需 对 二 铂 方程 的 算法 稍 如 由 改 风 串 , 这 点 以 后 我 们 将 会 在 让 ， 

几 平 记 有 积分 太 程 的 数值 解法 都 要 利用 求 积 分 法 则 , 道 常 洒 高 斯 积分 . 谈 关 再 在 可 以 吕 
习 -下 第 4. 5 节 , 特 别 基 闭 节 末尾 较 这 的 “: 些 届 容 : 

在 下 面 各 节 ,我 们 先 讨论 只 有 交 潜 核 的 第 .类 弗 雷 德 登 姆 积分 方程 (第 18. 1] 他 忆 该 节 也 
上 时 讨 论 非 平凡 求 积 法 刚 ,但 我 们 将 只 处 理 方 得 的 良性 系统 。 然 后 , 回 到 沃 尔 泰 拉 广 积 (第 13. 2 

节 ) ,我 们 会 发 现 , 简 单 直 摇 的 方法 通常 很 天 合 这 些 方 程 。 

在 第 18. 3 节 我 们 过 论 如 和 何 处 理 厅 异 核 情形 . 卡 要 针对 绅 雷 德 霍 姆 方程 ( 包 折 池 和 突 生 笃 
二 类 ) .奇异 性 费 求 有 特 皆 的 积分 法 出 , 供 由 于 它们 会 可 坏 瑟 的 光滑 隆 并 司 阅 是 汪 去, 于 得 我 
本人 全 和 

在 第 18. 4 一 18.? 生 ,我 们 将 讨论 开演 计 是. 第 18.4 节 是 对 这 个 大 专题 的 个 全 全 

这 里 我 们 必 该 证 -: 第 13.7 节 中 讨论 过 煞 水 波 变换 不 仅 关 用 于 数据 具 纱 和 全 导 处 租 , 而 
且 了 可 以 将 … 些 积分 方程 变换 成 能 抉 速 求解 的 磋 眠 线性 阿 题 。 作 为 阅读 本 闻 能 咱 钞 .这 考 
也 洗 会 希望 复习 下 第 13. 10。 

我 们 必须 坦 尝 指出 ,有 些 课 题 . 比 如 积分 -微分 方程 . 己 赵 出 本 书 的 范 性 :如 果 和 起子 角 和 
分 -微分 方程 的 一 些 六 法, 见 Jirunnerl ， 

无 朝 置 疑 , 仅 用 章 的 篇 幅 只 能 论 及 积分 方程 这 个 复杂 课题 的 一 些 最 基 林 的 坟 法 
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18. 1 第 二 类 弗 雷 德 垄 姆 方程 


我 们 想 求 解 方程 
70 一 | Ko7Gnds -8 全 
中 7 的 数值 解 .使 用 的 方法 称 为 泰 斯 特 姆 (CNystrom) 法 ,这 是 一 个 非常 基本 的 方法 亡 淖 
此 选取 一 些 近似 的 积分 法 则 ; 


汪 
| Tc 一 入 RE 035) 2 的 全 


人 
我 们 应 该 果 司 什么 机 分 法 员 呢 ?用 惰 除 积分 法 则 ,比如 重复 梯 汇 或 广 下 牛 法 划 当 然 能 种 


PR 


积分 方程 。 

但 我 们 将 看 到 ,解法 涉及 OCN) 阶 运算 ,因而 最 有 效 的 方法 癸 向 于 用 高 阶 积 分 法 刚 上 
保持 六 尽 吕 能 小 ,对 于 光 漠 . 非 奇异 问 是 ,没有 什么 太 法 能 比 待 上 高 斯 积分 (如 ,高 斯 - 勤 让 
德 积分 , 匈 第 4, 5 节 ),( 对 于 非 光滑 或 有 奇异 核 , 饥 第 18. 5 节 。.》 

Ddlves 和 Mohamed- 提 吕 了 比 奈 斯 特 怒 方 法 更 复杂 的 方法 .对 于 简单 的 第 一 类 碍 常德 
需 姆 积分 方程 ,他 们 认为 :”… 这 场 比赛 的 当然 寿 利 表 是 蒜 斯 特 姆 (Nystromy? 程 序 … 采 四 六 
点 高 斯 - 勒 计 - 德 法 ,该 程序 极其 简单 … 这 样 的 结果 足以 使 :个 数值 分 析 学 者 深 感 叹服 ,” 

如 果 将 式 (18. 1.2) 的 积分 法 刚 永 用 到 方程 (18. 1. 1) 上 ,我 们 得 到 


8) 一 过 妈 下 (SG 一 8 (18. 1.3) 
在 积分 点 估算 方程 (18, 1. 3): 册 
一 i: 天 (35 十 及 (18. 1.2) 
令 几 为 向 量 Fo sy 为 向 量 5() ,K。 为 给 了 天 (0 ) 并 定义 
民 ， 一 大 ie; (18. 1.5) 


则 方程 (18. 1,4) 用 征 阵 写法 ,表示 为 





(1 一) 慌 ! .一 gg 《18. 1.6) 
这 是 N 个 术 知 量 的 六 个 线性 代数 方程 组 ,可 以 通过 标准 二 角形 分 解法 (第 2. 3 节 ) 来 求解 
一 一 正 是 在 此 出 坟 了 COCN ) 次 运算 , 解 通 常 是 良 态 的 ,除非 天 一 个 特征 值 很 榜 近 。 

求 出 积分 点 人 5)} 的 解 后 ,其 它 点 7 的 解 怎 样 吧 ? 简 单 的 多 项 式 插值 木 行 的 .这 会 破坏 费 尽 
全 力 才 获 得 的 精度 -条 斯 特 媒 法 的 关键 点 在 于 ,采用 方程 (18. 1, 5) 做 插值 公式 以 保持 解 的 精 
度 。 

这 早 我 们 给 出 两 个 求解 第 二 类 线性 弗 震 德 堆 姆 方 保 的 笠 序 .程序 fred2 先 建立 方程 (18- 
1.6)，, 然 后 调用 ludcmp 各 Labksb 程序 ,利用 尽 : 分 甫 来 求解 . 求 高 斯 革 让 德 积分 是 先 适 过 
调用 gauleg 得 到 权 和 横 坐 标 .程序 fred2 要 求 凡 埋 提供 个 返 Il g(0) 的 外 部 函数 此 另 - 一 个 
返回 4 天 ,的 外 部 函数 -然后 它 返 回 积分 点 的 解 所 它 也 返回 积分 点 和 权重 .第 .个 竹 序 
fredin 用 这 些 数据 来 实现 方程 (:8. 1 3) 的 Nystrzom 的 插值 ,并 返回 在 区 间 [ze, 轨 内 任意 点 
的 /了 值 。 

站 includqe “nririi hy 


void fred2fint n，float av ftoat afuat tfloat 全 float w[， 
jleat (<g)filoaty float fyakyffloat， fioat7) 
解 第 … 类 线 必 则 证 德 蚌 姆 方程 .短信 = 种 足 和 分 限 .n 吓 高 靳 积分 点 数 , 由 起 用户 提 殿 的 芬 别 逝世 sse 种 
伏 导 5 的 外 部 函数 :寿康 扯 加 包含 着 启 斯 积分 横 事 标 ， 总 这 些 横 吾 芳 的 解 大 的 数 和 训 [1 及 上 L1..al 时 罗 
返回 岗 斯 权重 数组 w -1..n]. 与 训 断 竺 既 折 值得 上 fredin -- 电 使 避 . 


void gaulegtfloat x:， foat x2，floar x[ ,flont wiintoo: 
void ]abkshtHloat * #asantn， tnl *tdx。 iost b 门 )， 

VolG iudermbtfiloat 。， >a-intmyirt xindx、flar sd)， 

tt ij zintx: 

floar d，= <DDIky 


Imqx 一 ivecteorf] nl 
omK 一 Iatsrixftlvns|:n)， 


7 


gilUiegtaab ty 记 果 不 用 高 斯- 勒 论 莹 下 分 ， 
for 由 一 1 一 Di 十 - ) 几 姑 “个 程序 苛 换 gan]eg 
] not 71 形成] 一 韦 


omki 王 六 一 float0i -一 用 xx 丰 ID] < 可 - 
二 (CUUi]13 








tudemptomkn indxsecG)y 韦 线 心 方 弄 
lubksbtonmk .nyvindx ,fy 

free matIixCotnk ,nlvny; 

free ivectortindxy 1vn)j3 


flear fredintfloxt x， nt 3， float ay fcat hy，float t[-， float fi]， 
人 cat 交口 ,fteat Ca gffloat] float (xsak)fioat，ftoat7) 
给 定 包 含 普 商 世 树 分 后 泽 标 和 扫 重 的 数 早 tf .5] 科 和 n] .四 fred2 给 出 解数 关于 1.nj ,该 本数 利用 Astrom 


擂 慎 公式 返回 x 点 的 【 信 . 牛 为 输入 ,a 和 电 是 积分 限 ,n 是 高 断 积 分 点 数 .和 和 旺 是 用 户 混 供 的 从 草 返 四 机 
人 ft, 的 外 部 冰 数 。 


UID3 
float sum 一 小 0; 


for ti 一 1:i< 一 hij 一 一 》 sun 十 一 《xak)Cx:t iD xm[i > 开 i 
TetUID【* 只 Xutl15 


利用 高 斯 积分 法 的 一 个 缺点 症 , 没 有 简单 的 办 法 来 取 旭 结 果 中 误差 的 估计 ,最 实 峙 的 方法 
是 .将 N 增加 ,例如 50 冯 ,将 两 次 估计 值 之 河 的 差别 作为 ,用 较 大 的 w 值 取得 的 结果 中 误 
差 的 “个 保守 省 计 ， 
现在 , 弄 吾 齐 次 方程 的 解 .如 果 我 们 令 4 一 14a,g 一 0, 则 方程 (18, 1 5) 变 为 一 个 标准 特 
让 方 程 
民 .F=of (18.1.1) 
我 们 于 是 可 以 利用 任 合 合适 的 惩 隆 怕 征 程序 来 求解 ( 见 第 十 - 章 )。 注 意 , 如 果 我 们 的 原始 的 
问题 有 一 个 对 称 的 核 , 弦 么 矩阵 K 是 参 称 的 。 但 是 ,由 于 大 部 分 积分 法 的 权 wwi 不 相同 ,矩阵 
K (方程 18. 1.5) 并 不 对 称 . 对 称 矩 阵 竺 征 值 问题 要 简单 得 多 ,因此 我 们 应 尽 可 能 地 保持 对 称 
性 .假定 权 为 正 值 (高 斯 积分 就 是 如 此 ,我 们 可 以 定义 对 角 撼 阵 日 一 diag (ze)) 玉 其 平方 根 ， 


Di 一 diagCVw,) 方程 (18.1.7) 则 变 为 
长 * 了 DT 一 sf 
乘 以 D22 ,我 们 得 到 
《D 区， D22?。h 一 5 《18.1.8) 

其 中 尖 王 Di 池 。 现 在 方程 (18. 1. 8) 使 具有 了 对 称 特 征 利 问题 的 形式 。 

方程 (18. 1. 7) 或 (18. 1. 8) 的 解 一 般 给 出 六 个 特征 值 , 其 中 六 是 所 用 的 积分 点 数 。 对 于 
平方 可 积 核 . 这 些 值 将 给 出 租 分 方程 最 小 年 六 个 特征 值 的 良好 近似 伸 , 有 限 秩 的 村 ( 也 称 为 
退化 或 可 分 核 ) 仪 有 有 限 个 非 社 特 征 值 (也 晤 能 浇 有 有) ,记者 可 以 通过 组 零 特征 值 来 判定 这 
种 情形 以 取得 高 精度 。 当 增加 N 米 提 稿 它 们 的 精度 时 , 非 震 特征 值 的 个 数 保 持 常 值 不 变 .这 
里 再 要 注意 ， :个 首 退 化 的 核 可 以 有 碟 穷 放 个 以 ec 一 0 为 聚 点 的 特征 值 。 随 痊 N 的 增 大 : 读 
者 可 以 根据 解 的 人 性质 来 区 分 这 上 种 情形 .如果 是 退化 核 ,通常 可 用 解析 法 求解 ,所 有 教材 中 
都 有 这 部 分 内 容 。 
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18.2 沃 尔 泰 拉 方 程 


二 在 让 我 们 再 加 到 沃 尔 夺 拉 (Volterra) 方 称 , 其 原型 是 第 -类 沃 尔 素 拉 方 和 梯 ， 
AD = RCAGoads -8 G8.2.1) 
沃 尔 泰 拉 方 程 的 大 部 分 算法 从 :一 z 开始 , 随 着 不 断 地 和 迭代 连 漆 求 出 解 .在 该 意义 上 ,它们 小 
促 类似 向 前 代 换 (5 见 第 18.0 节 ), 丙 且 类 似 于 普通 微分 方程 的 初 值 问题 .事实 上 ,许多 普 道 微 
分 方程 的 算法 都 有 沃 尔 素 拉 方 碍 的 对 应 算法 ， 
最 简单 的 方法 是 ,在 绚 匀 步 长 的 网 格 点 上 求解 方程 : 


汪 = 十 六 ，i -0.9N， 二 ”有 (18.2. 2 
为 此 必须 选取 一 个 积分 法 则 .对 于 均匀 网 格 , 最 简单 的 方法 荆 梯 形 法 则 ,方程 (4. 1.11)》， 
| ,5DFGs)as 一 | 羡 Ka 扩 和 Skin 十 二 Ko 《18.2. 3 
四 而 方程 (18. 2. 1 的 对 形 法 是 
太一 n 


【1 人 2 和) 
2 

〈 对 于 第 :类 话 尔 泰 拉 方 程 , 左 式 前 面 的 1 将 不 出 现 ,g 的 符 导 相 皮 ,余下 的 讨论 也 有 相 池 简 
单 的 变化 。) 

方程 (18.2.4) 是 -个 通过 OCN3) 次 运算 给 出 解 的 一 个 显 式 的 方法 .与 井 需 礼 审 姆 方程 
不 同 , 它 不 需要 解 一 个 线性 方程 组 .因此 , 沃 尔 素 垃 方程 常 常 比 相 必 的 弗 雷 德 雷 姆 方 冬 简 单 ， 
我 们 已 经 知道 ,后 者 确实 涉及 到 线性 系统 的 反 演 ,有 时 共 至 是 很 大 的 线性 系统 的 反 演 - 

求解 沃 尔 泰 拉 方 程 的 高 效率 在 一 定 程度 1 被 干 述 事 实 所 抵消 ,好 在 实际 永 用 中 ,该 方程 
以 方程 组 形式 出 现 更 为 常见 .如 果 将 方程 (18. 2. 1) 改 写成 以 六 个 函数 产 匡 为 向 量 的 方程 , 
则 核 上 ts) 为 一 个 台 X 天 瞄 阵 。 方 穆 (18. 2. 4? 也 应 看 成 为 一 个 向 量 方程 .对 每 个 我 们 必须 
利用 高 斯 消 元 法 求解 思 Xz 线性 代数 方程 组 。 

下 面 的 voltra 方程 实 现 了 该 算法 要求 波 者 提供 一 个 返回 在 点 上 向 量 gtr) 的 第 天 个 上 
数 的 外 部 函数 ;以 及 - 个 返回 矩阵 开 人 ts 在 人) 处 的 导轨 元 素 的 外 部 函数 .然后 ,voltra 各 
序 返 回答 则 步 攻 点 去 的 向 量 六 。 


共 jnelude ”nrut], h" 


(1 一 问 Ka) 廊 4| 到 KEr 户 十 定 RH 十 ON 


void vo:tratfinr ny int my， foai 10，float h，float >xty loat < 关 T， 
jloat (#R)Ginty noaD fioat (sak)y(inty inty floar、 float)) 
骨 扩 展 宰 形 法 汶 解 m 个 第 一 类 线性 沃 朱 泰 拉 方 程 组 .作为 输入 :10 基 积分 的 起 始点 ,nm 一 ] 蚌 长 为 ha 的 步 数 ,8fkD 扑 


用 只 提 斌 的 返 辐 各 人 0 的 外 韶 力 教 ,而 三 tk,lts 由 是 一 个 出 骨 户 提供 的 蔓 辣 旧 阵 天 人 人 的 (4 的 元 素 的 外 部 允 
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数 谍 积 分 的 各 返 加 革 3 mn 林 认 的 权 总 合生 写 L. 


void lubksbtfloat ea，int na，int *indz。ftloat b[])， 
Voltd luacatptflLoat wa jnt 2，1nt iondx，Ioat *d] i 
ipt 空 ,j,X,1,+inadx: 
节 i9at 出 ,30 二 书 ，* 虽 ; 


jmdxsiVvectcr(1, 王 ) ; 
生 ~Dmat 工 iXK 了 mm， 项 ) 
b=vector(I,m) 1; 
t[i]=tOi; 


for (Kx=<1;x<= 如 ;MK++y 二 [kx] [1]=(3g)tk.zTl]); 初始 上 隋 信 
for (ie=2;i<aa;i++) 二 取 步 长 h 
t[ijst[i-1]+b; 
for 《kz=1;Kc<em:X+t) { 
name tw 区》(K it[i]) 将 线性 方程 的 右 冉 项 
for 《1a1;ic<saai1++) 萎 累加 到 sum 中 
But +e“ 六 ,59h+feak)(xt,triy,zrt)sgy[Llfl]; 
for (jz=2;j<ii;j++) 
SU + 一 下 s{akyKk, tri]vtrj]>seEFflrj]i 
afk] [1]=(kx < 1)-0.5#hx(swak)(x,lit[ijvrfil); 左 册 项 放 芭 短 阵 5 中 
b[k]n=sum; 
ludcmp(a,a,indz, 业 d] ; 解 线 忻 方程 


1ubkegb(a am,indx,b); 

Xor 【KmI; 区 Ce=;X+4)》 工 [k]rij=b[x]， 
} 
Tree_Vecrorfb,1, 亚 ): 
了 ree_matrixta vd,m,1, 节 ) ; 
Ttrae_ivector(iadr,1l, 由 ) ; 


对 十 非 线性 沃 尔 秦 拉 方程 ,方程 (18. 2. 4) 仍 然 成 立 ,但 乘积 扩 , 访 要 灾 为 天 (天 ， 直 末 
个 乘积 K 和 7 也 向 类 似 变 化 :内 楂 对 每 个 ;我 们 都 已 知 右 端 项 来 求 非 线 性 方程 各 解 /如 
采 步 长 个 太 人 的 话 , 吐 采用 具有 万 -的 初始 猜测 值 的 牛 琐 法 (第 9. 4 节 或 第 9. 6 节 ) .其 店内 通 
常 很 好 。 

我 们 认为 ` 册 高 阶 方法 解 沃 尔 泰 拉 方 程 ,不 如 用 高 到 方 法 解 弗 韦 德 宜 婚 方 程 那样 生 理 . 
岂 为 沃 尔 泰 拉 方 程 上 对 易 解 .不 过 和 这 个 课题 有 关 的 文献 却 很 多 , 随 之 也 产生 耻 - -此 国 淮 
首先 ,当初 始 儿 点 的 值 未 知 时 ,任何 通过 同时 在 几 个 积分 点 运算 来 获取 高 阶 的 廊 安 、 扼 吕 此 
采用 一 个 特别 的 方法 来 开始 。 

其 次 ,稳定 积分 法 则 会 使 积分 方程 产 牛 意外 的 不 稳定 性 ,例如 ,假定 我 们 柜 几 名 下 和 法 
则 来 代 苇 上 述 算法 中 的 樟 形 法 , 辛 卜 生 法 折 然 业 对 长 为 26 的 间 陋 作 积分 ,因此 我 行 很 容 易 
得 到 偶 网 格 点 上 的 吸 数值 ,对 于 奇 网 格 点 ,我们 可 以 附加 用 一 次 樟 形 法 .但 应 谅 杂 调 程 从 的 
也 一 端 呢 ? 我 们 可 以 先 用 梯形 法 先 做 一 步 , 青 用 辛 卜 生 法 ;也 可 以 先 用 辛 仆 后 法 ,最 后 .上 悄 再 
用 梯形 法 .奇怪 的 是 ,前 者 不 稳定 ,而 后 者 稳定 ， 

和 上 文 给 沉 的 梯形 法 可 以 一 息 使 用 的 - -个 简单 方法 是 理 查 得 木 外 推 法 :用 频 长 户 入 
?水解 。 然 后 ,假定 误差 的 量 为 ,计算 


oa 一 7 
六 一 ML 一人 :8 


5 
这 个 方法 也 适用 干 龙 贝 格 积分 。 
日 前 普遍 认为 ,高 阶 方法 中 最 好 的 是 迅 块 法 ( 见 站 0. 另 一 个 重要 的 课题 是 . 灾 寺 人 法 





的 应 沐 ,这 帮 玉 或 池 有 类 峰 变化 寻 更 有 效 : 杰 稍 氏 法 比 徽 分 方程 中 相 订 的 方法 鉴 贫 休 的 黎 ， 
建议 读 痛 人 参 关 文献 [1.2] 做 进步 的 讨论 。 

读 痢 记 必 坊 主 意 彼 积 国 烙 的 疝 履 作 : 如 果 有 奇 只 性 . 著 么 参考 第 18. 3 节 可 以 成 和 到: 些 水 
方法 ， 
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18.3 具有 奇异 核 的 积分 方程 


许多 积分 过程 ,或 核 或 解 或 核 与 解 都 有 坷 将 全 如果 忽 上 略 六 些 咎 异 生 ,部 么 隧 币 鸭 各 分 法 人 计 六 有 各 
诞 号 相关 : 如 人 铅 最 好 由 处 坦 疝 并 性 ,有 附和 需 娄 一定 时 技巧 - 

兹 们 上 一 些 简单 的 建议 于 这 : 

1. 可 积 奇 异 点 常常 可 以 通 洁 释 基 攻 换 溢 除 运 。 例如 在 s 一 

一 5 让 除 技 。 注 意 , 我 休假 姨 疗 时 性 限 籼 在 天 而 全 测 的 攻 
“ 刘 证 ?的 正 证 这 个 革 积 ,地 想 情 缘 个 , 必 有 天 引 是 胰 站 的 吉 异性 后 . 让 六 数 惧 求 甬 香 来 用 适当 的 方法 涉 
而 , 奇 半 纺 芝 党 并 不 让 生 奇 异 舱 t3 5 富 训 , 灿 闪 外 外 核 Na 一 -个 全 等 鼻 了 了 

2. 如 果 下 (5) 阴 合 通 为 记 居 人 9 革 机 254 慌 码 异 的 ,看 天 6 你 其 光 请 的 , 那 乞 皮 e 为 权臣 茹 
的 商 攻 积分 法 般 果 很 好 ,其 至 妆 耸 解 近 向 成 守 寺 , 收 总 性 常常 也 会 履 进 很 区- 冰 要 艇 的 :只 芷 将 fed2 促 路 
中 的 gaales 压 号 “个 积分 程 章 米 全 入 基 本 :第 1.5 节 介绍 子 刀 可 构 进 这 栏 的 祝 分 :或 考 也 可 必 在 处 洪 公 葵 
文 拔 [2_ 中 查找 列 碟 点 的 模 堂 松 利 入 .当然 ,及 必须 用 天 米 替 杭 . 

该 方法 是 乘积 奈 斯 特 姆 (Ngstrom) 法 别 “了 件 特区 情形 ,乘积 东 斯 特 媒 法 拓 炎 中 分 角 册 个 同 钉 皮 师 
号 5 和 sz 的 奇异 项 pt): 并 为 成 高 斯 种 分 构造 了 全 远 的 权 ， :上 股 些 有 形 的 计算 相当 复杂 .村 电 褒 不仅 化 再 
中 的 达到 , 商 卫 访 囊 于 6 的 彤 式 。 

我 们 较 育 收 几 均 3j 网 格 虚 来 襟 现役 怀 态 斯 特 姆 法. 采 肌 把 对 任意 权 晒 数 适 漂 的 护 醋 率直 生 328 二 ( 记 
了 吾 经 5? 进行 推广 后 得 划 的 积分 太 案 。 我 们 在 下 站 过 论 该 方法 。 

3. 电 核 丰 严 格 但 却 “ 寺 平公 异 时 ,，… 些 特 蛛 的 积分 公式 吉 很 奇 出 。 简 如 , 半 核 案 中 在 7 一 5 隐 近 ,其 空 站 
范 竺 和 撑 近 小 于 租 7 的 变化 荡 志 ,在 这 种 情形 卜 , 税 公公 坟 开 以 遂 计 过 算 核 天 全 在 梳 格 点 的 最 间 
扼 , 并 利 则 多 殴 去 或 样 条 对 F5 的 局 部 近 尘 米 柴 取 .- 在 冯 种 左 案 下 , 核 的 率 宽 度 变 下 有 刘 卫 . 而 不 成 为 系 
诅 : 当 核 的 宽度 为 零 时 ,和 分 灾 为 精 折 僻 。 

4. 无 限 区 惰 的 入 分 证 是 奇异 御 的 一 神 书 式 - 在 很 大 的 在 泣 让 处 将 区 或 项 蒜 尺 该 是 不 得 二 的 作 深 : 划 束 
核 很 伏 耻 葛 于 尖 , 耶 么 高 斯 革 计 德 Laar~ expI 一 as 或 商 斯 -或 入 类 特 [ ap5 呈 门 下 分 附和 流 暴 送 流 要 

好 : 闪 民 曙 数 通常 采 用 变换 
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随 这 天 0 的 <: 晓 主 和 在 浊 性 可 通 中 二 搞 











它 糙 8 全 人 上 觅 天 人 > 1 这样 就 可 以 弄 高 处 - 勒 计 答 下 分 -其 中 ore 方 -二 调整 前 常 鉴 ,出 求 区 
二 收 级 必 ， 

二 实际 度 册 中 大 全 省 党 是 阁 村 章 线 有 坷 兵 洁 -这 时 大 医科 姆 访 定 全 在 适时 了 .中方 核 页 辣 ，， 
外 得 记 符 寺前。 而 奇异 竹 减 法 可 虑 是 一 公社 孝 的 方法 
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二 
| 和) 宝宝 


上 IE tx 一 KG ,可 以 解析 式 数 共计 站 求 央 : 开 在 生 果 右 旗 第 :天 是 桔 措 的 , 末 么 ,我 和 晤 天 让 生计 
谣 特 婿 法 .不 癌 二 方 定 人 8.1. 和 : 找 们 得到 





油 
丰 款 . 昨 了 we 三 汪 汉 人 六 好 | 
1 
村 
有 时 .在 核 完 全 正 叶 尝 之 前 减法 让 租 要 而 复 多 六 , 详 见 13: 《我们 认为 , 冰 诬 下 有 不 隔 的 去 寺 直 让 规 让 入 


奇异 竹 的 文献 也 许 会 号 寻 些 、， 
18. 3.1 具有 任意 权 的 均 邹 网 格 上 的 积分 


一 般 说 交 . 可 以 找到 呈 点 线性 积分 法 则 . 亡 能 使 下 数 疡 闪 1? 冬 以 | mr 对 
2 上 的 积分 :过 他 为 权 苹 以 隶 获 六 本 的 见 个 污 可 委 划 间 瑟 和 和、 必 如 限 汪 一 看 
导 这 和 各 分:… 则 的 - 舱 记 案 直 .与 出 流 拉 分 法 精 硝 成 立时 ,对 吨 数 了 fa)- We rssr 上 下 满 生化 


个 线 慌 广 种 , 亢 千 和解 沪 填 丰 穆 求 出 系数 -假定 己 吉 权 症 臣 让 中 和 公 放 二 的 姑 





由 ,三 襄 | Po es 和 


那么 ,我 们 可 以 鲜 析 地 和 站 问题 得 到 劣 并 的 解决 : 若 5( 通 常 也 会 斌 音 )5 和 六 在 比例 , 则 和 悟 时 了 下 起 米 遍 
和 上 的 吗 度 相同 - 
生 四 点 情况 下 ,实现 交流 想 法 可 给 出 结 
| coyenaz 二 


语 FCNDT 一 让 全 一 2 全 一 3201 一 (38 13 十 WA 十 3 一 2 
十 二 六 十 上 和 下 一 帮 玫 2 人 二 3 有 3 1 十 全 且 一 (下 -5 0 
了 /0 一 2 二 3 3 好 二 


天 [ 戎 十 3 其 并 一 下 人 一 [二 2 和 3 和 十 人 这 十 2 人 一 3 全 二 1 -全 


cs | 一 


虽然 括 导 中 的 项 去 下 上 和 关 的 尺 汪 委 但 实 挫 上 QOS 向 OUt 汐 被 消去 上 。 

ta 的 各 棉 不 同 的 送 法 ,使 得 疗 积 1148.3, 5 有 多 圳 特殊 化 形式 . 较 肥 显 拘 选 流放 o 让 二 ， 汪 。 
在 此 情形 下 :我 们 得 到 - -个 出 基 卜 牛 il 上 坟 程 (和 . 5)) 推 一 产生 鸭 因 是 积分 法 .下 实 于, 褒 刘 可 六 浊 
这 佣 me(r 一 1 来 梳 复 这 个 特殊 情形 ， 人 15. 3.4) 变 破 


Rs 一 [3 3. 3.61 


4 1 





方程 (18. 3, 5 中 六 括 总 里 四 项 的 竺 臣 都 变 香 吉大 天天 大 程 生 43. 5 实际 上 上 变 为 
发 由 一 了 > 此 
| (zetr 一 深 Feh 一 号 天 认 十 1 3 咎 7 半 十 2) 一 -CC 一 


起 回 则 “ 般 的 记 5) 的 情形 ,vs 利 二 的 对外 一 些 过 站 字 很 有 用 :例如 , 找 们 开 能 想 坚 (5 此 床 次 
CR 二 1 催 ,[ 天 十 3- 太 ) 或 1 十 2 开关 一 4 读 ) ,其 费 我 六 构 造 -个 其 积分 区间 数 不 是 5 的 倍数 汐 扩 诬 法 、 那 翁 
精 上 度 就 不 会 有 影响 :积分 将 用 区 个 俏 FRR 7 3 3) 夹 估 让 , 珊 栖 用 的 是 将 关 - 六 选取 关 人 大 -1 
ee 这 样 就 条 用 四 瘟 过 米 六 集 由 在 一个 单一 区 性 和 的 和 分. 当 这 上 毕 权 被 纳入 一 个 扩展 下 从 渤 导 ， 守 
站 共计 了 只 有 光滑 系 莹 氏 积 分 党 所 ,如 泊 有 象 立 让 生 法 中 拷 详 进行 2.4.2 ,42 提交 换 - 当 壮 ， 
WE Li 时 ?3 鸭 纵 展 过 的 苇 乒 :也许 据 在 抽 复 六 下 这 些 和 内容,) 
所 及 瞧 让 册 都 天 扩展 闫 下 年 污 喇 阶 , 好 Ar 为 精 全 的 次 和 多项式 :如 来 起 用 低 阶 流量， 下 可 六 时 属 
地 有 得 ， :已 全 往生 








站 Craeodas 二 FL TD 2 (一 
全 [2 CUI, 487 
1 2 一 2 [KR 一 12 一 1 二 有] 
这 宣 省 单 竺 吻 的 情 风 是 取 二 0 =]. 则 


[2 4 1 





7 出 已 下 二 清太 总 机 
0 二 ，12A) 十 才 业 了) 人 


问 总 对 于 排 常 敬 的 科 岳 获 宫 人) 方 笠 (18.3 8 央 撞 出 了 一 全 比 革 二 年 代 路 的 法 央 . 四 性 党 获 首 情 它 县 
沁 生 种 志 对 称 邢 竺 ， 会 车 华 们 党 来 很 大 的 广 随 ， 
商谈 公式 亦 简 昔 地 安 考 


| 








顶 CT 一 全 (1.113 


下面 的 程序 wwghts 是 利用 上 上 法 会 式 但 划 的 , 它 返 四 在 积 耸 区 闻 (e: 人 LN 一 FF 的 .个 扩 懂 风 
只 所 积分 法 。 输 入 到 wwghts 小 的 下 一 个 内 用 户 提 供 的 种 序 Kermom', 调 出 它 可 东 得 ztr3 的 弄 阵 的 最 初 河 
个 相 定 积分 皇 . 串 


， 
严 ，TYv) -=: | Ce 现 一 103 人 


了 限 任 癌 , 可 以 根据 赴 槛 迁 取 .7 下 厅 注 总 , 当 Nsd 时 , 馆 用 wwghts 会 丘 加 个 出 误 卜 生 法 祭 阶 的 法 唤 、 
谍 少 霸 该 适当 地 组 织 抽 是 以 避免 浅 梢 形 的 出 坟 ， 
vb 讨 到 NBhts(Hoan WPBhts - DaL sfloat hb， void (xs kerinont)faeoubl: [二 ，double, int)) 
ED 1 构造 子 司 数 站 了 以 0 刘 5n 一 1ih 的 m 点 等 区 间 得 分 的 权重 已 在 意 个 (可 能 前 并 ) 权 国 数 二 ee : 汐 扔 
和 23 国生 证 积分 币 Fa 1 基 册 卢 扣 供 的 Kermom 香 入 中 获 束 、 


int ji 
aonble wold[5] ,snevf[5- ,vE5] ,hb,hi,c,fac,aib; 
戎 恒 交 雾 处 为 单 精 底 ， 内 部 计算 也 采用 双 和 精度 


hh=hb; 
hiel-0rhhi 
for 《和 护 1;j<=n;j++》 ogghta[jjso.0; 堆 化 权重 以 便民 加 它们 
《sermmom) (wold 0.O,4) 1 在 低 端 估计 不 定 积分 
if (na >= 4) 1 用 尽 可 能 高 的 阶 . 
he=0.0; 对 另 一 个 问题 ， 可 能 要 改变 该 下 限 
for 〈j=1;j<=p-3;y+y+) 蕊 
ji 存 方 程 4138.3.5) 中 这 称 为 大 
anbi 对 屿 步 置 上 限 和 下 良 
b=a+hbi 
证 〔j = ma-3)》 b=《(n-1)ehmb; 最 后 一 个 区 间 ， 到 结 寻 完全 - 致 
〔ekarmam) (wanew,b,4); 
or 〔face1 ,0 ,Kml ;区 <= 皮 ;KK++。 了 Chbi)》 方程 (18.3.4， 
w[x]=fesrmegfx?-voldEx])z 丰 aci 
VEhts[j] +=<【《 方 称 :18.3. 5 


(fc+t.0)*(c+2-0)fc+r3-0)wuT[I] 

-{L1.04+c3(12.04+c93.0))*zw[2] 

+3.0n[c+2.0)99[3] -v[4])A6.0); 
wght8g[j+i] +=【 

[-c9 (cs2.Dywge+3.0O)ww[i] 

7(S,0rcef10,04cr3.0))wvf2] 

-~(《3.0wc+5.C)mw[3]+v[4])*0.5): 


0570， 





gbhte[j+2] + 【 
《cafc+1,0;skc+3.0)ea[1] 
-(3.0D+cwfB.0+c*3,D) )aw[2] 
+(3.0mC4 和 .De 相 [3] -VE4] JO.5); 

wEghta[j+3] + 【 
f-cewfc+i-Dywtc+2.D)weT[i] 
妇 2 -04 三 .个 +Ce 术 站) ) 首 [2 
-3.0#(c+1.0)saf3]dw[4a]776.D) 1 


for 〈k=1l ;多 <=4j 和 4+) WOld[k]=wnew[k]i 重 名 和 矩 的 下 生 
了 
}alse 许 介 亚 3)《 低 阶 情形 ， 不 推荐 
《GThO 中 )【《WDSW hhtbh,) ; 
fl]=wnevw[1] -vcld[1]， 


wf[2] =his(waevT2] -vold[2]); 
Vf3]=hisbhis+(waev[3]-wold[31)1 
3ghts[1j=w[1]-1.5*w[2)+0.54w[3] ; 
gbhta[2]=<2.0tv[2]-~v[3] ; 
VEhta[3]<0-5efw[3] -w[2]); 
] elme if ta = 2》 1{ 
(*karaoay(wnewv hb,2) 1; 
wphts [1]=uaew[t]-votdf1-(aghts[2]=hiwfwnesf2]-wold[2]]]; 


埋 在 我 们 冶 出 - -个 如 何 岂 用 wwghts 来 秤 碍 绰 积 分 广 作 机 琶 季 ， 
18.3.2 实例 : 对 角 奇 异 核 
作为 -- 个 特殊 例 于, 改 虑 积分 方 入 


1 上 ， KJ 一 sinzr 《3 
丘 兵 有 -个 (他 总 逃生 ) 根 玲 处 下 的 核 
[in 3 人 
天 (3 一 COsrCDsY 冯 二 人 
LVY 了 了 之 了 


对 角 线 在 栅 出 现 对 数 站 异性 , 阿 时 在 在 英 甩 平 方 根 不 连 姜 . 
第 .- 纱 ( 该 情形 下 用 铸 二 法 ) 是 对 核 的 奇异 部 分 类 必需 的 识 分 利 : 妊 方 竹 (18.3. 127。 由 上 在 个 其 守 
湘 工 求 这 些 识 分 ,因此 我 们 可 选 工 作为 下 限 . 对 任意 确定 的 y 值 , 则 需要 求 的 不 定 积分 此 是 


全 训 人 末 总 | 人 上 rdTDeeecde 藉 9 和 > CR. 3.15 
或 十 
Fatgit 一 | ln oa er- orind 苦 yv 5 6 
证 证 昌 


【上 共 中 第 二 个 等 式 中 的 变 划 在 得 种 情形 上 部 有 变化 ,为 了 用 解 本 法 求 这 些 积分 [实际 于 :我 们 用 三 各 符 
导 祝 分 蚀 虽 :我 们 将 这 些 会 碟 公 趟 部 组 装 在 下 述 各 人 序 中 -注意 wty 一 [返回 辣 Cixl。 


对 Include <math. -> 
exTern doubtc xi ， 在 nadmx 喇 定 区 


Yoid kermomtdouhble w[4 double y、int mm 
YL 下 扳 辐 用 翅 的 奇异 部 分 站 一行 中 前 交 个 不 年 和 分 好 (本 例 中 ,m 具 主 取 为 :输入 杰 贰 :下 记 关 ,让 全 导 迹 


车 x 汶 行 . 找 站 可 糙 x 户 为 积分 的 下 限 . 引 而 统 谷 本 战区 守 全 返 问 杀 对 前 线 左 便 , 或 者 定 公 返回 往 对 角 统 3 全 
人 
donible ddf ,c1Log,x2,XS，XL 72; 
if 《Y > 工 ) 荆 
dy 一 艾 ; 
dfm2.DeS5qTtCdJ4di 


7 





了 [1]J=dfz 和 .Di 

vit2]jmdfrfxr3.0tdA5 0) 1 

zf{3J=afeftkxzr3.0 + D,4sdyex + dadA7.DD); 

[4] mttfatttzr30 + 0.6ed)aX + 3.0sd3dA7 )wX+dedsdrS Di 

] elae 工 

入 3m 【2m 和 入 》 中 及 和 

工作 王 工 人 本 工 2 

y2=y47; 

dx- 了 

和 [1] =de[(c1ogm1og(d))-I.0) ; 

ur[2] = -D.25+(3.0?x+y-2.0wclogy(x+y))#di 

闻 [3] 中 一 11 .D 池 K3+yw【( 石 .Dw247 本 【3 了 . 口 基 42 .04y》)》 
+6-04C150g9Kx3- 了 wy2)》7I8.0i 

WE4]=【(-25 ,09I4H7Y (12.O4x34 多 本 [6 中 X2+7 中 
(4 -DewI+3 .Ory))7+12.0wC1LOE(X4 一 (YY24y2)])]748.D; 


了 
了 
第 此 ,“ 们 罕 个 构 适 积 分 和 下 申 全 得 序 。 


.> 
Delude raranil 7” 
3 14159205 





二 include “ 
te 
douple xf; 


Kecmam 舍 沪 递 的 戎 星 


watd Gusdrmxkfiout * *ayintcn) 


不 :air 的 格 阁 “个 以 筑 “ 疾 柴 人生 巷 自 多 积分 记 限 为 何 鸭 亦 分 算计 
私人 外 核 的 匠 异 韶 分 的 具 分 入 通过 讽 用 wwehrs 二 到 。 提 企 垃 柯 旦 疯 分 六 不 于 和 分 


询 wwghts 局 


void kermortCdouple 风 - :double iatry 
void 丈 wRhrsrfloat wahtes Lon Doant h、 

veid (=kormonmlrcdeuble [ 、doupbley int yy 
imt kk 
人 ny xWtIXXSCXE 


本 (二 vectGrl 07 

hbPlyce- ]); 

fr 人 一 Dis 十) 
X 一 XX 一 (]， 1)shs 
wwRghts(wtwnhyketrnumy》 
CX 一 CORTXX DY 





这 





foy 以 一 和 ks 一 nik 一 [DIE 一 瑟 UKR exa cost 人 bi 杷 核 的 不 有 部 分 斯 写 
“一 并 [1: 第， 英 记 和, 利 下 区 舌 的 对 角 部 分 


tree vecetorfgwtyl rn) 


最 晤 '- 步 :对 在 意 右 请 解 线 作 方 保 引 。 


和 此 公 山 since 求解 





3191jn. > 
Jirelode -math hb 


Daclude “= 











jcejude "nrutil hy 
:fine 站 3 141139263 
icejine N 410 


这 星 加 格 汐 六 小 过 攀 忆 的 





jeehsx = 


样 刚 藉 如 区 其 拷 过; 利于 绊 串 交 门 往生 









-个 污 定 条 合 访 撤 


该 亚 让 让 算 了 核 的 长 次 居 潍 作 
扎 靶 的 惠 站 部 得 


.让 


erraorn 逢 上 直 


网 宇 司 鉴 攻 代 keronen: 时 


甘 信 如 枚 部 


郭 分 














人 河和 十 


个 积分 





站 


volc iubksbiiloast = ainrnayinr <inds， fosatb ys 
Yo ludesmnb 引 oaf 2 as intrsir: windx jloat cd 
void WuadDxtiloat 二 xi intTD li 

osn > 站 = Xi 

in1 > indx.]i 


indxy 一 irectnrtl NT: 
和 一 BUTIxX(l AN 1 AN ): 
g 一 vonrftl NI 
中 uadliuxtetvND): 
ludermhteyNsindx 改 cy 
for fj 一 1 一 Nm 十 AT siod 113 PN 
lubksbta, Nindx.g); 
[or 一 1] 人 
xj 一 1xzPIIN 1); 
ErimtfC? 上 太 .24 3 上 2 6E 吧 12 Do jxsg[i); 


冲 阵 ;所 市 择 征 想 丰 生 








frece veetnrtg ,lv Ni 
ltee rnalrixfasiN lvN)I 
[ree ivectorgindx .1 ,NA 
fetuorn 0 





当 40 时 ,该 程序 络 首 的 精度 约 在 ]2“ 量 线 - 攻 管 直 虐 奇 虹 在 核 . 精 及 增加 的 速 虚 为 六 站 汪 站 三 
积分 方案 也 说 如 此 ? ,图 18, 3,1 蜡 未 “ 求 出 的 解 . 习 时 也 曾 由 ”和 值 绞 小 的 解 , 可 以 看 出 :这 些 解 狙 扫 可 读 - 
庶 计 遍 到 ,尽管 核 贾 通常 情形 下 是 帝 姑 符 .但 赂 刊 扫 是 光 淆 的 。 












| 1 1 
吕 RN FE 


了 CGI) 











巧 线 各局 克 





:本 中 ,这 民 将 小 六 霄 的 鲜 作 内 靖 位 得 习 





二 档 大 小 分 唱 册 六 一 162240 钙 的 诬 收 抽 授 这 1 


| 竹 -31 关 分 方程 范 全 018. 3 .13 的 名 
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18.4 反 演 问题 与 先 验 信 息 的 利用 


应 有 一 本 数学 上 的 基本 性 质 会 使 得 后 商 的 让 f 论 很 方便 .人 根 定 u 其 个 "未 知 ? 园 星 , 拉 们 机 

通 季 一 些 最 小 化 活 则 来 确定 它 . 令 -4 有 : 徐 u0 为 由 的 两 个 止 值 荔 教 , 叫 商 以 征订 

或 合 -iu] 最 ， 朴 或 使 党 -] 最 小 (18 11 

来 设法 确定 up 然 , 这 些 方 法 通常 会 确定 册 不 辐 的 a 了 仁 ,) 另 -种 可 能 是 , 霸 定 我 们 极 完 性 
别 冯 限制 :用 [uj] 的 取 值 , 比 好 疡 ,然后 合 [2 最 小 。 拉 格 良 日 乘 子 法 给 出 变 分 

站; 


其 中 % 为 搁 格 朗 日 配子。 注 癌 第 一 个 宰 式 中 没 痛 思 因 为 它 和 u 无 闫 、 
接着 ,能 定 我 们 改变 主意 ,限制 :Tu 卡特 草 什 “使 - 儿 Luj 最 小 ,与 方程 118,. 4. 2 不 司 、 
我 们 得 到 


fu > AN 人 (5[ 上 时 有 = 部 Cs 一 4 个) 一 〔(]3.4.2) 


区 5[o 十 AL7z[u_ 一 4)} 吕 (55[u] 中 - 罗 [3 ) 一 0 (8 .4.5 


这 里 .为 拉 糙 朗 日 习 子 。 方 程 (18.4 3) 乘 以 常数 1 并 会 1 等 于 力 , 我 代 发 现 这 两 种 情 
撒 滤 的 变 分 实际 下 基 完 全 一 样 的 ,它们 都 满 忠 朵 样 的 和 如 au 3 烙 从 ? 
变 列 一 时 :aa 泊 着 一 条 所 的 交替 换 位 曲线 .在 使 ,:* 晨 小 和 使 : 季 最 小 之 疝 变 化 . 沪 昌 线 
于 的 任何 解 孝 可 以 看 作 : 战 人 限制 - 志 的 肾 直 :使 最 小 ;或 Ci 限制 . 芝 的 取得 .使 , 郑 呈 
小 3 或 人 说 司 .十 14. 污 在 权 次 义 上 最 小 - 

第 二 个 基本 忆 与 退化 的 最 小 化 法 则 有 关 。 在 二 | 假定 贡 在 .2-u] 特 别 地 彼 为 

ui 一 ,入 一 (18 1 

其 中 从 为 纯 阵 ,ee 为 可 量 . 若 研 的 行 小 于 列 ,或 太 十 册 机 本 汪汪 -个 非 普 通 的 
索 空 闻 , 见 第 2.6 季 , 桂 别 是 图 2.6. 1) :再 使 .Lo 最 小 也 不 能 得 到 um 的 唯一 解 。( 要 知 为 什 
么 :请 复习 第 15. 4 节 , 注 意 ,对 士 行 小 上 列 的 一 个 "设计 揭 阵 ?4 ,正规 方程 (15. 4. 10) 叶 的 拓 
孜 : ,和 是 退化 的 )- 得 是 ,如 果 我 们 给 - 郑 训 名 上 4 与 :个 非 退 化 二 次 型 : 瑟 -o] 的 乘机 , 比 
如 于 Hu, 共 中 里 为 一 确定 的 正 值 甜 阵 . 则 使 -学 [u- 十 入 好 [四 最 小 ,将 得 列 虽 的 唯 -- 解 ,了 丙 

一 次 型 的 利 仍 是 一 个 二 次 型 ,第 二 部 分 保证 非 退 化 性 ) 。 

综 台 以 上 两 个 点 ,我 们 可 以 得 到 这 样 的 结论 。“: 个 二 个 次 最 小 化 法 则 加 一 个 一 沁 弄 限 
制 , 号 叮 个 部 取 正 值 时 ,只 要 其 中 之 一 非 退 化 就 能 使 整个 问题 的 处 于 尼 态 , 规 在 夭 们 可 以 著 
于 第 具 反 演 问 题 了 ， 


18.4.1 零 阶 正 则 化 反 演 问题 


候 定 x(7) 是 “ 些 未 知 的 或 基本 必 物 理 过 程 ,( 林 知 的 和 基本 都 由 v” 代 友 1 我 们 若 良 通 
ee “六 能 确定 。xtz) 和 er 之 阵 的 关系 是 ,每 个 cf 通过 它 自己 的 线 洁 
中 应 纺 六 来 测定 xf 在 某 一 方面 的 性 质 .希望 位 些 性 质 载 器 不 同 ) ,其 测量 误 关 为 六 坎 放 


Ts 


和 | 人 FECDOcLr 3 


(比较 二 过 可 谨 太 1 3 工 但 15. 和 2》 在 线 于 痕 民 和 锡 范 轩 风 .这 基 个 相当 一般 的 会 产 可 志 
近 仍 地 表示 we 在 凌 些 优 吕 二 开光 全 这 时 天 6 下 将 肌 有 集中 在 :一 坟 附近 五 容 二 各 守 
的 响 度 的 彤 式 . 或 善 . co 可 以 " 作 ?> 让 下 位 站 证 和 二 辐 鸭 遇 数 宝 间 刺 . 俐 杂音 站 在 
同 的 傅 嘻 叶 分 基 。 

反 演 问题 处 是 :区 定 避 和 于 :也 评 迁 对 民 头 日 些 入 总 :例如 它们 和 将 协 方 市 孟 、 

OP 六 上 1 四 

0 

非常 明显 ,这 是 个 病态 问题 .但 无 论 旭 们 , 生 们 旭 何 能 够 根据 有 限 个 离散 值 ， 炎 和 拒 诗 烃 
站 
测 莽 "足够 多 的 点 ”, 然 乒 " 这 它们 区 条 线 ”, 这 伴 做 时 .我 们 总 杰作 一 些 假 定 ,或 是 关于 弃 民 执 
Mt) 的 性 夺 , 或 是 关 于 啊 度 函 数 六 6 的 性 夸 , 蕊 旺 者 此 有 。 我 们 现在 匆 月 的 足 . 糙 这 些 候 
完 公 式 化 ,并 将 我 们 侠 究 工作 有 最 天 限度 地 扩展 划 . 测 星 值 和 基本 后 灼 处 末 完 金 不 全 半 滑 笋 宇 
闻 的 情况 中 到 :( 如 上 怎 样 通过 -此 博 里 中 系数 物 贞 布 来 " 回 茶 曲线 5) 

我 们 并 厅 喜 正 想 得 到 等 个 二 点 的 轩 炎 gc 我 们 只 想得到 邮 个 离散 点 和 9 1 
好 ,其 中 好 充分 天, 忌 xo 充分 均 可 地 分 有 :致使 站 人 或 六 (在 竺 意 .xc 和 22> 癌 的 生化 
都 不 太 .( 此 处 及 下 文 我 们 均 用 希 莉 学 坏 , 例 如 ”， 米 赤 下 基本 外 理 吕 间 中 的 值 , 让 加 罗 宙 


比如 ?来 示 直接 现 察 人 到 的 但 .对 于 + 这 们 稠密 的 个 集合 .我 们 可 用 一 个 各 从 
(， 一 和 Renatrio 十 五 4 
米 代 奉 方 程 (15. 15) 其 中 入 xXM 惠 陆 R 的 分 莉 为 
肛 汪 一 站 人 ratarsl 一 sr72 RN 


《或 任何 其 它 简 单 的 祝 盆 几 哪 种 积分 并 不 重要 ) . 实 乐 应 用 小. 我 们 认为 方程 ,18. 1.5 和 
方程 人 18.1.7 等 价 。 

怎样 从 如 方程 (18.4.7) 这 样 的 方 得 纵 中 解 出 交 知 的 xxzo 呢 ?下 面 航 方法 并 下 好 .但 友 
包含 着 一 些 让 风 岂 想 的 戎 竺 ， 构造 巡 来 聊 量 模 思 2 和 测 基 数据 的 符合 有 度 





论 -立交 [ 一 2 天 Cr Se eieo] 
1 1 
吕 吕 ， 1 全 全 
NA 人 tr 
到 | 2 = 


与 方程 (15.1. 35) 比较 1 这 玉 $ :是 协 方 关 短 阵 的 着 ,如 果林 在 对 角 线 上 的 协 放 其 可 局 名 
ee 
山 在 可 以 用 第 15. 4 节 中 奇异 值 分 解法 CSYTD 来 找 使 方程 (18. 4. 9) 报 水 的 记 玫 本 闻 丰 
要 试 陪 去 用 止 规 方程 的 方法 ,我 们 已 经 讨论 过 .由 地 好比 区 大 ,它们 将 是 奇异 的 . 汉 而 SwD 
过 程 必定 会 找到 很 多 零 奇 措 值 ,表明 解 基 有 很 高 的 不 叭 一 性 ,在 无 穷 多 退化 解 中 (大 部 分 角 
对 仁 意 太 的 xf) 县 有 不 好 的 听 质 ).SVD 会 选 出 “个 在 下 述 意 义 下 的 最 小 下 佑 
2 个 名 小 计 人 


5 


( 见 网 2.6.1) .这 个 艇 前科 为 基本 解 : 亡 是 所 谓 零 阶 正则 化 的 “各 玲 限 傅 形 , 对 地 交 大 较 小 
叶 , 对 丙 个 正 值 焉 数 的 和 取 基 小 让 

使 太一 xceuu) 最 小 [3 
上 面 . 我 们 将 讨论 而 和 柯 求 这 梯 的 最 小 贷 及 -部 酌情 老 ,而 不 特别 及 崩 SYT， 

如 果 用 全 全 非 无 穹 小 的 关 作 ,通过 户 程 (8.4.140 玉 贝 定 u 和 将 会 发 生 什 么 情况 吃 * 若 先 
注意. 如 果 闻 发 交 ( 木 知 量 数 迹 大于 交 各 数 ) 骨 常 有 是 够 的 日 出 度 使 摔 ( 方 程 18.4. 93? 印 使 
不 为 D , 志 会 相当 林 动 实际 的 小 - 咱 第 15.1 节 尘 移 话 米 说 ,自省 度 数 一 六 -好 ( 当 " 很 大 时 
约 等 于 庆 的 期 望 值 ) 可 以 碱 小 到 过 (其 企 无 刘 多, 植 市 范围 ) .但 我 们 乔 道 ,对 土 真 实 的 基础 
冰 数 ,骨干 没有 可 调整 的 参 烙 ,自由 度数 与 等 的 期 能 们 大 约 休 该 满足 > 一 和 。 

境 大 4 会 使 解 远离 最 小 的 情形 ,而 趋向 二 使 wu 最 小 -根据 上 文 对 基本 点 的 讨论 ， 

们 可 以 视 这 种 情形 为 ,限制 六 取 某 个 非 赤 常 值 后 使 u 最 小 .过 实 上 ,一 个 常见 的 取 法 是 
到 满足 六 = 六 的 4 值 , 即 通过 芷 的 合适 取 乱 入 问 题 进一步 王 则 化 : 求 出 的 xc) 称 为 零 玲 正 
则 化 反 演 问题 的 解 . 

N 俯 实 际 寺 代表 所 有 从 均值 为 六, 拷 准 差 为 (022 2 和 的 浙 近 分 布 ?的 高 分 和 中 得 
的 值 .读者 可 分 别 试 坛 4 的 两 个 可 能 值 ,一 个 使 六 -和 十 (2 另 一 个 使 姑 一 和 
《2 

虽然 还 有 更 好 的 方法 :但 裤 人 正 则 化 区 上 映 了 反 演 问题 理论 中 的 经 常用 到 的 太 部 分 蒜 本 
-思想 ,一 般 有 两 个 正 函数 , 称 为 ,和 ,水 。 第 -- 个 王 蚌 数 ,是 测 其 模型 与 数据 [例如 闪 ) 的 
菜 种 一 致 性 ;或 者 是 猫 述 解 和 基本 项 数 问 瞻 射 的 * 鲜 磊 程 度 " 的 相关 量 . 当 .4 本身 取 最 小 值 
巩 ， - 致 性 或 鲜明 性 变 得 很 好 ( 道 常情 依 下 不 可 能 大好 ), 仿 解 变 得 不 稳定 , 府 刘 地 振 葛 ;或 者 
在 另 “方面 极 不 现实 地 芭 喘 了 由 -2 单独 定义 一 个 高 温 化 法 的 最 小 值 可 题 。 

:六 正 古 因 此 才 引 入 的 . 它 是 一 个 检 解 的 "光滑 性 "的 测量 妹 准 ;或 者 有 时 基 一 个 对 应 十 
数据 变动 使 解 的 稳定 性 参数 化 的 相关 其 ,或 者 有 时 是 一 个 反映 解 的 可 能 形式 的 先 验 判 晰 的 
量 , 劳 被 称 为 稳定 化 函数 或 正则 化 算 子 . 不 论 那 种 情形 ,. 冰 取 最 小 值 , 均 会 纵 出 一 个 或 "光滑 
的 ,或 " 档 定 的 ”, 或 "可 能 "的 解 ~ “与 测量 数据 却 弃 不 相关 。 

芭 演 理论 中 唯一 的 中 心思 起 就 是 白 定 

使 .25741453 最 小 《18.4. 123 
其 中 党 所 谓 交 替换 位 曲线 ( 抑 民 18.4. 1) 的 变化 范围 是 0 工 < ce 然后 ,依据 这 栏 或 砷 样 
的 规划 个 在 -个 “最 佳 ” 位 工 , 这 可 以 从 相当 客观 ( 比 杂 策 妇 = 一 N) 变 到 完全 上 观 。 不 阿 购 成 
功 方 法 (我 们 将 讨论 其 中 的 几 种 ?的 区 唱 表 更 在 :os 利 . 专 选 法 的 不 同 ;, 规 定式 (18.4. 124 是 
满足 线性 还 是 非 线 性 方程 当 最 终 值 的 多 种 可 能 的 选择 方法 以 及 应 町 到 计算 机 二 准 交 题 ( 训 
图 像 估 理 ?的 广泛 程 度 的 不 同等 。 

区 蜡 偿 在 于 它们 包 售 的 (或 它们 的 提 舟 者 的 ?在学 岂 想 的 不 同 。 迄 今 为 止 .我 们 直 避 毕 
恒 用 ”3aycsxian ”过 个 词 , 从 束 检 善 下 述 事 实 却 很 难 , 丰 昌 我 们 也 不 起 掩 次, 即 , 花 人 
斯 户 : 或 是 先 验 划 识 : 或 是 先 驻 解 记 关 :而 -sz 则 与 基 些 后 验 知 交 有关, 常数 4 决定 将 一半 
问 “和 微 好 的 协调 关系 。 双 由 色 误 方法 中 "HBsyesiar 的 狠 迹 较 重 . 旺 我 们 认为 这 完全 忌 
造 战 的 : 0 重 方 和 的 实际 解法 不 管 它 的 所 色 含 的 后 学 思想 的 人 ,大 很 难民 作 
Bayesinn 六 中 2 和 方 法 的 。 

六 咖 : 7 讨 们 区 访问 题 的 二 种 不 同 的 方法 .它们 在 不 同 的 握 域 部 有 着 相 尖 或 项 阿 订 二 


KK2 






三 种 方法 都 在 我 们 概括 出 的 “和 豚 怀 架 兴 ,但 每 种 广 法 的 纪 全 和 实施 封 有 很 大 的 放生 . 


可 和 需 到 的 解 


“一 一 4 越 一 到 











开平 所 存 的 反 演 [3 患 的 方法 都 涉及 两 个 最 化 化 之 问 的 “个 变 榨 的 信 ;数据 种 解 之 启用 我 天 发 关 吉 实 各 
利 估算 如 之 区 上 英 射 汐 * 鲜 卜 称 虚 妆 比 处 用 ” 交 有 33 5 全 的 光滑 性 机 熏 定 性 (此 处 司 关 起 于 作 下 二 胡 下 
去 示 所 让 殖 能 的 解 ,那些 似 于 坡 舌 上 上 本 是 浊 , 是 连接 六 受 限 币 时 的 报 冯 但 和 ,次 本 受 限制 时 褒 汪 随和 
解 , 它 科 站 "最 佳 " 约 鲁 . 从 未 种 艳 义 上 遂 , 秆 意 其 立 解 被 护 制 在 全 少 让 一 全 重合 于 曲线 上 
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18.5 线性 正则 化 法 


线性 正则 化 也 称 为 Phillips-Twomey 方法 、 约 束 线性 反 演 方法 二 .正则 化 方法 :或 
Tikhenoy-Millet 正则 化 方法 ,( 巴 可 能 证 有 其 它 叫 法 , 习 为 它 非 常 明 旺 折 号 不 的 条 方 和 ， 
该 方法 最 简单 的 形式 号 专 阶 正则 化 (前 文 方 得 138. 4.1) 的 一 个 直接 指 广 。 和 这 新 诗 - 区 


， Da。 


数 : 取 为 寡 偏 送 , 克 方程 (18.4.9), 但 .次 用 更 复杂 的 从 - 阶 或 高 阶 导 数 导 入 的 度 基 区 洪 
性 的 函数 来 代替 。 

例如 假定 先 验 信息 是 , -个 可 能 的 xz 和 “个 常数 说 有 杰 多 的 不 癌 , 则 一个 暴 直人 
钓 较 合理 的 函数 应 次 嘴 


. 海 民 |crdv 这 (8.1》 


国 为 它 非 负 且 仅 当 ztz) 为 常数 时 才 等 于 零 . 其 中 心 二 rez ,证 则 笋 一 个 等 式 ( 比 例 式 ` 中 假 
定 mo 是 贞 人 分 站 的。 我 们 可 将 鸭 的 第 种 世 式 与 作 

海 一 |B. ui 一 uv (67 B)-ussu' Hu 115. .2》 
拓 由 器 是 以 xm 上 ad 为 分 量 的 向 基 ,B 是 一 个 (型 - 也 X 好 的 第 -- 差 分 生 阵 





一 1 100 9 0 站 0， 
0 一 1105 0 攻 1 0 1 
R 一 : 本 ; (18.5.3) 
0 009 0 一 1 2 0 
[Lo 0o0n0 0 一 : 1j 
开 是 好 X 开 皂 阵 
1 一 1 0 0 0 0 0 Ci 
一 1 2 1 4 请 0 站 
1 2 1 D 0 6 
了 =Br,.B 一 中 《18.5.4) 
0 … 0 0 0 一 1 2 -- 上 0 
0 0 0 0 一 1 2 一 1 
0 0 0 wu 0 0 一 1 1 


注意 的 行 数 比 列 小 1 其 次 ,对 称 的 再 尾 退化 的 ; 它 确实 有 -个 零 特征 值 对 应 着 “个 常数 
珊 数 的 值 ,任意 一 个 常数 皮 数 都 会 使 5 产 格 为 专 。 
和 第 15.4 节 一 样 ,如 果 我 们 记 


iv 天 只 io 上 本 7 全 《18. 35. 35) 
乾 么 ,应 用 方程 (18. 4. 9), 最 小 化 (18. 4. 127 变 为 
使 .oz 二) 一 Abs+ahuv Ha 最 小 《18.6.6) 


这 可 以 容易 地 化 简 成 一 个 线性 正规 方程 组 , 仍 和 第 15.4 节 中 -- 样 : 解 的 分 量 zw 满足 好 个 未 
知 量 的 好 个 方程 ， 
[[ 福 44 Mr 4 pHM 857) 


或 用 向 量 形 式 为 
(AT7 ,和 ATTAH) ua 一 Arvh 《18. 5 8) 

方程 (18. 5.7) 或 (18. 5, 8) 可 用 第 二 章 中 介绍 标准 方法 求解 .例如 到 7 分 解法 .这 时 有 关 
正规 方程 组 为 病态 的 常 惯 注意 事项 已 不 再 适用 ,因为 4 项 的 全 部 目的 是 为 了 消除 这 相同 的 
病态 .但 是 注意 ,由 于 项 没有 选择 一 个 合适 的 常数 值 ,所 以 它 木 身 是 病态 的 .只 能 希望 用 户 
的 数据 能 称 补 这 一 点 ， 

虽然 矩阵 (AAA 二 机 ) 求 邀 通常 并 不 是 求解 u 的 最 好 方法 ,我 们 仍 将 方程 (18. 5.8) 的 
解 先 形式 上 地 写成 

*， 684。 


了 和 jiH” 
计 其 中 播 进 了 形式 上 上 为 AAA 的 恒 等 竺 阵 : 因 为 我 们 赴 亿 将 玫 阵 疝 邀 想 第 性 地 守 鸭 1” 
母 ,而 有 卫 道 条 阵 和 通常 并 林 存 在 ,因此 上 式 其 是 在 丧 式 上 成 立 。 但 是 将 方程 (61 
积 (13. 5 6) 进 行 最 佳 或 维 纳 滤波 .或 者 与 方程 (13. 8. 6) 进行 一 般 的 线性 硕 测 机 比较 .部 会 体 
我 们 受 逢 很 大 的 上 后 发 .可 以 看 出 ,A7 和 和 和 全 的 年 种 相 苛 ,代表 信号 功率 或 自 相 关 性 ! 谭 4 
和 六 所 起 作用 相间 ,代表 吕 音 功率 或 丹 彬 关 性 , 方 种 (18. 5. 9? 折 号 中 的 项 有 些 类 亿 长 侍 束 
波 器 :其 你 用 是 : 当 AT A 足够 大 时 .使 病态 的 让 和 Ab 不 修正 地 通过 ;而 当 AAA 较 小 种 ， 
刚 将 记 了 铸 制 掉 。 

上 述 马 村 下 的 选 法 仅仅 是 一 个 明显 的 导数 序列 中 最 简单 的 情形 .如果 先 圈 信息 中 : 线 
性 函数 ,这 才 是 对 uCx)? 的 很 好 近似 ,由 使 下 式 最 小 


有 | 和 hb 


昌 - 
坊 民 | ep]ave 全， (8 5 10n 
隐 含 着 
民 1 23- 03 0 nm 0 
0 0 0D mm 0 
也 :: | : | 人 
| 四 0 0 1 2 - : 加 
(0 0 他 马 ] 
以 长 
1 -2 工 由 节 电 吕 避 ” 
2 | 1 性 人 0 性- 
1 一 1 6 一 1 1 0 0 总 
吕 [| 一 革 6 于 1 0 昌 
HH 一 Br.B 一 ; 
作 D 1 妆 日 站 1 0 
人 则 1 一 6 一 4 1 
疾 切 由 丰 生 5 权 
0 心 总 昌 0 1 一 过 ] 





土 式 中 的 责 有 两 个 守 特 征 值 , 对 应 于 一 个 线性 丽 数 的 两 个 未 知 确定 参数 。 
如 果 先 验 信 息 是 二 次 函数 会 更 好 , 则 将 使 下 式 最 小 


P 


邮 - 了 
需 cf | [er)]dzo 人 IT 3 
有 1 


可 以 得 到 
二 
的 这 


有 1 站 0 
和 下 站 和 
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1 一 己 3 1 季 记 六 站 全 上 
3 10 -12 四 ] 日 他 间 0 
3 =- 12 ]9 -2:5 上 -1 6 站 用 全 
- 人 6 …]5 20 1 中 1 0 站 必 
0 本 起 避 2. 风 RE 一 15 站 一 外 如 出 
互 一 2 : 
0 6 1 f 15 2n 15 6 1 0 
性 0 一 1 8 一 本 20 一 35 人 一 上 | 
昌 0 中 入 1 6 15 19 一 1 3 
0 8 人 站 1 ] 12 1 3 
全 0 总 长 认 ) 一 1 了 二 图 


癸 呈 3 
(我们 将 三 次 方 及 更 高 次 启 的 计算 留 给 有 兴趣 的 读者 。) 
注意 , 邵 昔 读者 愿意 的 话 , 也 可 下 “向 微分 方程 过 似 ? 的 方法 来 正则 化 ,只 需 令 也 为 几 个 
适当 的 有 限 区 从 算 子 (其 系数 可 以 依 茧 于 ?的 和 ,于 计算 再 =B 8B。 可 以 不 知道 边界 条 件 " 
值 , 内 为 前 西 已 讲 过 ,了 B 的 行 可 以 小 于 列 ,这 样 就 慨 有 希望 用 数据 来 确定 它们 .当然 ,如 果 筷 
道 某 些 迎 界 条 件 , 也 可 将 其 如 入 也 中 。 
对 于 小 本 各 式 中 所 有 的 比例 姓 符 号 ,读者 也 许 不 芭 道 应 该 取 人 为什么 实际 值 间 二 党 行 
试验 ,至少 -个 简单 的 技 对 基 可 以 先 试 试 , 令 
一 Tr(kar ATrgHy (18. 35. 16) 
其 中 Tr 是 矩阵 的 迹 5( 对 角 元 素 之 神 )。 该 选 法 使 最 小 值 的 两 部 分 有 类 似 的 权 . 因 此 就 可 以 以 
这 个 开 始 对 它们 进行 调整 。 
至 于 和 的 “正确 " 值 基 什 么 ,假设 己 知 误 部 ,而 且 有 足够 约 精 度 ，- 个 客观 的 祭 准 便 已 使 
太 ( 即 1A“u 一 pb 等 于 测 基 次 数 .上 文 我们 曾 提 过 两 个 可 以 接受 的 挛 牛 选 法 NE 02) 
-个 主观 的 准则 是 ,根据 对 先 验 信息 的 相对 依赖 程度 , 款 取 在 5 之 ) 拓 se 范围 内 的 作 意 喜 
欢 值 (人 们 实际 上 常常 是 这 翌 敌 的 ,不 能 指责 我 们 )。 


18.5, 1 二 维 问题 和 适 代 方法 


迄今 为 止 ,我 们 的 符号 一 直 大 描述 一 维 问题 的 ,例如 x(zr) 或 xp=akze)。 不 过 ,所 有 的 讨 
论 都 很 容易 比 广 到 估计 一 个 二 维 未 知 量 集 人 台 zwypss1，… .Mr=1 ,大 ,的 问题 , 浏 如 、 
其 中 xm 对 应 于 - 福 测 量 图 像 的 象 素 强度 .在 此 情形 ,我们 要 解 的 仍然 是 方程 (18. 5. 85)， 

在 图 像 处 理 中 ,一 幅 " 席 冶 ? 或 * 受 干扰 ?的 测量 图 像 的 输入 象 素数 ,通常 与 经 过 处 理 后 输 
出 的 "已 知 去 噪声 "前 象 素数 相同 ,因而 怎 阵 R 和 汪 ( 方 程 18.5.5) 都 是 方 阵 , 旦 均 为 好 大 X 
ji 开征 阵 .A - 般 很 大 ,不 能 表示 成 满 阵 , 但 它 通常 或 者 是 (1) 稀 朴 的 .其 系数 将 一 个 肾 象 素 
G 门 变 模 糊 为 全 士 小 变化 , 士 小 变化 ), 或 者 是 (ii 平移 不 变性 hoeow 一 dc- wm 这 耳 
种 情形 都 使 问题 极 容易 处 理 。 

在 求 移 不 蛮 情 玉 , 选 用 快速 博 星 咱 变 换 方法 (FFT) 应 该 基 很 明显 的 。 原 函数 和 测量 值 之 
闻 的 -一 般 线 忻 关 系 ,现在 变 戒 了 类 伏 方 程 (13. 1. 1) 的 : -个 离散 卷 积 ,如 果 用 k 才 示 :- 个 一 维 
访问 量 , 则 一 维 FFT 将 下 述 变 换 对 之 间 相 七 转换 ， 

人 人 一 p、 由 全 (KE) 2 站 ka 站 二 王 (k) 《18.5.17) 
我 们 也 需要 一 个 正则 化 或 光滑 算 子 中 及 由 BB 导 出 的 日 一 8 B。8 的 -个 流行 选 法 是 , 拉 苯 
拉 斯 算 子 的 五 点 有 限 差分 近似 , 即 是 每 点 的 慎 与 它 笛 卡 尔 坐 标 四 个 邻 域 点 的 平均 值 之 差 .在 
"686 。 






址 朵 时 全 问 , 防 深 法 置 哩 疹 
PR nr isjnsfrksz 人 ) 
ER OCT HSin' tr 有 家 
在 傅 甲 中 人 委 加 [大 种 人 8 并 二 个 代数 方 王 ,套利 为 
. 开 ， tk) 
了 (3 APTR) 
其 中 芋 号 表示 复 此 加 ,六 于 实数 据 . 可 利 毕 第 12. 3: 节 中 的 FFT 班 序 . 
规 存 ,过 石 A 不 是 至 入 不 安 的 情形 现在 上 几 接 钴 人 18. 5. 8 是 丰 可算 的 , 因 关 符 阵 大 
太 。 式 们 圳 此 基 仲 夫 代 方 梁 ， 
方法 之 “是 . 完 全 出 第 16.8 节 出 的 共 攻 梯度 法 详 找 .和 一 洲 的 最 小 值 , 见 大 很 和 
6) .年 第 十 齐 前 沂 丰 方法 中 -: 共 恩 境 度 计 人 (7 它 不 用 序 钞 一个 
海 赛 官 阵 ， 0 人 安 必 须 利 用 榜 度 信息 ,而 梯度 我 们 径 穷 田 求 ; 方 
程 (18,.5.6) 的 梯度 是 


> 


cfk) 





1 118) 


TAO AAA 一 Hu Ar bo (18. .20? 
《参看 方程 18.5, 8) .湖区 夭 壤 度 的 洁 算 当 El 清和 0 例外 证 这 入 5. 了 
节 中 的 sprsax 和 sprstx 程序 .在 第 18.7 疙 中, 我们 将 要 在 ( 压 线 此 1 最 大 录 方 法 的 未 吉 下. 壕 
一 步 讨 论 共 辊 樟 度 法 ,其 中 的 一些 讨论 也 适用 于 示 。 

除 苹 弄 阐 度 法 估 . 可 来 币 不 太 复 杂 的 恨 速 下 降 法 ( 殉 第 10.6 节 ) ,有 时 它 也 能 得 到 很 有 将 
的 纱 果 ,特别 此 当 它 号 四 集 投影 联合 起来 使 用 时 很 在 效 ( 庞 下文)。 妇 果 天 次 法 伐 去 的 衣 
ie 衣 坟 ,期 狐 过 有 二， 次 枝 代 , 兹 们 得 浊 

HA 9b :]&. 5.921) 
上 式 中 的 上 是 一 个 这 贞 在 下 陛 滋 度 方 疝 移 动 太 竺 的 参数 - 当 足够 小 时 二 述 方法 乱 作 .本 
是 当 s 满足 





抄 





Eee 人 本 肌 吕 了 和 畦 花 芷 1 六 22 
子 找 s 的 最 佳 值 或 设 住 太刀 有 很 多 复杂 的 方法 , 殉 - 了 ,或 者 也 可 以 采 玫 实 验方 法 , 压 皮 (1 


6. 6) 渤 行 估算 ， 对 你 方法 的 实施 是 洪 下 降 方 同名 ， 
在 图 像 处 厚 测 冲刷 ， 成 荔 与 可 , 林 : 定 程度 是 主观 此 5 例如 “这 幅 曙 看 赣 米 怎么 学 上 民 
此 , 选 代 式 (18.5 21) 有 时 在 运 | 会 使 图 像 效 果 有 显 蔷 的 改进 .下 上 革 为 如 此 ， 
该 方法 虽然 在 数学 意义 上 的 收 策 械 其 坦 ， ee 3 可 以 和 
H:=f 一 起 使 月 ， We 条 忆 充分 收 签发 还 会 产生 严重 的 错误 . 这 种 方法 称 为 
Yan 人 itter 流 , 可 丫 训 到 本 批 纪 三 上 年 二 : 选 代 至 1606 次 的 量 级 并 非 是 不 常见 2 


18.S$.2 确定 性 约束 : 凸 集 投影 
一 些 可 能 的 原 函 数 ( 或 图 家 1 集 台 ?上 ,如 果 该 代 合 中 作 意 晴 个 元 素 寺 得 主攻 所 有 有 张 哈 
弓 合 


信人 有 家 人 
仍 人 在 该 集 台 'P, 则 称 沪 全 人 台 为 目的 : 芭 演 宫 题 由 .人们 想 节 解 站 上 强制 许多 确定 并 的 热 束 . 实 
和 怀 上 十 定义 了 瑟 集 ,例如 ， 
:687 ， 





， 正 值 性 
* 紧 支柱 集 ( 半 确 定 区 域外 取 零 值 
。 已 知 边 办 ( 即 rr(z) 过 wz) 过 必 人 ) ,对 确定 的 图 数 wr 和 za， 
《在 最 后 一 种 情形 ,边界 可 能 和 档 始 估计 和 值 及 误 状 规定 有 关 , 比 如 zxeGCr) 上 Yafz) .其 小 了 
是 1 或 2.) 注 意 ,这 些 以 及 其 它 类 做 的 殷 制 可 加 在 图 像 空间 或 傅 里 叶 变 换 空 间 .也 可 (实际 
上 ) 如 在 晶 的 任意 线性 变换 的 空间 。 
假定 人 是 个 凸 集 , 那 经 ; 称 为 到 该 集 的 非 扩 张 投影 算 子 , 如果 (iD).22; 将 任意 已 丰 6， 
中 的 二 保留 不 变 :(ii) 罗 :将 Ce 中 的 任意 点 在 下 述 意义 下 映射 到 C; 中 和 距离 最 近 的 
个 元 素 , 即 
| 下拉 ， 芭 村 所 有 Ci 中 的 于 (18.35. 24) 
该 定义 虽然 看 来 复杂 ,实际 例子 却 很 简单 . 正 集 的 -- 个 非 扩张 投影 算 子 少将 旦 的 订 有 负 分 
量 映 为 鹤 ”. 以 xz(z) 所 2(z) 持 wu 人 mn) 为 边界 的 xz) 集 的 一 个 非 扩张 投影 算 子 必 将 所 有 小 
于 下 界 的 值 映 为 下 界 , 而 将 所 有 上 于 上 界 的 值 映 为 上 界 *: 具 有 紧 支 柱 集 的 函数 集 的 一 个 非 
扩张 投影 算 千 ,将 所 有 支柱 集 区 虞 外 的 值 歇 为 鹤 ”。 
这 些 定义 对 下 述 著 名 定理 十 分 有 用 : 令 C 为 到 个 西 集 CC 和 Cn 的 交集 , 则 迭代 
QtttD 一 【〈5D [人 
当 Ase 时 ,将 从 所 有 起 始点 收 分 到 C 中。 而 且 , 如 果 C 为 空 集 ( 无 交集 ), 那 么 这 个 类 代 没 有 
极限 点 ,该 定理 的 实际 应 用 被 称 为 到 凸 集 的 投影 方法 ,或 有 时 简写 为 bpDCS5C。 
POCS 定理 的 一 般 形式 是 用 一 组 祁 :来 代替 空 ,， 
2 一 1 十 有 (2 一 0< 记 < 2 (18.5. 26) 
适当 选取 永 集 可 以 加 快 到 交集 C 的 收 敏 速度 。 
有 些 反 演 问 题 ,可 以 只 通过 选 代 式 (18. 5, 25) 就 可 完全 钼 决 .例如 ,在 天 文成 像 到 X 射 
线 衍射 工作 中 ,经 常 通 到 的 问题 是 要 求 恢复 图 象 , 但 只 给 出 团 角 傅 叶 变换 的 模 5( 相 当 十 光谱 
强 庶 或 自 相 关 值 ) 而 不 给 出 相 。 这 时 ,就 可 以 利用 下 述 三 个 四 集 ; 其 傅 里 时 变换 在 确定 的 误差 
范围 内 有 确定 的 模 的 所 有 图 像 的 集合 :所 有 正 图 像 的 集合 :以 及 某 煌 定 区 域外 强度 为 零 的 所 
有 图 象 的 集合 .在 这 种 情形 下 ,POCS 迭代 (18. 5. 25) 在 这 三 个 集合 之 间 循 环 ,轮流 施 吉 每 种 
约束 ;每 当 施加 傅 里 叶 约 束 时 ,就 用 FFT 将 其 映 入 映 出 傅 里 时 空间 。 ” 亲 
POCS 在 空间 域 和 傅 里 叶 城 交 替 施 加 约束 的 特定 应 用 被 称 为 Gerchberg-Saxton 算 
法 习 。 该 算法 虽然 是 非 扩 张 的 ,而 且 实 际 上 也 常常 是 必 钱 的 ,但 是 还 没有 证 明 在 所 有 埔 形 下 
都 收 伍 ,在 上 面 担 到 的 相 恢 复 问题 中 ,该 算法 在 取得 突然 的 .明显 的 改进 之 前 ,常常 有 省 多 
次 选 代 都 “ 粘 滞 "在 一 个 平稳 阶段 。 有 时 ,需要 进行 多 达 10* 到 105 次 选 代 。( 对 于 “* 非 沾 清 "* 过 
程 , 见 L10])。 虽 然 我 们 由 信 有 一 定 复 杂 度 的 二 维 图 像 的 解 尾 唯一 的 ,但 有 关 解 的 唯 - 性 问 题 
研究 得 还 不 十 分 清楚 。 
通过 投影 算 子 ,确定 性 约束 可 以 合并 到 线性 正则 化 大 代 方法 中 .特别 地 ,政变 各 项 的 组 
合 , 我 们 可 将 迭代 (18, 5. 21 ) 与 为 
uset 一 [1 一 以 Hu 十 cb 一 入 ucD) (18.5.27) 
如 果 迭 代 在 每 步 都 加 上 投影 算 子 
0 一 〔20se22p)[1 一 名 Hitb 十 ET 人 一 AuPp) (18.5.28) 
, 688 ， 





(或 出 方程 18. 5. 26 的 算 子 >， 代 幸 沁 ), 则 我 们 可 以 看 到 履 鲸 条 件 (18. 5. 22? 首 来 改变, 而 
且 在 施加 期 望 的 非 线性 约束 后 , 迁 代 将 收敛 到 德 一 次 冰 数 (18.5.6) 最 小 ,对 于 更 复 休 的 博 形 
以 政和 和 迭代 有 关 的 更 快 的 收 和 伍 ,参考 17”， 
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18. 6 ” 柏 克 斯 -吉尔 伯 特 法 


柏 克 斯 -吉尔 伯 特 (Backus-Gilbert) 方 法 (摘要 见 T3 "或 [4 了 ) 与 其 它 正 则 信 方 法 的 区 
别 在 也 , 它 的 函数 - 吧 和 沼 具有 不 同 的 性 质 . 对 十 珈 ,该 方法 力图 使 解 x(>) 的 稳定 性 最 好 ， 
而 不 是 象 第 一 种 情形 那样 注重 光滑 性 . 即 

沁 反 Var[z(z)] (18.8.1) 

是 “个 用 来 度量 数据 在 测量 误 关 范围 内 变化 时 解 的 变化 程度 .注意 ,该 方差 不 是 re(z) 与 真 
实 xz) 之 问 预 期 的 偏差 一 这 个 偏差 由 .or 来 约束 ~ 一 :而 是 在 进行 多 次 重复 实验 时 .测量 
xxz 的 估计 信 在 预期 的 实验 和 实验 之 问 的 分 散 程度 ， 

对 于 - 近 , 柏 克 斯 -吉尔 伯 特 方法 着 眼 于 , 解 xfz) 与 真实 晓 数 zx(z) 之 间 的 关系 .力图 使 二 
者 之 间 的 映射 ,在 无 差错 的 数据 范围 内 , 尽 可 能 地 接近 于 恒 等 映 射 。 访 方法 是 线性 的 ,因而 
(z) 积 kz) 之 间 的 关系 可 以 窟 为 


tr) 一 jicz,z， 2 DG 2 18.6.2) 
其 中 38(zz' ) 是 所 涓 的 分 辨 率 函 数 或 平均 核 . 柏 克 斯 -吉尔 伯 特 方法 力图 使 全 的 宽度 或 散布 
度 最 小 (即使 分 辨 这 最 大 ) .而 .sz 选 作 衔 量 散布 度 的 基 个 正 数 。 
虽然 柏 克 斯 -吉尔 伯 特 的 析 学 思想 与 菲 力 普 斯 - 吐 梅 CPAiMzps-Tzuomey) 的 哲学 思想 及 
。6R9 。 


共 相 关 耕 的 方法 存 很 大 的 养 别 ,但 在 实际 运用 中 这 一 差 蜀 切 烤 我 们 想象 的 要 小 得 和 多， -个 稳 
定 解 几乎 毫 无 例外 揭 是 光滑 的 : 个 丘 正 则 化 解 产生 的 列 的 ,不 稳定 的 振动 对 数据 的 小 变 
们 常常 上 分 敏感 . 癌 样 .使 xctzy 接 近 于 xxz) 将 肯定 咒 无 差错 的 数据 与 模型 ， 致 :因而 .” 知 
-和 所 起 的 作用 演 胡 两 节 相 诺 的 起 的 在 月 枢 其 相似 。 

柏 克 斯- 吉尔 伯 特 公式 抽 主 要 优点 是, 它 能 很 好 地 控 测 它 扬 注 得 测量 的 那些 项 的 性 项 ， 
份 如 稳定 性 和 分 辩 率 .而 且 在 处 理 任何 实际 数据 之 前 ,( 与 它 通 常 的 作用 一 样 , 川 来 协 省 .党 
 , 芳 ) 都 有 常规 的 取 法 ,或 至 少 很 容易 洗 取 .内 而 避 绝 了 选取 一 个 4 所 产 牛 的 困难 总 其 潜在 
的 主观 偏见 。 在 需要 进行 数据 转换 的 实验 的 设计 与 预 浏 之 类 同 题 中 . 常 可 和 劳 专 选 用 相克 斯 ， 
吉尔 伯 特 方法 。 

计 我 们 米 咎 童 这 “ 切 是 怎样 做 的 :从 方程 418.4.5) 开 始 ， 


ci; 三 5 十 力 7 | 和 (8.2 
半 旦 从 一 开始 就 建立 线性 关系 ,我 外 技 一 纽 反 演 响 应 核 wiiz ?满足 
zz) 一 人 ,gl(z)ei 《1 
并 期 刻 能 月 它 来 估计 zz) 定义 每 个 数 措 点 的 响应 核 的 起 分 忆 很 有 用 ， 
肛 ; 三 |=cmaa (1]x。 汪 瑟 》 
将 方程 (18.8.4)7 代 人 方程 618.8. 3 并 与 方程 618.6.2) 秆 汪 校 .我们 发现 
人 了 Cr ) 《15. 


式 们 能 够 要 求 对 每 个 z 快 于 肯 核 具有 单位 面积 ,从 页 给 出 
1 三 16Casaz efz” 一 了 站 Ger Jar ”= 了 Cr)R 一 可 7 有 (了 ) 


革 中 qz 有 有 都 是 上 共有 六 个 分 量 的 辐 基 ,NA 为 测 基数 。 
误 益 的 标准 传播 六方 程 (18. 5. 1) 给 出 
条 = Var elz)] > >diCr)SogCr) sx) SS dz) 《18. 6.8) 
1 了 


也 中 是 执 方 状 叫 阵 ( 方 程 (18, 43. 6)) 。 如 果 非 对 角 线 的 协 方 差 可 以 忽略 (相当 于 “, 的 误 送 
是 独立 的 ) 了 对 汪汪 一 全 jd 是 对 角 和 矩阵， 
现在 ,我 们 需要 对 每 个 z 的 取 值 , 定 义 :个 SGx,x 的 宽度 或 散布 度 的 测量 标准 . 员 然 
有 多 种 可 能 的 选取 ,但 柏 克 斯 和 吉尔 伯 特 选 译 了 平方 的 二 阶 矩 ,该 测 其 标准 就 是 轴 数 .:7 
人) =|e 一 二)2[SCryz De 
AR 《18.6.5) 
一 2) >g0z)TN(8iz) 二 Q(z)。， 风 (zz) QZ) 


这 忠 我 们 使 用 了 方程 (18. 6.6) 并 将 散布 入 咪 W(z) 定 义 为 


全 ,(7) 过 je 一 《 工 总 及，18》 
志 齐 函数 gtz) 通 过 最 小 化 原则 来 确定 ， 
使 .十 4 瑟 一 qz)，W4r) 一 4S] qz) 最 小 (14. 池 . 11) 


并 腺 从 纪 束 和 菜 件 (18.6. 7) 式 , 即 qgCr)*R 一 1。 


“90 


方 得 (18.5. 1) 的 解 是 

_WIz) 一 和 Si。& 
R .LIwWGy 十 2Sj]  、R 
《参考 文献 4 ,给 了 个 很 答 易 潜 党 的 证 看 ,对 十 任意 特定 的 数据 集 C( 测 抽 合 
解 &Cz) 为 





dt) 一 


WCGCr 十 8 1。R 5 
4 一 R- Fe 一 XS5 一 记 一 光 时 

《不 要 被 符 导 所 迷惑 . 诬 以 为 足 对 整个 算 阵 玛 (r) 4S 道 ,只 要 解 线 性 系统 (We as 
必 一 及 求 出 7, 然后 将 了 代入 式 (18. 6. 121 或 618. 6. 13? 的 分 了 与 分 焉 旭 可 ) 

方程 (18. 6.12)7、(18. 65.13) 与 418.3.7)、(18.5.8) 的 线 本 正则 化 解 有 着 完 们 大 三 的 村 
点 。 方 理 (18.6.12) 中 的 向 草 和 年 阵 的 大 小 部 为 AN 为 测量 数 ; 基 础 变 基 二 没 存 襄 散 十. 同 
而 a7 不 会 出 地 ;又 对 每 预期 的 zx 值 ,都 必 全 NxARN 线性 方程 组 集 , 而 在 式 (18. 
8 中. 需 钥 邮 ” 3 线性 方程 组 ,位 只 项 解 一 役 说 来 ,反复 解 线 忻 方程 级 这 个 计算 玫 的 
负担 使 区 上 克 斯 点 尔 伯 特 方法 对 一 维 以 外 We 

花 克 斯 -吉尔 斯 竺 卢 法 的 4 如 何 选取 呢 ? 前 而 曾 提 过 ,在 掌 担 任何 实际 数 扫 前 就 能 ( 全 时 
是 应 该 ?对 作出 选择 .对 给 定 的 一 个 4 试验 值 及 > 的 -个 序列 , 先 利用 方程 (23. 3 12 计算 
9q( 刀 ;然后 再 运用 方程 (18. 6, 6) 绘 制 出 分 辩 率 函数 人 rr 为 写 的 呵 数 ,这 个 浴 图 中 对 应 
2 的 师 度 ,将 反映 不 同 的 zx 值 对 那 点 xxz) 估计 值 所 起 的 作 才 的 大 小 。 对 同一 3 直 . 和 滑 广 
程 (18. 6,8) 再 绘 茜 出 函数 Yvarata) (这 需要 对 协 方差 矩阵 的 测量 值 先 向 出 佐 广 ) 

尖 ) 释 动 时 ,就 会 es 涨 选 所 次 要 信人 倩 ， 
假如 读者 愿 堂 的话. 方程 (18.6. 127 和 (18. 6. 13) 中 的 大 甚 宝 可 以 取 选 为 上 的 氏 数 , 郑 盖 六 
(zz)。( 对 每 个 工 值 都 必须 求解 独立 的 - 组 方程 这 是 2 弄 夺 该 隐 
已 对 反 演 求解 过 程 有 了 定量 揭 认 识 。 :日 进 行走 实数 据 的 处 理 ,需要 判断 某 个 终 沁 扑 改 : 堪 。 
例如 “个 尖峰 或 突变 是 村 走 实 .和 (或 ) 实 际 LI 人 下 ， 和 交 上- 
吉尔 伦 特 法 在 地 蒜 物理 学 中 已 得 到 了 极其 成 功 的 应 用 , 川 该 方法 可 从 地 震 数据 十 引 取 二 地 
球 结构 的 信息 (比如 ,密度 随 深度 的 灾 化 ) 
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18.7 ”最 大 蚁 图 像 恢 复 


前 面 我 们 曾 说 过 , 某 些 反 误 方法 与 贝 叶 斯 观点 的 结合 在 很 大 程度 上 是 历史 的 偶然 ,而 并 
非 是 理智 的 必然 所 谓 的 最 大 炉 方 法 就 是 该 结合 的 著名 产物 ;对 这 些 反 演 方法 的 概 上 总 疆 如 
果 不 引 号 - : 些 (至 少 是 引 论 性 的 ) 贝 中 斯 观点 ,将 会 变 得 黯 然 尖 色 。 我 们 同时 也 应 沪指 呈 


,891 ， 


里 讲 的 最 大 由 反 演 方 法 与 第 13. 7 节 中 讨论 过 的 昌 大 谱 估计 之 间 的 联系 是 非常 设 召 实 “ 章 
义 的 .虽然 -者 都 称 为 最 硕 方法 或 MEM, 但 实际 应 用 中 , 责 种 方法 并 无 联系 。 
从 概率 论 基本 公理 推出 的 下 时 斯 定理 描述 了 两 个 事件 ,比如 人 A 和 3 之 间 的 条 件 概率 : 





Prob (二 |4)》 CR 
Prob(41I 了 一 Prob(4) Erob(0B) 《15, .11 
其 中 Prob(41| 瑟 ) 是 度量 了 事件 二 发 生 后 4 发生 的 慨 率 ,Probk3 4) 类似 ,而 Prohbi4) 和 


Prob(B) 为 绝对 概率 。 

“ 贝 叶 斯 沦 者 (不 妨 这 样 称呼 ) 比 所 谓 的 “ 频 挛 沦 者 ?对 概率 采纳 了 一 -种 更 广 演 的 解释 . 
贝 寺 斯 论 者 认为 Prob(4 | 吾 ) 是 度量 了 事件 了 发 生 后 ,4 事件 发 生 的 可 能 性 揭 太 小 ,其 作 变 
化 范围 从 0 到 1 在 这 个 较 广 泛 的 观点 下 ,4 和 吕 不 一 定 为 可 重复 事件 ,它们 可 以 是 合 题 或 
假设 .于 大 概率 论 的 公式 变 成 了 一 组 处 理 惟 理 的 相 容 规则 , 南 于 可 能 性 本身 常常 是 以 一 
些 也 许 不 能 明确 表达 的 航 设 为 条 件 的 ,因而 所 有 由 叶 斯 概率 都 被 看 作 是 ,以 : 些 玖 体 的 背景 
信息 工 为 条 件 的 。 

假定 扎 为 某 假 设 . 即 使 在 取得 在 任何 直接 的 教 据 之 前 ,页 叶 斯 论 者 也 能 贱 于 避 一 定 程 
度 的 可 能 性 Prob( 召 , , 称 为 "中 叶 斯 先 验 ”. 当 数据 六 ,出 现 后 ,中 时 斯 定理 告诉 我 们 如 何 重 
新 估计 五 的 可 能 性 ， 

Prob(Di| 姜 1) 
Prob (万 , | 了 7) 
方程 (18.7. 2) 右 映 分 子 中 的 因子 ,是 给 定 假 设 后 数据 集 的 概率 , 它 是 可 计算 的 (与 第 15., 1 节 
“可 能 性 "比较 )。 分 母 被 称 为 数据 的 " 先 验 预测 概率 ”, 在 这 情形 下 它 不 过 是 “个 规 一 化 常数 ， 
它 可 以 和 根据 所 有 恨 设 的 概率 之 和 应 该 为 ] 这 个 性 质 来 计算 出 ,( 在 其 它 .- 些 贝 叶 斯 问题 书 ,可 

用 的 两 个 完全 相同 模型 的 先 验 了 预测 概率 来 估计 它们 的 相对 可 能 性 。) 
如 果 第 二 天 又 获得 数据 Da: 我 们 还 可 将 五 的 概率 估计 值 进 一 步 修 正 为 


Prob (CDPD: | 五 吕 , 门 
Prob( 杂 |D,PD, 六 =pProb(1D 7 Er 方太 (18.7.3) 
利用 弛 率 的 梁 积 法 则 ， Prob (451C) 王 Prob(41C7Prob(5 4A4C) 我们 发 现 方 程 (18, 7.2) 和 


(18. 7. 3) 意 味 着 


Prob( 五 已 呈 一 Prob( 五 ) 《18.7. 2) 





Prob( 厂 四 ,| 已 六 
Prob (只 :D | 忆 
它 表 明媚 果 所 有 的 数据 同时 取得 时 ,我 们 将 得 到 相同 的 结果 。 
从 贝 叶 斯 论 者 的 观点 米 看 , 反 演 问题 就 是 推理 问题 ?5 。 基 本 参数 贷 上 是 一 个 假设 ,在 给 
定 测 量 数 据 值 < 后 ,u 的 概率 及 贝 叶 斯 先 验 ProbGal[ 刀 者 可 以 计算 出 .也 许 我 们 想 找 一 个 单 
一 的 “最 佳 "的 反 演 u, 使 下 式 
Probcuilez) 一 Probkc|u7) 


Prob( 殖 | 疡 也 门 = Prohf 百 | 六 〔1. 7, 半 ) 


Probcu| 六 7 
Prob(ci 
在 的 所 有 可 能 选择 让 最 大 , 贝 叶 斯 分 析 也 允许 记录 上 额外 信息 可 能 性 的 存在 ,该 额外 信息 刻 
划 了 ua 的 具有 较 高 的 相对 概率 的 可 能 区 域 , 即 所 谓 _ 跨 的 "后 验 泡 ”。 

给 冠 假 设 , 数 据 e 的 概率 的 计算 与 最 大 似 然 法 中 的 步骤 完全 相同 ,例如 ,对 于 高 斯 误 
差 , 它 由 下 式 给 出 


《18.7.5》 


Probke|u7) = expP( 一 半 x2)aAu aaes: et 《JS, 7 6) 
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其 中 .六 可 以 及 用 方程 (18.4.9) 从 口 和 ec 计算 得 到 .并 且 所 有 Ars 均 为 上 分 量 的 小 移 常 数 区 
城 , 但 这 些 分 量 的 实 路 大 小 无 关 紧 要 ,' 翌 为 它们 并 不 依 态 于 @ 比较 方程 (15. 1. 3) 和 (15. 1 
十 ) 7 。 

在 最 大 做 然 估 算 中 ,我 们 实际 上 选取 先 验 Probcu 万 为 常数 . 当 从 大 批 数据 由 估计 少量 
的 几 个 参数 时 ,该 方法 对 我 们 米 说 很 不 经 济 。 这 里 必 参 数 "u 的 分 量 ? 的 个 数 与 测量 (e 的 分 
量 ; 的 个 数 可 相 比 执 或 较 大 些 , 并 有 卫 我 们 还 需要 找 一 个 非 平 凡 的 先 验 ProbGu| 产 来 解决 解 的 
进化 任 问 题 。 

在 最 大 灯 图 像 恢 复 中 , 炳 这 个 酸 念 出 现 了 ，- 个 物理 系统 在 宏观 状态 下 的 炳 .常用 人 圾 
示 , 是 在 微观 状态 下 不 同 结构 数 的 对 数 ,这 些微 观 结构 者 具有 同样 的 宏 竟 可 测 值 ( 即 与 观 
察 到 的 宏观 状态 一 致 ;实际 上 +, 我们 会 发 现 箭 的 负数 也 很 有 用 ,或 称 为 负 炳 ,表示 力 好 一 - 
3 该 才 示 法 可 以 追溯 到 波 尔 兹 曼 : 在 丰 充 分 的 理由 痢 信 微观 结构 的 先 验 概 变 都 相同 的 情况 
下 《这 种 情形 称 为 各 态 历经 的 )， -个 以 为 $ 的 宏观 状态 的 贝 叶 斯 先 验 Probtu 门 与 extbts 
或 exb( 一 如 ) 成 比例 ， 

MEML 利 肌 这 个 原理 ,对 任意 给 定 的 基本 函数 ua 赋 于 一 个 先 验 概 率 , 例 如 ”假定 乏 洒 
象 赖 大 的 测量 值 本 芝 化 (以 基 种 单位 ?成 一 个 整数 俩 , 令 

已 一 >)ur (18.7.?， 

为 整个 图 像 中 亮度 的 量化 值 总 数 , 姥 么 ,我 们 可 根据 下 述 思想 来 确定 我 们 的 “ 先 驻 ”, 昂 各 全: 
党 竹 晶 级 在 任意 象 素 上 ,都 有 相等 的 先 验 可 能 性 (对 于 该 思想 更 抽象 的 一 些 应 了 肯 .总 [33， 
区 本 全 汪 人 二 油 攀 ua 的 方法 的 个 数 为 
下 式 在 器 可 理解 为 ， 训 度 量化 倘 总数 的 未 辣 师 东 排列 的 数 月 ， 除 以 每 个 集束 由 和 从 的 本 天 所 
序 的 数 日 ;而 上 式 右 端 是 通过 阶乘 函数 的 斯 特 林 (Stirlug? 近 似 得 到 的 . 取 负 对 数 , 并 且 化 阶 
为 过 项 册 现 处 ,忽略 阶 为 tegt 的 项 ,我 们 得 到 负 恼 为 


< exp| - 之 winter; 和 十 豆 | jn 如 盖 iv | 518. 778) 


了 Tu) -一 > ulntzuy) (18.3.9) 
现在 ,我 们 根据 方程 (18. 7.5)、(18.7. 0) 利 8. 7, 9) 使 下 式 最 大 
Probtu e) cc exp| 一 羡 帮 |exp[ 一 好 Co)] (5.7 11) 
或 等 从 地 
使 《In[Proboa ec)] .= 隐 Lu] : 7 一 了 xfa] 十 wine 
“87 11》 


应 当 使 读者 想起 方程 (18. 1 人 种 (18. 5. 6) ,或 我 们 实际 上 上 讨论 过 的 滑 线 ， -3 
ne -个 最 小 化 原则 ,其 中 人- 池 一 电 (u) 是 -一 个 正则 化 算 子 .怎么 取 。 es 
(18. 4. 11) 后 讨论 过 的 理由 ， 2 得 到 一 个 驴 :的 不 切 实际 的 小 \ 值 。 我 们 需要 - 
可 调整 的 参数 ,使 帮 落 在 预期 的 统计 意义 上 的 狭小 区 域 R 士 (2N)vz 中 。 第 18， 二 
涩 论 表明 ;我 们 将 4 归 人 和 哪 -项 并 没有 区 别 .为 了 保持 符号 上 的 “ 致 性 ,我 们 在 4 中 豚 收 …-、 
个 央 子 2, 并 将 其 归 和 人 精 项 ,( 个 不 稀 宝 的 4 因子 的 必要 性 还 可 从 以 下 得 着: 辑 采 在 此 杰 于 


人 


的 量化 单位 时 ， 例 如- 个 8 位 模 数 转换 器 用 :个 1 记 模 数 转 拘 器 来 幅 换 时 、 戈 让 的 最 小 化 
原则 霸 惧 圭 不 变 , 亚 可 看 出 二 因 了 了 是 必 有 震 的 ) .现在 :我 全 卫 本 以 用 ”所 计 的 况 法 "不 志 果 .过 
个 过 程 上 是 获得 所 选择 的 统 洒 估算 器 的 过 程 , 它 

使 〖《 .和 十 4 入 一 各 二 和 加 一 知人 | 二 和信， ta 1 2 


(我 们 也 可 以 添加 项 拉 档 朗 日 第 二 . 乏 了 4 大 :以 限 惠 总 强度 已 为 常数 )， 

不 难看 出 , 负 炳 莹 (实际 上 是 一 个 正如 化 算 和 .usu( 方 各 (018.4. 1 .usHcu 广 
种 (18.5. 6)? 类 似 。 它 的 下 述 忻 质 很 值得 注 总; 

- 当 慷 保持 为 常数 贞 , 对 于 ta 一 0 一 常数 ,他 所 Cu 最 小 - 风 而 在 适 能 小- 个 茹 直 
解 的 意义 下 ,ICu) 共 光 滑 的 ,这 三 方 息 (18.3. 和 类 做 -常数 解 二 一 个 4 小 ER “ 竺 
论 是 根据 * la zx 光 - 险 导数 为 正 借调 得 到 的 。 

， 介 足 与 方程 (18, 5. 4) 不 同 ,7C 是 局 部 的 , 邵 对 邻近 的 象 索 没 有 计 它 只 让 和 暂 单 
地 将 其 肯 数 地 累加 起 来 ,此 处 在 所 有 兹 尼 上 ,是 烙 六 
人) -lm 人 3 
浸 实 土 , 当 一 由 图 像 书 的 象 素 被 完全 量化 时 . 女 (o7 是 个 不 变 基 ,这 种 形式 表明 ,在 低 
强度 范 滑 背景 上 ,嵌入 少量 极 亮 的 象 素 5( 点 源 时 )、 Frca 并 不 最 基 增 加 。 

3 当 任 意 一 个 象 素 为 故 寺 ,ru) 将 无 限 变 陡 ,这 :点 就 强制 地 使 图 像 保 持 正 俏 作 、 文 
样 就 不 上 册 需 要 额外 的 确定 性 约克 . 

4. 互 (o) 与 我 们 见 过 的 其 它 平 则 化 算 子 之 阅 的 最 大 区 时 是, 玫 Co) 不 是 二 的 二 次 阴 数 . 
因而 在 变化 方程 (18.?7,127Hi ,所 得 到 的 访 程 协 是 非 线 性 的 ,这 个 事实 本 身 就 值得 进 
行进 一 消 讨 论 。 

非 线性 记 程 比 线性 方程 难 解 ,但 是 对 十 几 光 处 理 癌 题 , 通 营 有 上 大量 的 方程 需要 用 选 代 这 
程 米 求解 , 既 使 这 些 方 各 是 线性 的 。 因 而, 非 线性 庆 索 的 实际 效果 得 到 “缓解 .F 夯 ,我 们 将 
概括 地 总 结 一 些 MEM 反 演 向 是 中 成 功 应 骨 的 方法 ， 

对 某 些 问题 ,其 中 个 善 名 的 例子 足 射电 天 文学 中 ,根据 -组 完整 的 合 只 叶 系 数 来 洪 行 
久 像 恢复 的 站 题 ,MEM 皮 演 的 高 级 实施 区 全 还 可 以 部 分 地 探测 出 天 fo) 的 非 线 性 特征 。 六 
法 之 开 - 是 ,考虑 正确 测量 倩 的 极限 rc 一 6 这 时 , 景 小 化 则 原则 (18.?7. 12) 中 的 巡 项 被 一 组 
约束 撕 软 代 , 其 中 每 个 约束 部 有 有 它 洒 己 的 拉 襟 妆 日 乘 地 .这 部 为 了 使 模型 和 数据 之 加 保持 
致 性 , 邯 


CC 


使 20[ Ross]+Ba 最 小 (18.7. 4) 
( 参 理 方程 18.4,7。 ) 设 对 忌 的 法 向导 数 为 堆 ， 吕 得 
有 
和 5 = = Fe- SRw 各 8.7. 5 


或 定义 一 个 函数 G 为 疡 的 道 函数 ， 
| 人 Row， (18.7.16》 
土 式 中 的 解 只 是 形式 上 的 , 国 为 必用 先 求 出 讽 ,证 它 根据 使 方程 (18. 7. 16? 满足 所 有 洪 如 到 
式 (18.7. 14) 中 的 约束 条 件 找 出 来 的 :但 是 ,方程 (18.7.18) 中 的 信 表 明了 下 述 重 旧事 实 , 到 
如 呆 避 是 线性 的 ,那么 解 里 只 包含 基 丽 数 Ri 的 -个 线性 纤 合 ,其 中 Rs 对 永 善 实际 测 七 旧 
094 * 


.这 相当 于 设 痪 夫 测 量 的 c, 为 等 ,注意 ,从 产程 (18. 4. 11) 得 到 的 基本 解 实际 上 就 有 -个 线 
性 的 (4。 

在 林 完 整 的 圭 皇 呈 国 像 芋 建 问 典型 的 Rijr 有 exp( 2xriki*xe) 这 种 形 二 ,其 由 x， 
是 几 像 空 亲 的 “个 二 维 辐 莽 ,ke 是 - 绯 波 问 明 ,如果 图 像 包含 强 点 源 ,那么 皮 宣 木 江 庚 
的 =， 2 头子 王 显 点 
小 之 问 感 在 的 供 绰 度 谋 像 的 特征 . 世 足 .如 果 (的 斜率 在 让 变量 数值 小 时 会 更 小 . 盾 1 安 量 
数值 人 时 更 天 , 则 么 ,图 像 低 媳 度 部 分 的 波纹 相对 地 受 人 
全 赵 解 .0 区 斜率 的 这 种 性 质 等 价 十 要 求 /os 3 。 对 村 函数 Fo 一 xlne .我 们 确实 
有 一 一 17Pz<i0. 

几 更 形象 化 的 语 疡 米 说 ,让 线 忻 用 来 “产生 "未 测 基 的 c, 的 非 零 值 ,从 而 使 发 强 度 的 波 
纹 受 到 抑制 ,并 使 点 波 变 得 尖锐 。 


18.7.1 MEM 真 的 不 可 思议 吗 ? 


负 粒 柳 (18. 7. 9) 的 唯一 性 怎么 样 * 注 意 :那个 方程 的 前 担 是 假设 亮度 元 素 先 验 地 角 4 

分 布 到 所 有 象 素 上 ,如果 我 们 想得到 另外 一 种 先 验 图 像 , 洲 如 象 夫 强度 为 产 ， 则 容易 证 于 负 
往 哲 数 变 成 了 

疡 tu) 一 > ]ngzsyrzan) 一 常数 《8.7 了 .17) 


(常数 可 以 忽略 ,) 然 后 这 可 以 进行 其 余 的 讨论 。 

香 重 要 的 是 ,尽管 有 许多 人 极力 提倡 一 ,但 两 数 形式 Fa 一 xinz 实际 上 半 不 普遍 成 立 。 
在 其 它 一 些 物理 现象 中 (例如 ,在 射电 天 文中 ,每 种 模式 有 许多 光量 子 的 限制 情况 上， 个 电 
厂 场 的 精 ) , 负 糯 冰 数 实际 上 是 /io 一 一 inze( 其 它 刚 子 见 寺 ) ,一 般 而 言 , 丧 是 人 人 么 ”这 个 问 
题 , 在 任意 特定 的 情形 下 并 没有 准 一 的 答案 (对 于 在 通 当 杀 件 上 ,寻找 一 种 更 普遍 的 规 由 末 
傅 炳 函数 具有 某 种 形式 ,人 们 做 了 很 多 努力 ,请 参阅 文献 -93) 。 

上 面 总 结 的 四 条 性 质 ,加 上 目 线 虱 的 所 需 符号 ， 广 -Cao<0, 刚 对 亚 数 Fas -ln 及 
yo) 一 lna 都 是 适用 的 ,事实 二 ,一 个 很 简单 的 非 线 性 臣 数 /= YY 也 只 有 上 述 尾 质 ， 
但 这 个 函数 并 不 能 在 理论 上 位 定 出 任何 信息 (没有 算法 !)。 利 用 这 些 炳 函数 形式 . 村 试验 图 
像 进行 MEM 重建 ,实际 上 没有 任何 差 踊 ， 

所 有 已 知 的 证 据 表 明 ,MEM 只 不 过 是 迄今 为 止 我 们 所 讨论 过 的 众多 的 和 股 正 则 化 方 
法 ,和 刀 十 向 中 的 一 种 。 当 将 MEM 应 用 到 根据 不 完整 傅 里 叶 数 据 进行 的 图 像 重建 . 并 日 局 
售 计 和 乳 这 些 狼 像 除 有 许多 极 亮点 源 外 ,还 包括 一 些 有 趣 的 低 强度 分 布 涯 时 , 它 的 独特 性 使 得 
它 对 该 问题 的 处 理 变 得 强劲 有 力 .但 对 于 具 其 它 性 质 的 图 像 ,没有 理由 说 MEM 方法 通常 出 
其 它 正 则 化 方法 更 好 ,不管 这 些 正 则 化 方法 是 我 们 已 知 的 还 是 林 知 的 。 


18.7.1 ME5AM1 的 算法 


目的 是 寻找 向 量 使 . 反 十 人 汤 最 小 .其 中 各 表达 式 抑 方程 (18. 5. 5) ,(18.5. 全 及 (人 
了 全 本 


cr 一 lb 一 和 al: 光一 >,FGeo) 《18.7,18) 
鼎 


"693 


与 -- 般 ”的 最 小 化 问题 相 比 ,我 们 具有 可 以 过 接 计算 梯度 及 _ 阶 偏 导数 矩阵 ( 海 赛 矩 阵 ;这 
个 丰 利 条 件 ， 


间 二 .< 


Yo 2 一 1 5 一 2A7， 和 点 |， 
到 于 、 
二 (18.7, 19) 
[YY 少 | 一 关公) 这 本 一 Guor 太 (ar) 


重要 的 古 要 注意 ,虽然 -se 的 二 阶 偶 导数 矩阵 不 能 存 鱼 (这 抑 儿 的 大 小 是 象 素数 的 半 广 ?但 
它 可 以 先 通过 息 , 再 道 过 4 作用 和 色 作 意向 量 上 :人 在 根据 不 完整 的 和博 里 叶 数 据 进 行 钳 像 重 建 
的 情况 中 ,或 在 与 “个 平移 不 灾 点 分 布 琐 数 首 卷 积 的 情况 中 ,这 些 应 用 将 包括 儿 个 EFT 时 
样 ,在 采用 4 和 斥 " 的 作用 方法 下 ,梯度 立 -ee 的 计算 也 将 包括 几 个 FFT。 

盟 然 经 典 的 共生 樟 度 法 (第 10. 6 节 ) 取 得 了 一 些 成 贞 的 应 用 ,但 是 .AD 一 slna 中 的 潮 线 
性 常 此 会 使 该 方法 受到 很 大 的 影响 .如 果 试 验 步 长 使 得 吴 取 负 什 ,即使 只 有 : -个 分 其 为 负 
值 , 那 么 沪 步 长 也 必须 被 分 成 儿 个 小 步 长 ,有 时 由 于 步 长 尺寸 的 剧烈 碱 小 ,求解 严 度 极其 组 
慢 . 检 本 问题 在 十 , 共 斩 梯 度 方法 对 海 赛 矩阵 的 逆 搜 阵 信息 名 收 集 是 :点 :点 进行 的 .而 且 
在 搜索 空间 的 位 置 也 随 之 变动 . 当 :个 非 线性 函数 与 至 论 上 的 一 次 函数 有 相当 大 的 区 别 时 . 
旧 信 息 在 得 到 充分 利用 之 前 ,就 已 变 得 毫 无 用 处 。 

斯 特 林 此 其 合作 者 "提出 了 -种 复杂 但 却 相当 成 功 的 方法 。 该 方法 在 不 断 搜 浮 最 
小 值 的 过 程 中 ,不 贞 沿 某 个 单一 的 搜索 方 问 , 而 是 在 一 个 由 向 最 张 成 的 低 ( 通 常 是 3) 纤 子 空 
全 中 进行 ,这 些 向 基 在 每 点 部 要 重新 计算 . 子 空 间 基 向 量 的 选取 必须 满足 避 开 导致 负 值 的 方 
赔 。 下 面 这 个 由 疝 量 张 成 的 一 维 子 空间 就 是 最 成 功 的 选取 方法 之 一 ,这 些 向 量 的 分 量 由 下 式 
给 出 

ec 人 一 ]y 
ci 一 :Hi YY 光 ip 


ii 人 (aa2， 机 3 pz 之 , 《oOE. AL 9 邮 9tp)we|Y， | j 


四 


风 
V > 2 ([ 交 < 3 ao(| 了 1 











(18. 20) 
《 厅 这 些 方程 中 ,不 村 4& 求 和 。? 如 果 斌 为 点 箭 位 于 一 个 度量 为 gm 一 Cuyus 的 度量 空 旬 中 , 那 
么 可 以 证 明 es 的 选取 将 “远离 " 零 值 , 见 [6]。 

在 三 维 了 空间 中 ,三 个 分 量 的 梯度 与 九 个 分 时 的 海 赛 和 矩阵 可 以 通过 从 大 空间 的 投影 来 
计算 , 子 空间 中 的 最 小 值 可 以 根据 ( 普 道 地 ) 解 三 个 联 立 线 性 方程 组 (如 同 第 10.7 节 中 的 方程 
510.7.4) 一 样 ) 来 估计 . 步 长 su 的 大 小 必须 满足 下 述 不 等 式 - 

DCVaj2jmr 抵 (0.1 至 0.5OC (18.7.211 


内 于 梯度 方向 了 -ex 和 六 泌 单独 使 用 ,因此 可 以 同时 进行 最 小 值 的 搜 妇 及 4 的 调整 , 片 使 其 
最 终 满足 项 期 的 约束 条 件 . 这 其 中 有 多 种 技巧 可 以 采用 。 

Comwell 和 Evans 所 出 了 一 个 虽 不 普遍 ,但 在 实际 应 用 中 却 常常 令 人 满意 的 方法 
应 该 注意 , 迄 的 海 赛 扎 阵 (二 阶 偏 导数 ) 昆 一 个 对 角 和 矩阵 , 旭 么 .的 将 赛 矩阵 是 否 也 在 在 一 
个 有 用 的 对 角 托 阵 与 它 近 似 相 等 ,例如 ?2&A7.A; 如 果 用 As 表示 该 近似 和气 阵 的 对 角 元 , 孝 迄 旱 
的 … 个 很 有 用 的 步 长 浆 该 是 

026， 


部 区 二 二 18 2 
《 匡 方 释 110.7. 1 比较 .更 役 并 执 情形 是 , 找 一 个 对 前 雹 素 为 常数 的 近似 对 角 抵 阵 -和 = - 
十 息 
En 
内 十 六 
由 于 A7 和 只 丰 双 着 积 点 分 在 函数 的 - 些 性 让 . 以 及 由 于 实际 情形 中 的 点 分 布 虹 数 常 
常 具 有 “个 尖锐 的 中 心 峰 值 : 当 此 这 些 极 册 人情 全 外 举 常 是 视 右 成 效 的 。 
先 根据 4v 戏 六 做 :个 粗略 的 估计 :例如 ， 
六 4 (18. 7. 241 


精确 值 并 不 重要 ,内 为 在 实际 情况 六 'A 是 要 进行 自 适 应 调整 的 :如 果 A 太 大 . 则 方程 118. 
7.23)》 的 步 长 将 会 大 小 ( 即 同一 方向 上 较 大 的 步 攻 将 使 . 乞 十 人 党 减 小 得 更 多 )。 如 果 人 太 小 、 
则 试验 步 长 将 位 于 -- 个 不 可 能 的 区 域 tay 的 负 值 》, 或 者 产生 一 个 较 大 的 -or 一 4 沪 . 此 处 和 
的 测 和 整 与 第 15. 5 节 中 的 勒 温 伯 梢 - 马 脱 特 方法 明显 很 相似 ;这 是 因为 MEM 与 非 线 性 季 小 一 
乘 拟 个 问题 极 基 相似 ,因此 不 应 该 觉 很 意外 ,从 考 文献 12 还 讨论 了 如 何 利用 生计 7 00) 
值 去 调整 拉 格 前日 乘 子 和 .从 而 使 问题 改 敏 到 六 的 期 望 值 。 

所 有 实用 的 MEM 算法 都 必须 进行 大 约 30 一 50 次 遂 代 后 才能 收 敏 。 日 前 还 小 有 人 引 辫 
方法 可 以 使 收 伍 问题 得 到 根本 解决 ， 


18.7.2 “ 贝 叶 斯 "与 "历史 性 "的 最 大 粒 


最 大 炳 图 像 恢复 的 “ 些 最 新 进展 都 才 明 它们 属于 “* 贝 时 斯 ”而 区 别 十 先前 的 " 册 册 竹 ” 
方法 。 详 见 参考 文献 [13]。 

“ 更 好 的 先 验 :我 们 已 经 注意 到 ,电大 灶 函 数 ( 方 答 (18.7. 134)) 在 量化 所 有 多 奏 时 让 不 
变 的 ,而 号 也 不 涉 芒 光滑 性 .所 谓 的 “本 质 关联 函数 ”CTCF) 模 型 与 炳 冰 数 上 分 类 似 . 
从 而 算法 也 很 类 似 。 但 它 昌 州 到 邻近 关联 每 索 的 值 , 因 此 有 光滑 的 作用 。 

* 更 好 的 人 估计 值 :在 上 文中 ,我 代 适 当地 选取 使 帮 落 在 预期 的 终 计 意义 上 的 狭小 区 
域 N 士 (2ND5 中 。 但 这 实际 上 是 过 大 地 估计 了 符 , 因 为 在 重建 过 程 中 ,参数 的 “ 些 育 
效 数 了 是 " 册 定 "的 .中叶 斯 方法 则 能 得 到 该 7 一 个 自 相 容 的 估计 值 , 并 侦 4 的 选取 更 
客观 。 


Er 一 和 13 AAA 洛 ) 《入 .7 了. 223) 
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第 十 九 章 ” 偏 微 分 方程 


19.0 引言 


偏 微分 方程 的 数值 解法 就 其 自身 来 说 , 丰 个 产 阿 的 研究 课题 :但 税 分 太 伯 本 能 十 是 部 
大 客 数 ,也 是 许多 连续 物理 系统 , 媳 流 林 , 电 磁 声 只 人 优等 的 计算 村 分 析 或 楼 裔 届 证 避让 
本 章 旨 人 在 给 出 最 简单 明了 的 介绍 ,理想 多 情形 , 属 六 有 部 完整 的 数值 解法 第 “ 芭 “jj 解 
夫 偏 微分 方程 .( 当 然 .参考 文献 _ 1 一 “| 提供 适用 的 参考 从 侦 。) 

在 大 多 数 数学 车 作 中 , 贪 微分 方程 (PDEs) 腰 据 共 特 征 或 信息 传播 由 线 让 了 太一 昼 机 
型 , 妇 双 曲 型 .抛物 型 稀 壮 型 . 必 曲 型 方程 的 型 例 节 是 一 比 波 动 方程 : 


同和 人 


人 证 
口 攻 避 
其 中 避 一 常数 ,为 波 的 传播 速度 .典型 的 由 物 型 方 各 和 让 扩散 方 各 : 
可 zf 可 宁 信 : 
-一 - := 一 一 | 了) = 一 【8 


3 等 
其 中 厂 是 扩散 系数 ,典型 的 椭圆 型 方程 诗 记 松 旋 程 ， 
9 下 曲 开 
昌 
其 中 源 项 2 给 定 . 如 果 该 诉 项 健 寺 要 , 则 方程 称 为 拉 普 拉 斯 方程 。 
共计 算 的 第 庶 来 看 ,这 种 分 为 三 种 标准 类 型 狼 分 类 并 不 是 非常 有 意义 的 :至 业 不 纪 一 洗 
闪 它 钓 本 质 性 区 分 来 得 重要 .方程 (19. 4 1) 和 方 穆 (13. 0 2) 都 定义 了 初 值 问题 或 称 为 柯 西 
问题 :如 果 有 关 站 的 信息 (可 能 包括 zx 的 时 间 导 数 信 息 ) 在 某 信 初始 时 纪 闷 村 任意 工 古 之 天 
的 : 则 方 称 措 这 了 xz 如 何 随时 间 向 前 传播 亡 自 身 . 换 言 之 ,方程 13. 41) 和 (19. 人 全 描 
述 了 z 逢 时 间 的 演变 .… 个 数值 解 的 目的 在 于 : 按 蒜 预定 精确 庶 , 人 迫 踪 这 个 随 果 间 的 演变 证 
程 ， 
相 皮 的 :方程 (19 0. 3 出 要 我 们 去 找 - -个 "静态 ?的 函数 xz ,使 之 在 Ga) 的 证 论 区 
域 于 满足 该 方程 ,并 且 -特别 蓝 指 胃 的 是 一 一 还 必须 使 之 在 讨论 的 区 域 的 边 内 上 .具有 某 
些 期 望 的 特 生 。 这 关 问 题 被 称 作 边界 值 问题 .由 于 - :个 初 值 问题 可 * 当 时 河 向 前 积分 .在 这 
一 相同 总 文 下 ,一 般 边 界 值 问 题 不 可 能 是 稳定 地 下 好 "从 过 界 向 里 积分 ”. 因 此 , 数 稍 解 的 目 
移 吓 :以 革 种 方式 尽快 在 侍 意 全 置 收敛 到 正确 解 ， 
因此 ,从 计算 的 稍 度 来 耕 , 最 重要 的 分 类 方法 是 :眼前 的 问题 是 初 值 (随时 站 的 发 展 ) 隔 
是 还 是 边界 值 ( 和 静态 解 ) 回 题 ,网 15. 0.1 形 象 表示 了 它们 之 间 的 区 别 . 注 意 , 虽 由 黑 体 宇 的 术 
诸 是 标准 出 诸 , 任 从 计算 的 角度 来 看 ,括号 中 的 术 结 却 是 对 这 两 类 问题 的 更 好 的 墙 述 切 利 
问题 表 分 成 双 曲 型 相投 物 型 就 不 怎么 重要 了 ,因为 (许多 实际 问题 都 是 滥 和 型 的 Ji 十 姑 
我 们 将 要 看 钊 的 ,在 人 绊 过 论 实际 的 计算 方案 时 -大 多 数 双 曲 型 句 题 都 混 条 有 有 执 物 型 的 收 
分 ， 
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车 (a) 中 , 初 值 被 给 定 在 一 个 “时 间 片 ”并 扎 希 请 滑 靖 头 岂 示 广 向 过 行 计算 空 习 圆 点 的 解 ,得 到 随从 
癌 向 前 发 展 的 解 ,不 在 每 一 行 让 边 和 丰 达 (全 ?的 过 界 条 件 也 必须 满足, 但 是 每 一 个 时 刻 妈 计算 一 行 ， 
看 内 存 中 , 共 需 避 国 先前 的 一 行 或 少数 几 行 -在 (b) 中 , 沁 界 慎 消 一 个 网 格 的 周 愉 将 定 , 并 估 用 - ,个 先 
代 过 性 以 确定 所 有 内 部 点 (空心 虚 ) 的 值 -了 有 网 格 点 都 必须 入 留 在 内 存 中 。 


19.0.1 和 官 值 问题 
定义 一 个 初 值 问题 需要 同 答 如 下 同 题 : 


* 随时 间 向 前 传播 的 应 变量 是 什么 ? 
“ 每 个 变量 的 发 展 方程 是 什么 ?通常 这 些 发 展 方程 都 是 合 的 , 即 在 每 个 方程 的 右 闪 ， 
同时 出 现 了 不 止 一 个 的 应 变量 。 
* 每 个 变量 的 发 展 方程 中 ,出 现 的 最 高 阶 时 间 导 数 是 什么 ?如 果 可 能 ,关于 时 间 的 导数 
谋 该 单独 放 在 方程 的 左 端 ,不 仅 是 变量 的 值 ,而 且 包 括 它 的 所 有 时 间 导 数 的 值 一 - 直 


"709。 


冰 19.0,1 初 值 问题 ay 和 边界 俏 问 题 必 ?的 对 比 


全 其 最 高 阶 斗 数 一 吉 必 须 和 确定 .以 定 驻 这 个 发 展 太 程 ， 
“约束 着 生 关 空间 区 城 的 达 界 点 ,随时 间 发 展 的 特殊 太 程 ( 即 边 界 条 任 ? 谍 什么 ,全 区。 
狄 利 克 莱 条 件 , 把 边界 点 的 值 定 广 为 时 间 的 晒 散 : 诺 伊 蝇 茶 件 . 划 赋 了 这 更 上 上 风 
向 梯度 值 : 行 波 边 界 条 件 .下 是 折 说 有 条 体 ， 
本 章 19, 1 节 一 19. 3 节 将 介绍 凡 和 和 不同 形式 的 初 倡 神 题 。 我 食 的 内 容 并 不 计生 . 胆 己 车 通 
过 一 些 仔 网 挑 选 的 典型 范例 ,给 该 者 提供 大 量 概 括 几 的 知识 ,这 些 例子 说 明 个 重 此 的 四 
想 : 在 原则 上 ,计算 时 须 特 别 广 意 算法 匈 作 定性. 仁 初 值 问题 中 ,许多 加 似 合理 的 算法 . 韦 实 
上 并 不 能 运行 一 一 其 数值 是 不 科 定 的 ， 


19.0.2 边界 值 问 题 


守 义 “ 候 边 界 值 问题 需 回 答 如 下 问题 : 
“变量 是 什么 ? 
* 哪些 广 程 在 计 论 的 区 域内 癌 成 立 ? 
"哪些 方程 在 ;这 光 域 能 过 办 上 上 逐 点 成 立 ?( 邓 一 阶 生 贺 方程 , 犹 利 点 某 条 什 和 诺 儒 曼 
条 件 吓 航 可 能 的 选择 条 件 , 但 也 可 能 渴 判 更 加 复杂 的 过 界 条 件 。， 
与 初 值 问题 相反 .对 于 边界 值 问题 ,得 定 忻 相 柱 窜 声 获得 .这 样 一 天 ,算法 条 效 妥 ,下 括 
计算 量 和 存 镶 的 需求 ,就 驱 了 原则 上 的 重点 。 
由 于 边界 值 问题 中 ,所 有 的 条 件 都 必须 < 同时 地 ”满足 ,因此 这 些 乒 题 至 少 在 禾 仿 上 ,者 
常 可 简化 为 大 量 联 立 代 孝 方 但 的 求解 . 当 这 些 方 各 为 正 线 性 时 ,通常 采用 线 注 化 成 迁 代 的 办 
法 米 求解 .因此 ,不 拓 -- 般 性 ,我 们 可 以 把 边界 值 问题 看 求解 特殊 的 大 线性 方程 组 ， 
作为 将 在 第 19. 4 节 一 第 19.6 节 中 年 为 “此 型 阿 题 " 引 用 的 一 个 例子 ,证 我 们 葵 虑 -下方 
程 (19.0. 3) 的 有 限 莽 分 解法 .用 函 数 x(z,y) 在 离散 点 售 上 的 取 值 来 代表 函数 眉 身 
2 一 下 十 01. 
2 一 加 十 地 ， 0 
其 中 4 为 网 格 间距 .从 现在 起 ,我 们 用 &， 吉 未， Cr :用 请示 Bfziy) 用 -个 下限 鞠 
分 表达 式 ( 见 图 19. 0. 2) 代 蔡 方 程 (19. n. 3); 


《1 





E-HIE 281 十 证 
一 2 < 平 一 bp， 19 
或 者 等 价 地 为 : 
一 十 二 9. 


为 了 把 这 个 线性 方程 组 系统 写 为 矩阵 形式 ,我 们 需要 从 x 中 构造 一 个 向 最 ,车 芒 有 -个 
一 维 序列 来 标记 网 格 点 上 的 一 维 信息 ， 


1 运作 了 十 1 十 1 对 =0,1.yV，! 一 0,1..., 工 国耻 同 ( 
换言之 , 沿 表示 > 值 的 列 数 ,; .上升 得 最 快 .方程 (19. 0. 6) 现 在 在 为 ; 
了 + 十 2 ab 十 zi 一 中 -1 42 一 :pp 罗 届 淹 名 和 


该 方程 仅 在 内 点 /一 1,2,… 了 7 一 1 一 1:2,，… 工 1 处 成立 。 
位 于 
/=0 有 妈 了 一 0,...,] 
了 = [ 邯 上 = 了 7 二 1) JE 十 1) 十 工 ] 
702 ， 


一 0 即 六 -0 一 上 7 代 一 上 全 
7 一 工 [ 即 / 一 - 站 2 
处 的 点 为 迪 界 点 。 在 这 些 贞 上 .或 者 是 xz 或 者 是 疏导 数 正经 给 定 , 如 时 我 们 拒 所 有 的 "于 
知 ? 和 信息 者 训 到 方程 人, 0 5 的 吉 端 , 则 该 方 穆 具 有 形式 为 
Au = h (0Dn 10) 
其 中 息 阵 A 共 有 如 图 19,0. 3 所 示 的 形式 ， 
定 阵 A 的 被 称 为 * 带 边 的 三 对 角 型 ” 矩 阵 ， 0 二 阶 线 性 栓 圆 方程 : 


巡 瑟 


cz, 妨 了 十 bz， 3) 22 十 ero3) OA 


元 
【10.75. .1 
避 2 


DY 


其 相 立 下 陈 险 了 起 零 项 不 为 常数 外 ,有 着 与 A 相似 的 结构 。 


十 evy) ， 一 Cry) 一 By) 





在 人 点 的 二 阶 导 散 用 图 路 所 示 的 与 4 相连 接 的 点 来 估算 ;在 号 点 的 一 障 导 数 也 用 
机 这 接点 来 估算 ,同时 还 讨 到 "记录 硕 ”的 这 界 信息 , 几 符 刀 侣 玫 示 。 
图 19.0.2 在 一 纵 网 档 上 .二 阶 桶 证 方程 的 有 限 益 分 图 


粗 略 地 分 类 ,有 三 种 不 同 的 方法 可 求 鲁 方 种 (9. 0. 16) ,当然 并 非 处 处 适用 ; 惧 驰 法 * 决 
速 "法 (如 愈 里 叶 方法 ) 和 声 接 所 阵 法 ， 
松 驰 法 直接 利用 稀疏 惩 阵 A 的 结构 ,把持 阵 A 分 成 两 部 分 ， 
“702。 


点 一 也 一平 RE 
其 中 , 眉 站 容易 求 造 的 撮 峰 ,是 余 值 .因而 忒 (15 10) 变 或 : 
Eu 一 FF'u0 | hb 人 
松 驰 法 包括 选择 u 的 初始 值 ww ,然后 通过 逐次 六 解 ,从 
忆 ut 一 站 ou7 十 上 (| 
迭代 获得 u。 由 于 选择 下 容易 求 逆 . 央 而 每 步 法 代表 很 沁 速 。 我 们 将 在 19.5 生 汪 1 二 力 
详细 地 讨论 松 驰 法 。 


增 大 /一 > 



































本 一 -一 一 .|/ | 吉 “一 一 一 ee 汪 


所 有 未 标明 的 元 索 为 0， 该 得 隆 有 自 交 为 二 对 前 线 旬 的 对 鹏 块 ,这 种 形式 的 敌 际 被 人 为 "六 并 
能 三 对 间 弄 乞 阵 "一 个 站 此 陋 级 的 算 阵 干 改 斤 者 示 的 完整 外 形式 行 钼 - 


村 19.0.3 所 二 人 玲 酉 圆 方程 5 在 丝 产程 19.5 67 导 汕 的 下 阵 结 构 


所 谓 的 快速 法 拓 仅 适用 一 类 相当 特殊 的 方程 :这 些 方 程 具有 常 系数 .或 者 更 - 般 地 ,在 
已 选择 的 坐标 系 中 ,它们 是 可 分 离 的 ; 另外 , 边 春 必须 与 坐标 轴 恒 合 。 这 类 特殊 方 性 在 实际 让 
用 中 冶 常 通 到 ,我 们 放 到 19. 4 节 和 做 着 细 讨论 。 但 请 注意 ,将 在 19.6 节 讨论 的 多 网 格 松 音 法 二 
能 比 * 快 速 法 " 述 要 快 。 

铬 阵 法 力 网 直接 求解 方 穆 





其 实用 程度 极 强 地 依 琢 于 当前 问题 中 矩阵 A 的 具体 结构 ,因此 ,我 们 在 这 - -点 上 的 讨论 .所 
跟 于 一 些 评述 和 提示 。 

矩阵 的 稀疏 程度 必须 首先 考虑 , 否则 矩阵 问题 将 非常 巨大 .例如 ,个 在 100x 1550 忠 
空间 网 络 上 最 简单 的 阿 题 , 将 涉及 到 10000 个 未 知 的 &W， 安 蓝 含 一 个 10000X 10000 的 算 
阵 A, 包 会 10 个 元 素 ! 

正如 我 们 在 第 2. 7? 节 未 届 讨 论 的 ,如 果 A 是 对 称 正 定 的 (在 椭圆 问题 中 通常 如 此 ) ,那么 
oj 以 使 用 共 斩 梯 庶 算 法 .在 实际 应 用 中 . 舍 人 误差 经 常 破坏 了 共 斩 梯 度 算 法 求解 有 限 疮 分 方 
程 的 效果 .但 是 在 这 种 方法 中 , 如果 首先 改写 方程 .使 窍 阵 A 变换 成 与 单位 阵 近 亿 的 下 阵 
A" ,那么 上 方法 还 是 可 轩 的 . 落 时 ,这 些 方程 定义 的 一 次 曲面 都 具有 近似 的 球形 轮廓 ,并且 
共 罗 习 度 算法 运行 效果 很 好 。 在 第 2. 7 节 的 程序 linbeg 中 ,一 个 类 似 的 预 条 件 器 被 用 来 以 更 
…… 报 的 双 共 氏 简 度 法 求解 非 正定 问题 .至 于 在 PDEs 中 出 现 的 正定 情形 ，. :个 成 功 的 使 用 此 
方法 的 例子 是 Cholesky 的 不 完全 共 酌 梯度 法 (ICCG) (参见 [6 一 8])， 

另 一 种 依赖 于 变换 手段 的 方法 是 斯 通 (Stone) 提 供 的 强 隐 和 式 过 程 6:，… 个 运用 该 过 程 名 
为 SIPSOL 的 程序 已 发 表 , 参 见 [10]。 

第 三 类 窍 阵 法 是 如 第 2. 7 节 所 捕 述 的 分 析 一 一 因子 分 解 一 一 运算 的 方法 。 

总 而 言 之 , 当 所 具有 的 内 存 可 以 使 用 上 述 抑 阵 法 一 一 道 常 是 不 超过 10:, 但 却 比 松弛 法 
所 需 容量 大 得 多 时 一 - 则 可 以 考虑 使 用 之 .此 时 只 有 多 网 格 松 驰 法 (第 19. 6 节 ) 可 己基 佳 的 
矩阵 法 相 媲 美 .但 当 网 格 大 于 300X300, 我 们 一 般 会 发 现 , 只 有 松 驰 法 ,或 “快速 "法 (在 其 可 
用 时 ) , 才 是 可 能 的 方法 。 


19. 0.3 有 限 差分 以 外 的 众多 方法 


除了 有 限 养分 方法 ,还 有 - 些 方法 可 以 求 迷 人 情 微 分 方程 ,最 重要 的 有 有 限 元 法 .蒙特 卡 
罗 法 、 谱 方 法 和 变 分 法 。 录 憾 的 是 ,我 们 企 本 章 只 能 对 有 限 差 分 法 作 “ 些 仔细 介绍 ,本 书 将 不 
对 其 它 方 法 进行 讨论 .有 限 元 法 5 尤 为 固体 机 械 学 和 结构 工程 学 的 实际 工作 震 们 偏爱 ， 
这 种 方法 在 设置 计算 元 素 的 位 置 时 ,提供 了 相当 大 的 自由 度 ,在 处 理 高 度 不 规则 的 地 学 问题 
时 ,也 非常 重要 ; 谱 方 法 " 玉 适 于 非常 规则 的 地 学 问题 和 光滑 函数 ,其 收敛 已 有 限 差分 法 快 
得 多 (参看 第 19. 4 节 ) ,但 对 不 连续 的 问题 ,该 方法 效果 并 不 好 。 


参考 文献 和 进一步 读物 : 
由 Ines ， 厂 .FE 1977，Nzrmrericudl adeiocgy or Portiatd DEFerential 开 guations，2hd sd，《New York: 
内 cademic Press)，[1 7 

Richtmyer， 及 .了 D. ，and Mortony 开 . 砚 .1967，PDEPerence Jethods fo Fntial Yatlue ProMem，2nd ed. 
《New Yprk;Wiley-lnterscjence)，[21 

Roache， 耻 .J，t976，Comtpaetiafional Fara DaarmnicifAlbuoquerque : Hermosa).T3] 

Miitchell， 六. R.，and Griffiths 、 齐 . 玉 、198D，T 5 Fronte PDFfererce feipod im Partial 下 eremfrat 匹 qra- 
tons (New York:Wiley) [includes discussion of finite elerment methods]， [4 

Dorr， F, W、1970 ,S74a7 Rerier，vol，12，pp，248 一 263，[5] 

Meijerink ， 本 .上 ，and van der Vbtrst， 于 ,六 ，1977， WHYatpemtatici or Compidiaton， Yo、 31，pp，148 一 162. 
[6] 

Van dsr Vorsty， 末 . 站, 198] 、amid Jowrned or Copmpttatzoneg PhAystcsyvol、d41， pp 1-15 [review of sparse i 
704。 


eraiive merhods].[?1 

民 ershawr 站 S，197D、Jasaraeag popbaetetzonagd PPoiite vol，26，pp，43~ 3 

Slope， 日 .JJ 1968，S 3 orrmdl cpl atrpriit 所 有 rss vao]，EPp 3 一 558，! 9] 

jesshope ,CR 民 ，] 明 8、Copipotter 天 Pasicr CozrrDanetzras vol 17、bp383 一 391，[67” 

Stan .art Fix。 人、 1973，3P pages rn 1epag 人 ehpd CREnglesonpd CE NT Pen 
ticc-Halt)、 站 1 

Burnett， 站. 与 ，1587。、Fzoaie 瑟 tezheRE 人 GENST :TCD 10 pcafeany【 Reading，MNA :cson Wes- 
jey). [12] 

(rottlieb ， 也，and Orszag，83. 入 、1377 ，Naterreol RM OP Spectral Meihaody:THRorY ad Decasneas 
《Phiiadelphisa:S.I, A-M, )，[132 

[Canuto: CC ，Hussairl，MTY ，Quarteroni，. ，abnd Zang， 人 ,上 由，1988，Speceral erhotty me 
Pa New York:Sprimger-werlag)、[1t- 

Boyq， 上 PP 1989，CReBysher en oarer 四 ecoratl efhodi 《New York:Springer-Veriag3 [1 


19.1 通 量 守恒 的 初 值 问题 


一 维 空间 的 .大 类 仿 微 分 方 种 初 值 :随时 间 发 展 ) 问 题 , 可 以 归 入 通 量 守恒 方程 的 老式 ， 





9u erFtuo) :1 1 
本 7 一 林 19. 1.1] 


其 中 心 和 下 为 向 量 , 且 ( 存 某 些 情况 下 )F 不 但 依赖 二 u, 而 六 依赖 于 的 空 碧 导数 . 称 问 其 
F 为 守恒 通 量 . 
例如 ,典型 的 双 曲 型 方程 ,具有 常数 传播 速度 * 的 一 维 波 动 方程 : 


2 一 这 了 上 
二 轩 人 【| 号. 1,2》 
上 式 订 以 改写 成 两 个 - - 阶 方程 的 方程 组 ， 
人 
5 2 37 
9 1 1 
ay -97 人 19. 和 3 
品 二 一 计 到 
其 中 
二 aa 
7 
了 引导 .1. 二 > 
”下 


在 这 种 情况 下 ,> 和 < 成 为 u 的 两 个 分 量 , 而 通 景 了 则 由 线性 矩阵 关系 确定 ， 





和 2 人 | 作 记 
(19, 1.27) 


Fu) 去 二 0 上 
《精通 物理 学 的 读者 可 能 会 发 现 ,方程 (19. 1. 3) 类 似 于 麦克 斯 书 (Maxwell) 的 … 维 电磁 波 传 
播 方程 .) 
在 本 节 ,我 们 将 考虑 一 般 的 通 量 守 局 方程 (19. 1. 1 的-- 个 与 型 例子 ., 关 于 光标 基 的 
方程 ， 





全 一 2 3 (19. 1.6)》 


其 中 中 是 常数 .对 这 种 情形 ,我 们 已 经 定性 地 知道 ,该 方程 的 通 解 是 一 列 沿 x 轴 正 方向 传播 
的 波 : 
一 yz 一 对 ) “19. 1.7》 
其 中 了 为 一 任意 的 函数 .当然 ,我 们 探讨 的 数值 解法 将 同样 适用 十 式 (18, 1..1》 所 表示 的 更 
如 一 般 化 的 方程 .在 一 些 文章 中 ,方程 (19.1. 6) 被 称 为 对 流 方程 ,因为 量 x 是 通过 速度 为 
的 “流体 流动 " 米 传 送 的 。 
如 何 对 方程 Cs 1, 6) 5 或 类 似 地 ,对 式 (19, 1. 1) ?进行 有 限 差分 呢 ?一 种 简单 明了 的 方法 
是 , 沿 上 轴 和 输 作 等 距 节 分 ,等 分 点 可 表示 为 ; 
-7 一 Z0 十 Jar 了 一 0 .7 
加 一 在 斤 二 人 有 1， 
用 好 表示 xbyzi), 我 们 有 多 种 方法 袁 示 x 的 时 间 导 数 项 ,一 种 明显 的 方法 是 取 


避 az 到 


了 
二 去 十 OA) 二 的 二 





1 


这 叫做 欧 拉 向 前 荆 分 法 (参见 方程 (16. 1,1))。 虽 然 欧 拉 向 前 差分 法 只 有 一 阶 精 讶 ,但 它 有 - - 
信 优 点 ,就 是 仅 用 第 ”时 间 层 的 已 知 值 , 即 可 计算 > 十 1 时 间 层 的 值 .对 于 空间 导数 ,我 们 可 
以 使 用 二 阶 精 确 的 友 示 式 , 仍 然 只 用 到 ”时 间 晨 的 已 知 值 ， 








= 守 5 定 :O(4a) (19, 1. 9) 
了 
由 此 而 得 到 的 方程 (19. 1. ?的 有 限 差分 逼近 称 为 FTCS 表示 (即时 间 向 前 空间 中 心 差分 ): 
十 - = 一 ?多 『 了 一 24 
多 元 2 一 一 串 2 《19. 1.11) 


很 容易 将 上 式 变换 成 利用 其 它 量 计算 由 :的 公式 ,FTCS 格式 的 图 解说 明 殉 图 19. 1.1. 它 是 
算法 的 一 个 很 好 的 例子 , 另 于 推导 ,占据 极 少 内 存 六 让 算 还 速 , 但 实际 上 却 糟 得 充 法 运行 。 
《请 看 修文 。) 


或 了 
在 该 图 向 后 画 的 图 中 ,空心 锣 疼 是 希望 求解 所 在 的 新 点 实心 图 国 是 已 知 点 ,其 函数 值 用 壮 计 算 新 点 ; 实 线 连接 用 于 
计算 空 但 导 六 的 点 ; 雪 线 则 连接 用 王 计 算 时 间 导 孝 购 点 ;对 双 曲 型 问题 FTCS 格式 ,通常 不 确定 ,故道 常 不 能 使 用 ， 
申 19.1 1 时 间 向 前 空间 中 心 关 分 格式 (FTCS) 的 图 未 





- 


FTCS 表示 基 一 种 显 式 格式 ,这 意味 着 任意 / 值 的 x+ 均 可 由 已 知 的 值 明确 地 算出 .后 
面 我 们 将 过 到 牌 式 格 式 , 它 要 求 我 们 对 不 同 的 了 求解 精 食 ?1 的 隐 式 方程 ,( 对 于 常 匠 分 方 
7D6。 


程 的 显 式 和 和 隐 式 方法 在 第 16. 6 节 已 讨论 了 .JFTCS 算法 也 是 一 个 单 层 格式 的 例子 , 历 为 为 
计算 第 ”十 1 时 层 的 佳 ,只 项 存 储 第 ” 时间 层 的 值 。 


19.1.1 冯 ' 诺 伊 曼 稳 定性 分 析 


非常 遗 鲈 ,方程 (19. 1. 1 的 用 处 很 有 限 , 它 是 种 不 稳定 的 方法 ,只 能 用 米 ( 如 果 确 实 要 
用 ) 研 究 一 小 段 振荡 时 期 里 的 波 , 为 了 寻找 具有 更 普遍 适用 性 的 替代 方法 ,我 们 必须 先 介绍 
一 下 冯 . 诺 伊 田 稳定 性 分 析 。 

冯 * 诺 仇 蝇 (Von Neumann? 分 析 是 局 部 的 :我 们 假设 差分 方程 的 系数 变化 非常 缓慢 ,以 
致 于 可 未 为 时 间 域 和 空间 成 中 航 常 数 . 在 此 情况 下 ,该 盖 分 方程 的 无 关 解 或 称 为 特征 模 ,，… 
律 共 有 形式 为 

2 辣 ed 119. 1. 12? 

其 中 天 是 实 的 空间 波 数 ( 可 取 任 意 值 ),=8(R) 是 依 下 于 & 的 复数 .关键 之 处 是 ,每 个 特征 便 
的 时 间 依赖 性 只 不 过 是 复数 的 连续 整数 次 等 ,因此 ,如 果 对 某 些 上 和 值 ,18(E)| 1, 则 痊 分 
方程 是 不 稳定 的 ( 即 有 指数 上 升 的 趋势 ). 的 值 被 称 为 在 已 知 波 数 上 处 的 放大 因子 . 

为 了 获得 sk) ,我 们 只 需 简 单 地 将 式 (19.1. 12) 代 入 (19.1.11), 除 以 名 ,得 : 


8) 一 1 一 : 2Esinkaz (19. 2， 33》 


对 任何 站 值 , 它 的 模 数 均 福 1, 因 此 ,FTCS 格式 旦 无 条 件 不 稳定 的 。 

如 果 速 度 " 是 上 和 z 的 函数 , 则 在 方程 (19. 1. 11) 中 ,我 们 应 写 和 人 邓 。 在 汉 * 诺 伊 皮 稳定 
性 分 析 中 ,我 们 仍 将 " 表示 为 常数 ,因为 对 v 缓慢 变化 的 情形 ,分 析 是 局 部 进行 的 .事实 上 
即使 在 * 为 严格 常数 时 , 汉 * 诺 伊 蜡 分 析 也 不 能 严格 地 处 理 在 /一 0 和 ;一 ./ 处 的 终端 效应 ， 

- 更 一 般 地 ,如 果 方 程 右 端 对 * 是 非 线性 的 ,那么 通过 改写 x&=zm 十 bu 将 方程 展开 为 bz 

的 线性 方程 , 则 汉 ' 诺 伊 晕 分 析 将 可 以 线性 化 .很 设 zx 的 值 已 完全 满足 差分 方程 , 旭 冯 . 诺 供 
虹 分 析 旨 在 寻找 fx 的 一 个 不 稳定 特征 模 。 

尽管 当 " 诺 仇 蜡 方 法 不 很 严 ,但 它 一 般 得 出 正确 的 答案 .而且 比 其 它 更 仔细 的 方法 容 
易 使 用 得 多 ,因此 ,我 们 只 采用 这 种 方法 进行 分 析 。( 参 见 [1], 对 其 它 稳 定性 分 桥 性 法 的 计 
论 。) 
19. 1,2 Lax 方法 


FTCS 方法 的 不 稳定 性 可 以 前 过 Lax 的 一 企 简 单 变 换 得 到 修正 , 奉 换 时 间 导 数 项 中 的 
2 为 其 平均 值 ( 见 图 19. 1.2)， 


网 一 言 (人 工 邮 -) 69.1. 1 
则 式 (19.1. 11? 变 为 ， 
io 十 几 一 交 yd，) (9.1. 15) 
将 之 代入 方程 (19. 1. 12) 中 ,我 们 发 现 放大 因子 ; 
和 = coskaz 一 ?sinka 《TI9. 1 16) 


由 稳定 人 性 条 件 1s|: 委 1 得 要 求 ， 
“707， 


忆 | 宗 SS 
tr- 一 


这 便 是 著名 前 Courant-Friedriche-Lewy 稳定 此 准则 ,通常 被 简称 为 Courant 和 条件 . 占 
灿 地 ,这 梓 稳 定性 茶 件 可 以 理解 如 下 ( 见 几 19. 1. 31: 在 方程 (19.1.15) 中 ,最 io 记 站 时 寻 
在 点 关 1 积 /1 处 的 信息 计算 而 得 ,换言之 ,z， ,和 < 是 允许 为 w-: 传递 信息 的 空间 区 
域 的 边界 .现在 想 一 想 在 连续 的 波动 方程 中 .信息 以 最 大 速度 v 传播 ,如 果 点 好” 在 图 19. 
1.3) 所 示 的 阴影 之 外 , 则 它 需要 从 比 该 益 分 格式 允许 的 位 置 更 远 处 的 点 中 获得 信息 ,缺少 的 
那些 储 息 必 导 致 不 个 定 , 因 此 ,At 不 能 选 得 太 大 . 


1 04125151 


工 或 f 
定义 如 前 网 ,该 格式 的 秘 定 性 益 见 天 则 屁 Cou>ant 条 件 。 
图 13.3.2 Lax 差分 格式 的 国 示 


z 或 天 





《by 


13)》 


一 个 机 人 委 辣 题 的 偏 祯 分 方程 萄 含 着 :u 在 某 一 点 的 值 取 决 于 过 去 的 某 例 束 区 域 中 的 信息 ,在 此 示 为 项 影 ,一 种 差 
分 了 赂 式 也 有 其 月 年 的 依赖 区 城 , 该 依赖 区 城 由 一 个 时 间 与 上 (以 实心 图 的 亿 接 表明 ) 点 的 选取 来 确定 , 向 时 后 且 
上 的 值 巴 焉 聘 定 一 个 新 点 (以 虚线 连接 表明 ,如 果 差 分 格式 的 优 蜀 区 域 上 了 于吉 微 分 方程 的 依赖 区 城 , 出 该 冀 分 
方案 是 Courant 稳定 的 :如 图 中 避 ? 情 形 ; 而 如 虹 两 背 基 系 相 反 , 则 流落 分 格式 不 稳定 ,如 图 中 人 b) 所 不 。 


加 19. 1.3 差分 格式 稳定 人 性 的 Courant 杀 件 


方程 (19. 1. 14) 的 简单 替换 稳定 了 FTCS 格式 ,这 个 邻 人 吃惊 的 结果 使 我 们 第 一 次 亲身 
体会 到 , 偏 微 分 方程 的 差分 是 一 门 科 学 ,也 是 一 种 技巧 .为 了 一 定 程度 地 减少 这 种 技巧 的 神 
秘 感 ,让 我 们 改写 方程 (19. 1. 15) ,使 之 具有 方程 (19. 1. 11) 带 有 余 项 的 形式 ,然后 比较 -下 
FTCS 格式 和 Lax 格式 ， 


ET] -， 全 at# 一 z 了 2azcx# 十 zz | 
| 1 
趣 | 5 =+ | 艺 | (19.1.318) 
这 恰恰 号 吨 方 程 ; 


0。 








3 司 开 晤 人 2 
了 上 9r 24 
的 FTCS 表示 。 其 中 ,一 维 情形 下 , 双 :-=3253 司 事实 上 ,我 们 是 在 方程 由 加 入 -个 扩散 
项 ,或 者 ,回忆 一 下 粘 洁 流体 运动 的 Navier 一 Stbokes 方程 ,是 加 了 一 个 耗 散 项 .因此 Lax 格 
式 被 认为 具有 数值 耗 散 或 数值 帖 度 .我 们 在 放大 四 了 中 也 会 发 现 这 -点 :除非 lz 恰巧 等 
于 Ar, 否则 有 |$4<1 并 且 波 的 振幅 假 训 减 。 

假 训 减 是 不 是 比 假 上 升 好 些 呢 ?回答 是 肯定 的 .我 们 看 望 精确 研究 的 只 培 是 包含 许多 网 
属 点 ,因此 有 kaz<<1( 空 间 波 数 k 在 方程 (39.1.12) 中 记 定 义 )。 对 于 这 些 尺 度 , 放 大 因子 
在 稳定 格式 和 不 稳定 格式 中 ,者 可 视 为 非常 接 这 于 1，, 因 此 稳定 格式 和 不 稳定 格式 基本 上 辐 
等 地 精确 ,但 是 ,对 我 们 不 感 兴趣 的 短 尺 度 , 其 中 kar 一 1, 使 用 不 稳定 格式 却 将 摧毁 和 淹没 
解 中 有 意义 的 部 分 .而 稳定 格式 的 情形 就 好 得 多 .其 中 短波 氏 部 分 豪 无 影响 地 消失 .稳定 格 
式 和 不 稳定 格式 对 这 些 短波 长 部 分 都 总 不 精确 的 ,但 当 格式 稳定 时 ,这 种 不 精确 是 一 种 可 以 


〈i9.1.19》 





容忍 的 性 在。 
当 独 立 变 量 上 是 一 个 向 量 时 , 治 . 庶 伊 司 分 析 稍 稍 复杂 .例如 ,我 们 可 以 考 患 把 方 种 (15， 
上 3) 改写 为 ， 


了 7 Da ws 
了 中 =- 图 (19.1.20) 
对 该 方程 使 用 Lax 方法 :， 
二 
人 二 0 十 台子) 
119.1.21) 


4 VE ，。 
5 一 王 (G 人 六. 七 线 一 zt 和 5 


通过 假设 特征 模具 在 如 下 (向 量 ) 还 式 , 继 续 进 行 冯 * 诺 伊 最 稳定 性 分 析 : 


-ee 。 ] (19.1.22) 
其 中 , 右 端 的 向 量 (在 空间 域 和 时 间 域 ) 是 党 特征 向 量 ,和 以 前 “ 样 是 复数 .把 式 ;19. 1.22) 


和 找 入 (19. 上 .2) 再 除 以 车 名 ,得 齐 次 向 量 方程 ， 


{coskAz) 一 & 革 zesinkar 


| ] | 0 1 -9 1 23) 
e 一 【了 工 和 2 
[ 2 Sesinkaz 【cos&4y) 一 上 阅 0 ] 


当 虑 仅 当 左 边 矩 阵 的 行列 式 等 于 0 时 ,该 方程 有 角 , 由 此 条 件 ,很 容易 得 到 的 两 个 概 : 
8 coskar 汪 ; 5sinkAr 9 .249 


稳定 的 条 件 是 师 个 根 都 满足 ! 引 ss1, 结 果 恰 好 又 是 式 (19.1. 17) 的 Courant 条 件 ， 
19.41.3 其 它 种 类 的 误差 


迄今 为 止 , 我 们 己 经 详细 探讨 了 振幅 误差 , 它 与 差分 格式 的 稳定 姓 和 不 稳定 性 月 着 紧密 
联系 , 当 我 们 转移 注意 力 到 精确 度 上 而 不 是 稳定 性 上 时 ,还 有 其 它 种 类 的 误差 与 之 相应 ， 
双 曲 型 方程 的 有 限 卷 分 格式 可 以 呈现 色散 或 者 相位 误 益 .例如 方程 (19. 1. 16;nj 以 重 与 


700 。 








和 一 2 十 计 ] 一 - | SiTL 训 已 估 《19， .231 


侍 剖 一 -个 审 始 波 群 都 具有 不 同 & 慎 的 波 展 的 达 如 ,在 每 个 时 间 层 上 ,波形 依据 不 同 的 类 值 乘 
工 - -个 本国 的 相位 因子 (9.1.25) 如果 4 一 Ar , 则 因为 每 仿 波 形 乘 以 ezp( 下 ar) 所 
以 能 得 波 群 中 每 个 波形 的 精确 解 六 7 zt 对 于 这 个 4 俱 , 方程 (19. 1. 25) 表 明 有 上 限 美 分 
启程 解 是 精确 的 解析 解 . 然 奋 , 若 xs4t7Az 不 确切 地 等 于 1, 波 形 的 相位 关系 可 能 变 得 混 矶 不 
堪 , 并 且 波 群发 散 - 由 式 (19.1.25) 可 知 ,只 有 要 波长 变 得 与 网 格 间 隧 ar 可 幅 比拟 ,这 种 色散 
将 变 大 ， 

第 三 类 误差 与 非 线 性 双 典 型 方 检 相 联系 ,办 此 有 时 被 叫 佣 非 线性 不 稳定 性 . 例 加 ,流体 
运动 的 欧 拉 方程 或 Navier-Stokes 方程 的 一 部 分 研 表 示 为 : 

一 《19. ,262 

关 十 ”的 非 线 性 项 可 能 导致 倩 里 叶 空 间 中 ,从 长 波 放 向 短波 长 的 能 量 转换 ,这 引起 波形 
蛮 陡 ,直至 乖 直 形状 或 "冲击 波 ?” 发 生 - 汉 ' 诺 候 总 分 析 中 指出 ,稳定 性 取决 于 ar, 因此 一 种 
在 平缓 波形 下 稳定 的 格式 ,可 能 在 陡峭 波形 下 变 得 不 稳定 .党 -种 差分 格式 中 ,人 铺 里 叶 空 间 
的 级 联 丝 止 在 网 格 上 可 代表 的 最 短波 长 处 , 即 有 一 17az 处 时 ,这 类 吧 烦 将 会 出 现 .如 果 能 量 
简单 以 这 些 方 式 累 加 ,最 终 必 然 淹没 我 们 感 兴趣 的 长 波长 形 忆 的 能 量 。 

非 线性 不 稳定 性 和 油 波 的 形成 ,可 一 定 程度 地 ,通过 前 面 讨论 的 方程 (19. 1. 18) 中 的 数 
信 粘 度 来 控制 .但 一 些 流 体 问 题 中 , 激 波 的 形成 不 仅仅 是 件 烦 恼 的 事情 ,而 过 是 一 种 其 细节 
有 待 研究 的 , 流 人 的 实际 物理 行 恤 , 西 此 ,仅仅 有 数值 丫 度 尚 不 足 够 或 尚 不 足以 进行 控制 。 我 
们 将 在 后 面 从 流体 动力 学 角度 对 这 个 复杂 的 问题 作 进一步 的 过 沦 。 

对 于 波动 方程 ,传播 误差 (振幅 或 相位 ?经 常 是 最 令 人 头痛 的 ,而 对 于 对 流 方 程 ,传导 误 
差 则 往往 揭 今 人 关 津 。 在 方程 (19. 1. 15) 的 Lax 格式 中 ,对 对 流量 * 在 网 格 点 ) 处 的 扰动 ,将 
传 至 下 一 个 时 间 层 前 网 格 点 ;一 1 和 1 ,大 过 在 灾 际 中 ,如 果 速 音 w 是 正 的 , 则 仅仅 到 格 
点 JJT] 会 党 到 影响 。 

使 传导 性 质 得 到 "改善 "的 最 简单 记 法 是 使 用 迎风 姜 分 法 ( 见 图 19.1.4)， 





人 《19.1.271 


， 可 所 
| TS 0 


注意 ,这 种 格式 在 空间 导数 的 计算 上 仅 是 一 阶 精 确 度 ,而 不 是 二 阶 精确 产 , 择 样 才能 使 
它 * 丙 好 " 呢 ? 答 案 令 数学 家 们 不 太 满 意 ; 按 严格 的 数学 意义 ,数字 模拟 的 目标 并 不 一 定 是 " 精 
痪 "的 .但 在 较 不 严格 ,更 着 重 实效 的 意义 下 , 市 些 时 候 , 却 能 忠实 于 潜在 的 物理 过 程 .由 于 这 
国 因 , 某 些 误 差 就 比 其 它 情形 区 容易 接受 得 多 .对 寺 那 些 对 流 变 量 易 于 经 历 状 态 突变 的 问 

题 ,例如 经 睫 激 波 和 其 它 不 连续 情况 那 祥 ,迎风 差分 在 总 体 上 提高 了 问题 的 逼真 性 .对 这 此 
问题 ， 读者 就 得 根据 自己 问题 的 特殊 物理 性 质 来 具体 分 析 解 决 ， 

对 于 式 419, 1, 27) 的 差分 格式 , 放 太 因子 (对 常 值 必 是 ， 


,有 =1 一 宇 |a 一 cosRAz) -~ Sesiakaz (19.1,.28) 








上 一 1 ?| 党 j | 王 |ja =- soskaz) (19.1.29) 


由 此 可 知 ,稳定 性 准则 | 礁 工 恰好 又 是 Courant 杀 件 (19. 1. 27) 。 
马 


秘 -一 一 -一 -一 一 -一 自 


况 风 的 


当 对 流 常 数 " 是 负 的 村 ,如 图 书 所 示 , 上 而 的 格式 是 移 定 的 ! 再 当 对 流 沉 数 。 是 正 的 时 ,也 正明 图 
中 所 示 , 下 面 的 格式 基 稳 定 的 , 当 热 ,Courant 条 件 也 是 必须 要 满足 的 。 


图 19,.1.4 地 风 差 分 格式 的 图 示 


有 多 种 方法 可 改进 一 阶 迎风 差分 的 精确 度 ,在 连续 性 方程 中 , 起初 竹 上 距 vat 远 的 物质 在 
一 个 的 时 间 间 隔 后 ,到 达 预 定 的 点 在 一 阶 方 法 中 ,物质 通常 从 相距 Az 以 远 的 地 方 而 
来 ,如 果 vi 王 < Az( 以 确保 精确 度 ) ,可 能 会 导致 大 的 误差 。 一 种 减少 这 种 误差 的 方法 是 ， 
在 传导 之 前 ,j 一 1 和 了 之 间 对 x 进行 插值 ,这 就 得 到 了 一 种 有 效 的 一 阶 方法 。 二 阶 迎 风 差分 
的 各 种 格式 在 [2 一 3 中 进行 了 讨论 和 比较 。 


19.1.4 时 间 域 上 的 二 阶 和 精确 度 


在 使 用 一 个 时 间 域 中 一 阶 精 确 , 空 间 域 中 二 阶 精确 的 方法 时 ,人 们 往往 不 得 不 使 vaAr 和 
远 小 于 Ar, 例 如 至 少 有 5oAr 科 Ar, 以 获得 期 望 的 精确 度 。 因 而 ,在 实际 运用 中 ,Courant 条 
件 实质 并 不 是 这 些 格式 的 限制 因素 .好 在 有 在 时 间 域 中 和 空间 域 中 均 为 二 阶 精 硫 的 格式 ,并 
旦 ,这 些 格式 通常 可 与 它们 的 稳定 性 限制 相 吻 合 ,故而 只 用 到 相对 较 少 的 计算 次 数 ， 

例如 ,对 于 守恒 方程 (19.1. 1) 的 交错 跳 步 方法 可 以 定义 如 下 ( 亢 图 19, 1, 5) ;利用 在 时 间 
所 时 的 值 加 ,计算 流量 情 , 然 后 利用 流量 的 时 间 中 心 值 ,计算 新 值 sn+3， 


2 一 和 一 - 全 (P9 到 :和 ) 〈I9.]. 30) 


交错 腺 步 的 名 称 歌 自 这 样 一 个 事实 ;时 间 导 数 项 中 的 时 间 层 按 “ 跳 步 " 暑 过 空间 导数 项 中 的 
时 间 层 .这 种 方法 需要 存储 -与 xm 以 计算 wr-:。 
对 于 我 们 简单 的 典 现 方程 (19. 1.6) ,交错 路 步 法 采用 格式 ， 


* 71]I。 


四 一 《19. 1 .31 


由 于 把 特征 模 表达 式 (19. 1. 12? 代 入 方程 (19.1. 3t) ,出 现 了 《s 的 汪 个 相 邻 次 宕 ,故此 时 .党 
庶 伊 蝶 稳 定性 分 析 给 出 了 《的 一 个 一 次 方程 ,而 不 是 线性 次 方 称 ， 





旦 -1 一 283esinkax (19.1. 323 
其 解 为 ， 
户 一 一 一 -一 
WAr . 7 | 二 站 
& = 一 一; ATsinkAr 证 下 一 1 sinkAz| (1B. 1 33) 


可 见 Courant 条 件 再 次 戌 为 稳定 的 条 件 。 事 实 上 ,在 方程 (19, 1, 33) 中 ,对 任意 vAf 所 ay. 均 
有 1si 一 1。 这 上 是 交错 员 步 法 的 巨大 优势 : 设 有 板 幅 的 发 散 。 





NE 
| 
1 或 叫 | 
| 交 请 且 步 
| 自 
| 加 


工 或 / 
注意 ,来 自 先前 两 个 时 间 层 的 信息 葵 用 于 获得 期 望 点 ,这 种 格式 在 时 间 和 空间 中 均 是 二 阶 精 确 的 


疼 19.1,: 交错 由 步 差分 格式 的 图 小 


如 果 变 莉 处 于 适当 的 半 网 孔 点 的 中 心 ,那么 形 如 方程 (19, 1, 20) 的 交错 隶 步 差分 会 更 加 
清楚 明了 . 记 : 


严 En 一 共 





人 3 
六 -过 忆 并 2 从 人 
JJT122 
《19. 1. 34) 
中 十 上 172 一 一 9 玉 人 李 和 吕 
3 一 二 闷 








这 纯粹 是 为 子 记 法 上 的 便利 ,我 们 可 认为 这 是 定义 > 和 * 的 网 格 , 它 比 定义 韧 始 变量 的 网 
格 加 网 了 一 倍 .方程 Q19. 1. 20) 的 跳 步 差分 为 ; 


7 7 1 3 二 人 
卫 所 4z 
， (19.1. 35) 
2 二 于 7 0 感 -2 
全 Ar 
若 将 方程 (19. 1. 22)》 伐 入 方程 (19, 1. 35) 中 ,就 会 发 现 ; 又 是 Courant 条 件 为 稳定 人 性 所 带 , 疙 


“7?12， 





六 9.1.30 和 代入 方程 (19.1. 35) 中 , 便 会 发 现 方程 (19. 1, 35 等 从 于， 





2 一 信 2 罗 116. 1. 36》 
(CQ (az 机 


这 正 是 波动 方程 (19, 1. 2 的 “通常 ?能 二 阶 养分 形式 .我 们 还 发 现 这 是 一 个 双 层 格式 .因为 为 
获得 xz"”… 需 已 知 ir 和 如- ,这 一 点 在 方程 (18. 1. 35) 趾 表现 为 :为 改进 解 , 需 短 交 ?和 王 ， 

对 于 比 这 简单 的 典型 方程 更 复杂 的 方 程 ,特别 对 于 非 线性 方程 ,这 种 方法 在 梯度 变 大 
时 ,通常 变 得 不 稳定 .这 种 不 稳定 性 与 奇偶 网 阁 点 的 完全 解 烛 现 象 有 关 ,如同 图 19. 1.6 所 示 
的 一 个 棋盘 的 黑白 方块 .通过 一 个 数值 粘度 项 耦合 了 硒 偶 网 孔 , 就 可 以 克服 这 种 网 孔 漂 移 的 
不 稳 性 ,这 粘度 项 例如 企 式 (19. 1. 31) 布 睛 加 入 一 个 小 系数 (二 <1) 缚 以 几 2d3 十 迪生 
于 通过 增加 数值 发 若 使 差分 桥 式 稳定 的 方法 ,参见 | 4。 








如 果 网 情 点 被 假 轻 为 放 在 一 个 棋盘 的 方块 中 ,那么 白 方 格 与 白 广 格 耦合 , 黑 方 格 与 所 方 的 轿 合 ; 
却 没 有 有 蛙 白 方 格 之 问 的 太 合 - 格 下 的 睛 法 六 引入 一 个 小 的 扩散 的 网 孔 氢 合 项 。 


避 19.1.6 在 交错 跳 步 格式 中 网 妃 漂移 不 稳定 性 的 起 因 


两 步 Lax- 到 endroff 糙 式 是 ,一 种 可 以 避免 大 的 数值 发 散 和 网 孔 际 移 的 、 在 时 间 域 上 二 
阶 精确 的 方法 .人 们 在 半 个 时 间 层 _ 和 半 个 现 孔 点 Zi+l2 处 定 义 中 间 值 zx 六 ;2 通过 LaX 
二 -72 -一 避 : 共 n3 一 -一 
帮 玫 个 一 2 十 吧 ) 2 妇 7 ) {19. 1.37) 
利用 这 些 变量 可 以 计算 通 量 K 荆 ,然后 新 值 必 +: 可 通过 适当 整理 得 到 的 表达 式 来 计算 ， 


了 有 二 
丽人 (19. 1. 38) 


了 


临时 值 邮 ? 双 现在 就 被 念 奔 了 ( 训 图 19.1.7)。 





两 步 Lax Wendroff 时 
4 
且 
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1 或 玫 





工 或 
两 个 半 层 上 的 点 加) 用 Lax 方法 计算 :这 西点 加 上 起 始点 中 的 一 个 ,适用 交错 胱 步 法 ， H 吕 计算 新 点 . 半 
步 上 的 点 仪 暂 时 使 用 , 沾 需 要 鸯 许 点 上 的 存 鳍 分 配 , 这 种 格式 在 时 间 和 空间 上 泡 是 - : 阶 精 确 的 。 

图 19. 1,7 肯 步 Lax 一 殉 endro 才 益 分 殿 式 的 图 示 


让 我 们 考虑 -下 对 于 我 们 的 典型 对 流 方 程 这 种 方法 的 稳定 性 .其 中 下 =-uzx, 把 式 (19. 1， 
37) 代 入 式 (19.1. 38) 得 ， 


一 | 言 cc? 十 上) 一 玫 e(eg 一 寺 》 


(19.1.39)》 
三 言 ( 十 z 1 十 六 <( 一 地 

其 中 

“= 2 (19.1.40) 
由 此 可 得 ， 

8 一 1 一 icsinkAz 一 wz(l _ coskAr) (19,1.41) 

故 有 ， 
1 一 1 一 al 一 oz)(] 一 coskaza (19.1.42) 


因此 稳定 性 准则 | 大 1, 即 是 :< 委 1 或 如 通常 的 vAz 卖 Azr。 顺 使 说 一 下 ,不 能 认为 Courant 
条 件 是 出 现 企 微 分 方程 中 的 唯一 的 稳定 性 要 求 . 之 所 以 在 我 们 的 典型 例 了 中 , 它 一 直 是 稳定 
性 条 件 , 仅 仅 因 为 我 们 的 例子 在 形式 上 都 太 简 单 了 .不 过 ,分 析 的 方法 是 通用 的 ， 

除了 < = 一 1 的 时 候 , 式 (19.1.42) 中 均 有 [el:<1, 因 此 会 出 现 一 些 振幅 衰减 .不 过 由 于 波 
长 是 足以 与 网 格 大 小 Az 相 比 拟 ,因此 这 处 影响 相对 较 小 .如 果 我 们 对 小 的 &Az 展开 (19. 1. 
42) ,我 们 可 得 ， 


才 
ls = 1 -edl 一 0 全 十 (19.1.43) 


对 1 的 偏离 仅 出 现在 上 的 4 次 方 处 .该 式 应 与 使 用 Lax 方法 所 得 的 等 式 (19. 1,16) 对 比 ,由 
该 式 可 得 ,对 小 的 &az 有 ， 
下 | 一 1 一 (1 一 o2)(RAr)2 十 … 《19, 1 44) 
* ?14， 


总 的 说 来 ,我 们 建议 对 风 可 她 入 流量 守恒 方程 形式 的 初 值 问题 , 或 使 用 交错 跳 步 方法 .或 使 
用 两 步 Lax-Wendorf 方法 .对 那些 对 传导 误差 敏感 的 问题 ,迎风 差分 或 它 的 “种 改进 可 以 
考虑 使 用 。 


19.1.5 含有 激 波 的 流体 动力 学 


前 面 我 们 曾 提 过 ,含有 激 波 的 流 本 动 彤 学 问题 的 处 理 , 是 一 个 平常 复杂 和 繁琐 的 课题 。 
我 们 在 这 里 ,只 想 给 读者 介绍 一 些 和 该 课题 有 关 的 基本 内 容 。 

激 波 的 处 理 基 本 上 有 三 个 重要 的 一 般 性 方法 .最 古老 也 是 最 简单 的 方法 赴 由 汉 : 诺 曼 
《Von Neumann) 和 Richtmysr 提出 来 的 ,该 方法 是 给 方程 加 上 横 扼 粘性 来 模拟 芷 实 粘 性 对 
不 连续 体 的 光滑 方式 .实现 该 方法 的 一 个 较 好 的 出 发 点 是 ,文献 [1] 中 第 12. 11 节 中 的 产 分 格 
式 。 该 格式 对 几乎 所 有 的 一 维 空间 问题 都 非常 适合 。 

第 二 种 方法 是 一 个 高 叭 差分 格式 和 一 个 低 阶 莽 分 格式 的 兰 合 ,前 者 适用 于 平稳 流 .而 后 
者 相当 耗 散 并 能 滤 除 激 波 .特别 是 ,各 种 不 同 的 迎风 差分 格式 的 结合 使 用 ,除非 极 陡 的 梯度 
出 现 ,否则 其 权 数 的 选取 一 般 能 将 低 阶 格式 调整 为 等 , 呵 且 这 些 权 数 的 选取 也 能 施 如 各 种 
“单调 人 性 "限制 ,从 而 防止 数值 解 中 出 现 非 物理 性 振 动 .从 文献 [2,3,5] 来 研究 这 些 方法 ,效果 
一 定 很 好 。 

第 三 种 ,可 能 也 是 最 有 效 的 一 种 方法 是 Godunov 法 .这 里 我 们 扫 弈 基于 泰 营 级 数 的 有 
限 差分 法 中 所 蕴含 的 简单 的 线性 化 思想 ,而 直接 处 理 方程 的 非 线 性 ,对 于 由 一 个 不 连续 体 分 
隔 的 流体 的 两 个 均 勾 状态 的 演化 阅 题 , 即 Riemann 激 波 问题 有 解析 和 解 .Godunov 的 想法 是 ， 
用 大 量 均匀 状态 的 单 体 来 近似 地 表示 流体 ,并 利用 Riemann 解 将 其 接合 起 来 .Godunev 法 
现在 已 有 很 多 的 形式 ,其 中 最 有 效 的 可 能 是 PPM 法 吴 。 对 所 有 这 些 方法 的 评述 .以 及 对 一 维 
方法 推广 到 多 维 时 的 讨论 ,请 阅 参 考 文 献 [7 一 9] 。 
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19. 2 ”扩散 初 值 问题 


可 顾 典 型 的 抛物 型 方程 ,一 维 空 间 上 的 扩散 方程 为 : 
3 中 - Qt 、 
口 二 日 江 彰 
其 中 忆 为 扩散 系数 .事实 上 ,该 方程 是 一 个 在 上 节 讨 论 过 的 通 量 守 恒 方 种 .具有 .上方 中 的 流 
量 ， 


《1 和 >] 


太一 六 中 8 (9,2,2) 
辽 定 


我 们 将 假设 刀 0, 否 虽 方 程 (19, 2.1)? 具 有 物理 上 的 不 稳定 解 : -个 小 的 扰动 逐渐 变 得 越 来 
越 集中 ,而 不 是 发 散 开 去 (不 要 徒劳 地 去 为 个 偏向 分 方程 自身 就 不 稳定 的 问题 ,去 垦 找 稳 
定 的 差分 格式 .) 

尽管 式 (19. 2. 1) 是 : -种 已 经 讨论 过 的 形式 ,但 它 还 是 经 沼 被 当 作 一 种 以 其 月 身 方式 出 
现 的 生 型 范例 .流量 (19. 2.2) 的 特殊 形式 和 它 的 直接 礁 广 形式 ,在 实际 运用 中 出 珊 得 非常 频 
繁 .更 进一步 地 ,在 许多 其 它 情 烷 下 ,我 们 已 经 看 到 ,数值 粘 虚 和 人 上 上 类 上 度 也 订 能 引入 象 (19. 
2. 1) 右 端 所 示 的 扩散 项 。 


首先 考虑 也 是 常数 时 ,方程 
避 下 可 2 SR 
及 林 (19,2,3) 
可 用 一 种 明显 的 方式 进行 其 分 得 
Et 一 z 让 
是 一 1 了 2 
2 吕 | 针 Ca ] (19.2.4) 


除了 上 廊 程 右 端 进行 差分 的 旦 一 个 二 阶 导数 以 外 ,上 式 即 又 是 FTCS 格式 了 .但 这 却 有 了 天 壤 
之 别 .FTCS 赂 式 对 双 曲 型 方程 是 不 稳定 的 ,而 -个 快速 的 计算 将 表明 ,方程 (19, 2, 4 中 的 
放大 轩 子 为 ， 





4 DA 炎 Az 1 、 
一 1 Ta SIln | 了 | 《9.2.56) 
由 | 引 所 1 的 要 求 可 得 稳定 性 准则 : 
2D4 ， 
Caz 全 1 《19.2.6) 


限制 条 件 (19,. 2. 6) 的 物理 解释 是 :允许 的 最 大 时 间 步 长 是 穿 过 宽度 为 Az 的 方 格 的 扩散 时 
间 ,直至 一 个 数值 因子 。 
更 一 般 地 , 穿 过 一 个 大 小 为 的 空间 区 域 的 扩散 时 间 = 的 量 级 为 ， 

网 记 (19.2.?) 
通常 ,我们 对 精确 地 模拟 之 > Azr 的 空间 区 域 中 的 特征 的 演变 很 感 兴趣 .如 果 我 限 币 时 间 
步 长 满足 式 (19. 2. 6)， 在 获得 我 们 感 兴趣 的 区 域 中 的 有 关 信 息 之 前 , 我 们 必须 通过 量 级 为 
4/aAzz 的 步 数 来 发 展 , 这 个 步 数 通常 是 多 得 不 能 运行 的 ,因此 ,我 们 必须 寻找 种 稳定 的 方 
法 ,其 中 时 间 步 长 可 与 式 (19.2.7) 的 时 间 量 级 相 比拟 ;或 者 ,为 精确 起 见 , 一 定 程度 地 小 于 式 
(19. 2, 7) 的 时 间 量 级 。 
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这 一 目标 提出 了 一 个 直接 的 “哲学 ”让 题 ,. 昂 然 .我 们 建议 采用 的 大 的 时 息 步 长 ,入 我 
们 不 感 兴趣 的 小 区 域 是 极 不 精 歼 的 ,而 我 们 希 电 那些 区 域 中 的 性 能 稳定 “ 匹 害 ”, 并 让 : 形 
的 话 不 应 过 分 地 在 物理 上 不 合理 .我 们 趣 把 这 种 无 密 性 能 如 入 我 们 的 姜 分 格式 中 , 它 又 过 心 
笃 样 的 呢 ? 
有 两 种 不 同 的 答案 ,每 个 答案 有 其 自身 的 优点 和 缺点 ,第 一 种 方法 是 寻找 “种 藉 分 格 
式 , 使 小 区 域 中 的 特征 达到 其 笠 衡 形式 .例如 ,满足 左 只 内 为 0 的 万 程 (19. 2 3》 这 种 亡 法 
般 具 有 最 好 的 物理 意义 ,但 正如 我 们 将 牛 到 的 , 它 只 能 对 应 一 种 在 我 们 感 兴趣 的 民 域 中 , 关 
于 时 间 域 上 是 一 阶 精确 的 差分 格式 (人 "全 隐 式 ”). 第 -种 方法 是 ,让 小 范围 中 的 硅 征 保 圭 扶 初 
所 幅 值 ,以 使 得 我 们 感 兴趣 的 较 太 区 域 中 的 特征 变化 ,与 小 区 域 中 的 * 诬 结 "( 虽 然 自 想 供 ) 背 
景 相 选 加 地 进行 .这 种 方法 提供 了 -- 种 在 时 间 域 上 二 阶 精 确 的 莽 分 格式 己 Crank- 
Nicholson 格 去 )， 不 过 在 一 个 变化 过 程 的 计算 快 结束 时 ,人 们 可 能 希望 转换 为 上 一 种 方法 
的 一 些 时 间 层 .以 使 小 范围 中 的 状态 达到 平衡 ,现在 ,让 我 们 看 一 下 这 些 独特 的 自分 方法 从 


何 得 来 ， 
考虑 方 穆 (19. 2. 3) 的 如 焉 盖 分 式 : 
2 =- 人 下 .2.8) 


除了 友 端 的 空 司 导数 是 估算 的 第 十 1 时 间 层 外 ,该 式 完全 就 同 FTCS 差分 格式 “” 样 , 这 种 
特征 的 格式 与 子 TCS( 称 为 全 显 式 ) 相 对 急 .被 你 为 全 隐 式 或 时 间 后 移 式 .为 了 求解 方程 (19， 
2. 8) ,人 们 不 得 不 在 每 个 时 间 层 解 “个 联 立 的 线性 方程 组 以 求 得 好 7!。 吾 运 的 是 .该 系统 是 
三 对 角 型 的 ,所 以 ,这 只 是 一 个 简单 的 问题 :只 需 适 当 合 并 方程 (19. 2.8) 中 的 项 : 


一 1 十 2e)0 一 2 一 ,2.7 一 1 (19. 2.93》 
其 中 
人 
2 有 119.2. 10) 





加 上 天 0 和 j= 了 处 的 铬 利克 菜 边 界 条 件 或 诺 伊 曼 边 更 条 件 ,方程 (19. 2. 5) 是 .个 三 角 击 
系统 , 它 在 每 个 时 间 层 都 很 容易 用 第 2. 6 中 的 方法 求解 . 

对 于 非常 大 的 时 间 步 长 , 式 (19. 2.8) 的 情形 如 何 呢 ? 当 限 极 < ~ :Cat 一 ) ,在 式 (19， 
2. 9) 中 答 守 可 以 看 得 很 涛 在 : 式 (19. 2. 9) 晒 边 除 以 ,我 们 发 现 该 差分 方程 就 是 半 窗 方程 


彰 开 
了 一 六 (19.2.11) 
的 有 限 益 分 形式 

该 差分 方法 稳定 性 如 何 ? 方 程 (19. 2,8? 的 放火 因 子 是 ， 


一 本 二 (9.2.12) 


1 十 4e sin:(232) 
显然 对 任 襄 步 长 Ai 有 儿 |<1, 这 种 格式 是 无 条 件 地 稳定 的 .从 初始 条 件 发 展 变化 的 小 区 域 
的 绍 节 ,对 于 大 的 4 ,显然 是 不 精确 的 ,但 正如 前 面 己 经 证 明 的 ,正确 的 平衡 解 已 经 获得 .这 
也 应 是 隐 式 方法 的 特征 所 在 。 
另 一 方面 ,通过 把 稳 式 方法 的 稳定 性 和 在 时间、 空间 上 均一 阶 精 确 的 方法 的 精确 性 综合 
起 来 ,让 我 们 看 看 如 何 满 呈 上 述 富有 哲理 性 答案 的 第 二 个 方 曾 . 直 接 把 显 式 和 稳 只 FTCS 格 
77。 





式 平均 得 ; 





”一 权 冯 引 2 一 各 十 2 十 0 一 227 十 2 (19 人 13) 
入 2 (az - 


其 中 ,左边 各 右边 都 以 时 间 层 = 十 十 为 中 心 , 故 这 种 方法 正如 前 面 所 称 ,是 时 间 城 上 一 阶 精 
确 的 .其 放大 因子 : 
上 一 2 sin*(43) 


& 一 《19.2. 141 


1 十 2?e sinz(32) 

故 这 种 方法 对 任意 大 小 的 At 均 是 稳定 的 ,这 种 格式 被 称 为 Crank 一 Nicholson 格式 ,也 正 是 
我 们 对 任意 的 简单 扩散 问题 要 推荐 的 格式 (可 能 在 最 后 几 层 要 补充 一 些 全 陷 式 步子 )( 驳 图 
1 和 275 


- 


FTCS 
或 4 


La 
襄 
忆 


- 


(ec Crank-Nicholson 


S 
内 
如 
拓 


ka) 是 时 间 问 前 空间 中 心 差 分 格式 , 它 是 - 阶 精 确 的 , 担 只 对 足够 小 的 时 间 步 长 稳定 ;(b) 是 全 隐 
式 格式 , 它 对 什 党 大 的 时 间 步 长 均 稳定 ,但 仍 继 只 是 一 阶 精 疯 的 ; (c) 是 Crank 一 Nicholson 格式 ， 
该 履 式 是 二 阶 精确 的 ,日 对 大 的 时 间 步 长 世 通 常 是 称 定 的 。 


图 19. 和 1 扩散 问题 的 三 种 差分 式 ( 图 示 方 法 同 于 图 19. 1. 2 


现在 转向 简单 扩散 方程 (19, 2. 3) 的 一 些 一 般 形 式 .首先 ,假设 扩散 系数 刀 不 是 常 教 . 设 
厂 二 王 (z), 我 们 可 以 采纳 上 述 两 种 方法 中 的 任 一 种 。 首 先 , 作 一 个 变量 的 解析 变换 ， 
= | 芝 ; (19. 2. 15) 
那么 


"， 718。 


让 读 -总 玉 
全 后 【 
六 总 可 天 
灾 成 了 
各 
9 1 小 Ga 3) 





ar 万 CD 天 
对 适当 的 妇 * 可 以 革 算 万 :由 此 可 得 : 显 式 帘 式 中 的 稳定 性 准则 019.2. 6) 变 成 了 : 
而 计 末 1 2.18) 
注意 , 沿 > 是 常 烙 步 长 ,并 不 意味 着 沿 r 也 是 常数 步 长， 
一 种 并 不 紫 求 忆 易 解 析 处 奸 形 式 的 锻 代 方法 是 ,对 扩散 方 邦 (19.2.163 很 简 音 所 头 分 、 
在 该 方法 中 ,对 每 个 灾 基 适当 好 集中 ,从 订 FTCS 梅 式 恋 成 了 ; 


0 一 虽 疙 ee 一 也 ， 1 于 








(az 
其 书 
PP := Da ia) (13. 2.20) 
相应 的 稳定 性 准 划 是 : 
min[ Ca ] (1 和 22) 


所 2271 
贞 Crank-XMichclson 方法 可 以 被 很 从 易 籽 扒 广 。 
第 二 种 可 以 考虑 的 复杂 情况 是 非 线性 扩散 辣 题 ,例如 方程 万 -= 万 (z)。 显 趟 格式 可 用 简 
单 的 方法 推广 ,如 在 方 程 (19. 2. 19) 中 , 记 
了 .> 一 了 LPDtas ) | PC) 人 | 汪 


隐 式 格式 就 不 这 么 简单 了 . 式 (19. 2 22) 中 用 ?十 ] 的 蔡 换 ,在 每 个 时 间 层 都 鲁 治 我 们 
组 难以 处 理 的 耦合 的 十 线性 方程 ,通常 有 “种 更 秘 单 的 方法 : 设 厂 (ze 能 形 代 也许 我 们 六 < 
(解析 地 积分 ， 


cz 一 门 (alev (2 23 
式 (19. 2. 1) 的 右 喘 将 变 为 Diz73 居 ,可 好 之 陷 式 莹 分 为 : 
人 1 2 2 





规 在 对 方程 (19.2. 24) 右 峭 的 每 项 线性 化 ,例如 : 


2 口 & 
和 
“ 2 门 9. 2. 25 


一 2 十 《一 De ) 
这 使 问题 简化 成 三 对 角形 式 , 而 习 在 实际 户 题 ,通常 也 保持 了 隐 式 营 分 的 稳定 性 你 基 ， 
19.2.1 薛 定 计 方 程 
有 时候 ,党 待 解 决 的 物理 问题 给 我 们 还 未 考 卉 的 差分 格式 加 了 限制 .比如 ,在 最 力 子 学 
中 ,依赖 于 时 间 的 阵 定 请 (Schredinger) 方 程 ,这 是 一 个 关于 复数 量 少 演变 的 趴 弄 双 册 型 万 
程 由 于 每 个 波 群 以 一 维 位 势 了 (7z) 发 散 ,方程 具有 形 六 ， 
?19， 


这 和 T() 《19.2. 26? 
林 工 
《在 此 我 们 选择 了 单位 使 普 郎 克 CPlank) 常 数 关 =1, 质 点 质量 因 一 172)。 已 知 初始 波 奉 gr 


一 0) ,并 已 知 边界 条 件 为 x* 一 士 cs 时 , 双 >9 假设 我 们 满足 于 时 间 域 上 一 阶 精确 度 ,但 希望 使 
用 隐 式 格式 以 求 稳定 , 则 将 式 ( 19, 2.8)? 稍 作 推 盖 得 : 














抱 区 和 |- 多 - 2 好 | 了 ;dr+1 日 pz1 
并 了 (Ar 十 多 (19. 2. 27 
其 中 
1 
> 友基 下 全 有 | (19. 2. 28》 
1 


这 是 无 条 件 稳定 的 ,人 世 中 人 居 的 却 不 是 么 正 的 .基本 的 物理 问题 要 求 ,在 某 处 发 现 徽 粒 的 总 概 
率 应 保持 为 单位 1. 这 一 点 可 以 通过 几 的 模 平 方 冰 数 保持 为 1 来 正式 地 表示 : 

赂 | 区 sdr 一 1 (19. 2. 29) 
将 初始 波 函 数 由 xD) 归 一 化 以 满足 (19. 2. 29) .于 是 , 薛 定 请 方程 (19.2. 26) 便 保证 了 在 以 


后 任意 时 刻 , 这 一 条 件 均 满足 。 
让 我 们 把 方程 (19. 2. 26) 写 成 如 下 形式 : 


1 一 天 (19.2. 30) 
其 中 , 算 子 妃 为 :: 
石 一 一 -2 十 Ya (19. 2. 31) 
方程 (19. 2, 30) 的 形式 解 为 ， 
今 (st) 一 eegKzyO) 《19. 2. 32) 


其 中 算 子 的 指数 形式 由 其 攻 极 数 展开 来 定义 。 
用 显 式 FTCS 格式 近似 表示 式 (19. 2. 32) 为 ， 


多 (1 一 调和 ) 几 (19. 2. 33) 
其 中 恕 用 治 上 的 中 心 有 限 差分 的 逼近 来 表示 。 相 比 之 下 ,稳定 的 小 式 格式 (19, 2. 27) 为 ; 
多 (1 一 丰 AD) 央 《19. 2, 341 


通过 展开 方程 (19. 2. 32? 可 以 发 现 ,这 两 种 格式 均 在 时 间 域 上 是 一 阶 精 确 的 ,但 式 (19. 2. 33) 
中 蕴 算 子 和 式 (19. 2. 34? 中 的 算 子 都 不 是 么 正 的 。 

对 检 定 刘 方 程 差 分 的 正确 方法 是 ,采用 Cayley 格式 给 出 e- 汉 的 有 限 差 分 表示 ,这 种 格 
式 是 二 阶 精确 的 ,并 且 是 么 正 的 ， 


1 一 二 4 
2 过 Ce 《19。 2， 351) 
换言之 ,有 : 
全 这 了 多 1 一 (1 -. 到 AD9 《19.2. 36) 


"720， 


此 时 … 旦 采油 = 的 有 限 差分 的 近似 来 代替 五 .我 们 便 到 -- 个 待 解 的 复 三 对 角形 系统 .这 种 
求解 薛 定 户 方 程 的 方法 是 稳定 的 , 么 正 的 ,并 且 在 时 间 和 空间 上 均 是 .一 险 精 确 的 . 执 实 上 这 
种 方法 恰好 就 是 Crank.Nicholson 方法 ， 
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19.3 多 维 的 初 值 问题 


在 第 19. 1 节 和 第 19.2 节 中 介绍 的 针对 1 十 ! 维 ( 一 维 空间 和 一 维 时 间 ) 问 题 的 方法 ,可 
以 很 容易 地 推广 到 六 十 1 维 训 间 , 候 是 ,求解 相应 方程 所 需 的 计算 能 力 却 是 扣 大 的 。 如 果 用 
100 个 空间 网 格 点 解决 了 “个 一 维 回 题 ,那么 ,解决 具有 100X100 个 网 格 点 的 一 绯 问 题 全 
少 需 要 多 于 100 倍 的 计算 量 . 因 此 ,对 多 维 问题 ,通常 不 得 不 满足 于 非常 勉强 的 空 下 解 . 

证 我 们 详细 介绍 -一 点 关于 求解 和 检验 多 维 偶 微 分 方程 的 解 的 经 验 : 通 常 读者 应 在 非常 
小 的 网 格 上 ,如 8X8 ,运行 和 窒 验 自己 的 程序 ,即便 相应 结果 的 精确 度 差 得 蛮 无 用 处 。 只 有 
程序 被 全 面 调 试 并 证 明了 稳定 性 , 才 可 以 增 大 网 属 点 的 大 小 到 一 个 适当 的 程度 ,并 开始 观察 
其 结果 .我 们 实际 上 听 过 一 些 人 说 :我 的 程序 对 于 粗粮 的 网 格 可 能 大 不 稳定 的 ,但 我 确信 ,这 
种 不 稳定 性 在 较 大 网 格 中 将 会 消失 .这 种 观点 非常 荒 雇 , 它 体现 了 对 精确 度 和 稳定 人 性 概念 的 
完全 混淆 事实 上 ,倒是 新 的 不 稳定 性 有 时 会 在 较 估 攀 格 中 出 现 ， 而 眼 的 不 稳定 伺 却 绝 允 不 
会 (根据 我 们 的 经 验 ) 消 失 。、 

由 于 不 得 不 采用 中 等 大 小 的 网 格 ， 有 些 人 建议 运用 更 高 阶 的 方法 ,以 力图 长进 精确 度 ， 
这 是 非常 危险 的 .除非 欲求 的 解 已 知 是 平滑 的 ,并 且 所 要 用 的 更 高 阶 方法 已 知 是 非常 稳定 
的 ,否则 绝 不 能 建议 采用 任何 时 间 域 中 高 于 一 阶 的 方法 (对 一 系列 的 一 阶 方程 组 )。 对 于 空间 
益 分 ,我 们 建议 采用 原 偏 微分 方程 自身 的 阶 数 , 可 能 也 人 允许 对 空间 上 的 一 阶 偏 微分 户 程 采用 
一 阶 空间 差分 。 当 提高 一 种 差分 方法 的 阶 数 ,使 之 高 于 原 偏 微分 方程 的 阶 数 时 ,将 会 对 差分 
方程 引入 擅 解 .如 果 伪 解 恰巧 都 是 指数 衰减 的 , 那 不 会 有 什么 问题 ! 反 之 ,将 而 临 -- 片 混乱 。 


19. 3.1 通 量 守恒 方程 的 Lax 方法 
作为 一 个 例 于 ,让 我 们 看 看 如 何 把 Lax 方法 19. 1. 15) 推 广 到 守恒 方程 的 二 维 博 形 








dz ， 本 二 口 天， 0 
于 一 一 VEF 一 [天 5 9.3.10 
采用 空间 阿 格 ， 
一 To 十 
19. 3.2) 
3 一 十 过 
为 简单 起 见 ,我 们 选 拼 了 Ay=Azr=A; 故 Lax 格式 为 
0 一 二 ( 吧 过 民 十 琴 十 二 


把 





人 (18. 3. 31 
注意 ,作为 缩写 符 导 ,， 丁 本 ;对 应 屎 .而 放 -, 和 态 -\ 对 应 的 是 天。 
让 我 们 村 这 个 典型 对 流 方程 (类 似 式 (19. 1. 6 ?进行 稳定 性 分 析 , 设 
下 一 TyEs 下 《5 
这 使 每 个 特征 模 虽 然 企 时 间 于 仍 德 单 地 依赖 于 必 的 方才 .但 在 空间 中 却 是 两 维 数 了 : 
呈 示 本 et13ect 人 《1 
代入 方程 (19. 3. 3) ,我 们 得 到 ， 
E 一 于 (cosksa 一 COSgRG) 一 了 OrslnRy 人 一 了 QvSID 中 ,2 《3 
此 中 
和 | 
鼠 .. 一 本 ， Qy 一 人 长 玫 二 


| 和 的 表达 起 可 以 被 整 理 成 高 下 形式 : 
一 1 一 Csinsk ea 一 sinsksa)| 于 人 < ] 


(19. 3.81 
。 (cos 机 COS 帮 、 冯 ) (2-S1n 和 .STDn 吧 3 
最 后 两 项 是 负 的 ,所 以 稳定 性 要 求 上 "过 : 成 为 
(or 0 《19.3.9) 
眠 者 
加 《18.3.10) 


一 矶 oo 
下 面 是 关于 N 维 Courant 条 件 的 : - 般 形 式 的 个 例子 : 设 !ai 是 该 问题 中 最 太 的 传 抒 束 雯 、 
则 右 








人 (49.3.11) 
为 Courant 茶 件 。 
19, 3.2 ”多维 的 扩 茹 问题 
让 我 们 考虑 一 下 二 维 扩散 方程 
芝 = 可 说 + 党 | (19.3. 2) 


-种 最 式 方法 ,如 ETCS ,可 以 从 一 维 情形 很 容易 地 进行 推广 然 天 ,我 们 已 经 知道 ,扩散 癌 
题 通常 最 好 是 障 式 地 处 理 . 假 设 我 们 力图 使 用 二 维 的 Crank 一 Nicholson 格式 ,将 有 : 


zi 一 zy 十 立 e 二 《19.3, 133 
其 中 
< 一 2 aar 一 wy 《19.3. 14) 


从 人 9 


对 35 有 类 似 的 式 子 , 六 确实 是 一 可 可 行 的 格式 . 机 可 题 出 现在 戒 解 烛 合 的 线性 地 程 组 的 
时 候 . 尽 管 矩 阵 攻 是 非常 稀 焉 的 ,但 -一 绚 空 间 中 的 一 对 角 理 系统 却 林 复 夺 在 了 ,… 砷 后 能 性 
是 使 用 适当 的 稀疏 矩阵 方法 ( 见 第 2.7 节 和 第 15.0 节 )。 

另 .种 可 能 的 解法 ,也 是 我 们 一 般 更 喜欢 使 用 的 ,是 对 …- 般 Crank Nicholsc:a 算法 所 梢 
微 变 形 , 它 仍 是 时 间 和 空间 上 .- 阶 靖 确 的 ,并 下 是 无 条 伴 稳 定 的 ,但 其 方程 比 起 去 119.3.13) 
要 容易 解 些 。 这 和 格 式 被 称 作 交 巷 方向 稳 式 法 (ADJ) ,其 中 包含 了 算 子 分 裂 或 时 司 分 裂 这 入 


非常 有 用 的 思想 ,我 们 将 在 后 面 二 论 更 多 细节 ,在 此 我 们 天 知 诞 , 这 种 噶 想 十 则 人 在 把 徊 个 0 
闻 层 洲 站 /2 的 大 小 分 裂 成 两 层 , 开 每 个 了 民 , 沿 不 同方 向 进行 隐 式 处 理 。 
2 
(六 日 ) 
0 殉 11 人 全 本 3 人 1 


这 种 方法 的 优点 是 ,在 每 个 了 层 仪 需 监 求解 -个 简单 的 三 对 角 弄 系统 。 
19. 3. 1 一般 算 子 分 裂 法 


算 子 分 裂 ,也 称 为 时 间 分 裂 或 分 数 步 法 ,其 中 心 由 想 基 , 假 定 有 .个 切 值 方程 形 为 、 
5 su 019. 3 
其 中 区 是 其 个 算 子 .虽然 双 不 -- 定 必须 是 线性 的 ,但 假定 它 至 少 可 以 写成 大 个 浅 性 部 分 
的 和 , 午 加 作用 到 zx 上， 
Sa 一 Ge 人 
最 后 ,假定 对 于 每 个 线性 部 分 ,已 经 知道 从 时 间 步 到 时 间 步 n 一 1 能 修改 变量 | 几 “ 仲 善 
分 格式 ,而 且 只 要 该 线性 部 分 是 右 端 唯一 的 一 项 ,这 种 差分 格式 就 可 使 月 .我们 将 六 些 修改 
形式 写 为 
MT1 一 名 (nyAe) 
ee 《0.3. 93 
8 一 At 
规 在 , 算 子 分 油 一 种 形式 ,通过 从 到 z 廿 ] 的 下 述 修改 序列 得 到 ， 
it 一 2 (anyar) 
Mo 一 吻 [aCanliym al) 
9 
iT 一 人 rar erbmsAt) 
例如 ,一 个 复合 对 流 -扩散 方程 


丈 一 一 > 和 十 万 了 5 [19, 34. 21) 
对 该 方程 中 的 对 流 项 采用 - 种 显 式 属 式 , 曾 对 扩散 丈 采 用 Crank-Nicholson 或 共 它 陷 武 人 
式 可 能 会 很 有 利 。 


?23 。 


交 蔡 方向 隐 式 (ADI) 法 ,见方 程 (19. 3, 16)， 是 … 个 稍微 不 同 的 算 子 分 裂 的 示例, 让 我 们 
重新 解释 一 下 方 得 (19. 3. 19) ,使 其 具有 一 个 不 同 的 含义 : 今 多 0 ,表示 一 种 修改 方法 ,这 种 
方法 包括 整个 算 拖 笃 的 所 有 代数 部 分 ,而 它 只 期 望 对 和 弓 : 部 分 和 定 ;其余 和 pp 与 到， 
类 似 . 那 么 ,从 如 到 如 -1 得 出 的 一 币 新 方法 是 

2 一 尼 EL 2AiAM)》 
pe 十 2 本 一 交 a(xkrrlimyAtrnz) 
《19. 3. 22) 
TEA+1 一 cn 《aa 一 Ca- To ytpar) 
现 材 式 (19, 3. 22) 中 ,每 个 分 数 步 的 时 间 步 氏 只 是 整个 时 闻 步 氏 的 1 ,因为 每 个 怕人 微 分 运 
算 作 用 在 原始 算 子 的 所 有 项 上 ， 

对 于 算 子 罗 ,方程 19. 3. 22) 作 为 … 个 盖 分 格式 虽然 不 总 是 ,但 也 通 人 当 
实 上 银 据 经 验 , 通 常 只 要 使 空间 导数 最 高 的 算 子 项 上 县 有 和 侯 定 的 w: 一 其它 入. 可 以 不 稳定 

-就 能 司 整 个 属 式 稳定 。 

正 因 为 这 一 点 ,我 们 的 讨论 将 从 初 值 问题 转向 边 兴 值 问 题 .这些 内 容 将 占据 本 章 的 剩余 
部 分 。 


19.4 边界 值 问题 的 傅 里 叶 方法 和 循环 约 简 法 


”正如 在 第 19. 0 节 所 讨论 的 ,大 多 数 边 界 值 问题 (如 椭圆 型 方程 ?可 约 简 为 求解 如 下 形式 
的 ,大 的 稀 琉 线性 系统 
Au 一 (9.4.1) 
或 是 对 线性 的 边界 午 方 程 一 次 性 求解 ,或 是 对 非 线 性 的 边界 值 方程 法 代 求解 。 
当 稀 疏 算 阵 具 有 某 种 常见 的 确定 形式 时 ,用 两 种 重要 的 技巧 可 得 方程 (19. 4. 1) 的 ” 快 
速 " 解 法 。 传 里 叶 变换 法 直接 适用 于 方程 具有 空间 域 上 的 常数 系数 时 ;而 循环 约 简 法 则 在 一 
定 程度 上 更 具 普 刘 意 义 , 它 的 适用 性 与 方程 是 否 可 分 (在 “变量 分 裂 ” 的 意义 上 ) 这 个 向 题 有 
关 : 两 种 方法 都 要 求 边 界 与 坐标 轴 重 合 。. 最 后 ,对 一 些 问 题 , 有 一 种 解法 是 对 这 两 种 方法 的 极 
有 效 的 组 合 , 叫 作 FACR 法 ( 情 里 叶 分 析 和 循环 约 简 ) .下 面 我 们 依次 讨论 每 种 方法 ,并 使 肌 
带 腿 差分 表达 式 !19. 0, 6) 的 方程 (19, 0. 3) 作 为 典型 范例 ,一 般 地 说 ,本 节 的 方法 比 将 在 第 
19. 5 节 讨 论 的 简单 松 驰 法 速度 快 ; 但 却 不 一 定 比 在 第 19. 6 节 介 绍 的 较为 复杂 的 多 网 格 松 驰 
法 午 度 快 。 


19.4.1 傅 里 叶 变 换 法 


关于 z 和 2 的 离散 傅 里 时 六 变 换 为 : 
JJ 一 1 上 一 
2 QZrm 2 《19. 4 2》 


该 式 可 用 FFT 在 每 维 空间 中 进行 独立 地 计算 ,或 者 运用 第 12. 4 节 的 程序 fourn 或 策 12. 5 节 
的 程序 dft3 直 接 计 算 . 辐 样 地 有 ， 
一 


区 一 
Pi es 友 : Jp 已 一 2727 丰 ?了 2 人 人 9.4,31 


如 果 把 表达 式 (19. 4,.2) 和 (19. 4. 3) 代 入 我 们 的 典型 癌 题 (19. 0. 6 中. 我们 将 有 : 





Mn 一 [ezriwyJ 十 6 2mzmf 十 extn 一 ez2rrmTL 一 4) 一 DO (fi 届 . 厅 . TY 
或 者 
Or 人 
好 pmm 一 of 2 2 _ 轴 9. 主 ， 3 
0 | 
故 送 用 FFT 方法 求解 方程 (19. 0.6) 的 步 双 为 ， 
“用 傅 里 时 变换 计算 Pon: 
如 < 
Po 一 官 疡 Peer 《19. 上 9) 
9 TY=5 


"从 方程 (19, 4.5) 中 计算 cn 
,通过 矢 里 时 道 灾 换 (19. 4, 2) 计 算 zy。 
上 述 过 穆 对 周期 性 边界 问题 适用 , 换 音 之 , 解 满足 : 
Ri 二 20 一 一 二 了 《1t9. 4.74 
下 隐 考 虑 在 四 边 形 边 兰 上 , 狄 利克 莱 边 界 条件 “一 0 的 情形 .此 时 .我们 需要 用 一 个 正 蓄 
波 的 展开 式 代 替 展 开 式 (19. 4, 2); 


3 sin -站 si 22 [19. 4. 8 
只 全、 中 一 


萎 满 足 在 J 一 0 /处 和 !=0, 工 处 ,= 一 0 的 边界 条 件 , 如 果 我 们 把 这 个 展开 式 和 基于 阁 : 的 
类 似 的 展开 式 代 入 方 程 (19. 0. 6 中 ,我 们 将 发 现 相 应 的 求解 过 程 , 与 原 周 期 性 边界 可 题 的 求 
解 过 程 是 平行 的 ， 

通过 正弦 变换 计算 own。 


十 一 T 刘 一 


本 sjn 所 sin 互 9 av9) 


(快速 正弦 变换 算 法 在 第 12. 3 中 给 
。 利 用 类 似 于 (19. 4， ee， 


作 p 
mm 一 一 一 ER 59. 410) 
?co 天 二 cos ?| 
” 运 四 逆 赴 纺 变 换 {19. 4. 8 计算 weir。 
如 果 我 们 的 边界 荣 件 非 齐 次 ,例如 ,所 有 边界 处 满足 & 一 0, 但 边界 rz=a 处 ,= Fi; 


此 时 ,我 们 可 在 上 述 解 中 加入 一 个 解 妈 2 , 它 满 是 所 要 求 的 边界 条件 中 的 齐 次 方程 
8 





入 





了 让 二 (9.4.11) 
在 连续 的 情形 下 ,该 解 将 具有 如 下 形式 的 表达 式 ， 
2 二 4usinh 54 瑟 sin 了 《3.4.127 


其 中 4 可 以 通过 zx. 全 处 zx 一 /来 有 证 ， 在 离散 情形 上 ,我 们 有 : 


zx 一 未 sh 2 sin 到 (189. 4 1317 


如 时 fy 一 /A) 一 太 , 则 从 道 公式 可 得 4 
误 二 2 辟 -in RS 
作 SN 之 sin 下 (5 3 


同 题 的 全 解 为; 
玉 二 下 十 驹 六 【小 . 工 3 
通过 加 入 形 寻 (19. 2. 127 的 活 当 项 ,我 们 可 以 处 埋 什 条 边界 面 上 的 非 齐 次 项 。 
一 种 处 理 非 齐 次 项 的 更 简单 的 方法 是 ,注意 到 凡 边 界 项 出 现在 式 (18.0.6) 的 左 端 时 ，, 量 
于 它们 是 已 知 的 , 故 总 可 以 被 移 到 方程 的 右 端 ,所 以 有 效 的 源 项 是 六 加 上 “个 迎 界 需 的 广 
献 
为 了 形 共 上 实现 该 柜 法 ,将 解 写 为 
下 一 和 十 起 《1S. 4163 
其 中 在 过 界 上 wx 一 0, 而 zx 是 除 边 界外 其 余 处 均 取 零 .在 过 界 上 , 心 取 给 定 的 沈 界 值 , 在 上 
述 示例 中 ,” 的 非 零 值 将 只 有 


二 :一 六 1 到 下 17) 
典型 方程 (19.0. 3) 变 为 
立 3 一 一 区 2 十 入 (23.34.18， 


或 者 ,以 有 限 差 分 的 形 虑 表示 为 
3 十 朴 十 2 十 二 一 
一 《十 区- 十 于 :十 本 1 4 十 
方 得 619.4.19) 中 ,出 于 所 有 zz 项 除了 一 .一 1 外 之 外 均 为 零 , 故 当 ;一 /一 1 时 ,得 


《15.4. 19? 





&7 十 区 一 -Tri 十 2 一 反 ar 
因 风 该 问题 现在 与 芯 边 界 条 件 等 价 , 但 源 项 的 一行 需 进 行 下 面 的 替换 
Yi 一 YY 一 大 (19. :全 
湛 伊 曼 边 界 条 件 六 xz 一 0 的 情形 ， 可 通过 祭 展 开 式 (12 3- 17) 来 处 理 ， 
反 
zi1 一 于 让 2 比 ， cos Ecos 2 《15. .22 ) 


这 里 双 撒 号 表示 关 =0 及 峰 =. 的 项 应 该 乘 以 】 2 02 一 0 及 ?一 工 也 类 似 , 仍 然 可 包含 非 齐 次 项 
Yua=5, 其 处 理 的 方法 可 以 通过 加 上 齐 次 方程 的 :个 合适 的 解 , 或 更 简单 地 将 边界 项 移 到 
右 端 来 实现 .例如 , 杀 件 

本 一 在 之 一 1 (15. 4. 23) 
变 为 


一 [15.4.24) 


其 由 各 反 8Gy 一 各 )。 我 们 再 次 将 解 写 为 (19, 4, 16) 的 形式 ,其 中 在 边界 上 YVx 一 0. 这 次 
Vz 存 边 界 上 取 所 规定 的 值 ,而 zx 除 边 界 之 外 均 取 为 零 。 
因此 方程 (19. <. 24) 给 出 
ie (15. 1 25) 


“726，。 


方程 (19.4, 15)? 中 ,所 硒 她 项 除了 当 关 0 以 外 均 为 零 , 香 ; 


十 下 8 (13.34,26) 
因此 z* 是 零 直 度 问题 的 仍 , 担 源 项 震 进 行 下 面 的 蔡 换 : 
4 一 3 十 248， 3 六 7) 


有 时 谱 供 最 边界 条 件 是 通过 利用 一 个 变 谎 阅 格 来 下 理 的 尖 定 义 在 区 环 法 洪 提 中 阿 . 它 让 的 
一 阶 导数 集中 在 网 格 兴 上 .如果 采用 余弦 变换 的 其 它 形 式 , 例 如 ,方程 112.3. 吕 … 则 利用 类 
似 于 上 述 的 技 后 ,同样 可 以 解 岂 这 类 问题 。 


19. 4.2 循环 约 简 法 


显然 ;FFT 方法 仅 当 初始 俞 微分 方程 具有 有 常 系数 ,并 日 边界 与 坐 忒 轴 相 易 仿 时 下 用 ，- 
种 可 用 上 稍微 更 为 -- 般 的 方程 的 算法 ,叫做 循环 约 简 法 ， 
我 们 以 方程 
有 下 ， 3 和 
时 
为 例 来 阐述 循环 约 简 法 ,在 实际 运用 中 ,这 种 方程 形式 经 常 由 极 坐标 . 柱 坐 标 或 球 仍 标 体系 
下 的 海 姆 锤 兹 Helmholtz 方程 或 者 泊 松 方程 得 到 .更 一 般 的 可 分 离 方程 在 [1] 叶 处 理 。 
方程 (19.2. 28) 的 有 限 差分 式 可 以 当成 一 组 向 量 方程 的 形式 ， 
由 :十 工 有 十 由 :一 Si 18, 4. 29》 
其 中 下 标 了 取 自 沿 方向 的 差分 ,而 y 方向 的 差分 (由 前 面 约 定 的 下 标 标记 ; 则 保留 在 向 
量 中 . 抑 阵 T 形 为 : 


1 50 1 1e 283 


TI 一 了 B 了 一 21 
其 中 21 取 自 了 方向 的 差分 , 系 阵 B 取 自 > 方向 的 闫 分 矩阵 B 以 及 由 此 斋 得 的 矩阵 工 , 均 
是 带 有 可 变 系 数 的 三 对 角 型 乍 阵 ， 
CR 方法 通过 写 出 象 (19. 4. 29? 的 苦 个 相 邻 方程 来 导出 : 
0 十 工 ， ai 一 0 一 外 -As 
ur- 十 开 , Di 一 山 一 名 人 《19.. 3]1) 
上 十 工 ， ui+ 十 骨 -: 一 史 11 全 
用 移 阵 一 T 匀 六 中 间 的 方程 ,并 把 这 二 个 方程 轨 起 来 ,我 们 得 ， 


几 2 十 T (19. 4. 32 1) 
这 是 .一 个 与 式 (19. 4. 29) 必 相间 形式 的 方程 ,其 中 
T, 一 21 一 亚 


， 《18.4, 33)》 
8 一 和 (Si-: 一 下 " 十 gj+1) 


通过 ` 层 CR 处 理 , 我 们 将 方程 的 个 数 减 少 了 一 半 ; 由 于 所 得 方程 与 原 方 程 有 相同 的 形式 ， 
所 以 我 们 可 以 重复 上 过 程 .为 简便 起 见 , 取 网 格 上 数 日 为 2 的 方 赛 ,我 们 最 后 结束 在 个 关 
于 变量 中 心 线 的 方程 上 : 

TO urra 一 Ag -一 岂 15. 4, 34? 
该 方程 中 ,由 十 mu 是 已 知 的 边界 值 ,我 们 把 它们 写 到 右边 .方程 (19.4. 34) 可 用 标准 三 对 
角 算 法 求解 ,以 得 ur 在 了 一 1 层 的 两 个 方程 售 uv3 和 骨 3.7,t , 含 urx 的 方程 用 到 山 , 本 ui: 栈 
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个 都 足 已 其 的 , 故 可 用 通常 的 三 对 角 算 法 求解 .在 每 一 层 都 有 相似 的 情形 ,因此 我 们 共 寡 解 
次 了 1 个 三 对 角 型 系统 。 

在 实际 运用 中 ,方程 (19.4, 33) 应 该 改写 ,以 避免 效 值 的 不 稳定 性 .对 于 这 些 问题 独 其 它 
实际 运用 中 的 细节 ,请 参阅 文献 L2.]。 


19. 4.3 下 ACR 方法 


求解 形 如 519.4. 28? 的 方程 , 包 折 式 (19.0.33? 的 常 系数 问题 ,最 佳 方法 二 和博 里 时 分 析 和 
循环 约 简 的 联合 使 用 , 即 下 ACR 方法 -和 .如 果 在 CR 方法 的 第 z 层 ,我 们 对 彤 如 (19.34, 32》 
的 方程 沿 > 方向 作 傅 里 时 分 析 : 即 对 被 上庄 闯 的 向 基 用 人 熏 里 中 变 换 , 我 们 将 得 到 一 个 了 方向 
上 关于 每 个 ? 倩 里 叶 模 的 二 对 角 型 系统 : 

夫人 十 本 (19.5. 355 
其 小 Ai 是 T 中 对 应 于 第 二 个 情 里 叶 模 的 特征 值 .对 于 方程 (19. 0. 3) ,方程 (19. 4, 5 表明 
和 "将 售 有 象 cos(C2r8&r 工 ) 一 2 自 乘 这 栏 的 项 。 在 j 一 2 ,2X2 4X2 一 27 层 ,求解 三 对 角 
导 系 统 , 得 必 . 再 用 博 里 叶 方 法 综合 得 到 在 这 些 zx 线 上 的 y 值 :然后 象 在 先前 的 CR 算法 一 
祥 ,填充 中 问 的 工 线 ， 

这 种 方法 的 决 穿 在 于 , 远 当 选取 CR 的 妇 数 ,使 算法 的 操作 步 又 可 达到 最 少 .可 以 起 多 ， 
对 于 一 个 典型 的 128X128 网 格 博 形 ,理想 的 层 数 ”=2: 渐 近 地 , 有 > 一 logs(log:J) : 

对 方程 (19.0. 3) 使 用 上 述 算法 在 运行 时 间 上 的 粗略 估计 如 下 :FFT 方法 ( 洗 x 方 向 机 y 
方向 ) 和 CR 方法 基本 上 可 以 相 比 拟 :FACR 方法 在 歌 * 一 0 〈 即 在 一 维 方向 使 用 FFT ,在 劳 
一 维 方向 用 通常 算法 求解 三 对 前 线 方程 组 ?时 .可 在 速度 上 扫 提 高 贞 倍 ;理想 的 到 rz=2 的 
TIACR 方法 则 可 以 在 速 谋 上 再 提高 瞩 倍 。 
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19.5 边界 值 问题 的 松 驰 法 


正如 我 们 在 第 19. 0 节 提 到 的 , 松 豫 法 涉及 到 分 像 由 有 限 差分 产生 的 称 世 齿 血 , 然 后 选 代 
运算 直到 解 被 发 现 。 
还 有 “ 秘 考 虑 松 儿 法 的 方式 , 它 在 … 汗 程度 上 更 具 物 埋 意 义 。 假 设 我 们 想 求解 棋 圆 方程 
Sa 一 《19.5.1) 
其 中 区 表示 其 此 椭圆 算 子 ,p 是 产 项 ,改写 方程 为 扩散 方程 
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计 村 
芝 
当 二 < 时 ,初始 分 号 二 松 驰 到 一 个 平衡 解 , 这 个 平 衔 通 在 任意 时 刻 弛 数 为 0 日 肥 必 总 是 序 
梢 圆 问 题 人 19. 5.1) 的 解 .这 样 一 来 ,在 第 19.2 节 中 所 有 关于 扩散 的 初 值 方 得 的 扯 汪 ,省 
过 松弛 法 用 边界 值 呵 题 求 解 。 
让 我 们 把 这 个 趾 想 应 用 在 我 们 的 典型 问题 (19.0, 3 上 ,扩散 方 称 为 : 
8 
了 


DA 
如 果 我 们 利用 FTCS 交 式 进行 差分 (参见 方程 19. 2. 4) :我 们 很 到 


6 人 


2 [| 


Ai 
时 十 8 -一 大 一 【了 0 ]- 有 上 站 扎 一 dozP 并 让 
和 2 从: 《7 ， 1 1 如 让 1 ja、 ) 7 14115953 


回忆 一 下 式 (19, 2. 5 ,我 们 知道 ,FTCS 差分 在 一 继 空间 中 . 仅 在 At 会所 172 时 是 稳 于 的 :人 在 
两 维 空间 中 ,条 件 变 为 AAa: 雪 174。 假 设 我 们 试图 选择 可 能 的 最 大 时 间 步 长 , 即 说 ar as7 
4 那么 方 释 (19. 5. 4 变 为 : 
人 1 > (5 
因此 算法 中 包括 利用 z 在 网 格 上 的 四 个 最 近邻 点 求 于 人 逢 值 (加 上 来 自 狼 项 的 展 扣 ) .个 过 
程 ~- 直 迭 代 到 收 生 为 此 、 

这 种 方法 实际 上 是 .种 经 典 方法 ,其 起 源 可 以 这 渊 刘 上 个 世纪 , 拥 称 作 雅 可 比方 法 ( 江 
意 不 要 与 求 特征 值 的 雅 可 比方 法 混淆 ). 由 于 这 种 方法 收敛 很 要 ,所 以 它 并 木 实 月 .不 :法 它 纤 
理解 现代 方法 的 基础 ,现代 方法 多 与 世 进 行 比较 。 

另 一 种 经 则 方法 是 高 斯 - 玖 德尔 (Seidel) 方 法 ,这 种 方 潜在 多 网 烙 评 中 很 如 此 , 苞 广 法 
中 ，- 且 忒 (19.5. 5) 右 端 & 的 新 值 可 用 ,我 们 就 利用 它 ,换言之 , 求 平均 是 * 同 此 "进行 阿 , 模 
不 是 由 较 早 时 间 层 “ 乒 贝 "到 较 晚 时 间 层 。 如 果 我 们 治 行进 行 该 过 程 , 即 册 定 z 仁 而 逐步 增 天 
六 我 们 有 


本 一 下 二， 
2 


1 一 ( 人 3 十 站 十 本 十 一 本 2 1 2) 
这 种 方法 也 收 和 敛 得 很 缓 棍 , 仅 有 理 沦 上 的 价值 .不 过 它 的 一 些 分析 还 是 很 有 启发 ' 生 的 、 
让 我 们 从 抵 阵 分 悄 的 前 度 来 看 看 雅 可 比方 法 和 帆 斯 - 塞 改 尔 方法。 我 们 玫 灾 标记 ,把 
记 为 :"x”, 以 与 标准 提 阵 记 法 -- 致 。 为 解 
页 ，X -= hb 全 光 。 二 
我 们 考虑 把 上 分 裂 为 : 
和 一 工 十 D 一 避 (外 .3 SS》 
其 中 D 基 和 的 对 角 线 部 分 江 用 A 的 下 三 角 部 分 ,对 角 线 上 元 案 收 0 :0 二 的 上 二 和 部 
分 ,对 角 线 上 元 喜 取 0 。 
在 雅 串 比方 法 中, 我们 写 出 迭代 的 第 > 步 为 
Dx= 直 十 U) xc 十 b 站 3 9 
对 于 我 们 的 典型 问题 (19. 5. 5) ,D 是 一 个 简单 的 单位 符 阵 。 雅 可 比方 法 对 邪 些 只 林 " 守 征 优 
势 " 锡 王 阵 A, 在 数学 精确 的 意义 上 收 仇 ,对 于 了 由 有 限 差分 产生 的 矩阵 ,这 个 条 件 通 常 尾 满足 
的 ， 


本 


雅 可 比方 法 的 收 误 速 育 吕 多 少 呢 ? 其 杰 的 讨论 超出 了 我 广 的 范围 ,不 过 ,在 此 还 是 略 谈 
-一 全: 拭 阵 --D '…(L 十 U) 是 和 送 代 和 矩阵 , 掀 井 加 项 洒 管 , 它 把 一 组 xx 映射 到 下 -组 -这 个 先 代 
矩阵 有 特征 值 , 每 个 特征 值 都 反映 了 一 个 因子 ,在 每 沈 选 代 中 , 正 是 通常 过 该 因 千 抑制 厂 韭 
期 望 残 差 的 -个 特殊 特征 模 的 振幅 .显然 ,为 了 松 驰 潜 能 侣 确 实 有 效 ,这 些 因 地 最 好 都 灌 足 
模 近 1.。 雅 可 比方 法 的 收 和 分 速度 上 特 征 模 的 最 慢 的 忘 减速 度 决 定 , 妈 具有 最 大 模 的 因子 护 迷 
率 决 定 , 因 此 ,该 最 大 因子 的 模 应 界 上 0 之 问 . 被 区 为 松 豫 算 子 的 谱 半 径 , 记 作 p,. 

国 此 ,使 全 局 误差 降低 到 原先 的 15 "人 ,所 需 和 迭代 次 数 = 可 估计 为 ， 
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-一 般 说 来 , 随 着 区 格 八 才 了 的 增 大 , 谱 半 径 w 将 就 渐 台 近 数值 1 ,这 就 要 求 有 更 多 的 迭 
代 . 对 于 任意 给 定 的 方程 .网 格 形状 利 边 界 末 件 , 谱 半 径 在 原则 上 可 以 解析 地 计算 .例如 ,对 
于 具有 JXx 了 网 格 和 柱 四 达 震 满足 狄 利 点 边 界 条 件 的 方 穆 (19. 5. 5) ,对 大 的 值 ,o 的 渐 近 
公式 可 证 得 为 : 


了 (19.5. 11》 
为 使 误差 降低 到 原来 的 10 2* 倍 ,所 需 选 代 次 数 > 为 : 
~ 号 < in10 ~ 定 pi 《19, 5 12) 
换言之 ,迭代 次 数 与 网 格 点 数 . 严 成 比例 .由 于 100X100 的 网 格 和 更 大 的 网 格 司 题 有 姐 避 的 
结论 ,非常 显然 , 雅 可 比方 法 只 有 学 术 价值 。 
对 于 方程 (19. 5. 6) ,高 斯 - 塞 德尔 方法 相应 于 矩阵 分 解 有 
人 一 D)，xo 一 一 Uvxc 5 十 b (19.5. 13) 


L 在 方程 左 端 , 这 是 可 根据 适当 的 修正 而 得 出 ,如 按 分 量 写 出 (19, 5. 19) 起 ,很 春 易 检验 出 这 
点 。 大 们 可 以 证 明 0 ,该 方法 的 谱 半径 正好 是 雅 可 比方 法 的 谱 半 径 的 平方 , 改 对 我 们 的 典 
开 问 题 有 ; 


光 2 
曾 二 下 的 (19. 5.14) 
1 . 
一 刀 呈 1 ~- 二 《19.s.15) 


这 个 方法 比 雅 可 比 法 在 法 代 次 数 了 减少 了 一 半 ,但 是 ,这 仍然 不 能 使 该 方法 变 得 实用 。 
19%.5$.1 同步 超 松 驰 (SOR ) 法 


如 果 我 们 在 高 斯 - 塞 德尔 达 代 的 第 = 步 对 xeo? 的 值 作 一 个 过 度 休 正 ,我们 将 得 到 一 个 更 
好 的 算法 , 它 一 直到 1970 年 都 是 作为 标准 算法 。. 解 方程 (19. 5, 13) 得 xi” ,并 在 式 (19.5. 13) 
的 右 端 加 减 习 ”由 此 高 斯 - 塞 德 尔 方 法 可 写 为 : . 


XO 一 X7 一 (十 D) -LE 二 D 一 UDC 一 的 (19.5.15》 
在 方 括号 中 的 项 正 是 残 差 向 量 8 ” ,于 是 有 : 
Xe) 一 Xe 一 作 十 D)-: se- 《19. 5, :7) 
现在 进行 过 度 修 正 :定义 
Xtm 一 xD 一 ww(L 二 D) : 。 人 rc 《19. 5. 18) 
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其 中 心 被 称 为 超 松 驰 参数 , 这 种 方法 则 叫做 同步 超 松 驰 (SOR ?法 。 
以 下 原理 可 子 以 证 明 : 
: 仅 对 了 二 2 该 广泛 收 分 ;如果 6 < os 二 ,我们 称 之 为 低 松 驰 . 
“在 有 限 差 分 产生 的 矩阵 通常 邦 清 足 的 一 些 数学 限 汕 上 ,只 有 赵 松 肢 法 ( :9 2 可 
使 收 伍 眉 才 高 斯 - 塞 德 尔 产 法、 
” 设 pri 是 雅 可 比 选 代 的 亲 半 向 (其 平方 即 站 高 斯 - 塞 德尔 达 代 的 谱 企 季 划 怪 : 抱 
地 佳 选择 为 : 


人 
0% 一 -一 一 -一 一 一 En 光 和 
扩 本 
1 + WVI 人 座 中 
“对 唔 的 这 个 最 住 选择 ,SOR 方法 的 谱 半 径 为 
疙 淹 外 


psnk 一 三 


作为 以 上 结 些 的 应 用 ,考虑 我 们 谱 半 币 bgs 是 由 等 式 (19.5. 14) 苔 出 的 由 开工 题 厅 等 
式 人 19. 5. 19) 和 (139,5, 20) 得 : 





地 关 了 二 7 1 
1 一 弛 对 大 的 :/ 让 
等 式 (19. 5, 10) 给 出 使 初始 误 善 减少 到 原先 的 :0 * 倍 所 需 的 达 代 次 数 ， 
zllnln 、 工 
全 21 全 已 7 | 


与 式 (19. 5. 127 或 (19.5.15) 对 比 ,我 们 发 现 , 理 想 的 SOR 方法 不 同 于 哺 量 级 的 法 伐 .中 需 
要 > 量 级 达 代 .由 于 了 一般 为 100 或 者 更 大 ,这 就 产生 了 巨人 的 莽 别 .等 式 (15. 237 涪 蝗 。 
3 位 数字 精确 度 (PP 一 3) 需 要 的 选 代 次 数 等 于 沿 网 格 -- 边 的 网 点 数 ; 而 对 于 6 位 数学 精 痪 度 ， 
我 们 需要 约 两 倍 那么 多 次 的 迭代。 

对 于 那些 谱 半径 不 是 解析 可 解 的 情形 ,如 何 选择 w 虽 ?这 正 是 SOR 方法 能 弱点 1SOR 
方法 的 优势 , 仅 在 围绕 w 的 正 硝 值 的 - ,个 相当 狂 空 的 衔 口中 获得 ,并 且 宁 可 其 和 庭 得 称 候 
大 ,也 不 要 把 它 选 洋 得 篇 小 ,当然 最 好 还 是 获得 w 的 正确 值 ， 

一 种 送 择 的 w 的 方法 是 ,反问 题 近 亿 地 与 -- 个 二 知 问 是 对 天 起 来 ,用 平均 值 代 换 方 程 
中 的 系数 不 过 要 注意 ,已 知 的 问题 必须 与 实 际 问题 有 着 相同 的 网 格 凡 二 和 边 轴 条件 .下 面 
我 们 给 出 ,我 们 的 典型 问题 在 移 形 的 JX 工 网 格 上 的 oswe 值 以 供 参考 ,多 许 存 村 As 
的 可 能 忻 : 








cos 二 一 | | 
CS 一 
于 本 【]9. 5.24) 
| 


该 等 式 对 狄 利克 药 边 界 条 件 或 庶 仇 曼 边 办 条 件 保持 不 变 ,对 于 周期 性 演 玉 订 件 , 作 代 换 r 一 
2 
当 想 求解 许多 介 似 的 机 阁 方 穆 . 旦 每 次 只 有 系数 有 细 合 的 变化 时 , 下 区 的 .种 方法 特别 
有 用 :考虑 对 第 一 个 方程 赁 经 验 确定 其 最 储 w 伪 . 然 号 将 此 值 用 于 其 它 方程 ,关于 而 几 沪 广 
731 。 


法 浊 " 搜 池 ? 最 佳 w 值 的 各 种 肯 动 程序 ,在 有 关 文 献 中 有 所 介 年 。 
虽然 前 所 介绍 的 下 和 作 标 记 对 理论 分 析 很 让 用 ,但 对 十 SOR 算法 的 实际 运用 ,我 们 丰 是 
震 要 最 式 的 格式 .考虑 一 个 一 般 的 消 之 和 ?3 方向 的 二 阶 机 圆 方程 ,如 同 我 们 对 典型 六 竹 - 
梓 , 在 一 个 正方 形 中 进行 有 限 差 分 ,因此 对 应 十 矩阵 和 的 每 一行 :有 -个 方程 形 为 ， 
和 :Ca 二 Te 19.25) 
对 我 们 的 典型 方程 ,我 们 有 e-*3=e 一 dg = 一 一 4, 基 上 与 源 项 成 比例 , 迷 代 过 程 贞 对 
zj 求解 式 (19. 3. 25) 的 过 程 来 确定 : 


。 于 二 
玉 ).” 一 区 (1 一 QH 一 妈 ) 1 一 人 -1 一 加 1 《19.3.28) 
1 


,是 “个 加 权 平 均 侦 ， 
1 区 一 针 1 Ca 《19.0, 27) 
我 们 对 x 加 计 算 如 上, 任 一 步 的 残 凑 是 
站 Nt 十 而 十 Ce 十 二 (9.528) 
出 SOR 算法 式 (19.5. 18) 或 (39. 5. 27) 得 : 


全 ， 
2 《9 529)》 


该 公式 非常 巍 易 编程 ,上 且 践 差 向 量 人 .的 范 数 可 用 作 终 止 选 代 的 衡量 标准 。 

另 一 个 实际 运用 中 的 关键 点 是 :注意 网 格 点 排列 的 疾 序 :一 种 直接 的 策略 是 简单 地 沿 行 
《或 沿 列 ? 排 列 : 另 一 种 方法 .假设 我 们 把 网 格 分 为 “ 奇 " 网 格 和 ”* 价 ?网 格 , 如 一 个 棋盘 上 的 黑 
马 方 块 , 则 方 秆 519. 5. 26) 即 表示 奇 点 仅 依 赖 于 偶 网 格 处 的 值 , 反 之 亦 然 .- 因 此 ,我 们 可 以 完 
成 一 半 扫 描 , 修 正 奇 点 值 ,并 根据 这 些 新 的 奇 点 慎 , 完 成 另 一半 扫 描 , 修 正 偶 点 值 . 从 下 面 有 
关 SOR 方法 的 实施 来 看 ,我 们 将 采纳 奇 一 偶 排 序 。 

.最 后 一 个 实际 运用 中 的 关键 点 是 : SOR 方法 的 渐 近 收 竹 速度 直到 丁 阶 迭代 后 机 能 达 
到 ,型 在 收敛 获得 之 前 , 误 益 通常 以 20 倍 的 速度 增长 ,对 SOR 方法 的 “点 小 小 修正 可 以 解 
块 这 个 癌 题 . 正 是 基于 我 们 观察 可 知 : 瞧 管 w 表 示 最 佳 的 新 近 松 引 参 数 ,但 它 不 必 是 :个 好 
的 初始 选择 值 . 在 具有 切 比 雪夫 加 速度 的 SOR 方法 中 ,利用 奇 - - 偶 排 序 , 按 照 如 下 规则 ,可 
在 每 次 一 半 扫 描 时 改变 。 值 ， 
at 一 1 
at :一 17(1 一 2) 
人 (一 全 可 (Ra 一 1721，..yco ee 
名” 这 00 虹 必 人 
切 比 雪 志 加 速度 的 巧妙 之 处 在 于 ,在 每 次 迷 代 中 ;误差 的 范 数 总 在 减少 (这 是 指 zj: 的 实际 
误差 范 数 , 残 差 全 ,的 范 数 不 必 单 调 下 降 ) .尽管 此 法 中 , 渐 近 收敛 速度 与 通常 SOR --- 样 ,但 
为 了 减少 所 需 选 代 的 瘤 数 , 没 有 任何 理由 不 使 用 切 比 雪上 大 加 速度 。 
于 面 我 们 给 出 具有 切 比 当 夫 加 速度 的 SOR 方法 的 程序 : 
并 雪 clude <fnath,h>> 


帮 defne MAXITS 1000 
打 define 下 PS :. 0e 一 b 


"732。， 





vUiO sorgdouble < 间 dpubje 关 Ab 、Uuubiz 和 关 C、 Uoubl yw # 吕 ,doube 关 Es 
double * *#f，double rr * uint mix rptbje >jac 
方 如 619.5. 2 的 带 有 切 比 当 开 加 如 庶 的 同步 晤 芝 驰 涝 
浆 格 尺 直 [1.， J]max 1 ， -jtnax 3 体 为 解 的 初 铺 六 伺 统 六 , 讽 常 兽 太 人 六 虹 后 泪 谋 科 冯 和 语 Wirif 本 辐 晤 相生 和 


谱 半 簿 或 其 傣 计 得 输 入 。 






络 .abDocje 碍 [作为 力 绽 波 条 数 顷 六 .可 个 奶 





void mrerTror(char arTor_-text[]): 


int ipasge,j,jswvL, ls ni _ 
double anora ,anoronf=D] .0,0megas=1.fsresidi 对 jmax 约 大于 好 时 ， 采用 双 和 精度 较 好 


for 《〈j=2;j<jmax;ijd+) 计算 残 差 的 初始 范 数 首 当 范 数 碱 少 了 上 EPS 倍 时 终止 和 失 八 


fcer 【1L=2;1<jmaaxi1++) 
anoramf += aba([j 订 [1])， 假 疫 的 哲 始 伟 为 从 
for (nmtincwHAXITSin+y》 攻 
anDrme0.0; 
am1i 
for 《ipa3a=1iipaas<=2iiPaae++) 奇 - 倘 覃 印 
18wrj3swi 
for (js2;j<jmaz;jt+) 工 
for 《1=Lsw+lil<jmaxril+r=2y 1{ 
resida[j] [ij]*uIj+l] [II 
br] [1]e*u[~l] [1] 
+c[3] [4149u[ji52+1 
+d[j] [lj*urj]rI-1 
+efj] [Luljl[1] 
=-zLj]ti]; 
anorg +m faba(resid) ; 
urjj [1] -= omegarresid/e[i][1]， 
} 
了 Bu 和 一 了 员 生 
了 
Jsw=3-]JSni 
Omegastn ==< 芽 类 paos5 == 1 ? 1.0Af1.0-0.SerIjacerjac) : 
1.07(1.0-0.25wrjacrTrjiacsromeagauy)}; 
】 
1 (aporm 《 EPSeanoraf) zaeturoi 
raxTioT("RAKITS ecaeded"》; 
二 


SQR 方法 的 主要 优点 大 易于 编程 ,其 主要 缺点 是 它 对 大 问题 仍 不 是 症 常 有 效 . 


19. 5. 2” 交 和 蔡 方向 隐 式 法 


第 19. 3 中 用 于 扩散 方程 的 ADI( 交 蔡 方 启 稳 式 法 ?可 以 转换 成 用 于 王 圆 方程 攻 恰 乳 法 ， 
在 第 19.3 节 中 ,我 们 曾 讨论 过 用 ADI 方法 来 解 用 间 依 来 的 热流 方程 


他 取 是 
二 一 凡人 一 wp (5.33 
于 ; . 33 
通过 设 ro 也 可 得 到 用 来 解 柄 圆 方程 
Vs 一 PP 1 232 
的 一 种 迭代 方法 。 每 种 情形 的 算 子 分 型 都 具有 形式 为 
区 一 和 一 上 (0 5. 33) 


其 中 和 : 代表 对 < 进行 益 分 , 双 , 代表 对 y 进行 差分 。 
例如 ,在 我 们 的 典型 全 题 (19,.0.6) 中 , 取 Az=Ay 一 A, 得 到 
”733 。 


0 一 221 一 
《19.5.34 
到 一 2 
更 复杂 的 算 子 也 可 进行 类 似 地 分 裂 ,但 要 涉 皮 一 些 技巧 问题 .分 裂 不 当 的 选择 可 能 会 导致 不 
收 化 算 法 的 严 自 .通常 ,我 们 基 根 据 问题 的 物理 性 质 来 进行 算 子 分 八 的 .我 们 知道 对 于 我 们 
的 典型 问题 ,把 一 个 初始 瞬 变 值 传播 出 去 ,于 是 我 们 建立 起 对 了 和 >》 的 算 子 分 裂 , 来 寞 拟 每 





维 的 扩 莽 。 
选 定 算 子 分 裂 法 后 .我们 按 丙 个 半 步 对 冉 邮 依 赖 方 程 (19. 5. 31) 进 行 隐 式 差分 ， 
训 人 一 3 加 人 十 ee _ 
7 2: 
【19. 3.、2591 
说 荐 1 -一 下 五 于 导 t+ 1 讽 ee 
At 2 的 
《参考 方程 (19. 3. 16)) 这 里 我 们 删 掉 了 空间 下 标 人 52 - 胃 矩阵 标记 ,三 程 (19. 5. 35 ) 为 
(L 一 ru 一 tr -Lu asp (19.5. 36》 
(EL 十 rt 加 二 Cr 一 工 一 《198.、35. 377 
AL 
其 中 (19.5. 38) 


方程 (19. 5. 36) 和 (19. 5 37) 碟 端的 矩阵 是 三 对 俏 型 抑 阵 ( 道 常 还 是 止 定 的 ) .时 而 它们 
可 以 通过 标准 对 和 角 算 法 来 米 解 。 给 定 u", 解 (19. 5. 36) 求 解 加 ,全 入 (19.5. 373 的 右 靖 
则 可 解 出 us. 关键 的 问题 在 于 如 条 选择 扶 代 参数 >, 这 与 切 值 问 题 中 时 间 步 的 选择 类 似 。 

和 通常 一 样 ,目的 是 使 壕 代 矩阵 的 谱 平 径 最 小 .虽然 详细 的 介绍 己 超 出 我 们 的 范围, 但 
可 以 证 明 ,r 的 最 住 选 取 会 使 ADI 方法 与 SOR 有 相同 的 收 化 速度 .ADIE 方法 中 ,各 个 法 代 才 
长 比 SOR 中 的 要 复杂 得 多 ,因此 ADI 方法 显得 要 善 一 些 , 我 们 可 以 对 每 个 渤 代 步 部 选 司 样 
的 参数 ~。 若 每 步 都 选 不 阿 的 > 也 是 可 能 的 。 若 能 按 最 佳 方式 实现 , 则 ADI 比 SOR 道 常 居 有 
更 高 的 效率 .详细 内 容 请 参阅 文献 [] 4]， 

这 里 没有 完全 采用 ADI 的 一 个 原因 旦 ,在 大 部 分 应 用 小 , 它 已 经 被 下 节 介绍 的 多 司 格 
法 所 替代 .我 们 建议 ,对 普通 问题 (比如 20X20 ) 或 只 解 一 次 的 较 大 问题 可 采用 SOR 六 法 。 
对 于 后 一 种 企 形 ,程序 设计 的 容易 程 谊 比 机 时 的 耗费 审 重 要 。 第 2.7 节 中 的 业 疏 矩阵 方法 , 偶 
尔 也 用 米 直 妓 求解 一 组 差分 方程 ,但 荐 对 于 厌 构 圆 隔 题 的 生成 解 ,现在 几乎 都 选用 多 网 格 方 


六 上 
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19.6 边界 值 问题 的 多 网 格 法 


实用 多 疝 格 法 是 Brandt 在 七 十 年 代 首 次 提出 的 :这些 方法 可 以 用 OCR) 次 运算 ,求解 
.734 。 


在 只 个 网 格 点 上 的 故 团 电 移 微分 方程 .第 19.1 节 中 ,讨论 过 的 “快速 "直接 椭 辕 求解 法 ,可 用 
OCNIogN) 次 过 算 , 求 狂 一 些 特殊 类 型 的 梢 图 六 旺 . 这 些 估 计 值 中 的 数值 系数 .使 得 多 风格 
方法 在 运行 速度 上 可 以 和 记 速 方法 相 比较 。 介 是 与 快速 方法 不 同 的 是 ,多 区 格 方 法 求解 非常 
系数 的 一 般 粒 圆 型 方程 的 效率 沁 平 没有 上 降 。 甚 至 对 非 线性 方程 也 有 类 拟 的 求解 圭 度 . 

遗憾 的 是 ,没有 -- 乏 单独 的 多 网 格 算法 ,能 解 所 有 椭圆 型 辐 题 .多 网 榜 方 法 小 共 对 这 些 
问题 的 求解 提供 了 - -个 框架 .大 上 特定 吉 题 ,必须 对 算法 框架 内 钓 各 种 组 成 进行 语 整 .其 们 
在 这 里 只 能 给 出 关 十 这 专题 的 简单 介 纤 .特别 是 我 们 将 给 出 上 个 多 浊 格 程序 范例 . :个 基线 
性 ,一 个 是 非 线 性 的 -仿照 这 些 原 惠 并 人 参阅 文献 [ 1~-4] ,记者 能 够 学 会 编写 程序 ,来 尘 解 日 二 
的 问题 。 

多 网 格 技术 的 应 用 有 两 种 形 巨 联系 .但 又 明显 不 同 的 方法 .第 一 种 称 为 "多国 格 法 ”是 
用 来 提高 传统 松 驰 法 的 收 仇 速度 的 一 御 方 法 ,出 读者 自己 定义 一 个 事先 确定 的 桔 纽 可 格 :在 
这 种 情形 ,只 需 在 该 网 格 上 和 定义 足 已 的 阿 题 ( 例 泉 ,估计 源 项 )。 而 其 它 - 些 较 料 芍 , 由 记过 征 
义 揭 网 档 可 以 作为 中 间 计 算 的 附加 值 。 

第 二 种 方法 称 为 (也 许 容 易 混 淆 交 充 全 多 网 格 CFMG ) 法 要求 读者 将 同 -- 信 共 本 坑 微 
分 方程 离散 成 不 同 尺度 的 有 限 差分 产程 组 ) .在 该 方法 中 , 随 着 网 格 的 不 断 加 细 得 到 - :系列 
解读 者 可 以 停 在 一 个 预先 确定 的 精细 的 网 阁 上 ,也 可 以 监视 由 离散 过 程 引起 的 哉 断 误 莽 . 
使 其 停 在 误 益 可 以 容忍 的 网 恪 上 ， 

本 节 我 们 将 先 讨 论 “ 多 网 格 法 ”然后 利用 网 才 建 立 的 概念 介绍 TMG 法 .我 们 在 附 测 程 
序 中 ,将 实施 后 一 种 算法 。 


19.6.1 从 一 两 格 , 到 两 网 格 ,再 到 多 网 格 


多 网 格 法 的 关键 思想 ,可 以 通过 研究 最 简单 的 两 出 格 法 来 理解 .假定 我 们 想 解 线性 情 当 
问题 cr 一 了 :19.6. 13 
其 中 多 是 某 个 线性 桶 圆 算 子 ,是 源 丈 。 在 -个 网 孔 大 小 为 疡 的 均匀 网 格 上 ,离散 化 方程 
(419. 6.1) :得 到 的 线性 代数 方程 组 为 

Sap = 大 419. 人 2》 
令 忆 氏 示 方程 (19. 6. 2) 的 某 近 伏 解 .用 和 谷 妃 如 表示 差分 方 答 (19. 6. 2) 的 精 获 解 。 风 | 总 的 误 
差 或 修正 荐 为 
大 一 大 一 天 人 9. 生 ,31 
残 差 或 亏损 力 
一 2 -大 《198. 玫 .和 》 
《注意 ,有 些 作 者 将 引 差 定义 为 从 亏损 , 式 (19. 6. 4) 究 竟 定 义 这 两 个 量 中 的 哪 - .个 ,还 没有 归 
得 一 致 的 看 法 ) .由 于 芭 , 是 线性 的 ,因此 误差 满足 
芭 Aa 一 一 吊 (19.6.5) 
现在 ,我 们 需要 用 乡 x 的 一 个 近似 值 来 找 :经 典 近 入 方 法 ,例如 雅 可 比 或 高 斯 赛 德尔 
法 ,是 通过 每 步 寻 找 下 述 方程 的 一 个 近似 解 来 完成 的 。 
四 ty 一 一 【| 昌 .六 
其 中 双 。 是 一 个 比 所 必 较 简单 "的 算 子 .例如 ,在 雅 可 比 选 代 中 ,2 是 sex 的 对 角 部 分 ,或 在 


,35 。 


高 斯 ， 赛 德尔 迁 代 中 , 纪 , 尾 Ce， 的 下 三 角 部 分 ,第 一 个 近似 是 根据 下 式 得 到 的 
2 一 zk 十 Q 019.n-7， 
帮 为 另 一 种 选择 ,现在 再 考 谍 对 Se 的 一 种 完全 不 同 的 近似 ,其 中 我 们 使 它 " 粗 糙 化 ”. 
竹 不 旦 “简单 化 >, 即 ,我 们 在 网 孔 大 小 为 刀 ( 常 取 妞 = 25, 但 别 的 取 法 也 可 以 ) 的 “个 更 粗粮 
的 网 格 上 ,构造 ce 的 某 个 适当 近似 算 了 Sev - 则 残 养 方程 (19.6. 5) 近 似 为 
Spoton 一 一 加 (19, 6 省) 
由 于 Se 维 数 较 小 ,该 方程 将 比方 程 (19. 6.5) 易 解 ,为 了 定义 粗 网 格 上 的 亏损 局 . 我 们 需要 
一 个 限制 算 子 史 , 将 内 限制 在 焊 网 格 上 
d 一 殉 四 (19.P.0)》 
限制 算 子 也 称 为 细 一 粗 撞 子 或 嵌 人 算 子 .-- 妥 得 到 方程 (19. 6. 8) 的 一 个 解 25 后 ,我 们 还 需 
要 … 个 拓展 算 子 包 , 它 将 修正 值 拓展 或 内 插 到 细 网 格 上 ; 
名 一 于 页 《19.6. 10) 
拓展 算 了 也 称 为 粗 一 细 算 子 或 内 插 算 子 . 字 利安 都 取 为 线性 算 子 ,最 后 运 近似 值 可 以 校 





式 新 一 2 十 丰 (19.4. 11》 
因此 ,和 粗 网 格 收 正 格式 的 步骤 是 ; 
得 网 格 修 正 


“根据 式 (19. 6,4) 计 算 细 网 格 点 上 的 亏损 。 

。 通过 式 (19. 6. 9) 来 限制 亏损 。 

。 在 粗 网 格 上 解 式 (19. 6, 8), 求 修正 值 ， 

"通过 式 (19,. 6. 10) 将 修正 值 内 播 到 细 网 格 上 。 

。 通 过 式 (19.6. 11? 计 算 第 二 个 近似 。 

证 我 们 来 比较 一 下 松山 法 和 粗 网 格 修正 格式 的 优 劣 考虑 将 误差 ww 展开 成 一 个 离散 全 
里 叶 序 列 , 称 频率 谱 低 半 部 分 的 分 量 为 光滑 分 量 ,而 高 半 部 分 为 非 光滑 分 量 .我 们 已 经 看 到 ， 
松 驰 法 在 极限 *0 时 的 情形 ,收敛 速度 变 得 很 慢 ,这 相当 于 网 恪 点 数目 很 多 的 情形 ,原因 
是 ,在 每 次 迭代 中 光滑 分 量 的 幅度 只 稍微 减 小 一 点 .然而 ,许多 松 驰 法 却 使 非 光 滑 分 量 的 幅 
度 ,在 每 次 迁 代 中 都 减少 许多 税 : 所 以 ,它们 是 很 好 的 光滑 算 子 。 

另 一 方面 ,对 于 两 网 格 迷 代 法 来 说 ,波长 所 2H 的 误差 分 量 , 在 粗 网 格 点 上 甚至 不 能 表 
示 出 来 ,因而 在 该 网 格 上 不 能 降 为 零 。 但 这 些 高 频 成 分 却 可 以 通过 松 驰 法 在 细 网 格 上 被 减 
小 :这 就 启发 我 们 ,将 松 驰 法 和 粗 网 格 修正 的 思想 结合 起 来 使 用 。 


两 网 格 壕 代 


”预先 光滑 :将 松 驰 法 中 央 产 0 的 步 颈 应 用 到 葵 上 来 计算 到。 
”后 期 光滑 :将 松 驰 法 中 m 关 0 的 步骤 应 用 到 并 上 ,来 计算 出 厦 。 
从 上 述 两 网 格 法 到 多 网 格 法 就 很 容易 .不 用 求解 粗 网 格 亏 损 方程 (19, 6. 8) ,而 我 们 可 以 
通过 引进 一 个 更 粗 的 风格, 并 应 用 两 网 格 选 代 法 ,得 到 它 的 一 个 近似 解 . 如 果 两 网 格 法 的 收 
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伍 闵 和子 足够 小 , 则 我 们 将 内需 儿 步 欠 代 就 能 得 到 解 的 一 个 是 够 的 近似 值 。 我 们 床 ?来 玉民 这 
样 的 只 代 次 数 . 显 然 .我 们 可 能 将 该 思想 递归 地 用 到 一 此 很 粗 的 网 格 上 ,站 那 网 格 上 求解 很 
容易 ,例如 ,通过 直接 耸 阵 求 拥 的 方法 ,或 通过 和 达 代 输 驰 格式 到 收敛 值 . 

多 网 格 法 中 ,从 最 细 网 格 剂 较 组 网 客 , 再 站 到 最 细 网 格 的 一 次 选 代称 为 一 个 狂 环 循环 
的 精确 结构 依 束 于 Y 值 ;而 y 值 是 ,在 每 个 中 间 沙 骤 ,两 网 格 法 选 代 的 次 数 。.y =1 此 情节. 孜 
为 V 循环: 而 ?一 2 的 捕 形 , 称 为 W 循 斑 ( 抑 岁 18.6.1)。 这 些 是 实际 应 用 中 最 重 权 的 稍 歼 ， 





Y= 1 Y=2 


S 委 示 光滑 度 ,E 表示 基 粗 司 权 上 的 精确 解 .每 个 下 降 线 \ 家 示 限 制 ( 鹃 ), 拇 个 上 升 线 /表示 拍 属 
《到 ) 最 细 的 网 格 在 每 幅 图 的 顶部 ,对 于 循 生 (7 一 1), 每 当 阅 格 朋 数 峭 加 1 时 ,F 步 就 被 个 基 
网 格 奈 和 代 所 代 着 ,对 江 W 循环 (= 23?,E 步 被 琴 个 两 网 娩 关 代 所 代 蔡 。 


图 19.6.1 多 阿 阁 振 环 关 析 
注意 ,一 旦 涉及 两 个 以 上 的 习 烙 时 ,在 最 细 网 格 上 ,第 . 步 之 后 的 队 先 光滑 步 ,需要 误差 
2 初始 近似 值 ,该 值 应 取 为 零 。 
19.6.2 光滑 ,限制 及 拓展 算 子 


最 流行 ,而 且 也 是 应 该 最 先 试验 的 光滑 方法 是 高 斯 赛 德尔 (Gauss-Seidel) 法 ,因为 它 能 
产生 很 好 的 收敛 速度 .如 果 我 们 将 网 格 点 从 1 顺序 编号 到 , 则 高 斯 - 赛 德尔 格式 为 


wu = 一 (>m- 万) 天 1 (19, 6. 
其 中 x 的 新 值 放 在 右 端 项 使 用 .高 斯- 赛 德尔 法 的 精确 形式 依赖 于 网 格 点 所 选取 的 排序 对 


于 我 们 典型 方程 (19. 0. 3) 的 典 击 二 次 机 贺 方程 ,和 方程 (19. 0. 8) 的 营 分 格式 一 样 ,最 好 用 红 
.737 。 


一 黑 排 序 .使 一 个 通过 网 格 修 正 * 倘 ”点 ( 像 一 个 方 格 盘 上 的 红 格 ) ,而 使 另 -… 个 通过 网 格 修正 
“ 奇 " 点 , 当 沿 某 ' 维 洲 洪 另 - - 维 的 耦合 程度 更 强 时 ,就 圳 要 沿 该 维 问 时 将 焊条 线 恰 驰 ,最 邻 
近 契 全 的 线 松 驰 涉及 一 个 三 对 角 系 统 的 求解 ,因而 作 然 具有 很 高 的 效率 .相继 对 奇偶 线 进 行 
的 惟 驰 过 程 称 为 班 状 恰 邓 ,通常 比 简单 的 线 松 驰 更 有 效 。 

注意 ,SOR 泵 能 用 做 光 汝 算 于 . 超 松 邮 会 破坏 高 顿 光 消 成 分 ,这 对 多 阅 格 法 是 全 关 重 此 
的 ， 

拓 已 和 限制 算 子 的 - :个 简洁 的 : 攻 示 方法 是 ,给 出 它们 的 记号 .二 以 通过 考虑 re 在 某 些 
网 槐 点 (zyy) 上 取 ] ,在 其 多 点 上 取 0 再 定义 -Pen 得 到 记号 之 。 最 流行 的 拓展 算 子 是 简单 
的 双 线 性 拥 值 . 它 : 给 出 3 个 点 (DZ 二 Riy) tx 一 一 由) 上 的 非 零 值 .分 别 凡 112， 
必 v174 。 因 此 它 的 记号 为 


汪 本 
1 二 | 
| 上 中 
| (19. 6. 13) 
| 工 了 L| 
< 


通过 考虑 在 细 了 网 洛 的 各 点 上 定义 mm 再 将 (> :3 处 的 区 rs 定义 为 这 些 值 的 一 个 线性 组 台 , 然 
睫 就 御 到 记号 腕 的 定义 。 宅 最 简单 的 一 种 可 能 选 法 是 直接 贱 人 ,如 在 每 个 六 砚 格 点 中 简单 
地 用 对 应 的 网 网 格 总 的 信 米 填充 , 它 的 拓 号 是 “2 凡人 查 是 ,这 促 取 法 在 实际 度 用 中 可 能 会 产 
生 久 难 , 可 以 证 明 区 的 安全 选 法 是 ,使 它 为 多 的 -个 附加 算 子 .为 了 定义 附加 算 子 ,首先 将 
网 格 尺度 为 产 的 两 个 网 格 阴 数 内 和 tw 的 标量 和 ,定义 为 


( 贡 |za 六 三 人 yt 《9.6. 14) 
然后 ,将 受 的 附加 算 子 ,用 受 - 表示 ,定义 为 
《1 (19,6. 15) 


现在 , 取 汉 为 双 线 性 播 值 ,并 选 定 (zy) 处 的 ze 一 1, 其 余 各 处 为 零 . 令 式 (19. 6. 15) 中 的 
3- 人 


(家 从) 一 本 ok(zy) 十 到 ou(z -下 1y) 十 - ez 十 和 十 归 十 … 








(19.6. 16) 
因此 脆 的 记 寻 为 
FL | 
16 8 16 
言 了 去 《19.6. 17》 
ss 
1  R& 十 > 


注意 下 述 的 简单 法 则 : 竹 记 苇 基 多 记号 定义 的 矩阵 419. 6. 13) 王 以 174 后 的 变换 矩阵 ,只 
深 一 2 目 百 一 2, 该 法 则 总 成 立 。 

(19.6,17) 中 的 殉 的 特定 选取 称 为 完全 加 权 . 反 的 另 一 个 常用 选 法 是 半 加 权 ,是 完全 
加 权 和 直 搂 冉 入 之 间 的 “折衷 ”。 它 的 记号 是 


“738 ， 





[ec 二 
由 9 81 
是 
差分 算 子 2 可 用 类 似 的 记 噶 来 描述 。 例 如 ,典型 问题 ,方程 (19.0. 6) 的 标准 准 分 几 五 
点 将 分 星 形 来 化 表 _ 
4 1 9.6.19; 
1 


如 果 遇 到 一 个 新 问题 ,而 弓 不 能 确定 选取 怎样 的 裤 和 鹃 才能 取得 较 好 的 效 共 时 ,下 面 
是 一 个 保险 的 法 则 :假定 m* 是 播 倩 蓄 的 阶 ( 钙 , 它 对 加 一 1 次 多 项 式 精 侈 插值) .假定 mv 
是 深 的 阶 , 爱 是 某 个 尝 的 附加 算 了 (不 一 定 是 利用 的 浸 ) 。 那 么 ,如 果 普 是 差分 筑 子 5 的 
阶 , 则 应 当 满 足 不 等 式 mr 十 加 全 * 例 如 铂 松 方程 的 双 线 性 播 利 及 其 办 加 算 子 . 寺 全 加 权 ， 
满足 my 十 mr 一 4 > 凤 一 2 。 

当然 区 和 安 算 子 应 该 将 边界 条 件 施 加 到 要 求 的 门 题 中 .最 简单 的 方法 是 ,和 将 差分 方程 
改写 为 具有 齐 次 过 界 条 件 的 形式 ,如 果 需 要 的 话 , 这 可 以 通过 改变 源 项 来 实现 (和 参 理 第 16. 4 
节 )。 和 施加 齐 次 边界 条 件 , 只 要 求 妥 算 子 在 适当 的 迪 界 点 简单 地 产生 零 公 即 本。 相应 的 关 可 
以 根据 受 = 一 之 * 得到。 


19. 6.3 完全 多 网 格 算法 


迄今 为 止 ,我 们 所 描述 的 多 网 格 法 都 是 一 种 迷 代 格式 ,从 最 组 网 格 上 的 一 些 妨 始 猪 测 值 
开始 ,经 过 足 况 的 稍 环 (V 循环 , 允 循环 ,…) 后 ,达到 收敛 .这 是 多 网 格 最 简单 的 - -种 用 法 ; 
简单 地 应 用 足够 劣 次 循环 ,直到 符合 某 个 适当 的 收 伍 标准 为 止 .但 利用 完全 网 烙 算法 
FMG ?可 以 提高 效率 ,FMG 也 称 为 媒 亦 选 代 。 

不 从 最 细 网 格 上 的 任意 近 亿 值 并 始 (例如 ,zx 一 0) ,而 第 一 个 近似 值 是 通过 对 个 粗 网 
格 解 的 内 插 得 到 ， 

3 《1 3. 6. 2 
粗 网 格 解 是 利用 匡 似 FMC 的 过 程 ,从 更 粗 网 格 上 得 到 的 。 在 最 粗 的 网 格 上 ,用 烘 确 值 开始 . 
和 图 19. 6. 1 中 的 过 程 不 同 ,FMG 是 通过 -系列 越 米 越 商 的 “N? 到 达 解 的 ,每 个 较 高 的 位 置 
都 表示 在 较 细 的 网 格 上 得 出 的 解 。( 见 图 19. 6. 2)。 

注意 , 式 (19. 6. 20) 中 的 安 , 不 - 定 和 多 网 格 循环 中 的 相同 , 它 应 该 至 少 与 离 敬 化 
2 同 除 , 旭 有 时 一 个 高 阶 算 子 可 能 会 有 更 高 的 效率 。 

可 以 证 明 , 在 进入 下 个 更 纪 网 格 之 前 ,在 每 一 层次 上 通常 需要 -次 或 最 多 两 次 的 多 网 格 
循环 ,虽然 ,所 需 循 环 次 数 有 理论 上 的 指导 { 例 如 [23), 但 人 们 可 以 根据 多 验 很 容易 地 确定 
它 。 先 画 定 最 细 的 网 格 ,然后 增加 每 一 层 网 格 上 的 循环 次 数 , 并 研究 解 值 的 变化 .这些 解 的 渐 
近 值 就 是 差分 方程 的 精 栈 全 .该 糖 确 解 与 小 数 月 循环 次 数 得 到 的 解 之 差 为 夫 代 误差 .现在 . 
再 固定 外 环 次 数 为 革 个 较 大 的 值 ,改变 网 格 种 类 的 数 日 , 即 所 使 用 的 最 小 六 值 。 用 这 种 方法 
可 以 估算 一 个 给 定 h 的 戴 断 误差 .最 线 得 到 的 结论 是 ,用 才 次 循环 毫 无 意 义 , 并 不 能 使 渤 代 
误差 降低 到 蕉 断 误 差 的 大 小 水 平 。 

,739 。 
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该 方 溉 从 最 粗 的 网 招 开 始 , 先 本 值 , 杖 后 节 购 (通过 "V”) ,得 到 木 断 变 细 的 阿 糙 上 的 解 。 
峡 18. 8.2 完全 多 应 格 (FEMG) 法 的 御 环 结构 


简单 多 网 烙 达 从 ( 循 环 ), 只 在 最 此 网 档 上 和 需要 用 右 疝 项 {f 而 FMG 则 在 所 有 网 格 上 都 需要 六 如 果 连 
界 条 件 是 齐 次 的 , 则 可 以 使 用 疡 = 次 六 .对 于 非 齐 次 边界 条 件 ,该 等 式 不 总 是 成 立 的 .此 时 ,最 好 
在 每 种 粗 网 格 上 都 将 节 离 散 。 

注意 ,FMG 算法 能 求 得 所 有 网 格 上 的 解 . 轿 而 它 可 以 和 理 查 德 森 外 推 法 之 类 的 技巧 -- 
起 使 用 。 

现在 ,我 们 给 步 -- 个 程序 mgiin, 它 利用 完全 多 网 格 算法 来 解 一 个 线 隆 方程 ,如 典型 的 
问题 (19. 0 6) . 它 用 纪 - 黑 刘 斯 - 赛 德 尔 作 为 光滑 算 子 , 取 史 为 双 线 性 播 值 , 窑 为 于 加 权 .为 
使 程 床 能 处 理 其 它 线性 问题 ,只 需 适 当 修改 丽 数 relax ,resid 以 及 slysml 即 下 .该 程序 的 一 
个 特点 是 ,定义 在 不 同 网 格 上 的 变量 采用 动态 存 情 。 


并 incluqde ”nrutil, h” 

并 defioe NPRE 1 在 … 之 前 松 驰 扫 描 的 次 数 
世 dcfine 人 POST 1 粗 网 格 恬 止 计算 后 
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void mglinkdeuble * *u， iptny int nceycle) 


完全 多 网 格 算法 用 来 解 线性 轿 轿 方 三 ,这 里 为 典 亚 门 题 (19. 0.6) ,和 输入 ul..n][i. mm 包含 右 端 p, 而 输 沿 则 返回 
解 . 维 数 + 必须 是 21 十 1,7 为 某 个 整数 (;i 实际 上 基 求 多 中 用 到 的 网 格 导数 ,程序 中 称 为 ng ,necycle 是 每 层 用 到 的 Y 
握 蒜 数 。 


vold addinattdotuble wuE，double DC ，cpUDb16 +re8，int 卫 ) ; 
Yoid copyfdoubla kwa0ut，double wz&in，int pm) 1; 

Yoid filtiofdcuble 9*u，int D)i 

Yold interpfdouble ?yuf，doub18 #9uc，fnt hf) 

Yadid relaxfdouble wu，double +#+rbha，int nn); 

Vold regidrdoubIe *T8，double **uU，double rrha，inot D); . 


，740。 


了 


Vaoid ratrectkdnoubla wuC，dotble +eu，int nc) 1 

void s1vsal(double weu，double wwTDg)] ; 

uneipgmed fint 了 ,jcycle,1],jPost ,jprevpf ,ng=0,ngrid,nni 

ipuib1e 训 刘 号 B [人 WGHAX+I] ,*# 了 rho [村 GNAX+1T] ,wwdrhbs [NGNMAX+XL] ,+*iuCNGMAXAI] ; 


mneni 

While (hn >>= 十 ) h 避 + 

讶 《na !e 1+(1IL << ng))}》 nrerror("n-1 mugt be a Pover of 2 in mglin,"); 
1 《ngE > RONKAX) nrerrort "Increase NMGNAK in mglin-")i 


nneDpy2+11 

ngrideng-1; 

让 给 网 榕 凶 -车 的 ! ,hs 分配 存储 她 直 ， 片 通 

rattctKirho[agrid] ,uvnn) ， 过 绷 网 恪 ] .的 限制 值 将 其 填写 ， 类 位 地 给 所 

人 tile (nn > 3) 1 有 料 岗 糙 上 的 + ,hs 分 配 地 址 并 填写 
onn72+11; 


+rhofTf--DgridJ dlmatrixK1,on,1,on); 
teftYctKirbho[ngrid] .irhofngreiqr1] ,nn): 
了 
Rom3; 
iu[L]=dmatrix(l,nn,1 ,DR) ; 
irhs[1]=dmatxix(li,nn,1,on); 


2LvamlL(iu[1] ,yxhof1])3 蝇 宜 网 格 上 的 初始 解 

free_daatriz(irho[r1] .1.nn,l.mn): 

DEzid=ag; 

for 【和 2;jc=ngrid;j++) 攻 世 套 选 代 循环 
nm2zrc-i; 


iu[j]=<dmatrixtl,an:,l,na) : 

irhe[j]=dmatrix(inn,1,na); 

iTes[j]=dmatrirt1,mn,1,nnp); 

interp(iu[j] ,iu[j-1] ,an) i 从 粗 网 格 到 下 一 个 细 网 格 作 插 革 


coPT(ixrha[j],(j fm ngrld ? irhofj] : u) ,an): 建立 fr.h.r 的 Y 揪 环 
3or (jcycler1;jcyclec=ncycleijcycle++) { 
LE=oDi 
for (jjeji;jjyz23;jj--》 < .的 向 下 吉 家 
Tor 〈jpre=1;jJpre<=<MPRE; jpre++) 预 光 清 处 理 
TelLax{tu[jj] ,aizhs[jj] ng》; 
regidfires[jjJ,iu[jjj,zrhs[jj] nz) ， 


Phf=mtA241: 
zstrct(irha[jj-1],ires[jj] ,anf); 残 差 的 腿 制 是 下 - - 步 r.hs 
fillo(iu[jj-1],ngf)， 将 下 一 步 松 弛 中 的 韦 始 猜 漳 值 
) 妈 为 0 
8LVsLKio[t] ,irhs[1]); Y 的 底 端 ， 在 最 粗 网 格 
Rnfa3: 上 的 求解 
for 《jj=2;jj<=j;jj+4) 《 Y 的 向 上 加 雍 ， 
卫 和 =2enf-1 
addintftiu[jj] ,ia[jj-D,ires[jj]at); 在 addint 中 reg 用 作 笃 对 存储 祈 间 
for 【jpoatel;jpoat<eHPOST; jpoat++)] 后 斯 光 浴 处 理 
Telaxfiu[jjy] ,zrha[jj] ,bat》; 
】 
} 
copytu,iu[ngrid] ,mn); 返回 u 中 的 肖 


for (nn=<nyj=ngij>e21j- 一 ,np=maA2+1) 
treq_dmatrixX(ires[j],t,nn,l,nn)， 
free_dmatrix(irha[j],tnn,t,nn)i; 
Tree_dmatrixgiu[jJ]inan ,labh)i; 
二 《j !v ng) frzee_dmatzizfirho[j],lnn,1,an); 


frea_daatrixKixrhs[1] .1.3,1,3); 
Tree_dmatrix(iu[t],1,3,1.3) 


Yeid rsrrctKqdouble *w sucy double > * uf* int ncy》 


半 央 要 眶 人 ne 十 粗 网 娩 的 推 数 - 在 -1.2sne 1 20c- 人 中 输入 是 组 司 阁 解 , 烛 加 客 鲜 返回 呈 ur 本 


ne 下 1..rc 中 。 


Int ic ii jcsjftyacr 一 2 二 nt 一 1 


for (jj 一 3 jc 一 2ijc<nhciie 十 十 ,让 一 2) 内 部 名 
for ! 证 一 3,ie=23ic<nciiec 一 sid 一 2 
eric][jc 一 0.5suf[it]D 们 十 0.125 wuf[if 十 1 这]… Ci 一 2] 各 
一 df[ii FF 十 1 二 ofLif 和 一 1 和 3 
} 
for (js 一 1,ic 一 Li 一 ne3ic 一 十 ,jc 一 一 2 { 站 媒 眠 
uc[ic][] 一 afije4L1J 
us[ic][ncl-uz[jc][nacc] 
} 
for (ie 一 L;ic 一 iic 扫 一 nci 十 十 ,je 十 三 2) 
ucLljLic_= 一 ai][c]; 


uc[ne][ic]=ut[ncc ic 


void interpfdouble #* +uf，doutble * * uc int nf) 


通过 双 线 性 搬 值 得 列 粗 - 风 折 肛 .nf 是 细 网 属 的 纺 数 .uc,L .ac T1. .nc 作为 糙 网 格 解 的 输入 ,其 中 nc 一 nf.2 1, 细 
末梢 解 返 隔 到 uf[L1..af:[1 ,hft]。 


int ic，i，jic，JL，nc; 
he 一 hf72 十 ti 


for (js 一 1 并 一 1ijce 拉 一 nci ji 十 一 :并 一 二 2) 复制 御 环 
for (ic 一 1iie 忆 =nciic 十 十 ) uI[2 xic 一 1 Df] 一 acLc][c3 
[for (〔jf 一 1;i[< 和 一 af 一 罗 奇数 有 歹 箱 环 , 坚 直 插值 


tar Gt 一 25itt<nteit 十 一 2) 
uf[iig][ 论 = 一 0.5x cnafDiif 一 1 LE 二 uCif 一 1][Cit2)， 


fer 〔 并 一 2 并 <nf; 姜 一 一 2 偶数 询 循 环 , 求 播 值 
for (证 一 15iiE 近 一 rd 过 十 十 )》 
afCii 人 [和 一 人 5# (CufCGE 一 1 十 ai 下 [Ci 一 1 
人 


wo 过 addintfdouble * <uf，double * # ucy double * #resy int nf) 


过 行 粗 - 细 独 值 共 将 铺 果 训 在 由 中 ,ni 基 引 呐 妊 的 维 救 .在 uc..neJLt nc 中 输入 是 杠 岗 格 各 ,其 市 ne 一 5 和 2 
1 .网 陪 略 解 返 吉 到 ut-1..nf [1..5 仆 中 -res 1..nf]-1. .anf] 作 为 辐 时 存 健 空间 ， 


yoid interp(double * xuf, double * *ucyint ni); 
iat 


interpfTEs，ucvnf); 
for 4=1i< 王 nfl 十 十 ) 
fior 5 一 1 < 一 pf 人 ii 一 十 > 
ufLiDj- 十 一 res-[j-; 
} 


void slvarmtfdoubec <* *u double * *yhs) 


在 最 蛆 网 妆 上 典型 全 是 的 求解 ,其 中 h=1?2. 在 rhs[1. .3][1..3] 中 基 右 端 项 的 输入 : 解 返 加 到 u21. .3 1 -3 中 、 


veid fillfkdouhble < x+uy intn)yi 
double h 一 0, 5; 


flloku;3)， 
742。 


ur21r2] 一 一 hhhsrhsL21C2]74, 0 


VyGjd re axkfdcuble * <Dydouhble xxths int hn 


典型 问题 的 所 一 黑 襄 斯 - 赛 得 尔 恰 驱 .利用 右 满 项 医 数 rh 1. .61[L ,na] ,修正 狂 相间 nmn 汶 二 误 浊 


in iipassvisw jw 一 1; 
doub-e hvh2: 


bb 一 1 .0710 一 1 


h2 一 hx*hl 
fo- [ipass 一 1:ipaas<- 一 2iipass- 十 w-3 一 jswy ! 近 和 黑 三 措 

18w 一 jswy; 

tat 汶 二 24j<cni 二 十 isw 一 3 一 证 w) 

for fi 一 tw+ liisnii- 盖 20 Gass Scidel 公式 
u[i 让 天 一 0.25* (uCi 一 1 一 as ER -AUD 十 1 
一 [Dj- 1 一 hb2x*zhs[i Ci)， 

} 


} 


yejid resid(deuhble w* 天 fesy deuble * 关 uUi double * +ths、 int n) _ 

对 上 典型 何 题 返 回 负 残 骆 ,输入 最 是 of1..a 站 .nl 和 rhsil..njLl..o] 而 返 杞 到 res-l -0o]-1..r]。 
{ 

int 1 


daoubie hh2i3 


hp 一 1.07(n 一 9 
hz 一 1.07Ch yjh? 
[er (一 24j<<nij 十 十 )? 内 部 点 

for (一 25j<naiit 一 十 ) 

tes[i 刘 [iD 盖 一 h2ix fu[i+lii- Hu 一 1202 ucD+1J+ucU- 1 一 
4COnauciif 记 十 rhsLilLiy 

for (i 一 15i< 一 ni 十 十 ) 边界 点 

res[i][ 一 res[ 站 [nres[i][i=res[n]- 训 =0.0， 


void cuoy(deuble * <aouL，double * xin .inrny) 奖 sa[1l.n][l 3a] 复 制 到 sou [ac 让 


了 


jint ij; 
for 0 一 1ii 二 一 nii 一 十 
fer 〈j= 一 10j<==njij 十 一 ) 
aout[j 让 让 J 一 ain[L iD 


4 
『 


void iD0gdouble * ku int nm》 将 uLlL..njL1.,n] 韦 零 吉 填充 。 
了 
int ij 
for 一 19 雪 一 ni 一 十 ) 
for fi 一 1ii<=nri 十 十 ) 
u[iDFi]=o, 0 


程序 mglin 的 编写 是 为 了 使 算法 更 加 明确 ,而 不 是 为 了 追求 最 高 的 效率 ,因而 很 容易 对 

它 进 行政 进 。 下 面 几 个 简单 的 修改 将 会 使 运行 时 间 缩短 。 
“ 红 一 咎 高 斯 一 赛 德尔 步 后 ,所 有 黑 网 格 点 上 的 气 损 必 全 部 为 零 . 因 此 , 半 加 权 必 = 
Sax 变 为 只 需 管 单 地 将 细 网 格 上 疮 损 的 “ 半 复 制 到 相应 的 粗 网 格 上 。 在 v 循环 的 第 


“7413 ， 


-部 分 中 rstret 前 对 resid 的 调用 可 以 通过 个 只 在 粗 网 格 上 循环 的 程序 来 代 蔡 . 记 
在 粗 网 格 上 填 进 一 半 亏 损 。 

"类似 地 , 红 网 梅 点 上 的 基 式 一 术 十 共 mr 林 用 计算 ,因为 它们 在 楼 着 进行 的 沿 斯 - 赛 
德尔 拉 摘 中 ,将 立即 被 重新 定义 -这 意味 着 addint 只 需 在 黑 网 点 上 进行 循环 . 

*。 可 以 用 多 种 方法 使 relax 提高 运行 速度 .首先 ,当初 始 猜测 值 取 零 时 ,可 以 得 到 一 全 竺 
殊 的 形式 并 省 略 程 序 flo. 其 次 ,可 以 将 各 种 岗 格 上 的 下 产 存 起 来 ,并 存 人 一 个 倍 
数 .最 后 , 吕 以 通过 中 间 变 量 重 妃 高 斯 - 赛 德尔 公式 ,将 公式 中 的 一 个 如 法 存 起 来 。 

"对 于 典型 问题 ,ncyclu=1 时 ,对 于 给 定 关 的 大 小 ,由 mglin 返 同 的 解 其 选 代 误 闫 将 大 
于 截断 误差 .为 了 将 误差 降低 到 截断 误 益 的 水 平 ,必须 置 neyele- 2, 或 更 终 济 地 党 
npre=2 。 一 个 更 有 效 的 方法 是 ,在 方 穆 (19. 6. 20) 中 采用 -一 个 更 商 阶 的 妥 . 它 比 Y 循 
环 中 使 用 的 线性 插值 阶 次 更 高 。 

实现 所 有 上 述 特性 ,通常 可 以 使 运行 时 间 缩 短 到 原来 的 172, 并 用 最 效 站 果 当 然 很 有 

用 。 


19.6. 4 非 线性 多 网 格 :FAS 算法 
由 在 , 世 来 求 鲁 间 线 性 椭圆 方程 ,我 们 将 其 形式 上 753. 


St 一 站 (14.6.2]) 
仁 意 显 含 的 源 项 部 移 到 了 六 融 . 概 让 方程 (19. 6. 2 ?被 适当 南 散 为 
Sm) 一 作 (19. 6.22? 
下 面 , 将 会 看 到 在 多 网 格 算法 中 ,我 们 必须 考 虞 求解 过 程 中 ,产生 非 堆 布 器 项 的 方 称 ， 
Sea 一 内 19 2 


用 多 网 格 解 非 线性 问题 的 一 个 途径 是 , 利 胃 牛顿 法 : 妈 在 每 步 旨 代 时 ,对 修 止 项 产生 线性 方 理 , 革 -是 ， 
我 们 可 以 利用 线性 冤 网 档 来 解 这 些 方 程 .然而 ,多 网 格 思 想 的 户 大 优势 ,表现 页 它 可 以 直接 应 用 到 非 线 吐 
问题 .我 们 要 做 的 只 蚌 , 选 一 个 适当 的 非 线 性 松 驰 法 米 光 清 误 差 , 青 加 二 一 个 估算 粗 网 覆 上 上 近 和 公休 汪 他 的 
过 程 。 

这 个 直接 方法 头 是 , 布 拉 德 (Brandt 的 完全 近似 存储 算法 (FAS)? ,也 许 除 最 粗 网 异 外 ,一 般 没 有 非 线性 
方 程 需要 求解 。 

这 为 实 观 非 线性 算法 ,假定 我 们 象 线性 情形 一 拌 ,已 经 有 一 个 能 光滑 残 差 向 基 的 松 驰 法 过 程 .证 是 我 
们 可 以 找 “ 直 光滑 的 夏 正 值 xx 来 解 方程 [19. 6. 23) : 





Say 十 芭 ) -= 六 (119, 6. 24)》 
为 了 找 岂 * 注 意 
SA 沿 十 机) 一 2 人) 一 大 一 3 从) 一 一 起 (19. 6. 25) 
综 过 儿 次 非 线性 松 驰 扫描 捷 , 右 端 是 光滑 的 -内 而 ,我 们 可 以 将 左 靖 转 移 到 一 个 粗 网 格 上 : 
St(am) 一 58{( 沈 克 ) 一 一 殉 轴 《19,6, 26) 
即 :我们 在 棚 网 格 上 解 
SNkai 一 铬 ( 纺 雏 》 一 天 机 (19.6.27)? 
( 非 零 右 端 项 就 是 这 样 出 现 的 ) .假定 近似 解 为 xur* 则 粗 网 格 上 的 族 正 值 为 
入 一 sr 一 静 坝 (19, 6. 28) 
以 及 
如 rr 轴 ) (19.5. 28? 


注意 ,一 般 稍 沈 下 入 攻 天 此 间 关 go 这 是 关 键 点 :方程 (13. 6.29) 中 的 捅 值 浊 苏 名 让 修 正信 天生 ， 
而 不 是 出 整 小 说 ay 产生 。 

方 坦 2 人 我们 求解 药 是 完全 近似 值 w, 布 林 于 线 性 算法 由 只 求 炭 基 , 这 就 共 上 AS 其 覆 的 
由 来 。 

现 此 ,FAS 多 网 格 算 法 与 线 作 多 国情 算法 看 来 极其 础 似 , 充 有益 别 兵 , 亏 扑 氏 松 驰 证 也 凌 w 本 必 
须 被 限 刺 在 粗 局 司 上 ,通过 对 算法 的 递 遇 调 朋 ,法 解 方 程 C15 寂 2) 但是: 不通 远 这 种 途 和 敬业 订 实 詹 尖 法 ， 
我 们 将 先 介 绍 所 齐 的 对 偶 观 点 , 它 能 全 我 们 看 委 多 网 情思 四 的 另 一 个 方 困 优 势 。 

对 个 观 点 车 虑 局 部 项 断 误 荧 ,定义 为 


T 王 Site) 内 (15. 5 3 
其 中 zx 是 原始 连续 介质 方程 的 精确 解 . 若 将 上 式 改 写 为 
ht) 一 太一 了 1 Sa1y 


我 们 看 到 = 可 以 作为 戏 太 的 修正 信 . 虐 而 和 组 网 格 上 方程 的 解 将 成 为 精 人 风 解 re 
现在 ,考虑 相对 截断 误差 z , 亡 定义 生 相 对 于 二 网 格 的 开 网 巾 上 : 


1 一 (次 机) CN Rn 人 
由 于 skzj 一 太 ,上 式 可 疏 室 为 
本 玲 Ji 三 1 


换 言 立 : 我 们 这 以 认为 各 经 过 羡 修 王 重 , 伍 很 粗 网 格 方程 解 与 纲 网 格 方程 解 相 等 .当然 ,我 位 六 能 斗 算出 
机 ,但 却 可 以 利用 方 释 :19, 6. 32) 中 的 加 给 出 它 的 一 个 返 似 值 : 


全 相去 半 深 本 人 19.1.3d1 
将 方程 (19. 6, 33) 中 的 ry 用 rn 红 替 给 出 
SR 一 对 ( 深 2 一 绿 泛 (19.. 35) 


止 是 粗 网 格 方 程 (19.6. 27)1 
因此 我 们 看 到 , 租 细 网 格 之 间 的 关系 有 万 种 开 补 的 观点 : 
， 粗 网 和 格 用 来 提高 细 网 属 残 益 的 光滑 成 分 的 收敛 速度 . 
” 纲 网 格 用 来 计算 对 查 网 格 方 程 的 矿 正 亿 , 合 粗 网 格 上 得 到 细 网 格 上 的 精度 
这 种 新 观 售 的 一 个 优点 是 ,对 于 多 网 格 达 代 , 利 用 它 可 以 得 到 -个 自然 的 停止 款 准 ,这 个 祭 准 通常 为 
la | < 二 人 9. 8 36) 
问题 在 于 如 何 选 失 s. 显 然 , 当 剩余 误 益 基本 上 为 局 部 载 断 误差 了 时 , 青 进 行 达 代 就 毫 无 益处 二 .而 可 计 和 前 
量 是 zf, 那么 = 和 羡 之 问 的 关系 是 什么 呢 ? 对 于 二 阶 精确 益 分 格式 ,这 样 的 典型 情形 有 
了 RD -th (yy) 十 光 (13.6-377 
很 定 解 满足 内 一 kx 十 妇 xs(zy) 十 …, 然 后 假定 瑶 的 阶 足够 高 ,以 数 于 我 们 可 以 忽略 它 的 作用 . 则 友 程 119. 
6, 32) 给 出 
也 二 DPCa 十 gs) 一 St 十 看 2 
一 于 Re) 一 Eta) 十 下 [SCstet) 一 So ka | (19.6. 38) 
一 (一 加 rs 十 O(Rt) 
对 平 通 此 情形 如 一 2 我 们 可 以 每 逢 


Tt 一 下 本 车 志 (人 6 39) 
因此 , 停 直 的 标准 是 方程 人 19.6. 36) 中 
E=a 所， f 1 


在 实 遇 非 线 性 多 网 次 算法 前 ,我 们 还 有 … 项 上 作 :选取 “个 非 线 位 松 驰 情 式 。 首 先 吉 能 药 选 斥 优 寺 站 
线性 高 斯 - 赛 德 尔格 式 . 如 果 底 散 化 方程 (19.8. 23) 在 选 定 排 庄 后 , 节 为 


了 ia 上 .人 41》 
训 非 线性 高 斯 - 赛 德 尔 司 式 为 求 of 扑 解 下 述 方程 
(一 2 42) 


和 以 前 一 样 ,一 旦 新 “计算 出 来 就 要 代 花 几 w 对 二 二 方程 119.9. 42) 遂 党 是 线性 的 ,这 基因 为 非 线 性 项 通 
过 邻近 项 被 离散 化 子 。 妇 果 不 是 这 样 , 我 们 用 步 咎 畅 迁 代 来 由 具 方 束 519. 0.423 


Tu42) 一 所 





让 5 (13. 3. 43》 
例如 ,考虑 简单 的 非 线 性 方程 
可 给 三 辣 人 (19. 5 44 
用 - 维 记 号 ,我 们 得 到 
三 (站 《二 19 
出 于 
之 汉 一 一 4zp: 十 2 ， (19.6. 467 
红 人 加 
困 此 ,牛顿 高 斯 - 赛 帮 尔 所 代 为 
2 《at 于 下 到 
Wi 4 《19. 各. 由?7) 


下 面 是 一 个 利 肯 完全 多 网 烙 算 法 及 FAS 格式 求解 方程 (19. 6. 4 人 的 程序 mgfas ,限制 和 拓展 与 maglin 
中 类 似 . 收 黎 试 验 根据 方程 (19. 6. 40) 来 做 . 某 个 问题 的 一 个 成 功 的 多 网 格 解 羔 该 以 计 足 该 条 件 为 日 标 , 并 
使 V 循 坏 数 的 最 大 值 maxcyc 乍 于 1 或 2 .mgrfas 程序 中 ,用 到 的 copy、.interpb 及 rstret 上 因数 与 mglin 中 的 
果 数 一 样 ， 


并 include "nrutl. hy” 


划 define NPRE 1 在 必 之 前 的 堆 误 扫 描 数 
并 define NPOST 1 想 网 格 妊 开 值 被 计算 后 ， 
并 detfine 入 LPHA 0. 33 将 截断 误差 的 估计 倘 与 残 差 的 范 数 联系 起 闪 


并 defines NGMAX 15 


void ngfas (double * #uy int n，int maxcyc)》 


完全 哆 网 梢 算法 求 拉 线性 桶 加 方 程 的 FAS 表 : 方 程 姑 (19. 6.441 :篇 入 sf1..n]rl..n] 中 包含 右 庙 项 p, 输 目 刚 返 
扣 骨 维 数 n 必须 是 2 十 1 形式 ,其 中 7 为 某 个 整 阁 ( 实 际 上 ,7 基 解 中 用 到 多 网 格 层 数 ,程序 中 夭 为 ng)。maxcye 是 
每 层 网 格 届 , 使 用 V 循环 的 最 大 次 数 ， 


double ancrm2(deub1e *r&，28t 卫 ) 1; 

Yoid copytdoub1e *=aout ，doubl9 wsaiD，int D)i 

Yotd interp(double **uy，doublo auc，jnt nX》; 

void LIopfkdouble >zaout，doubls ww4，int 卫 ) ; 

vaid mktaddtdoub1e waa，double wb，doub1le *eC，int n); 

YOzd 网 生 如 BtbKqdoub1e6 二 wa doub1e bb，double wwc。xnt mn) i; 

Yoid relax2(double 4s*u，double warhs，xdot za); 

veid rstrct(doub1a *euc double eg，dnt ne) ，; 

Yotd 3lvgm2kdouble 0，double 4*yrha) i 

unsigned iot J 了 tjcyc19 ,jj,jml,jpost,jprenf,ngnO,Dpgrid hai 

doub1 避 站 二 玉 [ 乱 G [对 GMAX+I】。w 衬 开工 hs ENGIMR 关 十 1] ,让 起 说 CNCGMRAX+1] ， 
中 蜂 二 蕊 8 内 了 [NGNMAX+1] ,ww 这 CGIAE+I] ; 

youble reB,trerri 


mnen; 


”746。 





While (nn >?m 【)》 REg++， 
1iz# (na != 1+71IL << ng)) nrerrcT("n-l must be a Power 0 2 in mgfas.…"] 1 
ifr (ng >》 NGIMAX) nrerrort "inCreasa MGMAXK ia mgtin.")， 


ppmnA2+1; 
Pgrid=ng~， 
ixzho [ngrid]=dmatrix(t ,nnp,1yno)yi 
TEtrct[irhce[mgrid] ,u,mn): 
While (am > 3) 工 
mnsDOA2+I) 
irho [--ngrid]=dmattrir(C1inn,1,bb)i 
Tsttcktirho[ngridjy,irho[ngria+l] ,zmy: 
nnp=3i 
iu[1]mdaatrrirfl,nn,l,nn)i 
izhz[1]mdmatrizr(Ki,pn,1,nP) : 
ditat[1]edmatrixrK1,mn,1,ao)， 
itanmpP[1] =dmatrix[1 nn, 10a) 1 
alVsn2(iu[13 ,irho[l]) 
freb_dmatTixfirhori],l,nn Inno) 
ngrid=ngi 
Toy 《js=2ij<=agrid;jt+r) 1 
De2eDD-1i 
iu[j]j<daatrixt1any,i,nn); 
ixrha[i]=dmatrix(l,nnvl,no); 
itau[]j] mdmstrix(t, nn yi,nn): 
itemp[j]=dnatrixf1,nnav1,nn)i 
intaerp(tiu[j] ,iu[-1 ,nn) ， 


工 亦 选 代 循 环 


葵 网 沼 宫 - 1 上 的 fr.h,s 分 配 存储 地 址 ， 并 通过 
细 网 情 上 的 限制 值 特 其 填写 . 类 似 地 给 所 有 粗 网 
格 上 的 r.h,s 分 配 看 傅 地 址 并 填写 


最 粗 况 格 上 的 补 始 解 


从 狙 网 格 到 上 - -个 细 网 糙 作 捅 什 


copyKirha[j],(j !z ngrid ? irho[j] : u),nan): 建立 rh.s， 
了 or 【jcyc1le=1;jcycle<=uaxcycijcycley+)》 工 V 循 环 
QifmDni 
for 《jj=jijj>s<2;jj-~)》{ V 的 向 下 座 加 
Tor 【jpre=1l;jpra<sNPRE ;jpre++》 顶 先 光 裤 处 理 
Yelax2fiurjj],irhs [jj ,af] 1; 
lop(itemp[jj] ,iurJj] ,af) CR ). 
nf 一 nfly2 十 1: 
ja1=Jj-1i 
LStct(itenp[jnl] ,itemp[jj] .at) 也 克 有 [生息 ) 
工 StzctKiu[jol] ,iu[jj] nt)i 肿 丰 - 
lop(ftau[jml] ,tu[jom1] nz) 世上 ( 驼 生 ) 暂 时 存 贮 在 中 
magaub(itau[jt1] ,itemp[jml] ,titau[jml] ,nt); 构造 承 ， 
过 《3 
tITerT=ALPHA*anore2(itau[jml] ,nf); 估计 蕉 止 误 匡 人 


Tstrcttizhs[jimt] ,irhs[jj],nz); 


有 
matadd(idrba[jml] ,itau[jmal],irhs[jal] ng: 六 十 元 - 


了 
31vsm2(iu[1l],irhs[1]7i 


Y 的 底 端 ; 在 最 焊 网 格 上 求解 


mnf=3; 

for (jj=2;jjcj;jj++) T Y 的 向 上 添加 

j]ml=jj-l; 

TS3trct(itemp[jamal] ,iu[jj] ,af); 及 和 

uatsubp(iu[jml] ,itamp[jm1l] ,tamp[jml] ,af); WN - 到 2h， 

Dfm2#3n 了 -1 1; 

tnterpktiraat[jj] ,Itemp[jmz] af); 史 位 放 一 下 大】 存 丫 于 为. 

mataddtiu[jj],itau[ji，,iurj3j],nf)， 构造 

for 〈jogat=11jpoat<sNPDST;jpost++) 后 期 光滑 处 理 
Te@elax2kju[jj] ,irhsrjj] ,nz) 

了 

lop(icemp [j,iu[j] ,ntf)， 构造 残 郊 |ien|| 


matsub(itexp[j],irha[j] ， itemjp[j]j unf)y; 
essanorm2(iztemp[j] ,nf)， 
诈 〈resg < tIeIr) breai 
于 
] 
copy(u,iufngrid] ,n) ; 


如 果 残 差 足够 小 ， 就 水 用 再 
进行 V 循 环 


将 解 返 回 到 上 中 


for {nnen,j=ag;j>sIi;j--:,mnsnnar2+1) T 
free_dmatrizfiteap [jj,t,non,z,nnyi 
frea_qmatrizkitaun[j] ,1imm,1vnn): 
free_dmatrixftirha[]j] ,lnn,1,nn): 
free_dmatrjiztgia[j] ,1nno,1,nn); 
if (j != ng gg j !* 1] frog_dmatrixfirhof3j,lnn,1nn)i; 
} 
了 
void relax2(double # #uy double # #rhs， intmny) 


方程 119. 6.44) 的 红 一 四 高 斯 . 谈 龙 尔 构筑 .利用 布 几 头 蚌 数 rhs 1 .nm 公正 藤 6..5C1..n] 佑 当 币 代 [ 


int ijpDassvtswij,jsw 一 1; 


doublie foh2.h,h2ivres; 


hh 一 1.07im 一 1 
T 当 一 1.0Anehy 
foh2 一 一 由 < 上 ha 
jor {ipass 一 1;jpass< 一 2ijhass 一 二 sw 一 3 一 Jsw) 1 红 - 哇 打 措 
Jsw -sw 
for 5j 一 21j<ni 十 十 ,sw 一 3 一 iswy 
orc i 一 让 ww 十 15i<n 打 和 一 2 
res 一 h2ix fuG 二 1 二 ai 一 1 十 u[D 十 1 一心 和 站 -一 1 - 
40xa[[ TaCDC7 03S 开 订 whs[[， 
ufi][j] 一 = resy(foh2 十 2.0xu[i][j]); 牛 头 高 斯 - 赛 德尔 公式 


} 
并 include < miarh,h 盖 


void slvsm2kdouble * *uy，double * Ths) 


方程 (19, 6. 44) 在 最 粗 网 格 上 的 解 , 其 中 h=172。 右 姗 项 输入 列 L :1 3][1, ,3] ,并且 解 返回 在 u[1. .3. [1 .3 中 . 


了 
1 


void fllnfqouhe * xuyintn)i 
double disc ,facth 一 0.5， 


fllotuy,3)i 

Jact 一 2.07(h =h)1 

dise 一 sqtrtgfact # fact 十 rhs[2][2])# 
uf「21f23] 一 一 zrhs[?][2]/ fact 一 disc)， 


1 
上 


void lopfdouble * #Dooty double * xusintny) 

给 定 o[1. .nj][1.,n], 将 方程 (19. 6, 44) 的 sx(uny 返 日 到 outLl.,n],1..n :中 。 
!【 

int 1 

doubjla h.h2iy 


h 一 1.07rn 17) 

h2i 一 1.07(b*lD， 

for (一 25<nij 十 十) 内 部 点 

for (一 28i<nri 十 十 ) ， 
out5i 条 一 hb2* Gu-i 十 1 区 条， [+uac2D+D+uoiD 一 匡 一 

4.0#ufi][i+uc 可 [is* [CC 边界 点 

for (ii 一 1 一 ni 一 十 ) 

out[i][1 一 out[i 让 [on] 盖 outf1DD]=out[n [一 0.03 


void inatadd(deuble < By dcouble * wb double * xc int ny) 


娃 a[1l.,nILl ,na 利 bLl. .nlf1. .nj] 相 加 ,并 将 结果 点 回 划 c[1. .2 [1..m 中 . 
748 。 


int 1 


fot 在 一 1 妆 二 no 站 十 一 》 
for 4 一 131 二 ==nil 
cL 北 可 =aLjj[ 亲 +bLD 





void matsuhbrdouble # #ad，douhle > 关 hy doubie xy Di 


从 al :04.n- 中 总 去 bn 首 L nn, 并 考 培 果 返 梧 弄 .a] -1 .0 再 ， 
int 1 小 
for 1=1: 六 一 nij 十 十 )》 


Tur 6 一 1 < 一 和 1 十 十 》 
c[L[i 一 aa 一 bi 





1 
} 


并 incelude <mmath.h>> 


doubhle anerm2fqeuhle > avint n) 战 拉 矩阵 直上 .1.5 的 砍 几 时 入 范 数 


UL 1 
double sum 一 D. ( 


fer 0 一 1 和 j 扫 一 ng 十 十 ) 
Jor ki 一 上 < 一 nil 一 二 ) 
sum 一 一 a[ 训 [Li*a[j]# 


Teturn sqrtKsunt) Ai 


1 
『 
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第 二 十 章 ”少数 的 数值 算法 


20.0 引 过 


馆 今 为 止 ,已 完成 了 数值 算法 的 论述 ,读者 可 以 阅读 到 此 结束 ,而 这 最 后 一 章 是 一 类 " 少 
数 的 数 估算 法 "的 特集 .出 于 种 种 诛 央 ,我 们 还 是 决定 把 它 包 拓 在 这 本 以 多 数 的 数值 算法 为 
主 的 节 引 .我 们 注意 到 ,计算 机 科学 教科 书 的 作者 们 喜欢 在 他 们 的 书 中 ,增加 一 些 典型 的 数 
值 计算 癌 论 题 ( 遵 常 是 -- 类 果 慨 的 内 容 一 一 例如 , 求 共 分 ) ,我 们 发 现 我 们 自己 也 不 能 回 吉 这 
种 倾向 ,在 本 书 中 揪 入 了 一 些 其 它 的 内 容 ， 

我 们 对 素材 的 选择 并 不 是 完全 随意 的 。 其 中 一 个 主题 即 格雷 位, 已 经 用 十 构造 伪 随 机 序 
列 ( 第 ?7.? 节 ) ,在 此 只 赴 作 一 些 补充 说 明 . 男 外 两 个 主题 ,讨论 了 计算 机 评点 参数 的 诊断 和 和 件 
意 精 度 的 运算 , 它 能 增进 对 计算 机 的 认 放 , 即 计算 机 更 善于 做 数字 (相对 于 字符 利 一 进位 ) 方 
而 的 工作 的 认识 .后 者 这 个 主题 , 述 显 示 了 第 十 二 章 快速 博 里 叶 变换 的 一 个 非常 不 同 的 用 
法 。 

另外 三 个 主题 ( 校 蛤 和 式 、 赶 夫 曼 码 和 算术 码 ), 涉 及 了 数据 编码 .压缩 和 认证 的 术 同 方 
面 。 如 果 读 者 需 处 理 大 量 数据 一 甚至 ,数值 数据 ,那么 顺便 熟悉 一 个 这 些 内 容 ,可 能 在 某 一 
点 上 巡 早 会 有 帮助 的 .例如 ,在 第 13.6 节 中 ,我 们 已 通 到 霍 夫 曼 编 码 的 一 个 很 好 的 运用 。 

但 要 再 次 说 明 ,读者 可 不 必 非 污 这 章 内 容 不 可 (正如 读者 应 该 从 第 四 章 和 第 十 六 章 中 学 
习 数 值 求 积分 ,而 不 是 从 计算 机 科学 教科 书 中 去 学 习 。) 


20.1 诊断 机 器 的 参数 


一 个 简单 的 假设 是 ,计算 机 的 浮 点 运算 是 “足够 精 风 ? 的 ,如 果 相 信 这 条 假设 , 则 数值 分 
析 就 变 成 非常 清楚 的 议题 .不 考虑 伟人 误差 ,使 许多 有 限 算法 变 得 “精确 ”, 折 算 结 果 和 真实 
结果 之 间 只 益 了 一 个 截断 误差 (第 1, 3 节 )。 这 样 说 , 听 起 来 是 不 是 很 幼稚 ? 

大, 确实 很 幼 蕉 。 斥 管 如 此 , 它 仍 是 贯穿 于 本 书 人 部 分 内 容 中 ,是 我 们 所 必须 反 交 的 候 
设 。 对 于 我 们 所 讨论 过 的 每 一 种 算法 , 亡 们 的 舍 人 误差 是 如 何 传递 或 限定 的 ?要 回答 好 这 个 
问题 是 不 现实 的 .种 实 上 ,也 是 不 可 能 的 .无 论 是 我 代 还 是 其 他 人 都 没有 对 许多 实际 算法 做 
过 严格 的 分 析 。 

当 听 到 用 户 说 ， 我 明 到 了 单 精度 的 售 信 误差 ,所 以 我 改 成 双 精 度 ”, 这 使 真正 的 数值 分 
析 员 嫁 缩 了 .这 句 话 的 实际 意思 是 :对 这 个 特定 的 算法 以 及 某 特定 的 数据 来 说 , 双 精 度 似乎 
能 恢复 我 认为 这 个 简单 假设 是 错误 的 这 种 信念 ”, 我 们 承认 在 本 书 中 ,所 提 到 的 精度 和 伟人 
误差 大 部 分 在 特性 上 仅仅 是 稍微 更 定量 些 , 这 是 由 于 我 们 试图 更 “实际 些 " 所 引起 的 ， 

.了解 几 户 自己 机 器 的 浮 点 运算 的 实际 限度 尾 很 重要 的 , 当 用 户 直 觉 地 ,实验 性 地 .或 随 
意 地 处 理 祥 点 伟人 误差 时 尤其 重要 。 实 验 性 地 确定 有 用 的 浮 点 参数 的 方法 ,已 马 科 过 
750* 


Cody) .马尔 科 姆 (Maleclny 和 其 屿 入 型 引 潭 竺 本 过 所 提供 的 实 能 水 法 ， 和 下 年 泣 
machar 来 县 体 守 虑 ， 

程序 machar 狼 所 丰 宝 世 孝 是 吉 回 侦 , 它 中 污 食 义 是 ， 

，ibetia( 第 1.3 节 中 称 为 吕 ) 赴 数 险 计数 法 的 林 ,通常 为 2 人 简 杀 大 1 弄 关 生 监 

“站 浮 点 尾数 好 中 基数 jibeta 的 全 数 ( 几 区 1.3.3). 

”machepb 息 ibeti 上 最 小 ! 通 疹 负 的 ?和 覃 将 的 指 狐 俏 , 它 加 0 后 .得 囊 二 1 和 | 

的 数值 . 

”eebs 是 :beta 的 译 总 数值 , 它 可 粗略 和 存 作 允 * 泽 二 

”Hegeb 法 ibeta 的 最 小 罕 汉 的 指数 伸 . 被 1. 号 , 得 刊 行 1.0 丰 训 的 起 体 

。epsreg 就 是 ibetaee 另 -种 起 记 汪 上 返 精 诬 装 方 流 莉 ,PSneg& 是 el 有 时 和 

和 ps 和 shsneg 相 宗 ， 

- iexpb 是 指 数 优 的 个 人 活 1 知 号 人 站 

”mixnexp 是 证 刍 不 以 稚 起 头 的 iheta 的 最 (通常 症 负 的 ) 伟 ， 

Xman 十 ibelamiesp 邮 评 人 泗 常 呈 民 小 可 用 白 泽 点 数值 ， 

maaxexb 是 导致 溢 相 的 ibeta 汐 最 小 ( 止 的 ) 值 。 

*， TaX epsTiIEEg ) betasar ,用 党 是 虐 大 可 用 译 点 数值 。 

“ind 返回 一 个 范 雪 外 疙 到 > 的 代 介 : 庆 纶 出 使 用 何 种 舍 入 产 法 以 及 如 和 何 企 惠 卜 关 尖 

让 光 蛋 交 

-” ngxd 是 兰 截 电 疝 居 娄 的 和 葬 各 ,以 让 度 计 获 法 对 所 用 汐 ” 保 扩 香 "位 数 。 

在 象 mmachar 这 样 的 笠 这 中 ， 有 许多 如 往 之 处 、 戏 册 户 米 说 共 月 的 是 , 找 由 是 所 多 开 器 
特性 .另外 之 所 必 必 须 这 样 做 ,大 为 了 避免 象 上 洪 和 下 次 这 种 可 能 中 断 旨 序 执行 果 钱 诬 千 秋 
发 后 ,在 有 些 情况 二. 穆 序 只 有 党 蒂 认 "标准 ?去 示 法 的 某 些 特征 来 能 .例如 , 辫 坦 撕 合 入 关 式 
来 讲 认 IEEE 标准 表示 法 .并 于 由 浊 该 指数 囊 示 法 的 其 些 特 第 作为 其 舍 人 方式 的 二 果 , 注 织 
出 容 请 参阅 文献 51. 及 省 美的 参考 文 趴 :注意 .在 非 标准 机 器 上 程序 machar 可 能 准 由 疏 相 
信 的 结 

关 十 参数 irnd 偿 需 一 些 漂 各 说 明 - 在 下 FF 标准 中 ,- 进 灯 模 这 在 写 于 精 调 的 、 长 下 
的 数值 。 加 法 舍 入 的 上 性 方法 昨 , 把 两 个 相形 示 的 但 “精确 ”地 加 起 来 ,然后 把 下 鉴 会 大 成 鞭 
“ 争 近 狼 可 表 去 的 数值 .如果 这 个 和 数 靖 确 地 伙 在 两 个 可 表示 的 数 中 间 , 见 谋 沪 区 
偶 的 那个 数 ( 妈 低位 进 制 数 为 赤 ) .对 王 所 有 有 其它 的 运算 强 作 应 梨 排 回 详 区 六 ji 
说 ,应 把 它们 等 同 于 无 限 梢 确 来 处 地 , 然 生 舍 入 他 虹 邻近 的 可 表示 的 数 俏 。 

如 果 irnd 返 加 2 或 5 . 则 开 鼎 的 计算 机 就 臣服 从 这 一 -村 浴 的 .如 果 它 返回: 赤 4 . 串 许 
JEEE 标准 以 外 的 千 入 方法 。 婧 果 它 返 辟 沫 或 3, 则 它 就 是 采用 截断 壬 朱 放 不 是 丛 六 

- 般 这 是 不 市 望 的 情 记 。 

irnd 汪汪 ， ! 题 涉 人 洲 。: ee Re 


十 | 


























ee 游 : 当 1 xmin 时 ， 和 全 ie 并 省 相 : 
面 它 的 尾数 下 殊 ,获得 尾数 起 头 处 为 专 并 上 且 * 近 庶 地 ” 玫 失 精度 , 世 染 用 这 种 三 式 、Jirns 鹤 
二 3.4 或 5 来 指示 。 


节 jinocjiude 民 mniath,h 


一 上 
7D|1， 


dehireeCONYO CGIoat 人 


此 处 拒 flcs- 谍 do-3lk 下 并 注 在 下 而 的 说 唱诗 全 二 : 攻 蛮 机 习习 设 精 度 .从 二 





void nachar tmnt #ibeta int sf int sirnpdy art "Perdy io +:niachep， inl #negcn int > exhn. 
inrt * mainexP， ingr Daxexp，fleas ebp 3oat ceFsineg rtoal 关 xhaimis ozt 二 XT5X 
箭 定 列 找 四 影 啦 洋 冰冰 算 的 机 从 耻 特征 过 1 值 记 桥 :1betas 肖 点 迷航 其 数 t 浮世 灾区 数 其 数 于 3 


Ts 基 吉 小 下 数 , 玄 剖 屯 1 和 半生 不 每 于 1.3 风 地 小 正 数 和 盘 小 工 葡 ,已 是 被 1 5 眶 后 ,入 等 于 1， 
证 整 1xuxin 最 小 工 去 示 光 二 数 xoax, 段 六 可 安 于 和 目 客 , 其 它 娄 乓 渴 明 区 见 让 文 - 











人 










Heg -由 





iat 工 ,itBmhp,iz,j, kmr,nxrag 
二 loat ab,beta,batah ,betalDn.Dnet, TanRP ,tempLltemp3ytoni 了 :zzZD5i 


OneeeCONVIKII i 
证 WOmDDB+OD6 1; 
工 咎 也 站 口 妃 只 一 中 站 所 
aonea) 果 负 马尔 科 峙 的 方法 确定 ibeta 和 bata 
do { 
站 += 8 
七 egP=a+OpnEi 
t+9mP1rtemnp-ai 
》 ahile (tempti-one == zero)i 
b=onei 
do 1 
b +*= bi; 
tempP=a+bi 
证 emPKiZL) 【过 empaa) 2 
while 《itemp 王 m D0) 1 
wjIbeta=itenp 1: 
bata=CORV(*+ibeta] ) 
本 天 口 ; 确定 让 和 ixrad 
b=one)， 
do { 
二 (wii)i 
bh = betai 
teampeb+pne' 
七 emp 1atamp 一 bt; 
] while (teapl-one == Zero)i 
吉 irndseODi 
Databmbetay/tio: 
tmprat+bGtahi 
if 《temp-a = ZerD) 中 rnQd=Ti 
七 enpB= 上 at+Dbetai 
teape=Yempa+batrah; 
if (wiirnad ** 上 口 必 & 七 mp 上 empa (= Zero) mirnd=2i 
了 D6EBPe (riIt)+33 确定 ne8gep 和 sp3neE 
betajin=onerbetai; 
a=0D9j 
for (isliic=(enegep}yii++》 器 DetaiDi 
ba 
for {1) 
七 6 了 ED=Ong-a 1 
if [temp-one != 2nrO) DTeaki 
至 = 辣 昌 3 
一 (snegeF); 
了】 
?DegBP = 一 (anb59P) ; 
市 加 六 3 电 如 区 = 竹 3 
machep 二 一 [*it]-3; 坎 定 zchep 和 eps 
a=bi 
for 《ii 工 
站 empP=ODET 太 i 
if 《temP~one != Zaro) breaki 
互相 一 be 七 主 ) 
+ 二 《站 于 全 ChBP》 1 


7S2， 


中 多 T 可 = 总 俩 定 DEFd， 
上 temp=oneyr{fw*epa) ; 
守 E 《airnd 一 用 加 8 二 ampwonae-ore !e ZeIC) 站 攻 区 TYd= 工 ; 
izg0i 确定 iexF， 
1 
乞 zbetaini 
=DnG+{tweps] 
mzrag<t 
fier 人 11) 科 环 广东 上 江 发 后 、 则 退出 
J=zi 辐 
< 了 
呈 Z+OPBi 此 处 检 查 下 邀 发 生 闻 
七 号 黄 户 = 之 a 世 了 
417 〈《a+a <== ZerD || fabs(z) >= yY) breaki 
temple5empsbataijni 


if Atamp3rbeata == z) break' 
兴业 四 
X += 
iT taibeta 1= 10) 工 
让 下 好 玉 P= 工 + 
IDX=K+k; 
alse T 失 用 于 上进 淹 机 器 
本 工 日 X 呈 ; 
izsfwbeta) 
while (k >= iz) 工 
1Z wm TDetia; 


AKCriexp) 
了 
外 X=ZR+IZ-L 
了 
for (3 )》 攻 为 靖 定 minexp 和 rmin 循环 点 衬 下 溢 发 咎 、 
*#Xminny; 则 退出 
y *= beazainf; 
ar-yeonei 此 处 检查 下 六 发 生理 
temp=yw zi 
if 〔a+a !m ZBIO 区 让 abSfy》< 中 XiI) 工 
十 4 上 j 
七 emp1etempwbetaizpmy 
这 【templ*beta == kgmp != 了 ] 荆 
了 工 工 昌 S 申 ; 
二 芝 四 in=y ; 
breax ， 
下 
】 
LSB breaki 
T 
minhoexP = -xi 俩 心 maxaxp，xmax 
iE (mx <= kf-3 业 & ribata = tDO) 革 
II += ZIi 
十 二 《放空 如 XR) ) 
》 
站 加工 自 其 力 = 本 和 二 《4 了 iDGXP)》; 
*jizad + DTTGSi 主 整 irnd 来 反映 部 分 上 汶 
if (【*#irnd >= 2) waxexzp -=“ 2; 为 从 EE 型 栅 幕 


im(*maxaerP)+(eminaxp) ; 


为 在 二 进 制 尾数 中 具有 隐 含 前 导 位 的 棉 器 作 记 想 ， 并 上 这 种 机 型 所 考 示 的 基点 在 尾数 的 最 廊 端 


if 《wwibeta = 和 了 2 二 1i) 一 -《*maxexp)i 

it 《1 > 20) -一 (=<maxzexp); 

1 (a !m y) maxaexrpP -= 2; 

XImaZYOna( 站 6Pane 区 ) 

证 《(kzmaz)wone 1 Xuar) *TRX=ORe-betaw (eepgnG 区 ) : 
于 ID 自 台 了 《六 其 秋生 口中 中 @ 世 才 汪 曲直 六 二 bg 蕊 县) ; 
ms#max6erp)+[* 由 iD97P]+3; 

for (jn1ij<ceiijt+) { 


ft 【sibeta = 2) wmD3X + 王 中 IaI) 
日 LS XImaX 本 = beta 


】 


表 20, 1 给 出 出 machar 返回 的 “: 些 典 地 舍 , 表 中 有 EEE 依 反 机 是 展 天 多 数 LNIX 1 站 
(3UNDPGC，AMTPS) ， 虽 扩 pple Macintosh TI。 尝 浮 点 协 处 理 蹊 的 IBM PC 机 ,一 般 是 JEPP 
以 从 机 ,也 基 有 誉 编辑 器 会 不 过 当地 下 滋 出 中 间 结 果 ,导致 nd -2 而 不 是 5 ,证 意 , 六 于 
VAX( 第 凹 列 ?来 说 , 它 是 采用 在 尾数 由 有 有 一 位 * 绍 象 "的 前 导 信 的 记 数 法 ,因此 对 于 同 绊 学 
六 虽然 产生 一 个 较 小 的 eps ,但 处 理 下 洪 的 方式 不 适当 ， 

表 20. 1.1 程序 wachar 返回 的 典型 关 果 


虚 允 的 IERE 依从 机 TDECVAX 
扑 夏 疙 
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站 | 人 o 本 
， 
人 HL 
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| | 二 
3. g 光 [2 9R1DO 8 
二 1 





























8 有 有 
区 jnexb … 126 一 1022 38 
XI 和 | 时光 107 
一 一 小 - 一 -一 一 一 
TaxXexpP 上 2 ， 15P84 127 
一 一 一 一 一. 和 we 一 
3.40 冯 10 呈 1.79X 13 和 1 70X108 
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20,2 格雷 码 


格 需 始 是 整数 让 的 一 个 函数 CD 对 于 每 一 个 天 数 六 全 0, 有 0< 之 闻 一 | 对 应 
的 6Gtr。 该 函数 有 以 让 显著 特性 :表达 CD 天 CGI 的 进 制 效 中 只 有 一 位 二 进 数 不 柯 。 
格 圭 芭 的 一 个 ( 实 东 二 趣 最 常用 的 2? 例 了 是 序列 0060,0001.0011.0010,0110,0111.61051， 
Do0*1160:1203 TH6t0191011.100 和 1000. 分 别 对 应 上 ?7 一 015. 产 咎 这 个 三 


754 


区 直 入 十 ,简单 地 求生 2( 下 数 部 分 ) 的 逐 位 开 或 人 XORI 网 20. 2.1(a) -请 想 : 起、 六 取 
1 治 到 一 个 “ 进 制 数 直 对 ,其 法 是 如 何 这 行 的 ,就 会 明 良 外 或 怎么 进行 欧 , 从 这 江 让 殉 下 入 
看 出 , 相 邻 的 阁 雷 码 共 有 :位 二 光 数 不 同 (如 存 必 要 .可 在 前 绷 红 一 个 零 ) : 

证 的 拼写 是 “Gray”, 耐 不 是 “8zay”, 这 种 号 是 惊 Frank Gray 前 得 名 的 .十 芋 弟 个 由 
六 关 于 香 用 轴 轮 或 编码 器 想法 的 专刊 :这 种 编 仙 器 是 “个 带 有 关 孝 辣 心 纪 得 菜 乏 鸭 轮 地, 生 
一 个 条 纹 的 码 们 经 问 定 导电 靖 而 * 读 出 ” :这 种 想法 是 ,产生 -- 个 描 过 轮子 和 角度 基 一 进 相 二 
制造 加 轮 民 编码 器 的 个 显然 的 , 伍 却 错误 的 方法 足 . 座 欠 子 中 一 个 (例如 最 内 立 ; 的 ) 荣 纹 移 
“- 半 与 电 删 导 通 ,而 另 一 半 蕊 电 宙 绝缘 :下 个 茶 纹 在 一 、 三 象限 导 通 ;再 下 分 邓 引 
三 \ 机 ,七 的 人 等 分 区 人 剖 内 站 通 : 依 此 炎 指 : 泊 有 导电 利加 亦 :起 ,就 直接 读 出 了 了 闪 下 全 管 的 
一 进 制 人 的 。 





县 高 有 效 位 
寺 





友 
蜡 或 
3 > 3 
异 或 
;2 xD 2 GO 
异 或 
| 1 1 
异 或 
0 > 0 
曼 低 有 效 位 
(al) 
最 高 有 效 位 
半 二 
3 
0 放 、 
1 | 
恬 中 
基 尾 有 效 亿 
fb) 


ta 从 ; 计 真 档 雪 码 C 台 ) 的 逐 亿 去 竺 ,人 b) 格 希 码 的 译 码 运算 ， 
图 292.2.1 


这 种 方法 之 所 以 券 , 足 因为 天 能 保证 净 子 转 址 时 所 有 电 策 能 精确 同步 地 接 通 或 新 开 . 当 


从 但 短 ?(011I) 志 到 位 葡 人 ~8(1000? 时 ,由 二 不 同 导电 剧 不 能 同时 导 通 或 断 开 ,就 千 式 了 斯 码 
虚假 ,会 短暂 址 出 现 1(2110) ,1441110) 和 10010103? .而 用 禧 锚 码 来 编制 条 纹 ,可 以 确 深 不 ? 


(上 潜 序 列 中 的 0100) 后 861100) 之 阿 放 有 临时 着 态 会 名 现 。 

当然 ,我 们 需要 用 电路 或 算法 把 C6077 的 一 进 序 获 泽 加 成- 医 20. 2. 15b)y 显 未 了 起 生 交 
这 异 或 门 的 级 联 来 完成 此 哩 每 一 个 输出 位 虱 应 是 所 有 有 效 输 入 位 前 异 或 .对 攻 仙 
格雷 码 进行 译 码 , 在 电路 中 需 划 终 过 交 一 1 步 ( 或 者 门 延 衣 ) 尺 管 如 此 ,这 在 电路 十 逝 党 
正常 快 的 )。 在 个 具有 一 ee 放 们 人 必 丛 次 入 :站 、 
抽 只 需 做 In 次 ,其 中 秘诀 是 , 寅 用 兵 或 联合 ,并 有 层次 地 把 运算 分 组 。 这 涉 总 到 按 ] ,2 ,4 
8 … 位 连续 占 移 直到 字 长 结束 :下面 是 … 段 求 格 震 砚 及 其 译 码 的 程 应 ， 





tmSitned Lonb iRIay (unusiRnet eg iDLIS、 


当 导 人民 汶 下 或 鹤 , 小 加 的 柄 着 冯 ; 个 灰 为 前 , 则 章 配 略 将 疝 隐 译 码 二 


jint ishty 
unosiganet ,Gng smsy， idivy 


计 (is 尖 -- 间 六 是 简单 声色， 
TetutnT 人 mn 人 人 | 
ish 一 1 这 是 较 有 杀 区 方向 :在 呈 次 阶 成 局 ， 
En05 一 已 只 :个 -也 右 称 开 巡 ,运行 每 -人 竺 生 用 有 较 启 有 效 位 相生 或 
人 
ts ”一 Wi 一 ans De ishos 
(idy < 一 1 ish-- 一 10 下 国 ne 
th 一 府 卜 - 轮 钳 环 中 如 位 政 过 的 此 


在 数值 计算 中 , 涯 执 行 的 什 务 密 切 地 依 蚌 拉 的 二 进 制 数 ,并 且 需 对 许多 ; 让 循 趟 拟 行 
了 ,并 雷 码 是 医 常 丰 册 的 。 如 昌 对 只 由 羌 一 位 一 进位 的 数 , 重 复 执行 某 任务 能 提高 效率 的 话 ， 
那么 使 用 格雷 码 顺 序 而 不 是 合用 一般 二 进 数 的 连续 闫 序 将 会 很 和 意义 。 在 第 ?.? 节 中 , 卫 们 
已 硼 到 了 用 可 害 万 上 顺 字 产生 伪 随 机 和 序列 的 例 了 


参 莉 文献 和 进一步 读物 ， 

orwiz、P yan Hi 研 ，1589，TAhe 4rt ar 有 iectronics，2nd sd。({New York: CamhridFe Universitv 
TeSS .02 

和， 世人 DBPaioriag 民 E8pritjyas YU 站 加 Re PE 927 Cootpater 已 rogrezaptiz 丰 iiReadiog、NdLA 
上 ddison-Wes.sy)，N 7.2.1. [UnpuDlsbhed，Wil it be aowfys so?] 


20.3 ”循环 元 余 度 校 验 和 其 它 的 校 验 和 式 


当 从 A 传送 一 串 二 元 序列 到 B 时, 发送 者 希望 知道 它 是 否 能 准确 无 误 地 传送 型 达 且 : 

-个 通常 的 可 靠 方式 呼 .在 7 位 的 ASCII 字符 上 聊 如 位 * 奇 价 校 验 位 "使 它们 变 成 8 位 

格式 ,这 位 奇 税 裕 验 位 的 选择 是 ,使 序 免 中 含 “1”( 相 对 于 “02) 的 总 数 或 为 偶 们 个 校 验 ”) 或 为 

育 ( 奇 梳 验 ”;。 骸 屁 , 就 能 检测 出 任何 学 符 由 的 任何 单位 错误 。 当 错误 足够 少 ,放下 在 时 间 上 
不 是 成 群 出 规 时 ,使 用 奇偶 校 验 码 就 可 提供 吓 够 的 错误 丛 浏 。 

不 桩 的 是 ,在 实际 情况 中 ,单独 噪声 * 才 件 " 可 能 会 破坏 多 三 一 位 二 进位 。 由 于 ,奇偶 佼 验 

伺 有 两 个 可 能 秆 (9 和 1), 央 此 平均 地 说 , 答 测 出 多 余 一 位 .二 进位 的 错字 符 只 有 56 哇 的 机 

会 .对 太 光 数 应 用 来 说 ， 50 近 的 检 错 概率 部 是 不 够 将 的 :大 多 数 通 信 认 议 中 ,大 用 对 奇 偶 


”230 ， 


位 的 -种 多 位 推广 .这 种 杖 广 称 作 为 "人 循 坏 下 余 度 恼 "性 CRC :人 在 由 ee 从 中 
6 人 折 以 发 生 不 彼 檬 浏 到 汗 机 错 殿 的 析 1 
.机 及 对 任意 妆 度 的 清 虽 来 并 MT 佐 RC 右 能 得 油 出 所 有 水 于 等 二 57 个 省 





的 闲 下 和 生 - 昌 于 通信 传道 中 职 击 傅 同 末 * ”-. 华 随 砷 沽 代 WE 上 此 这 间 连 
综 位 纠 略 竺 性 是 盯 党 需要 的 ， 
通常 :CRC 吕 电 在 通信 软件 戎 家 和 上 站 片 和 设计 省 -一 这 些 并 二 进 数 了 站 指 生 党 二 时 


工作 领域 中 :位 是 :至少 了 解 关 二 CRC 的 上 种 本 沉 .对 于 我 们 足 有 出 的 : 芮 汪 : 茂 人 和 时 车 要 
能 与 长 岂 硬 件 片 或 软件 段 通 让. 这 此 三 件 片 虹 软 件 设 需要 有 效 的 CRC 作 站 的。 和 全 
的 .例如 ,用 … 个 程 订 池 XMIODEM 或 Rermir 软 科 血 直 接连 接 外 禹 全线 中 由 二 才 煌 世人 在 
十 局 部 文件 小 ,这 将 是 非常 方 全 的 。 

第 二 ,在 大 葡 航 ( 同 疾 实验; 数据 的 处 理 中 -能 出 数 扫 梨 侣 5( 均 字 .ie 未 . 行 或 完 紧 苹 什 ， 
统 半 上 上 独 有 防 信息 标号 一 一 它 的 CRC 尖 对 下 进行 标记 ,这 也 基 有 用 的 :在 交 大 人 的 做主 
可 只 比较 共 短 的 CRC 信息 标号 类 比较 此 考 诈 ,不 请 的 乱 且 标号 间 味 益 关 加 的， -至 
的 信息 标 守 ,在 很 禹 的 统 让 和 确定 忻 上 上 , 剖 昧 者 ” 致 的 让 下 , 丰 天 法 容 央 小 的 刍 店庆 志 在 
信息 标号 --- 致 付 还 可 敌 完 吾 和 区 记 : 六 比较 : 当 交 件 必 数据 让. 攻 有 可 能 被 罚 侍 地 中 二 克 开 漠 
修改 \ 俩 如 计算 杞 炳 硒 ) 叶 :所 它 们 的 先 难 的 CRC 齐 博 于 外 部 的 ,物理 上 安全 的 全 和 状 . 训 多 蔓 
荆 , 直 很 后 用 的 。 

有 时 .CRC 可 用 书 记录 数据 时 对 有 其 让 行 二 摘 , 如 求 - 致 的 获 抠 记 肝 好 草 出 斑 . 就 可 皖 耻 
先 遇 到 的 起 录 的 CRC 存 于 内 存 : 旭 时 一 个 新 由 录 凡 CRC 是 不 隔 的 , 则 就 次 蒜 1 入 完 粘 地 占 
档 , 和 否则 ,就 只 有 一 个 指针 指 辐 原先 需 册 搁 角 记 六 在 这 项 地 用 中 , 宕 更 个 1 的 
CRGC 以 使 错误 地 放弃 一 个 不 记录 的 可 能 性 小 到 可 容 几 的 程 皮 . 或 苦 , 划 果 能 铝 疼 机 地 仔 取 
原先 的 记 下 , 则 可 以 伐 一 个 完整 执 比 转 . 以 涝 年 该 只 有 - - 丝 的 CRC 药 记 录 古 特 克 的 科 

更 禁 ,让 戈 们 米 管区 地 计 沦 CRC 埋 论 ,然后 .我们 将 提 代 各 种 (有 基 的 CR 隐 实 施 . 这 
些 CRC 有 周 于 正式 的 或 事实 上 的 标准 朱 议 中 天, 抑 开 20. 3. 上、 

CRC 约定 数学 其 亿 是 " 模 2 和 整数 的 多 于 式 ”. 人 何 二 进 制 消息 可 被 认为 十 冲 妈 为 全 1 
的 客 项 式 .例如 ,消息 *110000130412? 是 多 所 起 天 十 寻 一 天 一 关 十 上 有 册 于 和 种 开 足 模 2 的 汉 坷 
的 整数 ,所 以 多 项 式 中 x 的 荨 亿 证 或 者 在 在 41) .或 首 不 人 不 在 (4)。 这 些 枢 2 疏 索 站 攻 硕 蕊 入 
为 唯一 国 式 分 解 域 . 它 的 含 文 是 ,任何 多 项 式 有 个 唯 :的 因 式 分 解 , 邵 被 称 先 不 直 约 的 或 
“本 原 " 移 项 成 类似 击 质数 ,多项式 :十 7 一 1 是 相 原 多项式 ,而 多 质 蕊 姑且 入 古 忆 源 
的 :十 1 (Cr 一 Ht7 十 1)。 请 记 什 , 整 区 运算 震 以 2 为 模 运 算 1! :个 在 关 的 宇 址 说 ,如 采 一 
个 多 项 式 户 除 尽 另 - 一 个 多 项 式 o, 则 它 … 室 能 除 尽 革 少 9 中 猩 一 个 网 计 ， 

一 个 财 侈 长 的 CRC 是 基 十 “个 特 跌 的 好 次 本 原 多 项 式 , 称 它 为 生成 多 欧式 .过 寺 亚 
一 个 本 涉 多 凌 式 作为 生成 多 需 式 用 中 一 种 河 慨 上 的 圳 . 对 于 16 位 CRGCCUITTIGCemite 
《onsultatif [IFrieraslional Teltgraphitne ct Tfjrphonique) 已 虑 定 "CC]ITT 多 着 并 2 光一 - 
2 人 十 ls 列 在 赤 20. 3.1 中 暂 记 用 协议 都 使 月 这 个 多 项 式 , 另 “个 通常 选 出 于 CR 7 
多 顺 式 ,rrs 十 x2 十 1。 . 它 补 省 INM 的 HISYNCH… 的 EBCBDIC 消息 中 。 种 通 芭 的 12 
雍 选 插 ，CRG 127 是 斌 一 一 Tri 和 通常 的 32 位 着 择 , AUTODIN 3 是， 一 
十 了 了 生 十 革 生 二 二 美和 此 于 人 二 时 区 硕 趟 


的 表格 , 釜 由 这 ?.4 他: 
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kemit 提 与 CRC-GGIT 加 刀 江 鱼 





注 炎 ， 上 间 线 放 示 补 卫 .SSw 是 学 从 数据- 是 CRC8 的 他 越发 有 区 沉 导 :是 5 位 最 高 匠 
效应 . 羽 此 ,CRC 一 中 B2 十 (用 18 进 拥 直下) er 区 岂 粹 验 水 平 3 把 CRC 年 发 3 





个 十 折 印 的 AASCD 字符 苇 送 (传送 着 一 季 》: 演 北 分 区 包含 六 最 高 有 教 售 :全 位 是 网 
位 .5 世 好 婚 有 效 信 : 














己 知 对 次 生 残 多 项 起 (可 被 配 成 多 质 式 形式 或 一 进位 序列 ,例如 ,CCITT 多 项 式 本 
写成 1000100D0000100001)》 ,计算 -个 一 进 制 序列 8 的 CRC 的 方法 如 下 ;首先 ,用 - 坊 弱 汪 , 出 
就 是 节 好 个 零 位 添 色 5 序 询 后 面 。 第 ,用 心 长 除 Si 生 其 除 中 的 减法 是 模 2 运算 . 因 
此 永 还 椒 会 有 有 "代位 ?, 模 2 减法 与 丈 笠 上 的 并 或 (XGOR ) 村 同 : 第 三 ,忽略 所 得 的 次数 .第 四 ， 
节约 得 到 一 个 余数 ,这 就 是 循环 并 余 校 验 式 称 之 为 CC 将 是 一 个 小 于 等 于 M 次 的 客机 式 、 

再 则 就 还 没有 完成 长 除 , 下 此 ,在 二 去 全 序列 形式 中 , 循 坟 抑 余 校 验 式 C 的 二 和 进 序列 在 呈 
“和 售 , 可 能 色 括 前 导 位 为 零 (C 甚至 可 能 全 为 过 ,及 下 文 ), 实 俩 见 [33。 

如 果 在 一 个 例子 中 按 上 述 步骤 进行 , 夸 者 会 看 到 ,在 氏 内 表 中 写 下 的 东 吓 是 多 余 的 ` 实 实 
际 上 .只 需 邱 S 的 连续 位 从 右 向 左 移 至 - -个 好 位 的 寄存 器 中 :每 一 次 有 -位 移出 寄存 器 的 
开端 ,通过 将 它 与 避 的 好 个 低位 (也 就 是 说 , 除 头 一 侦 外 的 所 有 居 的 位 ?进行 异 或 ,并 改变 
这 个 寄存 路 。 当 一 个 零 位 移出 家 存 器 左 端 时 ,寄存 吉 将 不 改变 。 尖 3 的 原 岩 列 部 分 的 最 后 - 
全 移出 寄存 周 碟 端 后 ,寄存 器 中 所 剩 下 的 就 是 5 的 CRC : 

画 此 看 到 ,这 些 过 程 用 硬性 实现 是 很 在 效 的 , 它 忠 要求- 个 连接 一 些 掉 或 门 的 移 位 寄 夺 
料 - 这 就 是 在 通信 没 施 由 ,如何 由 单 睛 车 片 (或 - 生 昔 片 的 小 部 分 ?来 计算 CRC 的 。 在 软件 
中 :实现 起 来 就 没 有 这 人 么 容易 了 .因为 一 进 倍 的 移动 -- 般 不 是 很 有 效 的 .因此 ,人 们 发 时 ( 正 
如 下 茵 的 实施 ?了 表格 驱动 程序 , 它 可 项 先 让 每 一 系列 移 位 和 异 或 的 结果 .例如 ,8 位 输入 中 
所 有 256 种 可 能 的 序列 的 每 -种 - 

现在 ,我 们 讨论 CRC 如 位 获得 对 蜡 个 连续 位 中 所 有 错误 的 检测 能 力 .假设 有 两 则 消 
恒 , 利 定 和 们 只 基 两 个 邓 售 框 架 内 不 同 的 序列 .于 是 , 它 作 的 CRC 只 相 荧 个 数 , 辐 人 
除 《S… 三 xz 三 五 的 余数 ,现在 ,万 的 形式 是 在 虹 位 框架 序列 中 ,前 导 位 为 迪 ( 可 忽略 ), 虹 
缚 -- 些 1 ,后 跟 尾 随 的 过 (正好 是 x 的 乘法 因子 ) ,由 于 因 蕊 分解 是 唯 - :的 :所 以 G 不 可 能 除 
尽 PP 是 好 次 的 本 原 多 项 式 ,而 刀 基 > 的 申 次 展 上 一 个 ! 窑 多 ?4- 1 次 因 东 。 网 此 .SS 和 了 
不 可 翰 抑 坦 具 有 有 不同 的 CRC ， 

758。 


在 评 多 执 汉 中 ,一 个 传闻 的 数据 块 丹 闪 数 据 亿 和 捕 面 直接 跟着 它们 的 邮 位 逢 拓 二 余 
以 有 位 (或 与 “个 常数 异 或 的 CRGC) 组 成 .让 接收 庙 , 必 复 数据 块 有 两 种 等 价 六 法 :最 是 显 必 
方法 是 ,在 访 收 闫 计算 数据 位 的 CRC ,并 将 其 与 捧 递 的 CRC 相 比 较 。 另 -种 不 本 开 三 由 , 浊 
更 精巧 的 方法 圳 ,接收 簿 简单 地 让 算 整个 站 位 数 汪 类 区 CRC ,并 确 省 得 玫 了 赤 织 果 .让 
明 : 完 整 的 数据 大 是 多 项 趟 Sr-HC( 数 得 左 相 , 议 佑 留 出 对 位 CRC 的 位 置 ? -而 (用 定 六 卸 
Sr=QGHC ,其 中 国 是 放弃 的 测 数 。 所 以 :六 -CC=QG 一 C 一 CC 一 Qt 请 记 作 ,和 宦 > 直 送 
算 ), 它 是 心 的 完整 的 倍数 ,因此 . 当 在 接收 端 .将 整个 数据 块 乘 以 xz 寺 , 企 份 玫 旺 悦 芒 生 
积 , 困 此 它 的 CRC 为 十 .证 毕 。 

这 个 基本 程序 中 有 :了 贾 处 小 变化 需要 提 -下 全 -首先 ,在 计算 CRC 呵 .4 人 林 让 果 在 
沉 初 始 化 为 过 .将 它 初始 化 为 其 亡 好 位 和 十 ( 例 如 全 方 1), 共 在 效果 上 等 十 有 所 有 决 的 条 请 测 了 
一 个 虚假 消息 ,有 刀 把 初始 化 值 作为 佘 估 给 出 .这 禅 做 是 有 优点 的 ,因为 到 如 此 撒 述 CRC 就 不 
能 检测 出 邓 起 始 索 位 个 数 的 增 减 .( 丢 类 起 始 位 ,或 搬入 堆 位 是 普通 的 "时 钟 错误 ”) ,第 .可 
以 在 CRC 被 传授 之 前 如 上 [ 异 或 ) 作 何 好 位 常数 天 类。 这 个 常数 或 在 接收 庙 被 异 或 掉 . 或 只 尼 
对 全 蛮 快 的 CRC 改变 一 个 已 知 基 , 戎 扣除 天 ”余数 .常数 天 经 常 有 “所 有 位 ". 它 抬 CRC 
变换 成 式 补 码 。 这 样 散在 … 个 优点 就 是 ,能 检测 出 CRC 不 能 发 现 的 另 -种 错误 :能 众 测 步 在 
块 结 尾 处 突然 插入 … 位 “1”, 而 使 消息 的 起 始 位 为 *1? 的 错误 。 

下 而 芒 数 iere 实 钼 了 了 上 上述 CRC 计算 .并 人 包括 了 所 提 及 的 变化 .该 区 数 的 输入 是 指 周 
一 个 学 符 数 组 的 指针 以 及 沪 数 组 的 闪 度 。 

iere 有 两 个 "并 基 ?* 和 参数 , 它 详细 规定 了 CRC 计算 中 的 变化 。 匣 让 取 零 值 或 正 值 ,会 引 
起 16 位 寄存 绒 用 jinit 秆 ,对 它 的 每 一 个 字 节 庆 行 初始 化 , jrev 取 负 值 , 会 引起 每 一 个 输入 
字符 被 译 成 它 的 比 煌 位 便 曾 像 , 谋 由 在 和 葵 出 的 CRC 中 ,也 完成 相似 的 比特 位 例 壮 .读者 不 必 
厘 弄 懂 这 些 内 容 不 可 , 仪 仅 使 用 表 20. 3, 1 规定 能 ;init 称 jrev 值 就 行 了 。( 其 简单 解释 大 , 串 
行 数 据 端 口 是 先 传 送 字 符 的 最 低 有 效 位 ,并 有 卫 诈 多 协议 准 矿 地 按 接收 而 序 将 二 进 数 物 进 
CRC 寄存 器 。) 表 20. 3. 1 显示 了 如 何 由 icre 的 码 入 数组 和 输出 CRC 来 构造 一 个 字符 块 .无 
需 在 tcre 之 外 做 任何 附加 的 比特 但 倒 哈 。 

开关 jinit 有 一 个 附加 用 途 : 当 出 纲 负 值 时 ,用 数组 ere 的 输入 值 初始 化 寄存 回 . 如 朱 设 
置 crec 为 最 后 一 次 调用 iere 的 结果 ,这 实际 是 礼 当前 竹 入 数组 连接 划 前 次 洗 朋 中 的 数组 
上 .使 用 这 个 特性 :可 一 次 一 行 地 为 整个 文件 建 起 CRC. 布 不 必 把 整个 文件 都 保 扫 人 在 出 存 
中 。 

程 iere 基本 足 根据 .4 中 函数 编写 的 。 其 操作 可 理解 如 下 :首先 吞 丰 天 数 ierel. 它 把 
一 个 输入 字符 六 入 -个 15 位 CRC 寄存 噩 .这 里 用 到 前 瞧 一 的 技巧 是 ,在 寡 存 回 每 次 移 位 
时 , 抬 字 符 位 异 或 成 最 高 有 效 位 ,一 次 人 位 ;而 不 是 -次 一 位 地 送 入 最 低 有 效 倍 .并 :次 异 或 
一 位 这 是 因为 只 或 是 关联 的 和 可 交换 的 一 我 们 可 以 在 决定 是 否 导 本 原生 成 多 项 式 疏 变 
寄存 器 之 前 的 任何 时 个. 输 进 字 答 位 ,( 十 进 制 常 数 4129 是 对 应 证 生成 多 项 式 除去 她 向 位 药 
二 进 制 数 。) 
UPSigneft short jcrcltunslgred short crc，unsigmned char onechy》 

给 是 现 车 的 余数 ,把 加 一 个 空 算 避 入 后 的 新 CTC. 黄 动 能 等 从 上 iercei 1 ,一 ]1), 阴 填 度 较 入 :， 内 守 为 re 后 这 

化 点 格 所 用 。 


nt 1 
unsigned shert ans= 《cre ” onech 位 人 8 


Er 人 一 0 全 是 和 在 此 完成 8 六 代位 移 ,并 口 生 坡 多 其 从 年 或 
iflans 勾 0Qx8goun0o 
ans 一 《ans <<<< 一 1) 
所 Nt' 
ans 江 民 一 [i 


”本 129# 


党 
上 


TeIUID ans; 


钢 在 看 看 icrc。 有 两 部 分 内 容 归 大 懂 ,当初 始 化 时 好 何 娃 立 表 , 此 后 如 何 使 用 该 过, 皇 
想 - -下 ,把 字符 的 位 从 最 乓 有 效 位 末端 移入 CRC 涤 存 幢 。 关 键 的 让 测 是 . 当 8 位 - 进 数 艇 
进 寄存 器 低 端 时 ,所 有 生成 的 要 改变 的 位 都 已 经 由 二 他 十 冻 端的 位 所 决定 ,由 十 其 战 总 吕 冯 
换 的 和 关联 的 ,所 以 我 们 所 需 的 是 ,对 每 -个 256 种 可 能 的 高 位 序列 ,进行 由 生成 多 项 式 作 
改变 的 所 有 结果 表 . 然 后 ,我 们 可 以 进行 捕 所 和 把 笨 入 衬 符 异 或 成 这 个 数 中 查找 的 结 页 . 
ierc 的 另 一 内 容 是 ,在 初始 化 卫 从 存 于 it 中 的 + 位 表 米 构造 -个 8 位 比 竺 售 从 年 的 表 
结构 ,以 及 与 执行 汉 特 倒 痪 有关 的 逻辑 。 参 考 文献 . 4~-6 给 出 袁 格 划 动 的 CRC 计算 的 塑 节 


fypedqef unsigned car ucehari 
共 deDine LOBYTE(x) Kusbar)tCx) 人 nxFF)) 
基 define HLBYTECx) (Crhar3ftxy 汪 人 8) 


unsighned short icrcfunsjgned shory crc，tnsigned char # bufotr 
USsikniew long :en，sbert jinit、inr jirev) 
对 len 京 少 旗 的 数组 hnfptr 位 站 其 16 位 和 赴 邢 休 站 监 , 它 是 通过 漆 用 按 某 ,种 约定 来 改 署 jinit 种 jrew 有 也 点 2 3 
1} 讲 行 让 算 的 . 若 Jimt 四 前 但 ,网 wre 年 为 给 和 以便 在 姑 化 杂 数 寄存 器 :事实 ,Cere 设置 为 王浆 蝎 吉 的 把 问 饶 ) 阁 
输入 buiptr 歼 组 注 接 到 -次 诗 用 上 


unslgned short icrce] (unsikgncd shcrlere ，ulisigned char onech ) : 
static uPsigned shcrt icrctb[ 256],inil 一 0 

static Uchar rchrL256 

LInSIREDeU shorl Jseword 一 ecTCi 


static uchar 计 [18 一 10,8，1 2，2,10.6,1441.5,5 .13311.7，15:1 1 谷 沙 等 位 合 置 后 入 效 值 到 





让 (linir》 需要 初始 化 赤 懂 
lrllt: 一 】; 
for 0 一 0 一 2554 十 十 ) : 这 小 信 表 号 :所 有 字符 的 CR 、 
ictcttL 刘 一 icrcltj 守 < 8，(4chary0)， 书 | 奈 及 学 符 的 洲 尘 位 黛 长 
fchr_ 六 一 (uchar)fit[j 志 DOxF] <<3 im) 


上 


了 (jinit 之 一 0) cword 一 tuehary init) 《〈(CCuchar) jinit) < 过 8)， 初始 化 祭 数 言 存 器 
else ijrevy < 0 cword 一 rchrLHTBYTErCeword》 | rchr[LOBYTECcworc)] < 8 刘 毕 :在 重 过 
信和 芭 划 
for 习 =] 过 一 len4j 十 十 》 对 数组 中 字 竺 的 主 循 二 
eword 一 icretb[{jrevy 必 0 3 rehr[bufptr[j_ ] : 
bufptr[ 门 ) ”HIBYTEICceword)] ”LOPBYTEIeword) -< 8; 

Teturm 《jrey 六 一 03cwordG : rchrLHTIBYTE(cword) ji rehr[LOBYTEKcwcrd) 1 人 < 3 涡 灿 御 记 

作 震 吗 ? 





兰 需 要 32 位 校 验 和 式 , 怎 么 做 呢 ”对 一 个 真正 的 32 位 CRC .就 需要 用 个 更 长 的 生 
“76D。 


成 兆 其 式 来 重生 此 程 玫 : 代 如 十 和 填写 一 人 一 4 一 1 大 模 2 本 中 多 演武 生年 作 ' 辩 
了 蓉 单 ? 仅 焉 它 的 最 代 有 效 的 字 中 其 在 疾 志 的 和 前 导 倍 .因此 兵 对 CRC 寄 让 名 民 最 六 去 役 
们 的 字 节 进行 主体 找 的 思想 没有 改变 ， 

旭 果 不 关心 校 验 邮 个 连续 们 的 特 生 ,而 只 足 需 要 校 格 一 个 统计 随 村 的 32 则 芭 :5 
使 用 此 处 给 出 的 iere: 以 jrev 上 肖 用 它 :次 关 得 到 天 位 .下 以 jrevr 一 -得 天 中 Ln 
位 .内 部 的 比特 位 倒 公 使 得 这 是 个 16 个 CR 披 光 于 全 独立 。 


20. 3.1 其 它 种 类 的 校 验 和 式 


二 CRC 二 术 足 ,常常 直上 人 人们 处 理 的 :例如 锻 入 计算 机 的 ?数字 于 条 拓 一 个 十 
进 条 的 *“ 校 验 售 ”, 述 验 您 需要 出来 捧 扫 人 例如 侍 溢 连续 向 
字 。 孔 格 纳 (Wagner) 柯 普 行 (Petter) 一 总 这 个 拼 题 给 出 了 有 总 义 胸 介绍 ,包括 证 地 的 算法 ， 
避 前 ,所 有 广泛 传播 的 校 验 和 冻 ,从 中 等 到 低劣 ,正堂 相 叶 ,人 竺 太 客 克 书 上 :包括 本 合十 
的 10 位 TSRNI 固 味 慰 准 节 导 ). 午 使 用 的 以 验 大 程 为 
104, 十 gds 一 8cl 二 十 24: 人 一 6 (5( 席 11) 4 
共 中 史 ; 是 右 攀 检验 你, 字符"X" 用 十 代表 校 验 衬 多数 利 1C . 另 :种 流行 的 格式 二 不 汪 的 
”1BM 校 验 ”, 常 本 于 记 数 (包括 .例如 王 士 学 位 证 件 ? ,这 果 . 校 验方 程 是 
2 相 十 罗 一 2fc 十 叶 一 交 -0 ( 模 310) 60. 331 
其 由 站 的 食 义 是 “用 二 胰 gd 放 加 上 结果 移 十 旧制 数 子 "美国 银行 三 用 一 个 9 党 数 进 征 校 
航 , 它 的 校 验方 程 是 
3a1 十 74 一 人 十 3 填 7a5 十 se 十 3 一 7 一 一 0 ( 模 ]D) 120.3.23) 
印 在 许多 美国 邮 收 服务 信封 上 的 条 形 刘 县 通过 去 掉 沁 端的 等 高 标 江 的 条 形 . 扑 撕 -条 
组 ,把 剩余 的 条 形成 6 组 或 10 组 而 进行 解码 的 :在 每 “组 中 ， ss 
示 数 值 7,4,2,1.0。 宏 们 当中 淮 确 地 有 两 个 是 高 的 ,它们 之 和 就 是 代表 数字 .除了 上 滩 吓 | 
一 二 来 代表 的 。5 和 或 3 位 的 邮政 编码 后 跟 一 个 校 验 笠 , 校 验方 程 是 





> 二 0 ( 模 19》 120. 3. 4 ) 

这 些 格式 中 :没有 …- 个 是 接近 最 优 的 ,Verhodft 提 诈 “个 精致 的 格式 , 它 袜 述 在 文献 

了 7] 中 .其 基本 焉 烛 是 使 用 十 个 元 素 的 二 面体 群 姜 ，，… 它 对 应 十 五 边 形 的 对 称 性 ---- 和 不 
旦 使 用 模 19 整 教 的 循环 群 ,i 人 

二 (20. 3 3 


其 小 * 是 D5s 中 的 (不 可 交换 的 ) 芭 法 ,日 六 表示 对 某 固定 排列 的 第 * 侣 迁 代 .Verhoeff 的 方 
法 可 发 现 一 串 字 符 中 的 所 有 单个 错误 和 所 有 相连 换 位 错误 . 它 还 可 发 现 大 约 扰 :1 的 成 对 
错误 (oa 一 叫 ) 、 址 换 的 错误 (acp->pea) 和 成 对 跳 换 的 错误 (ace 一 5c5) 下面 是 -- 丰 实施 方案 。 
int decchk (char srring in ny char weh) 

计算 和 验证 十 赴 制 校 驶 数 京 , 碾 书 -- 个 校 验 数 字 sh , 糙 科 际 如 到 stxingLt .nl 上 , 即 存 和 string _n- -5 不 本 噶 让 

己 , 锅 上 用 折 返 加 的 布尔 ! 昨 数 ) 值 芳 xiring-1 .可 j 已 经 用 “或 台 代 作 稍 居 , 则 过 回 匣 数值 为 贞 (1); 尖 没有 校区 位 : 风 
为 恨 53) .在 本 模式 叫 匈 略 中 的 返回 什 . 江 训 :string 治 ch 是 熬 闻 0~.3 灶 应 的 AASLCJ] 字符, 本 是 05 交 开打 的 革 息 
入.>tring 中 也 苞 许 衣 其 它 ASCII 字符 ,但 村 让 算术 验 儿 字 时 它 是 被 忽略 的 : 






cley 21 
imt :上 一 局 Pi- 


sntie inT ipL10JL8- 一 
3 834 3 83， 
7， 





有 有 ,363:6,3 
stntic jnt Mon 
2,.3.4:0,1,7.8:5 
5,9,8;,7,6,0,1， 人 
训 516735 2 1， 站 遇 ， 8， cb.3v2015 寿 钨 和 排 马 卖 
for :0U<- ni: 一 十 ) ， 各 硅 这 续 闻 对 
一 si8[ 
计 (ec 全) 除数 字 外 彼 上 办 其 汪 
一 :j[k]Lip Ce 十 呈 基 27 攻 mm 
for 1j 一 0 一 95j 十 十 ) 技 出 附加 的 … 至 被 验 数 
让 CHj[k -ipci[m 站 7) break 
+ Ch 一) 一 8 转换 成 ASLII 仅 


return k 一 0 
参考 文献 和 进一步 读物 : 
MecNmara，j. 上. 1982 ，Tecjmzced spetfs 则 Data Comprmmaeniceiiony2nd ed. 《Bedford，MA:Digirsl Press )。 
门 - 
da CIuzy FF，1987， 开 erppif， 岂 Riie Transjer 已 rotpeotfBeqdjord、 MA :Digital Press). :2 
Morse，G. 1986，Byte，yYc，11，pp，115 一 124 《Sebpebaber)，[3_ 
LeVan，J，1987， 吾 yte，vYOl，12，PP. 339~-341 〔November)，1 和 
SarYrate， 了 D. Y.1988，Coppatntcaiions of 必 e 芭 人 vol，31，pPP. 15058~ 1013. [5] 
Grifftiths，G- and Stonfs， 人. 人 0，1987 Corntupaicaftorrs or zhe Cavel，30，pp617--120 61 
网 agner，N. R. ，ahd Purter， 卫 .SS 1989，Copipzatztcazions of ie tvaol，32，pp，108 一 120. [7 


20.4 均 夫 受 码 与 数据 压 编 


一 个 不 丢失 数据 的 压缩 算法 是 将 一 串 符号 (一 般 为 ASCI] 字符 或 字 节 ) 可 赣 地 转换 成 
另 串 符号 ,丽人 在 长 底 上 平均 地 要 短 一 些 。" 平 沟 地 "这 含意 是 很 重要 的 ,很 显然 没有 可 逆 的 
算法 能 把 所 有 的 字 签 串 都 变 得 … 因为 没有 足 晤 多 的 短 则 与 较 长 的 串 一 一 对 应 .只 有 当 在 
输入 端 , 有 一 些 串 或 输入 符号 , 比 起 其 它 的 符 导 要 焉 常用 时 ,压缩 算法 才 是 可 能 的 .于 是 这 些 
常 抑 的 串 用 短 的 序列 ,而 比较 少见 的 囊 或 符号 用 较 长 的 串 进 行 编码 ,这 样 在 平均 意义 [长度 
为 最 垂 。 

对 应 于 不 内 的 检测 方法 和 在 输入 串 中 使 用 不 同 的 概率 储 离 的 方法 ,有 许多 乐 缩编 马 的 
技术 ,在 这 节 和 下 一 节 中 ,我 们 只 考虑 以 定义 字 输 入 的 变 长 码 .在 这 些 码 中 ,输入 被 分 成 酒 定 
长 度 单 位 ,从 如 ASCIT 学 符 , 而 相应 输出 为 可 变 长 度 快 .这 种 最 简单 的 方法 就 是 本 节 中 讨论 
的 翟 兵 曼 (Haffman ?编码 涪 。 另 一 个 例子 ,算术 水 缩编 码 ,将 在 第 20. 5 方 中 讨 论 。 

与 定义 宝 变 长 码 相 反 的 方法 是 ,把 输入 分 成 变 长 的 单位 (例如 , 英 请 课文 中 的 单字 成 词 
这 上 固定 长 度 的 输出 码 将 它们 传输 。 这 种 类 型 中 ,最 常用 的 编码 是 Ziv-Lernpel 

参考 文献 [3 一 6] 给 出 了 某 些 压缩 技术 ,并 殉 出 有 关 的 大 最 参考 文 揪 。 
| 使 用 较 短 的 位 图 样式 .根据 糖 的 概 痊 ， 
可 使 这 种 思 续 定量 化 .假设 输入 字母 表 中 右 Na 个 字符 ,分 别 以 概率 记 各 王 1 和 YA 诈 贞 
在 输入 字符 串 中 .内 此 > ) 久 一 1 .根据 信息 论 的 基本 定理 ,由 这 些 字符 组 成 的 相互 独立 的 
全 了 2 生 


随机 序列 { 一 种 俱 守 ,但 并 不 总 是 无 实 的 和 想 设 ) 平 地 要 求 每 个 字符 至 少 是 7 人， 
好 = 一 了 记 logs 旋 264. 和. 1) 

其 中 媚 基 概率 分 布 的 展 . 另 外， 证 存在 种 可 企 意 接近 这 个 过 界 信 鸭 疙 超 廊 式 : 对 二 上 咎 有 
字符 户 =17Va 等 概率 瓜 情 识 .很 容易 得 州 娓 -logsNw 它 是 抱 计 有 的 情况 、P 全 于 宣 革 它 
集合 给 出 较 小 的 箭 , 它 允 许 进 行 有 效 的 压缩。 

注意 ,如 果 我 们 用 民 虚 为 艺 一 一 leg:p: 位 的 抽 对 字符 ;进行 绢 人 ,这 样 方 任 赤 20 1 
将 下 构 为 六 ' 产 六 :起 (20. 直 -的 边界 就 可以 尖 到 .这 种 编码 方式 的 详 烦 证 ，- 且 log 丰 
是 “个 整数 ,我 们 怎样 能 把 字 坪 "和 @@?" 编 友 成 5 32 位 长 的 码 字 呢 ? 直 天 曼 汕 码 帮 机 竺 试 ， 
即 实 际 上 用 172 的 骆 数 次 关 近 似 所 有 的 概率 总. 寻 此 所 各 亏 避 为 整数 ,如 果 所 用 六 宗 习 上 
都 是 2 的 负 驶 数 次 车 , 则 起 天 曼 旬 的 确 达 到 烦 边界 后 

鹤 大 过 号 的 构 北 最 好 用 举例 来 说 明 、 想 象 一 种 诺 育 ,Vowcllisb , 它 有 交友 地 和 罕 的 
字母 表 和 ETI.O 和 人 :分 别 以 0 和 09 水 姑 和 和 洲 07 的 概 这 六 疯 . 本 征 为 
Vowellish 购 造 的 画 太 野人 拘 接 胡 20, 4, 1 中 的 步骤 米 汪 成 


表 23. 4,. 1 Euffman 码 的 构造 步 驶 吕 








E 042 04 042 042 


2 
3 
4 
3 
0 Ul 
7 
8 
9 


吕 : 1.30 .30 0.30 


0.16 目 
上 太 UE 0.28 目 
AUTO: 0.38 目 
EAUIO: 1.00 





尼 直 道 过 Ne 个 阶段 顺序 运行 的 , 卡 玫 书 肯 列表 示 。 第 … 阶 段 从 Na 个 节点 于 阁 . 耻 一 节 
点 表示 一 个 和 学生 去 中 的 字母 ,分 别 包含 它们 的 相应 概率 -在 每 阶段 ,将 棒 个 最 小 为 概率 , 肝 
合 起 来 构成 “个 新 汐 市 点 :然后 将 这 新 节点 写 在 新 的 一 列 下 宦 。( 表 市 作 黑 方块 赤 开 流行 点 
已 合并 ,并 在 上 下 和 阶段 由 丢弃 ) .所 有 活动 节点 ( 刍 医 新 合成 的 ) 都 列 入 下 一 险 段 由 :图 ) 于 表 
20. < -中 , 屿 给 新 节点 名 称 ( 比 姑 AUI? 二 不 连 办 的 - 生 所 举例 了 中 (阶段 1 之 后 1 亿 配 等 阶 
段 的 匹 个 最 小 节点 心 是 -个 足 原 始 节 益 . 另 一 个 是 售 成 的 节点 。- 般 情况 :电信 慰 小 丢 炭 可 
能 前 是 诛 巡 节 总 ,或 邵 足 人 台 成 的 ,或 各 占 个 ,在 最 后 阶段 ,所 有 节点 部 蓝 被 集中 基 | 一 个 概率 
为 1 的 全 合成 中 ， 

焉 在 ,为 了 得 到 这 些 公 宰 ,把 表 20.41. 1 中 的 数据 重新 首 成 一 樟树 (图 20. 4 丰 哆 渭 


762 ， 


关于 中 的 每 一 节点 对 诬 二 过 中 的 :个 节点 [ 行 ) 其 堪 这 标 着 市 点 的 整数 序号 ,有 迪生 看 它 
的 禾 率 值 .所 谓 仇 哨 重 只 出 圆 转 表示 .它们 是 单个 字母 卖 的 字符 :在 衬 梳 上 慰 记 和 了 :和 
符 的 码 字 就 是 从 上 到 下 指向 它 的 D 机 让 的 上 询 :人情 如 芋 的 刀子 简单 地 为 了 ,让 UL 的 包子 是 
1010 。 ， 

9 LEAUIG 1T.00 


站 
7 


07 N1 
二 8 本 0.58 
y 
AN 


ES 
7[Al 0o2e 4(D)o30 
07 1 
二 6| Ul ]o16 


沿 着 讨 从 顶 疝 下 移动 ,对 字母 (总 上 .ji 杆 U 册 在 译 码 的 纳 码 , 刘 闻 是 所 郊 过 树 技 乒 肝 对 应 的 1 
或 1 贞 读 列 。 仁 个 端点 右边 的 鸽 是 伺 抽 大 率 :左边 的 值 基 表 20. +. 1 中 的 端点 编号 ， 


网 20.4.] 虚构 证 村 Vowellish 的 雹 夫 些 码 ,以 符号 形式 表示 ， 


现在 ,任意 一 串 0、1 符号 串 都 能 详 成 对 应 的 字母 序列 .例如 考虑 符号 名 1011111030 ， 
从 娃 的 项 端 开始 下 降 经 过 1611 到 达 T 第 一 个 字符 .出 于 我 们 已 到 达 了 一 个 终端 节点 、 
所 以 重 置 于 桂 的 项 端 ,下 一 次 经 过 11 下 降 到 0。 最 后 ，1010 给 出 届 。 因 此 符号 串 译 成 为 
IOU 字母 串 。 

这 些 思想 体现 在 下 面 的 各 序 中 .第 - -个 程序 hufmak 的 输入 是 ,字母 甫 的 nchin 三 和 ,个 
字符 发 生 频率 的 整数 向 量 , 即 与 疡 成 正比 的 整数 集 .hufmak 和 它 所 调用 的 hufapp, 实 行 了 
才 20, 4, 1 的 构 赣 和 图 20. 4. 1 中 树 的 构造 .为 了 和 有 效 性 ,这 个 程序 使 用 玲 结构 ( 见 第 8. 3 节 ) . 关 
于 详细 撒 述 ,参见 文献 [7)。 


开 inelude ”nrutil hy 


Typedef sttUct ， 
UnSsigPed lon 区 * icod ，# ncod，#jetil，*tight，reca，mnodemaxi 
:huoffcodey 


void hufmak(unsigned long nfreq[ ，unsinged long nchnin，uUnsigacq Jong * ilong， 
1msignedq logg x niong，huffcode # jhcods) 
给 定 nehin 个 字符 的 发 生 频 查 表 fteqr1. .cnin 在 结 宰 heoqe 中 构造 种 夫 受 凤 。 返 加 人 慎 iiong 利 olong ,它们 是 证 党 


,764 。 


汪 吕 发 税 竺 导 第 竺 从 输 让 这 扶 科 长 让 习 该 术 丰 ong 二 人 上 让 本 的 字 改 


void hufapbtunsigned long index[] ，umsigned lone npProb[] ，uneigmed long nm， 
unsgigned 1ong ii)i 

xnt ibit ; 

1ong moda ,eapi 

unsigned 1ong 了 ,区 ,*indgX,mnpnused .wmnProbi 

static unsigned 1omng setbit [32]=tOxiL,Ox2L,0x4aL, OZ8L,Ox10L.0z20L， 
Dx30L,OxBoL,Drl00L,Or200L,DOx4o0L,Ox800L,Oxl000L ,0Ox20001.、 
fx4000L,0zBDODOOL ,0xi0000L ,0x200D00L .0Dz40000L .0x80000L,0Oxzl00000L， 
Drz200000L ,0xd00000L .Qx800000L ,0Oxi000000L ,Drx2000000L,Oz4000000L ， 

-0x8000000L,0z1CD00000L ,Dr20000000L,Ox40000000L ,Ox80000000L 


hcote->nch=nchin; 初始 化 
inGerrlvectorf1,(1ong)(2*hcode->nch-l)) ; 
upP=long *]1Lvector(1,(1ong)《2rhcodea->ach-1));， 将 保持 堆 的 种 迹 的 问 最 
nprobmlvactort1,([1png)(2v*hcode->pch-1)7 1; 
for (hused=0,jzl;jc=hcode~>nchijr*) T 
?nprob [j]=nfreaq[j]; 
hccds->icod[j]=hc3de-?>ncod[]]=0; 
ii 《afreq[j] 》 inaszk[e+ausedl=ii 
二 
for 【jsnusedij>=1i]--) bufappfindez,nprob ,nused,1) ; 
Sort aprob into a heap sructure in inderx- 
shcode->Dnchy; 
dpiie (nusea > 1) 夫 接 灼 的 攻 点 ， 从 一步 中 重新 
nodseiDndex[i]: 二 
indazf[1]=indexfnaused--] ， 
hufapp(index,naprobsnuseG,1)]: 
nprob[++ 攻 ] <anprob[index[2]+aptrob [node] ; 
bcode->laft [x] =nodei 存储 - -个 节点 的 左 祝 右 的 地 玛 
hcode->right[k]=inGex[i] ; 
up[index:1]] = -Ki 指示 - -个 节点 是 否 是 大 和 太 了 三 
ipLnodej]j=indnx[]]=k; 葛 嫌 反 
hufaPp(indez,Dprob,nused,1) ; 


UDP [heode->nouamaxmE]mDO' 
for《〈j=t:j<ahcode->nach;j++)《 从 树 购 造 雷 夫 显 到 
计 《npProb[j])》{ 
for ka=9,ibit=<0nodesup[jjinodaeinodeup[nede] ,iblt++)》 1 
is fnode 《 0) 艾 
on |= setbit[ibit] 
node = -nodei 
业 
hcode->icod[j]zD; 
bcode->ncod[j]wibit ; 
) 
} 
?TDLDnEeCi 
for 〔j=1;j<=hcode~>nchij++) 并 
话 【hbcode->Dncodfij] > *nLong) : 
nlonkgekhcode->ncod[]] ; 
中 1oD&g=j-1; 
】 
) 
frag_lVvectorfnprob,1,(1ong)(24hcode~>Dch-t)) 
free_Ivector[(unsgigned 10DE *#)up,1,(1ong)(2*bhcode->Dch-1)): 
free.1yrectorfindex,1:.(Long)(2rhcode->nach-1]); 


void hazsppfunsigned long index[ |，、-os 下 neu loung hprobf  ，unsigned long mn，unsigned long i) 


出 地 hufmak, 记 在 数组 indexcl,.]] 中 纵 插 堆 的 站 权 。 


本 只 
有 二 必 站 让 


unasignec -On 和 j], 攻 ; 


k 一 index[i 

wbile ki < 一 (rn 人 2>1) 1 _ 
(= 过 10Rnprob[index[j 六 npbrob inqcx |] 4 
让 cmnprob[k- 民 = nprob_indexLj__ break， 
indqex[ 记 一 indexfj]， 
1 一 ]; 

1} 


index -一 k 4 


> 


注意 :必须 在 必 户 的 主 释 序 中 用 类 似 以 下 说 明 米 定义 和 分 陋 结 徇 bcode: 


择 irclude arutil, hy? 
拭 detine MIC 512 
共 define MIQ (2 MC 1) 
typeddE struct 了 
unsigned leng *w icod，x neod， 汪 je ，*TIight，nch，nodemaxi 


;huffcode+ 


huofmak 中 cehin 的 最 太 策 其 值 


huffeode ncodle; 


hecde.icod 一 (onsigned long # 人 veclnrtl ,MOQ); :eeode 对 瑟 空 阳 
heode. rred 一 【uslsighed lonR * Jvesrorl MOQDI 

heode, lef 一 (unsigned ]ong * )lvector(1,MQ) ， 

heode.right 一 Cunsigped ]jcng k vectortlyMQ 

fcr (j=1;j<:=MQJ 十 十 ) heede.iccd[ 站 =hcode. neod 门 =D3 


-有 旦 码 构造 完毕 ,可 道 过 友 复 调用 hufenc 对 字符 串 进 行 编 色 , 程 序 bufenge 莽 简 年 地 形 
或 码 的 查找 表 以 及 在 和 输出 消 各 中 将 友 加 入 。 





Hineludec 羡 :stqio. hh 
区 tclude < 拓 st] 也 .hb 盖 


1ypedefl struct 
upsigne 和 ltong * icod ,< ncod，* left,xTightneh nodeniaxs 


上 huffcodecs 

void hufencrfunsigned lorg ic ，nmsigned char # “codeh，uns:gned lcng x lcoce， 
unsigned leng = nb，huttfcode :x hcode) 
利 打 结构 hecode 中 的 酌 , 对 单个 字符 irh' 在 =eh 一 1] 范围 上 ?> 浇 行 下 太 曼 坊 同 :将 结果 可 人 字符 糙 红 > ccdleP- 
leode.. 中 ,并 以 nb 位 荡 贻 { 它 的 县 小 有 效 数值 为 露 ), 并 电 适 当地 增 部 ?对 消息 中 深 续 字符 进行 编码 还 忆 复 光洁 中 
土 序 .但 必须 并 前 再 同 枸 造 heoce 的 程序 hufmak 进行 初始 所， 





Yodid nrerTor(char erTOI_tetz[]); 

int D' 

negigned long Enc; 

Btatdic teigned long 93etbiT[32]=fOzlL,Oxz2L,0xaL,Ox8L,Ox10L,Ox20L 。 
0Ox40L,0x8B0L ,0Oxl00L ,0x200L,Dxd00L, 0OY800L ,0x1000L ,0Ox2000L， 
0z4000L.0x8000L ,0x10000L ,0x20000L,Dxzd40000L ,DOz80000L ,0x100000L 、 
0x200000L :0xz400000L ,0xz800000L,0z1000000L,Dr2000000L ,COx4000000L， 
0Ox900009000,Dxl10000000L ,0z20000000L ,0x40000000L ,0x90000000L] ; 


keichr1; 将 字符 范围 0 . .nchn-1 转 换 威 多 弓 索引 的 档 围 ] -nch 


“766。 


让 《k > hcod->ach || kK< 1)》 arerror("icb out 2t+ range 1n bufsnc."7; 
for (D=hcode->nccd[k]-1;n>=0;0--,++(enb)) 工 在 已 存 镶 的 祝 天 有 汉 中 对 Ich 进行 
nczfzynb 2 311; 炸 睹 了 
if (++ncE >- *Lcode) 了 
fprirtf(stderr "Reachad the and cf tha "code array, An'")i 
Fbzalntit5tderr , "httbmhtinE to 6xpand if ge Na"] 
el1ceode em .51 
ji 〔(rcodep=(angigled char 9)reallocf+codep 
fungigned)(rlcodose1zeoz(unsighed char))))》 == NULL) T 
nrTerTOr "Size BXpanslon failed,") ; 


了 
有 
1=(anb) 上 了 ; 
if 《43》 (ecodep) [nc]=0; 设 咀 但 中 通 汪 的 “ 进 伟 
if 《bcode->icod[k] 多 setbit [na]) (4codeplfn2z] |= Bevrbit[1] ; 
二 
了 
败 大 昌 玛 字 的 译 抱 较 复杂 些 。 必须 框 据 恋人 长 的 一 社 倍 效 从 妇 寡 交 斋 部 左下 
动 。 


(ybedefi srraec1 
Usigned Jong > icedy roudy> letry :jghc-nck，nodemax。 
: 下 ufzeadel 


vold hu:dectunsigced Jong < th，unsigucd char * code，Tnxignec tcng lcszde， 
Psigned long ”nbD， huffcodc = heode) 
在 学 符 数组 rpde -ucode] 中 贡生 进 仿 络 起 怒 . 使 用 企 导 革 结构 heode 中 的 玲 夫 结 训 .过 
画 基 处 于 范 瑞 站 的 in .并 玫 洛 当 直 增 痢 。 员 到 一 0 起 着, 光复 订 册 本 程 床 , 和 将 返回 过 
ith= 一 cch 底 于 消 总 的 站 屋 .在 问 了 4 





让 
4 和 皖 版 可 下 
上 程 训 中 ,区 须 忆 浆 定 六 得 分 本 外 办 药 hroce ,和 并且 也 融 订 出 hufmak 羽 ， 








lebg oceanudei 
Static US 认 ned rhrsr srfhi- 8- anDx2 ep.Oxkaxiyox2oxdnvnx8n ， 


tde… hecode- noqecntaxy 
for (3 证 着 nnds 略 洋 簿 村 交 旋 绩 , 产 逢 二 放 计 得 全 2 全 二 刘 
CC 一 《bb 2 3 
让 《十 十 Ete 各 lcode) 洛 这 办 入, 首 几 二 = 一 nrh 隐 生 消 电 的 好 了 
2 一 heod' -nebhs 


TetuTns 






上 

fnge 一 [code ac 民 . setbitT 7 TobD1 一 
heade 一 全 rightlnnde ”herrjc 一 人 > 

证 Cnnpge 并 一 heode re 
x jch 一 node 一 1; 
return ; 






村 兴 娃 在 还 是 树 有 从 对 . 取 二 5 
稿 到达 清 点 出 得 个 完 生 





为 了 简便 , 当 全 部 月 误 玛 字 子 节 时 hafdee 就 中 汪 设 出. 若 已 编 生 的 消息 不 后 整数 个 他 
节 , 且 如 果 Nu 小 于 256 , 则 hufdee 就 能 从 最 后 码 字 字 节 的 假 造 的 纺 必 中, 返 所 闫 国 福 玉 的 
最 后 -个 或 二 个 假 造 的 字符 , 共 出 户 掌 所 ee 松 地 成 笃 
这 些 假 字 符 , 否 则 ,可 以 通过 提供 -一些 一 进 位 数 . 听 不 是 个 亨 节 数 来 癌 定 这 种 操作 ,证 如 
相 必 地 由 改 程序 .( 当 Ai 大 于 等 二 358 和 2 


















退 攻 : 开 且 洗 其 它 关 译 靖 、: 
20. 4.1 游程 编码 


对 璐 高 度 替 关 的 二 元 汤 流 折 于 天 粹 如 语 一 茶 传 息 才 描 线 的 黑 昌 商 轩 党 寺 1 
曼 讲 缩 与 游程 编码 根 络 合 :不 再 分 别传 递 三 - 个 比特 剑 , 而 是 将 答 入 流转 换 上 乙肝 奸 改 数 ， 
世 遇 以 圾 孙 有 多 少 个 相同 信 的 连续 位 。 然 后 这 些 懂 数 再 坡 八 天 曼 压 缩编 磁 .CCITT 第 二 有 
根据 这 圳 方 飞 ,对 一 僚 和 从 科 标 准 文 件 规定 了 出 定 的 ,不 可 改变 的 .最 佳 获 专 妇 向 的 让 衔 . 
准 -。 





本 
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20.s ”算术 编码 


在 苹 一 节 中 ,我 们 看 型 一 种 完备 的 (以 彤 为 界 的 ) 瀹 码 方案 .省 加 为 字符 并 在 范 包 1 去; 
寺 Nw 中 ) 的 出 现 妆 率 , 则 腿 产 = 一 log: 户 位 来 对 其 编码 .于 夫 吕 编 码 给 出 了 一 种 把 六 舍 入 
到 接近 的 整数 ,并 甲 这 一 长 度 来 构造 码 的 方法 .现在 ,我 们 讨论 算 末 编码 全 ,实际 上 它 确 实 斌 
鲜 轴 非 整 数 个 二 进位 来 对 字符 纺 码 。 它 还 能 握 供 一 种 方便 的 方法 .不 是 把 结果 给 出 为 一 直 . 位 
的 煞 据 流 ,而 是 输出 以 年 何 所 期 望 的 基数 的 符 民 济 .这 种 特性 在 需要 时 特别 有 用 .例如 .地 数 
据 以 下 节 ( 基 数 为 255 的 ) 转 换 成 可 打印 的 ASCIIE 字符 (基数 为 94 ); 或 者 转换 成 忆 包 括 只 
和 9 一 9 《基数 为 36 ) 的 衬 母 数字 序列 。 

算 术 编 码 中 ,把 一 个 任意 长 度 的 输入 消 息 表 示 为 在 Oo<R<:1 范 马 中 的 实数 上 ,消息 
越 长 ,对 屎 的 精度 要 求 越 高 通过 便 了 能 得 到 量 好 的 说 明 . 所 以 我 们 回 到 上 一 节 碟 构 的 潜 主 
Vowecllish 上 , 阿 想 -一 下 ,Vowellish 有 : 张 个 5 字符 的 字 尽 表 (A.E,TJ.D.U) ,出 现 粕 率 分 唱 
为 0. 12、0.42、0. 6090. 30 和 0. 07。 图 20. 5. 1 显示 了 从 *IOU? 开 始 的 消息 是 如 何 编码 的 , 放 
区 (4D,1) 让 分 成 对 应 于 5 今 字母 的 段 ， 每 段 的 长 度 正比 于 疡 :我 们 看 到 第 一 个 消息 空 符 ， 
“IT” ,其 的 范围 为 0.37 所 RD. 45 。 再 把 这 个 区 间 分 成 五 个 子 区 间 ， 长 度 地 是 正比 寺 六 ,对 

于 第 二 个 消息 字符 0”, 再 细 分 托 及 范围 变 帝 到 0. 3763< 妇 民 世 0. 4038 。 再 进一步 把 “> 字 
.768 。 





答 落 团 恶 宅 刘 037830 生 有 20 37S19 -在 这 个 范围 二 ,任何 仍 都 吕 放 为 OU 2 的 天 全 攻 
将 别 地 ,二 进 制 仆 迷 .03900001 就 在 这 个 范 玩 同上 记 以 "TOL27 可 用 和 位 优 旋 让 记 不 双生 
和 因 夫 旺 寅 放 1 位 - 委 见 第 20 1 

娄 外 ,问题 是 要 知道 河 时 停止 译 笨 .小雪 .611000009 不 人 肥 伐 识 7IT 
VOL ，, 其 中 竺 略 人 号 代表 一 个 后 继 无 限 的 字符 汕 . ， 个 异 楼 两 厅 的 代 量 和 5 
请 常 假定 在 在 特殊 的 第 Raw 二 1 个 字符 EDOMI( 消 息 的 站 医 ). 它 其 有 在 答 从 蛙 天 全 
由 上 EOM 出 现 的 概 谈 旨 小 , 寿 炎 据 线 上 只 分 到 了 非常 ， 一 段 ， 


1 两 046 厂 一 ， 了 一 由 2033 太一- 
了 A 上 几 人 | 4A: 











性 已 本 1 『 了 出 4 了 79 睛 
1 04m0 门 | ， j 
08 2 1 Da778 -| 
志 | ) | 
037 -! 人 = 03376 中 E| 
-| 『 ] | 
0 上 一 | -| 03274 - 
人 5 在 390 -+ 13772 
0 一 ] DTn -| 划 
63 本 es 1 0 3368 ] 
立 品 f | 和 j 
na 于 / 0.33766 
引 3N0 ) 
1 ] 上 037614 二 - 
~ ] [ U 
让 ns D370 一 一 33P31 





从 最 初 的 01 区 间 对 姑 续 的 字符 .六 断 地 托 分 .最 寺 数 值 闲 可 用 竺 疝 期 彰 的 基数 表示 成 小 星 数 下 ,过 训 
昆 码 字 的 输出 , 汁 意 ,对 个 闻 符 分 配 的 子 区 亲 上 丝 它 严 现 的 被 率 。 


图 20.5, 1 上 柯 的 语言 Yowellish 中 请 总 "IOC, "的 算术 编码 


在 以 上 上 创 子 中 ,我 们 把 氏 帮 为 二 进 制 小 教 给 册 .我们 也 可 以 把 它 以 任何 其 它 站 其 区 给 
中 ,例如 基数 94 或 基数 36 ,只 要 方便 于 颜 期 的 放 硅 或 道 信 停 道 即 可 。 

优 可 能 会 疑惑 ,对 于 -- 个 长 消息 来 说 ,如 何 处 理 这 种 似乎 难以 帝 信 的 对 R 的 精度 归 炒 ， 
答案 是 ,实际 上 屎 不 会 一 次 完全 表示 出 来 .在 任何 给 定 阶段 中 ,我 们 部 有 民 的 上 这 拷 和 下 太 
界 , 它 用 和 输 州 基数 表示 成 一 个 有 限 丛 的 数 。 当 上 内 数 和 下 界 数 变 成 同时, 我 们 可 以 把 安 左 
移 掉 ,并 带 进 最 低 右 效 端 的 新 的 位 ,下面 的 程序 有 一 个 盆 数 NWK , 它 是 保留 汪 作 位 柳 月 的 
参数 , 它 必 须 足 够 大 :以 使 退化 偶然 出 更 的 机 会 接 过 于 零 ,( 如 果 一 口 岂 现 退 化 ,本 得 厅 会 络 
出 信和 号、 由 于 放 奔 胆 个 和 带 涝 新 位 是 一 致 地 在 编码 和 解码 中 进行 的 ,所 以 蝎 保 近代 步 . 

和 栖 序 areimak 是 构造 累积 频率 分 市 表 . 它 用 以 在 每 一 阶段 中 分 剖 区 间 . 在 湖村 下 areode 


一 全 


人 
让 


人 
出 整数 运算 ,这 个 数 可 能 会 泗 癌 。 不 芝 的 是 , 像 idiftnrotzn) 这 样 的 表达 东 是 不 相等 的 :在 臣 

卜 实 现 赴 , 我 全 总 本 让 疝 寺 二 全 来 进行 计算 。 这 三 仅 没 有 获 , 而 且 问 池 直 顷 码 作 谭 这 
过程 中 会 中 现 同 -- 作 入 误差 ,尽管 任何 忆 器 孝 是 严 棕 继 狂 码 方 蕊 来 解码 ,所 县 不 户 Im > 汪 
其 5 前 很 少见 ?会 使 不 辐 机 潭 的 饥 吕 有 所 不 同 .为 了 严格 旭 使 用 ,就 需 在 -全 双 可 和 革 器 于 
整数 计算 (该 计算 在 C 生 译 中 做 不 到 ?来 桂 换 这 种 浮 点 运算 。 

认 没 灾 量 minint 作 尖 下 .下列 之 名 竺 许 扔 县 小 不 三 征 步 兵 . 它 岂 定 着 人 柯 时 其 入 完 的 会 
有 化 位 。minint 必须 足够 大 .以 能 铝 分 辩 所 有 给 入 的 学 答 . 也 就 是 ; 涡 , 对 所 有 工 我 门 怪 顷 有 
上 XIminimtle 无 论 起 么 大 ,1230N 或 .15mir 和 :上 般 已 电 驶 了 .人 担 是 ,为 了 安全 起 站 .以 交 
在 序 记 miaint 尽 可 能 地 大 . 半 mininz * nradd 的 积 阳 好 小 二 洪 出 :有 时 ,这 个 兴 果 不 起 有 区 
芍 ,在 消 意 的 结 星 会 连 半 - : 些 天 必要 的 宁 符 .如 果 想 千 近 这 缘 - 就 可 以 减 小 maninc 

arcmak :| 最 后 - -个 安全 特性 是 : 它 对 下 nfreq 中 的 震 值 象 1 一 样 进 行 处 理 . 寻 认 关 这 
样 ,nfreq 入 口 为 震 的 单个 子 符 消 贞 会 说 乱 制 下 的 歼 个 消息 , 妇 果 污 肯 起亚 稍微 更 丰 演 丝 缚 
人 赔 而 灰 骨 险 芍 话 , 由 可 以 出 除 EMAXE .LI) 操 作 ， 


人 meludec “nyarl]-h" 

















下 inciuade <loairs it 妃 活 热 吉 放 上 的 ANST 标 总 立 秆 
define MAC 512 2 有关 最 大 响 期 寻 

人 def TONG MLAX 邢 竺 要 长 声 的 最 二 数 

后 deripe MAXINRNT ICIONG YAN 3) 由 会 溢出 号 长 上 黎 数 


fs 
二 de:one MAXSLIN 2147183647 
IE 


LyYpede[ stTuct : 
Mnsigned Johg > nb # iubpb，xncuniqg，idt，nc， minior。 ncb .ncom，nradi; 
1 Hrihcode; 


VEd 人 IonR nreq[-， UIISIEned Iong nchh ，ursignactd :ong nrsddu aritheoqe 5aeotdley 


给 定 nchh 个 符号 的 发 下 频率 囊 :jes 1 nchh 并 给 定 个 贡 贤 的 答 出 基数 nradd ,初始 化 嫩 树 :code 中 里 人 杭 说 
去 和 其 它 变量 ， 


unsigned long j; 


让 (nc 2 MOC)》 nyerror(ninout rzdix mayr nof ExeecG MOC TD aremek 3 
:fnradd 230 noemurto2rFut tatcix TGay FOT eXeeod 256 in urcnak. “1 


arode 一 人 mirint 一 NTAXJINTnradd; 
acodc -nech -chh; 
acode -Drtd 一 Fradqi 
azode 一 neurtqLit 一 芒 ; 
Tor 人 一 2 一 aceorir 一 人 >nmeh- 1:j 一) 
acode 一 汪 ncuagd 州 =acode 一 22reungq -ij 一 1 .TYAXCnfrenD 1 .0); 
tbde 一 2 necum 一 acode 全 necomj ascde nech 十 2 一 acode -ncumtqaracede 一 2nch 本 








攻 须 用 荧 伏 以 下 洗 馈 ,在 恒 户 的 主 程序 中 定 广 和 分 瑟 结 构 acode; 


二 jnelnco ”Drutil.” 
一 efiae MC 512 芋 #xecrak 4 nchkh 站 吉 大 志 片 全 
二 由 finpe ANWK 20 十 持 比 午 与 和 序 areege 中 本 岂 


Lpedef su 





- urpe me 


anetl Ion * iob,*tphy，> neunizgyct.oac yantrtacntncunlruradl 
-ritheogey 
和 反 heecde acexdle : 


acode. ilob 一 《nsignecd long slvestorfl WwWK)》; 为 aecque 苍生 扰 订 
acode.nunb 王 (nstBnec lonR yw leectarllA 入 KK) 
tcode. necurmn 拒 一 CSiRned ljong < veroril IC 一 2 


采 川 下 面 程 序 arcodec ,对 消 总 中 单 个 答 运行 销 硒 和 详 王 ,证 马 耕 川 竹 订 arcsums 


include -stdio- 直 > 
1 





基 incluae <stdlnb、: 
全 deiiac RN 胎 民 20 
六 define TRYD Km Iongttttanbetky srdoublerD32ggdoubleytmoyy， 

该 岩 用 于 站 记 下 入 关 时 了 豚 人 > 全 ne 芥 可 一个 执行 以 精 度 束 烙 要 弄 的 记 染 溢 庆 抱 例 箱 来 首次 汪 、 本 各 开 站 条 答 年 革 





得 健 以 科 
tvbedef SHrneT 

UGSIRItEd .or ioby >iapb. yneurtqyjddiyrsyooinic atbhvaocutivnred， 
JaFithecde 
Yeid arcodqefunsigned -DOn8 ich、urs:ganed ehar > 关 codrh。Mnsigned Ion w Icode， 


UISjgned .ong jcd，inz jsigP arirhcoge 、*9eoGey> 
编 梢 fsigna 一 1) 战 译 玛 (isign 一 一 上 字符 数组 * eoleb -leede_ 由 民间 个 空 符 ch 区 到 乱 ceodef le 下 色 年 | 








〈 若 湖 爱 )》: 增 如 sd, 以 债 异 针 lca 指 训 或 把 匠 于 * ccdep 中 第 一 个 不 下 肖 宗 生 江 章 , 结 构 acnde 婚介 有 
包含 当 人 数值 *eodep 中 的 特 弥 葵 世 的 状态 信息 :无 论 叉 于 镁 得 或 译 若 .对 位 高 监 组 seodeg 生 脱 前 .入 全 ie 
0 进行 村 始 江 调 川 : 除 初诊 化 如 省 arcoak 外 .要 .六 arcmak 计 于 切 始 北 瑟 林 已: 芥 肌 ieh -Dehz 人 在 arcmak 3 让 二 玉 5 


用 ,项 定式 下 冰 站 名 京 ” 


yoid arcsumttnsignad long iin[]，unsigmed long iout[] ，unsignaed long ja， 
int nk ，unaigned long nrad，unaipgned long nc); 
yoid Drerrorfchar arror_teazt[] ); 


Tint j,k; 
tmaigned 1ong ihi,ja,jh,jliami 
if 《tisign) {《 初始 化 卜 、 下 限 的 是 种 数字 


acode->jdifs=acode->nrad-1; 
for 〔jNWK;j>=1;j--》《 
acode->lupb[j]=acodae->mrad-1i 
acode-~>ilob[]]=0; 
acode->nc=]; 
if 《acode->jdizy > acode->minint) returni 初始 化 结束 
acode->jdif=(acode->jdif+1l)#acode->nrad-1i 


) 
DIerFOT('"NWK Too Small iD arcode.")]; 
)》 else 
if {isign > 0) 《 若 编 权 ， 检 验 有 效 的 输入 字符 ， 
if 〈#ich > 8coda->Hhch) nresrrorf'bad ich in arcode,"])i 
】 
el8e 工 若 译 码 ， 用 二 分 法 查找 字符 ich 


ja=(+codep) [=lcd]-acode->ilob [acode->mnc] 
for 《j=acode->nc+lij<eNWK ;]++》1T 
ja #= QCode->nTadi 
ja += 〔(#codep) [*Lcdrj-acode->nC]-acode->ilob[j]); 
】 
ihbai=acode->tch+li 
本 Cha 各 ; 
wbile (inhi~(s*lcbh) > 1) 荆 
mefeich+ibhi)y>>tlz 
af (ja >= JJTRY(acode->jdif,acore->ncurfq[m+1] ,acode->ncum)) 





让 斌 CR 
@l1Sa 1h1=m3 
上 
于 〔*jich == accde->Dch) retarni 检测 出 消 吕 结束 
了 
以 下风 对 网 码 和 详 码 是 公 胃 的。 把 字符 1ch 转 换 成 新 的 了 区 展 [alob,iupp) 
jh=JT7RYIaccode->jdif,acode->ncumftq[wich+2] ,acoca- >ncum]， 
ja=JTRY(acode->jdaif ,acode->nacumnfq[yich+1] ,acoce->acum)， 
&coda-7>jdif=Jb~jili 
arecsaumfacode->ilob,acode->iupbh，jb ,JWK,acode->rTad,acode->nc); 
arcsumtacode->ilob,acode->ilob,jl1:,NWK,acoda->bhrad,acode->ncy ; 
How many leading digits to outpat fif encodungl or Skip over7 
for 【j=acode->nc;j<=NWK:jt++) 攻 
这 (aich 1= acode->nch & acoga->inPb[ 订 != acode->1zlGh 1 ，braak; 
if (elcd > ztcode) 1 
tprintffstderr,"Reached the end of the “Code arkay 五 "1 
Printfstderr "ALELeaptlnEg 七 exXpand irs 517B,Nn 
中 Lecode *= 于 .5， 
if 【(*codesp=funsigmnad char *)raallocf*+coxeP， 
unsigned] (yl1codeyralzeoffunsigned char?3))》 -2ELL》 工 
ncerrorf"Sl1Ze expansicn 节 上 id 
上 
了 
if (isign >.0) twcodep) [*lcd]z(unsigned char xctob--:lov[3] . 
++【a]cd) 
。 
jj > NWK) returni 和 想 出 区 已。 攻 告 总 记 对 交 点 5-h 编码 
acopde->mncae Ji 
forfJ=Dyiacode->jaifcacode-> 四 trint ij+yy 多 少数 值 要 欧 伍 
acode->jdifi *= acpde->nrad 
if (accotie->DC-j < 1) nrgrrorf"NWK Too Small in -Code， Di 
it 人》{ 对 它们 移 位 
for (kzacode->nCcik<zNWKIk++》 荆 
arode->lupb[x- 订 =acode->iupb[x]; 
acode->1ziobfk-jj=acode~>itob[x]i 


了 
CeGa3-2>DnE -人 = jj 
for 1k=NNK-j+::K<sMHKik++) acode->iupb[k]=acode->ilobfx]j=D; 


euxyrn' 正 膏 返 咱 


VidL arpsTUCurtsigoed io ii 、 onsigned lomng inuti_ ，unsigned long 己 ， 
im TeK。、umsigrnec ]cng Itrad，uTtsined ]ong me) 
红 玉 arcede : 讶 吾 数 关 帮 入 列 以 基 炒 nrad 倍 转 库 的 萌 鉴 iinrnc. .fwk 中 ,返回 结果 iout[ne. .nszkk_ 


iiikarry 一 0 
HUDsigned jbltg 并 rr2 : 


for 《1 mwkilanci- 一 ) 





else REFY TS 


， 一 jin ne -ia 一 koarrv; 








若 用 铺 的 主要 日 的 是 为 了 改变 基数 ,而 不 是 壬 缩 { 例 如 将 任意 文件 转换 城 可 站 河 的 - 
条 ?下 当然 可 以 月 由 设置 nfreq 中 的 所 有 分 量 , 如 此 为 1， 


僚 考 文 喜 宁 进 - - 拒 该 物 ， 

Be LT wear Cand Witien， 1 间 1990C，7vE CorpressrontEnhgiewood LE，NJ: Peiittce， 
Fal 》. 

六 Ce 四 rps5iorl 万 Do8 【Reduwwood CU CA Boks)， 
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40. 夺 


20.6 任意 精 彰 的 运算 


证 演 们 计算 地 到 小 数 点 第 2 于 位。 为 此 ,我 人 将 学 习 计 算 祝 的 一 些 关 二 多 精度 总 章 的 
问题 ,并 将 遇 浏 本 常 不 寻常 的 关于 快速 傅 里 叶 变 换 (FEFT) 的 应 周 ,我 门 也 将 训 变 出 -一些 可 以 
所 敌 在 任何 所 要 求 的 运算 精度 疏水 平 上 ,进行 计算 的 考 冶 。 

首先 , 皮 们 项 权 一 个 二 的 分 析 算 法 .有 用 的 算法 是 二 次 收 伊 的, 即 每 次 选 亿 使 有 效 位 
激 轴 加 一 倍 .z 二 次 收 剑 算法 是 基 - 4GW 法 ( 算 林 几何 平均 法 .该 六 法 也 可 必用 于 靖 瑞 浊 
身 和 ( 见 第 6. 11 节 ) .以 其 稍 因 篇 微分 方程 1 第 19.5 节 ) 所 采用 的 DT 法 的 先 过 .实施 ,Borwein 
机 Borwuini 处 理 了 这 个 课题 ,但 它 芝 理由 了 了 我们 订 伦 的 范围 他 们 对 汗 台 的 滤 法 过， 起 ， 
普 秽 证 冒 补 始 值 为 : 


然 局 , 兰 扩 0， … 重 复 运 代 


了 2 2) 


- -直到 出 现 r-， 

现在 ,我 们 讨论 怎样 解决 任意 精度 算法 的 问题 :在 高 级 诸 言 由 ,如 语言. 个 自然 的 
选择 就 是 以 256 为 基数 进行 运算 , 寺 此 . 习 符 数组 可 直接 译 成 数字 串 , 一 般 在 计算 竺 束 ,之 . 
希望 将 结果 转换 成 以 10 为 基 的 数 .因为 人 炎 的 思维 习 但 十 这 种 熟悉 的 语调 ,“ 僚 点 背 妇 壹 
重 玫 …” 然而 对 于 计算 机 计算 ,我 们 可 能 永远 离 下 开 以 256 为 基 ( 或 者 通常 可 演 的 18 过 
利 、8 进 制 或 2 进 制 )， 

我 们 将 采取 存储 数字 串 的 习惯 .并 以 人 为 的 顺 池 进行 存 赌 ,也 就 是 说 ,数组 中 第 -- .位 存 
情 的 数字 是 最 高 有 效 位 ,最 后 一 尾 存 储 的 数字 拓 晶 代 丰 站 这 当 锅 :下 于 在 度 各 江 只 也 寺 议 


1 7 


”一 -- 一 -一 ~- 





证 骨 演进 企 ” 节 我 们 沉 昌 将 比 255 大 的 数 划分 成 供 京 全 
姓 特 订 尖 :在 下 面 程序 中 采用 宏 LOHEYTE HIBYETF 来 解决 这 个 问题 . 


这 -点 很 仿 单 ,根据 KKnuth ,编写 -个 "最 快 " 算 术 运 算 的 程序 : 捷 其 法 (可 员 区 个 字 


首 到 “: 串 数 中 ) . 冯 法 .减法 、 捷 乘法 (用 一 ay 分 除法 ， -次 补 人 入 
及 一 对 实用 的 操 作 ,复制 刊 走 移 : 囊 数 (在 磁 衣 中 .这些 质 数 部 在 一 单独 的 ml: 
击 ) . 


[fine 上 让 BYTEISX) Cunsigned char xi exXI[D》 
defne HIBYTEIx) Cnsigned chary ix 2 8 的 COxff) 
对 译 成 只 2353 为 基数 的 字符 市直 行 多 精 虚 算术 运算 . 议 组 程 宁 是 :地 集 工 简单 各 计算 、 


voic mpFacdfunsigned ciar wf ，unsigbed char uC ，unsigned char s|  ，int pn) 


光 符 号 强 数 中 1 bj 种 *-1..a] 和 有 拉 , 产 先 克 符号 性 数 w 1 ,n+ EL256 为 基数 ， 


Jat J 1 
JSIRIIUd short ireg 一 0 


for 0 一 Dj 之 一 1 一 0 
_ireg 一 u[Lj 十 [让 一 HIBYTE(ireg); 
w ij 十 1]] 一 LOBYTEIirge)， 


lt=BIBYTE(iregy 


snid mpsubfint # 证 ，unsigned char w[ ，， Jsigned char u[]，unsigned char v[ Yint ny ， 
从 以 256 为 关 数 的 万 符 全 整数 u[1. .nm] 中 碱 点 9, 产 秆 泡 竺 妇 整 数 严 汪 人: 若 班 减 结果 为 外, 加 六 返 品 1: 
芭 之 ,出 抬 区 0。 


It ]j+ 

UPSImed shozrt ireg 一 256: 
for 1 一 ni 人 > 一 1 

ireg 王 255 十 Dj 一 *[j 十 HIBYTRICireg)， 
w5j]=LOBYTE Cireg)y 


xi HIBYTE(Giree) 一 1 


0 mpPsaaetmSISned char 癌 [ 门 、unsioged char u[  ，imrny intivy 


4 


兵 奶 法 :将 吾 数 iv(0sSivsR255》 可 以 256 为 某 灼 的 无 符 台 吾 数 1..n 补 刘 ,产生 ww. ,n+ti- 


ID # 
UmsIgneG shorTt ireK 


ire 名 一 256 cjvi 

Eur (I- mi 一 1 
ircg 二 ui 十 HIBYTE(Cireg)i 
[一 LOBYTR (Cireg7 





关门 一 RHIRBYTECireg); 


at mbpsmufunsigrcd char w[ 1， na char o[L] int cy biv) 


汪 芝 法 :以 258 为 基数 的 大 符号 复数 全 生 站 理 数 EDsvs 





in j; 


”7Y74 


和 和 商 位 进位 ,这 就 出 此 全 全- 吉 





USiSued Shotr LreR 一 0 

[or Ci 一 ni 一 1 7 
ireg 一 可 < iv iv 二 HIBY ECireg)i 
wlU 一 1] 一 TI.OHYTROCGreg): 


1 
『 


w 1]==HIBYTEtireg)i 


ipt xir) 






void :npsdv(unsiuned char 普 [ unsinged char ur]，int ny。 tnt 
捷 除 法 :以 258 力 基数 的 大 符 吉 整数 0 1 被 整数 交 除 1Nns5i 
255) 。 
int jsj 
并 一 人 
fior (i 王 15js< 一 ngj 十 十 ) 
i 一 256w (xir) 一 [让 ; 
w 门 ] 一 Cansigned cbhaclCirtv 5 
# 这 一 上 iv; 


和 
了 


void inpjpneg(Cumnsignhed char u[t]，int ny》 


太 以 258 为 基数 的 无 符号 整数 u[1..n] 执 行 一 次 补 码 非 损 作 ， 
{ 
int 14 
unsigned short LIreE 一 256; 
fot 人 一 mh 全 一 1;j 一 一 ) 1 
ireg 一 250 一 u[ 让 二 HIBYDTEKCireg)i 
ua[ 实 一 LOBYTEIireg); 


1 
『 


void tnptmnovkunsigned char u[-，unsinged char v[ .intoy) 
将 Y[1..a] 复 彰 到 u[1..o] 宇 


jn 


for jrj<= ii 二 ) une 
了 


void mplsh (unsigncd char ULJ，inr m) 
将 uL2. .as1 呈 大 移 成 uaLl.n]。， 


int 1 


fur 4j=1;j< 一 nj 十 十 ) ui = 一 uD 一 1 小 


.2255 六 二 商 为 w[ 


.0 一] .可 杀 教科 六 全 


两 个 数字 串 的 全 乘法 , 旭 果 用 传统 的 手 算 , 不 是 快速 的 运算 方法 :两 个 攻关 均 为 六 的 数 
字 趾 相 乘 ,被 乘 数 将 依 此 与 乘 数 的 稍 -个 数字 位 作 捷 乘 , 共 需 OCN ) 个 操作 ,然而 ,我 们 将 
看 到 ,对 于 芭 度 为 K 的 数字 的 所 有 算术 运算 ， 实际 上 可 按 OUCVXlogNxloglogN) 个 操作 进 


行 ， 


这 种 方法 是 ,将 习 法 看 作为 乘 数 和 被 乘 数 的 卷 积 ,然后 进行 某 种 进位 操作 ,例如 考虑 


二 





下 156 和 3759 的 两 种 计算 大 汪 ， 





456 0 
X 789 x7& 9 
4104 36 .46 .4 
3648 32 40 48 
3198 35 所 
359784 2 67 118 9 54 
本 


上 图 左边 显示 的 尾 传 统 的 滋 法 运算 ,该 方法 中 , 革 全 部 被 来 数 ( 9.5、7 分别 进行 邱 当 ， 
然后 机 加 得 到 最 后 的 结果 -而 图 右边 显 潜 了 不 同 季 这 算 方法 (有 时 骨 作 心算 ), 此 的 ,所有 昌 
不 狼 字 进 宛 社 乘 ( 俩 5X8=d48 ) 然后 按 列 村 如 得 到 没 完成 的 进位 结果 (这 里 是 28、.687 、143， 
93、54 )。 最 后 一 步 是 一 个 从 有 到 左 过 程 , 记 下 一 位 低 有 效应 获 艺 .并 上 向 左 进位 一 个 罗 襄 有 有 
效 竟 数 罕 ,将 于 加 到 天边 的 总 数 中 ( 别 放 ，93 下 5 -98 , 记 尖 8 进位 5，， 

读 澳 可 习 齐 看 出 ,在 右边 那 种 方法 中 ,每 一 列 的 和 是 数学 里 卷 积 组 成 部 分 -例如 :5 -人 
X8 -1iX8+6X7。 在 第 13,: 节 中 ,我 们 学 过 轩 桩 用 快 连 倩 里 时 变换 (FFT? 计 算 ,下 个 向 起 的 


老 积 : 疆 个 癌 旱 作 FET ，, 汶 石 将 两 个 喜 妥 换 式 访 匀 、 得 到 的 洁 果 关 所 求 经 叶 凡 道 FET， 
因为 这 个 变换 是 及 用 了 洗 点 算法 .内 此 我 们 需要 吕 个 的 精度 ,以 使 人 在册 现 舍 人 误 替 时 必 ， 


中 每 个 组 成 部 分 的 准确 整数 得 仍 是 可 六 认 的 .为 了 FF… 的 伟人 误差 ,应 该 多 证 ， 
logsKlog2W7 位 二 进位 :以 256 为 基数 .长 度 为 N 字 贡 的 数 订 产 千 大 到 (259)2N 阶 榴 卷 积 
证， 所 以 为 了 正确 在 侃 ,需要 16Tloksw 家 精度 。 告 效 上 寺 浮 运 主 效 秀 二 进位 数 ( 见 第 2f. 1 
耶 )?: 册 得 箱 件 : 
二 汗 jogsx 十 几 个 关 logsog: 和 二 站 《20. 4 

我 们 看 到 , 姑 兴 让 一 24, 则 对 计件 总 感 兴起 的 w 值 . 单 精 虚 是 不 合适 的 ;如 果 =53, 邮 避 靖 
度 允 许 N 天 于 10 ,但 当 于 几 百 万 十 进 售 数 。 扶 以 让 天 程 亨 假 定 有 有 realfi( 第 12.3 节 ?和 Tour 
《第 12.2 节 ) 的 双 精 度 版 本 , 称 之 为 dreaift 和 Wiou'1( 这 内 程序 包含 在 做 盘 中 ) 。 


其 Huue ?nraltd, hw 


芝 define 及 又 256, 人 0 


void mpmalkuns 讶 ned char wiL]，unslgned char wu[ ， unsigned char w[LJy intn int in) 
和 运 呈 快速 傅 里 上 时 变换 计算 以 254 为 基数 的 无 符号 整 至 0LL .n]3j vL1. .mm] 利 科 , 产 生 积 为 w[1. ,n+m]. 
Void drealft(double data[] ，unslgned Iong hnh，zint isugh):; ealft 的 区 精度 版 本 
znt j ,ma,Dba=l; 
doUb]e Cy . 攻 ， 中 由， 中 避 


Wan=THAX (mm, 卫 ) ; 
While (nn < ap) nn <<= ，; 为 蛮横 技 出 秋 小 可 用 抽 ? 的 大 次 
nn <<e 工 ; 
” asdvecror(l ,np)i 
bandvecrorKi an): 
for 〈j=f1;j<=niy++)》 将 1 移 六 双 靖 度 泽 点 型 数组 
aftj]=(douhle)u53]: 
or 【jsn+T; i<=<nmiJ++y a[i=0C 
zar :1 .Tce 由 i++ 徇 握 纱 闪 从 稍 度 证 尺骨 数 级 


[1=Cdoubie)v 
Tor 必 基 04+1 jxX=GR ij DT 


dealfVfanny tyi 技 和 苦 积 :首先 求 出 .个 情 星 时 变 搞 
drealTitb nn ii 
blIl] = 。. 妃 灶 相 乘 购 纺 内 ! 实 部 积 庶 部 ) 


b[2] *= 2 [2.1 

167 (j=3;jc<=am;j"=2) 并 
Dftj]=(Kts=blj]J)saLjj-bLirt]w[j+zl， 
b[j+1=tea[j+ljrblir1 ya[jyi 


平 
drealifttbrn,-1); 进行 介 飞 区 人 心 换 
cy=0.01 抗 行 直 后 完成 所 有 进 如 的 这 程 
tor 〈《]=nn:3j>-lij--){ . 
t=h[]j"(nn>>:)+cy+O.5; 向 仙 5 为 了 会 入 六 监 而 庆 站 的 
bLJJ zt， 
vbile fb[j] >~ RX) oi] -= RXi 
cy=(znt) 《rZRA) ， 
省 
if 《cy >= RK) DrerrorfK“canrnor Dnppna xQ 了 etmur 
ww[tJ=Cunslgned crnaT] Ci 特 洒 和 揽 牺 舱 出 


IFr 【j=2335-D+Zm; ++)》 
vw:j]=fumaslzgned char) b[.-1- 

freea_dvecLorgb,1l,nn); 

ITrg-_uyectror ta 1 .nby 


在 采用 这 种 "快速 ? 滋 法 的 操作 过 程 ,那么 阶 法 最 好 实现 方式 就 是 ,用 除数 的 倒数 这 以 被 
除 效 .倒数 人 Y 用 咎 火 法 则 的 持 人 来 + 算 ， 
ET 《20.6. 和) 
这 导致 六 -二 次 收 化 于 177 ,这 一 点 航 很 容易 证 明 ( 实 际 上 ,许多 超 委 计算 机 各 RSC 要 部 点 
十 这 种 适 代 法 来 实现 除法 的 ) : 现 诈 , 我 们 就 知道 上 面 所 提 到 的 运算 量 NilogNloglogA 是 下: 
何 处 产生 : 傅 里 时 变 闪 中 要 Niog 运算 量 , 久 及 它 用 牛顿 法 则 的 欠 代 收 伊 幕 要 另 增加 - 人 
ioglogA 的 因 才 。 
ipciude“nraltil hy 


2rdefint ME 4 
其 depoe HI 〔iC7256) 


void mpipvyCunsiglted char ui、unsigncf ehar viy intny int my) 
衬 符 帅 vt 钙 ] 是 以 :56 为 基 中 外 数 ,其 在 v 1 后 有 基 救 的 小数 点 了 ul ， 名 是 设置 为 它 的 倒数 的 最 商 存 效 效 字 .在 
前 奇 基 昭 的 小 区 点 。 


?eld mpmovCunsigmnat char u[] ，ungigaed char v[]，xnt n) ， 

Ycid mpmulfunslgned char wm ，unsigned char ur] ，unatgned char v[] ，int ma， 
int 台 ) 1 

yoid mpneg(unsigned char ui ，int nj) ; 

nneigned char rr， 

it 1,] ,maxmn,moi 

float Tu,Tv: 


JaXrmaneIHAXID , 世 ) ; 
CreCVGCtOTT TEAKDBFmN<< Ji 


3=CyectOr(1 .由 xmn) - 
=IKIN MEF ,am) i 
zwve(float) v[am] ; 及 肯 庶 来 的 衣 点 运算 以 得 到 一 个 祈 始 进 似 合 
foz 《J=mm-li]>m:ij 一 > 革 
fv = BTIi 


Jv += YU : 

了 

<“u=1.07fv; 

for 【j]=17 jc=;] ++)》 了 
1mfn? 1 了 


u[j]=(unsignai char) 
fu=256 .0*(fTu-iy) 


让 
for (ii 攻 法 代 牛 环 法 则 到 改革 
mpaultrruivy aa) 在 《中 和 辣 赣 2 一 1 
apmov(s ,xzr [ln); 
apnegts:a)i 
s[1] -= 254; 将 %1 的 乘积 虐 上 上 和 
只 pu 3 VD) 
apmovtu ,krrrliny); 
了 or 【3m21j<D1 1++ 7 让 是 未 数 育 分 不 是 二 、 优 就 没有 披 训 到 : 
if (s[j]) braaki; 
if (j==n) { 
free-cvectorfs,I ,maxmn) 
fre 如 _CVwectO [cc 1 1+(marma<ce1)y ， 
TetuTmn i 
} 
} 


现在 ,除法 只 是 一 个 简单 的 推论 , 仅 震 汁 算 满足 :- 定 糖度 的 倒数 ,从 而 得 到 商 和 从 煞 ， 


立 incluce “nruti .an 
六 qdefiukt MAGCC 3 


void mmpdivk unsigned char dr]。unsigned char r! jnnsigned char u” ， 
unsigned char v[], int nint my) 


以 256 为 基数 的 无 符号 束 娄 u -3 福 ve 队 (要 求 mso0 , 产 '| 亢 为 mn rm 十 上 和 和 休 姓 辣 1 m 


yoid apinvtunsigned char Uf] ，unsigmned char v[])，int n，int 吕 ); 

void mpmov(unaitgned char ur ，unsigneG char vf] ，ipt D)i 

void mpmulfungigned char wf] ，unsaigunad char uv[]，unsignad char vi] ，int pb， 
int 双 ) 

void mpsub(int will，unsigned char ur] 。unsigned char ur ， unsigneqd char y[]， 
int D) ; 

Tont is; 

Unelgnad char 本 TFT,#S 1 


IT=Cvectort1, (n+MACC)<c<1) ， 

5wCVector(1 n+MACC) 

mpinw{fevy-m+ 所 和 妇 C ， 贡 ) 设 S := TY- 
mhrml(rr ,5,uD-m+HACC,n) 1; 设 吕 =35. 
工 Pmoy( 中 ,此 rz [1 ,mn-m+1)i 

apmuL(rT:9sv,a-a+1,m)i 相 科 和 相 减 得 到 余数 
mpeub(kis ,和 ri] ,utzrril]n); 

讶 《1i8) mraTrrorf"NAGC too small in mpdiv"): 
mPmoV( , 惧 zY In-m+1] ,加 ) : 

TTee_cvector(B,1,nHNMACC) : 

TBecVyectortrr, 1。 Cn+MACC3<<1) 3: 


用 牛顿 法 则 计算 平方 根 和 除法 类 做 . 苦 
CE 冯 到 一 ta. 人 5 
则 [二 次 收 敏 于 17 /7 ,最后 用 除 以 得 vT 
incelude <mathk.h> 
莹 Include “nrutil.h” 


人 definec MEF 了 
闷 define BID7256) 


“7Y78。， 


void 9 ie char 下 而 | 用 


字符 串 ,TD256 大 二 泣 
和 不 而 要 区 列 侍 妇 下 ， 它们 海 : 





void mplahfunsigneda char Uf] ，:xtL mn)i 


:InxigEer char u[ emnxignecd chad Y 
1 后首 鞭 数 洒 旷 总 5 0 齐 为 的 畔 二 观 1 鞍 荫 下 及 


下 和 ， 


| 和 int my :ul no 


void mpmovfunsigned char uU[] ，:2xigned cha- 、[]，int pi 
Yoid mpmul(unsignea char %[] ，n，gied char u[] ，unslgnad char yf] ，intg n， 


int 吕 ) ， 
void mpneg(Cunsignad char uU[] ，inpt py， 


vnid mpbadvfunasignad char v[] ，unsignad char L[】，int n，int iv，int ltr) 


int iuir,j,mm; 
"98 姜 Eu tvi 
UpDSigned char * 上 ,45 1 


[=cvectorgi,nc<1l)i 
B=CVectnrtl,Dc<1) ; 
pm=EMHIN CD ,NMF) ; 


fr=Ktfloat) vtma]; 及 用 了 原 淮 译 点 运算 得 到 “个 机 妈 近 倍 什 


for 《j=mm-ti;j>s1;j--) 
fv sa= 38Ti 
fy + TY[]j; 

} 

Tust .0O7sqrt(iv); 

for 【j=13jc=aij++)》 
imtfinpt) Eui 
ur]J]ja=(funsignead char》 ii; 
Eusm256 .0eKfu-3 1 


】 
for 人 人 迭代 和 车 赤 法 则 以 收 区 
了 pulKr ,uv un) : 构造 汪 兰 13 -TD 


mpPplshkr,mn); 
ZiPmul(Ss，T，V ,Ra); 
mpLsh[s,n)i 
mpaeg(s,a); 

5[1] -= 253: 
mpsdv(s,s,na, 了 ,此 ir) ; 


for (j=2ijcn;jrt) 《 若 Y 的 小 数 甫 分 不 为 军 。 它 不 能 收效 到 


计 is[j])T 


pmultr,s,u, 卫 .D) ; 用 0 荐 换 己 


mpmovtu ,rr[li] ,Ba) ; 
hreak, 
了 
了 


ii 【JJ<a) contintdai 


四 Prmul [ 革 ,YE 四 ) ; 共 倒 数 求 得 于 太 概 并 返 辐 ， 


忆 PmoyCw,Er[i] ,mn)， 
free_cvector(fs ,nc<t1)i 
Tree_cVectDrtr ,1,n<<l); 
Ze9turni 


我 们 已 经 提 





; 数 转 换 成 十 进 制 数 只 是 人 们 的 习 悍 问题 ,所 以 通常 家 以 优 路 .将 - 一 个 小 


数 转换 在 十 进 和 的 熏 简 单 的 方法 是 反复 混 以 :0, 拾取 (并 减 去 ?结果 中 的 整数 部 分 . 然 历 ， 
风 为 每 次 释 出 十 证 世 数 此 OCR 次 运算 .所 以 这 个 过 程 共 需 O(CN?) 运 算 量 .基数 转换 也 串 以 

及 出 "分 开 并 分 四 处 建 " 鸣 策 赔 ee 到 运算 ,其 中 小 烙 出 10 的 大 寡 演 项 来 要 飞 、 也 奈 
凡 数 字 的 - ' 半 移 到 基数 小 数 点 的 左边, 所 在 ,再 分 别处 理 整数 和 小 数 部 分 ,各 部 公证 由- 下 


划分 .如 果 我 们 丰 计 算 赤 的 儿 上 和信 数字 
情况 :下面 较 慢 的 程 宁 并 合适 摔 


.未 不 是 几 王 位 数字 ,由 需 实现 这 个 方案 .好 上 可 前 


开 defiano 1 上 AZ 48 


Yoid mp2dfr(unsigned ch:r a- ，unsigned chrzr sint ns inr “mn) 


丫 民 258 为 基数 的 小 数 ani 基 烙 , 数 点 在 相 1 之 前 ) 款 换 虐 于 这 筷 小 烙 . 让 用 AASCTT 子 答 央 人 让 二 1 
mm 直 返 阿 值 : 输 入 数 刀 tn] 料 被 破坏 。 注 熙 :为 了 简便 .本 程序 庆 肌 机 是 慢 计算 起 (正比 下 之. 生 烙 转交 上 时 民 昌 
的 靖 存 在 ( 正 比 于 六 logN) , 促 较 复杂 、 





沼 


void mmplshfur signed char uL]，int n); 
vod tnpsruCunsigned cl.ar :oo[]，ursigrced char u[ int ay tot iv 
nt 


YI 一 《int) (2 .308 关 n)5 

for 日 一 1j 二 -C++m)i 一 一 
mpbsmukaavn, li0)1 
| jj 一 L1 十 TA7; 
mplshtan)j 


最 后 ,我 们 得 到 实现 式 (20. 5.1) 条 (20. 6. 2 的 程序 ， 


共 include 所 srzdjio, 上 > 
站 inelude ”nrutil hy 


半 de[ine j 上 OIL 48 


void mppifint za) 


{ 


计算 和 打印 的 前 位 字 节 的 多 精度 程序 。 


void 了 P2dfrfunsigned char a 门 ，naigmed char 3[] 。xnt ipt *am) 1; 

void mpadd(unsigned chaz w[- ，unsgigned char u[] ，uneigned char v[，jint nm): 

yoid mpinv(unsigned char U[" ，uUnsigned char v[] ，iut mn，1pt 可) ; 

void mplshfunsigned char uf] ，iat mn) 

vol mpov(unsipgnoed cbar tu[] ，uagigned char v[]，dynt D) ; 

voit mpmul(unsigned char [] ，unsigned char uf] ，unslgned char v[] ，int h， 
int 双 ) ; 

void mpsdvftunsigned char w[] ，unsigned char U[] ，int an， int 1iyr，int mir]; 

void mpsqrt unsigned char v[]，unsignad char U[] ，upsdignhed char v[] ，int n， 
int om): 

=nt ij.D， 

bnSiBgned Char mm , 申 科 , 中 多 ， 者 世 其 ， 电 后 工 工 ， 才 七， 中 ， 相 了 了 


ImCVvector(C1l,nri] 
Y=Cyectorf1n<<1) 1 
SmcVector(g1,n)i 
gxisCvacturftn); 
tamCVBcSOKtL <K<1) 
3=Cyector(1 ,39eD)》; 
BimcVectort1,n+1); 


t[1]= 说 了 = 2， 

or (3r2;ik=a;j++) t[j]=0， 

Pa8qrtKI, 工 名 DOD) 设 Xp = v 

mpaddtpi ,二 ,Im); 设 ro 三 241wY2 

mpleb(Pi ,ny); 

Paqrt [sx,srivx,z3,); 惟 Jo = 2114 

DPmow(y ,anD); 

for (33) 于 
Mpadd{x,sx ,sxiynyi 说 Xi TXI52 + X 一 172)72. 
四 jadwKx, 生 x[1] ,，2， 让 ir) 
mpeBqrt{sz,sxi,xr,D, 立 ) ; 计算 临时 值 工 = 和 平 2 


四 Pul( 志 ,7 BE,msh)i 


780 


npadda A:- 1.FtLE ,sziu)i 


x[11+-， 1 
了 [Y ,++ ， 
apinv{ts,y,nasn)i 发 Ji = 了 A( + 1. 


mpmulty ,上 tr .3,D-nh， 
mpPlahty,b)i 


鱼 pmu]l tx,asnn)》 计算 临时 侍卫 := 【一 ，>- DA1G 二 1 
mm [2] -1 ， 六 = 1 几 存 监 笋 

j=+ [n+1] -um; 

[人 


王 or 《ja3;]cenijy+] 二 
if (人 t[ 门 = mm 1{ 
取 pPmal?ka,pivttI1] oa,Da) . Set - 让 1 -= mi。 
mpmovfpi:&ks[],n): 
breax3 


了 
ii 【] <= Q) continoue 


Printfgopi=vn 1 

s[i]=pi[1]*TAOFF; 

3a[2]=: 

D=rm i 

pzdfzrtgpi[li] ,tr [21sn-1iy or) 藉 打印 部 换 成 十 进 制 数 ， 注 瘟 ， 这 程 字 简单 、《 御 

党 明月 ， 足 惕 速 雷 法 (= 2). 快速 起 换 其 法 
CNInw) 存 在 、 和 复杂 


S -m+3] =0- 

Printt(" %64svn' 二 s[、); 
Tree_cvectorkpi az,narl)i 
于 roe_cvector(a ,1 ,3wDn) i 
free_cvectortt .1L,.n<<1) . 
了 了 工 日 日 .CYCLEO 信 (Sai 1 ,RD): 
TITee_CVector(sSX, 1) ; 
Txzea.cVector(y:1,DK<1] 
了 6a_cweCtoT (Kx ,1,n+1) 1 

下 BYuzzRi 


到 20. 6. 1 给 出 站 2= 1000 叶 的 计算 :车 异 .人 和 -个 练习 ,读者 可 能 喜欢 采用 以 了 程序 ， 
针对 Ramannjan 的 著名 恒 等 志 " 
1 VS Sn CGIG103 十 26390m 


T 3801 < 《13967)* 
的 前 12 项 米 检 验 图 20.6, 1 中 前 ,00 位 数 字 .还 可 以 用 这 程序 来 证 明 数 2 1 区 是 崇 数 ， 
- 它 有 因子 2424833 和 745560282564788420834739573620045451878336634286575 它 们 实际 


此 索 数 , 剩 下 的 素数 因子 是 7 416X 10m)20。 


(20. 和 .6) 
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也 的 的 2388 让 于 得 和 广 数 尼 由 本 方程 信 渤 算 求 坦 


其 20,5 
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附录 A 原型 说 明 表 


在 此 ,我 们 列 出 了 本 书 所 有 程序 的 ANSI 标准 的 源 型 说 胡 . 正 如 所 建议 的 ,如 果 污 者 使 
用 的 编译 器 是 基于 ANSI 标准 的 ,那么 , 当 包 会 或 引用 本 飞 中 任何 程序 的 源 文 件 涝 行 编 详 
时 ,就 只 需 在 每 个 源 文 件 中 ,用 共 inelude 指令 招 全 表 nr,h( 或 者 相关 的 行 ) 殉 入 。 蕊 们 会 扶 斌 
用 户 的 编译 器 ,注意 到 我 们 的 程序 一 般 不 需 作 变量 换算 .并 用 它 们 允许 用 户 的 编 详 器 ,指出 - 
程序 调用 中 的 可 能 错误 ， 

本 附录 安装 在 磁盘 的 nr.h 文件 中 。 需 重要 指出 的 是 , 盘 中 同时 包含 ANSIC 和 "传统 
的 ?或 “KR&R? 的 两 种 类 型 说 明 . 权 调用 ANSI 揭 形 式 , 可 定义 以 下 宏 指 令 ;， STDC AN 
SIT 或 者 NRANST( 最 后 一 个 宏 指令 是 提供 用 户 种 引 月 , 它 不 公 与 前 两 个 名 字 的 其 它 可 能 
应 用 机 冲 究 )。 妇 果 该 普 拥 有 ANSI] 编译 器 ,就 一 定 要 用 这 些 定 义 的 宏 指 令 来 调用 村 是 文件 、 
典型 的 方法 就 是 ,在 编译 器 的 命令 行 处 加 入 一 个 开关 ,如 "一 DANSI”。 

上 述 讨论 不 适用 于 使 用 “传统 的 "或 *K&RC 编译 器 的 用 户 : 不 需要 将 ANSI 的 标题 文 
件 列 入 源 文 件 .如 果 有 nr.h 的 磁盘 文件 ,无 需 设置 任何 宏 指 令 -.STDC-- .ANSI] 或 
NRANSI, 就 可 随意 使 用 并 include nr.h。 但 必须 提醒 编译 器 ,注意 程序 返回 的 数值 类 型 . 当 
然 , 必 须 保 证 是 使 用 "KR 版 本 的 程序 ,这 些 程序 也 包 售 在 4C 语言 数值 算法 程序 大 全 ;的 
磁盘 中 。 无 论 用 户 喜 欢 与 否 , 编 译 器 都 将 进行 “通常 的 变量 换算 ”, 但 要 废除 这 种 换算 , 需 在 程 
序 中 说 明 这 些 变量 不 同 于 通常 的 换算 。 

以 下 是 nr,h 文件 清单 ， 


#lfodet _NR_K- 
着 d 由 半 工 办 全 _R-- 


#ttndeT _FCDMPLEX_DECLARE_T-_ 

typeadet 5txztict 上 COMPLEX {Tioat ri fcoaplsz; 
adeflna _FCDNKPLEX_DECLARE_T-_ 

Wandiz Are _FCOHPLEX_DECLARE_T- 7 


tifnaaet _ARTTHCODE_DECLARE_T-_ 
t7pedeat struct 
ungigned :cng *itob,siupbvyncunfqijdit ,nc,inint,och,nRcUE nrad， 
] artthcodei 
gdaefina _ARITHCODE_DECLARE_T_ 
提 sndiz 7 ARITHCDDE_DECIARE_T_ 地 7 


#1itnadex _HUFFCDDE_DECLANRFE T_ 
t7Pedef 8truct 1 
VBTLEBned CBE 站 Cod ，#DCOd ,站 卫 右 也 七 中 工 二 攻防 志 ， 了 人 本 ，O 全 了 入 和 
} buftcode; 
站 ofipna _HUFFCDDPE_DECLARE_T_ 
#andiz /+ _HUFFCODE_DECERE_T_、 中 


带 1nC1litda <6tdio-Dh> 
玫 1z deflnead(- 3STDC__) 11 38fined(ANSIT) | | daftinedtRLESI) sw ANSIT 7 


void addint double ?ui，dcuble mtc ，dotbla ?regs，iat Dnf) ; 
DJ 直 生 芝 ( 宙 1O 和 8Y 玉 ， 于 LOat 者， 和 1Dat bi ， 节 Chat 中 胃 p，T108 蕊 sbiPp)3 


void anebaattLoat **p， tl1oat y[])，int ndim，float pb[] ， flLoat *yb， 
1Tloak ftol，ftloat (stunx) float [])，int aiter，float temptI) ; 

void amoesba(fLoat wwp，float y[]，int ndja，float ftol， 
float [*funk])(float []) ，jint wbe 开 ) 1 

下 Loat amoty(f1oat 站 wp ，E1LDat y[}，Eloat psum[j ，int ndic， 
float (*funx) [float [])。iant ibhi。fl1oat 王 ac) 1 

了 Loat amotsafiloat ssb，flLoat 了 [] ，?l1ont psum[] ，int mdim， float pbr] ， 
float +yb，tl1oat (+funk)(float [)，int ihi，float *yhi，float fac); 

void annealtfLloat x[] ，float y[] ，int iorder[]，int ncitcy); 

double anorIm2(double wwa，iznt D)》; 

. void arcmaktkunsigned long nfreq[] ，unsigned 1ong pchh，unsigned long nradd ， 
arithcode +acode] 

Vvpid arcodekunsjgned long ichb，unaigned char 4hCodep，unsigned lomg *Jcoxe， 
unaigned long *lcd，iont iaign，arithcode 4acode) ; 

void arcsummKungjgned Long iia[] ，aunaigned Long iout 税 ，unaigned Long ja， 
int nuwk，unaeigned long nread，unsigned Long ac)， 

void asaolvekKuneigned Long n，double b[] ，double r[] ，int itrnsp); 

void atimegsfuneigned long an，double zx[] ,double *[] ，int itrnsp)i 

void aveyaE[15at data[] ，Unaigmned 1DOnE 立 ，E1Oat 4ave， 子 10at 中 waz] ; 

VOtd baLaiC[E1Oat 本 让 提 ， 计 no 让 mn)i 

void banbxB( 天 1D&t 地 站 已 ，1iDneigmed long 卫 ，itnt m1， int 四 2 ， 于 19at 中 中 瑟 ] ， 
unalgnsed Long ;indx[]，float br]); 

Yoitd bandec(f1oat + 让 日 ，DnBiEned Jong 卫 ，int 血 1，int 池 2 ， 王 1Oat 本 闻 帮 | ， 
unegdlened Long indz[] ， tlcat ed) ; 

Yoid banmui(f1oat ?98，Unsigned 10DS 了 ，int 也 ，inDpt 2，?1oat ft] ，tloat br]); 

voltd bcucot(flpat y 菩 ，f1oat 71[]，float y2[] ，float y12[]，float dl ， 
T1cat d2，flcat 中 C) 1 

VYodld bcutntkEIoat y[]，flocat yl1[] ，tloat y2[] ， 主 loat yt2 门 ， 
tloat 和 1L，TY1oat xlu，fIoat x21，fl1oat x2u，float 1， 
上 Loat 工 2， 节 103t +3D87， 荆 1Oat 中 ay1，f1cat hanesy2) 3 

yold begchb(dourle x，double *gaml，doub1le *gan2。double +gatpl， 
double *Bgamai) ; 

上 loat baysi(int 了 。f1cat I)) 

Float bessi0(t1loat 工 ) 

f]oat beasgil(fldat )3; 

void bassiktTloat x， float Znu，Tfl1oat *Tri，fTl1oat *rK。，ftloat erip。 
floet wzkp)i 

fl1oat beessj(Kint 站 ， 于 lcat z)3 

flLcat besej0(float xy); 

float besg8jl(float x) ; 

yoikl bes3jy(float x，float zhnu，f1084 9?rj，fl1oat kry，flo8t wTjPp， 
XlLoat *zyb) 

于 oz beask(kinat a，float zx) ; 

foat besekO(Tloat xx) ; 

1.2at besgKk1l(Ktloat xy)j 

floav besay(int 0，float x) ， 

芝 1oxkMt beaaygOfrT1oat X)i 

TIoA besa71I(10oat Z) ; 

下 1oat 证 和 (ZLDat 忆 ， 下 1O&Rt 可 ] 1 

半 1cat btRCT (TIO8t 和 ， 症 1o8ft 日 ， 芋 10at 工 ) 

?10a8t bataitzt1oat 六 ，ZLoat 口 ，float xy) ; 

flgat blcotiot 吕 ，tnt ); 

yoid Bigsub(lnt az#，int Db，tpt j，int Kk1，iot MX2，Pt1oat gwc) 

?loat buldev(tioat PP， int 工 ，I1obh# idua); 

zloat bzentkzl10at ar，12cax5 bE， ?1oat CX， 

于 1oatt 【et) zl1oac)》 ，?1oat to，tloat sxmin) 7 

yoi breyrdta(float EU ，int aa，int checr， 
void 《eyecfnnc)fint，zloat [] ，?loat []))， 

Yoid bgatip [float 了 D ，z1oat dydz0 ， nt my， 下 10&t er， 半 oat btz7， 
培 loat bpg。 节 Loat 了 8CaLD ， 节 1Dat 中 hdid，Yloat hnext ， 
Yolid (dertye){tz1oat，?1oat []，float 口 ); 

Yoid caldat: (1ong jnlitian，tnt ug，iat 中 jd 和 ，3int 17 了) 

Yoid chder(tftloat Ba ?71085 b，f1oat cr] ，?1ioat cderO，tnt np); 

Toat chebey (二 Lot 摆 ， 了 Lcat 口 ，T1Loat <[] ，int 本 ，fTlcat x); 

void Chabft(float 吕 ， 了 10at b，?1oat cr] ，int pn， oat 【*itunc)(tloat)) i 

vpid chebpctfloat <[] ，float 4D iat 3): 

wodid chixtttfEoat a，f1oat b， ?float 5[] ，float cint 口 ，int D)， 
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float chixy[(zioat 59ang) ; 

Yoid chaldctfloat #*9&，dinpt mn， tl1cat PD); 

yoid cholslftflcoat #9a，int 了 ，float PRD，f1oat D[] ，float XD); 
Yoid chsons(fioat bins[] ，ft1cat ebina 中 ，int abiae，fiat mstrmn， 

了 Loat qd，Tlaat *Che6q，f108t +brobly: 
void chatwoffloat binai[] ，zloat bins2[] ，int nbians，yibt Xnetra， 

float wdf， 夺 loat #chso，ft1oat 中 prob); 

Yaid ciaiCftlopat 荆 ，TLoRLt #cI， 症 1Oat 呈 BE) 
Yeid cntabl(int 4mm，int ni，1ipnt 了 j，xz1oat echigq， 

float 9*df，float Prob。fElLOat Cragzry，T1oat cc] : 
void cntab2rint wennm，1int ni，int nj， 21oac 4h， Tt1oa&Y 3bh， 和 LOat hy， 

下 1aa 女 hyEBF，f104t 和 hxgy， 和 1Dat wu7BZ，Tl1oat UIESY， 了 10at yduXy) 1; 
void convlvyftloat data[] 。unBigned 1on 攻 吕 ，?10at raspDaT] ，tnSigned 1opr 胃 ， 

int ieign，fLo&t SBe[]); 

Yoid copy(doub1e 4#aOuUE ，doub18 闻 让 站 jD， 净 口 ) 

Yoid corral(float datalf] ，fLoat 4ata2[] ，uhsigued IonE RN，TYloat ang 如 9); 

void coBft(Tl1o8t y[] ，int mn，int 18iga) 

yold coeftltftioat y[1 ，int mn) 

vold cosgftt2(t1oat 了 [] ，int ，ipt iaign); 

Void covart [zl1oat 中 COVSAT ，jint maint yaa[]，iat 四 闻 记 7) 

gid worank(unzetzgmed ong 口 ， 于 1D&t 用 门 ， 了 了 10zt 全 了 7 了 

woid <cyclic(float &a[] ，?Loat bf] ，t1Loat C[] ，z1ght 和]Pba，Eloat bata， 
下 Loat 工 癌 ，fioat xf[f] ，umaigned IonE D); 

Void davubd4(filoat ar] ，unaigned long ma，jipt iaignh)i 

YLoat dawacnkzlcar Xi 

float dbrent [float ax ，ft1Loat bx，ftLoat cI， 

于 LOat 【4 和 ) (1O8t) ， 下 Loat 【dz 》( 1o8t) ，Z10uk 七 D1， 症 LOat emiD) 
Yoid ddpoly(tloat c[] ，int nc，Tloat 工 ，7loat Pdr] ，int md) 
int decchkk(char Btringf] ，int 口 ，cbar ch); 

，Wwoeid deriysgtzloat 工 fl1oasftf 7E] ，fLoat wydxrr)i 
float df1diar[f+tioat X) ; 
Yoid dfourl(doubIe data[] ，unsigned 1png Dpn， jnt isignay; 
Yoid dftpainktloat P[] ，int ，floabt Etol，int *iter，z1oat sfret: 

节 1oat (efuncJftfloat 【[])》，Yoid {sdfunc)tEfloat [] ，float 日 ))) 
fl1oat dfridr(float 【unc)[T1OaCE) ， 和 10at 工 ，E103 了 ，X108tE se9yT) 
Yoid dftcar(float WwW， 上 tloat delfa，ft1oat aa，float bfloat ecdpts[] ， 

节 1oat *CDrTB， 卫 1oat *COF3E ， 了 103 本 CO 全 至 C] ; 

Yoid dftint(tfloat 《<*fTunc》(float》，?t1loat 总，TLoat b，flioat 到 ， 

了 loaft 《CO3IFt， 芋 10 及 亡 本 本 im 了 mnt) 

Yaid difeq(int X，int K1，int K2，int jaz，jmt 31，int 十 g， 
int indezvy[] ，int me，float *sga，f1oat eqy); 

Yoid dlinmainCfloat Pp[] ，float Xi[]。，int 品 ，f1oat wfret， 
flLoat (〔*func)[float [])，vaid (edtfunc》tfloat 口 。，floatf]))， 


doubl19 dpythagtdcuble 只 ，dotbl@ b); 

Yoid drelztkdoubla dataf] ，uUngignsd 1ong D，int :atgn) 

void daprsax(doub16 sa[] ，theilgnad 1cong 1 革 at] ，dodbls z[]，double b， 
unsdigned 19nE D)i 

yold dsprstcztdoub19 34TI] ，Uasigned Iong ijaf] ，aouhla xU，double bD， 
uns1lgmed long n); 

void dgvbksbrdouble ea，doub1l5 y[] ，double rr ，int a， int 二，doubls mD， 
double zx 口 )) 

Yoid davdcmnp ftoub19 we，1nt 旧 ，1nc 了 ，deouble vw[] ，double frv); 

Yotd eclaggrjac mt 口 ，int Da，lnt 1tats[r] ，tat 了 1tb 门 ，tht 7 ; 

Yoid eclazz (int nf[] ，int an，int 《weqaly)fint ，tnt))1 

节 LDat 旦 羡 CTYILoat 工 ] ; ， 

Volt eigsrttTloat dD ，11Loat ?szV，fint 史 ); 

f15at @L19(f1oat pbi，float ak); 

了 Loat ellfffloat Pbhi，?t1oa8t ak)i 

芝 L1o&t ellpl(tioat Phi，ttoat an， 了 710at 8E) ; 

Did 中 1 了 ben 了 out 让 BE， jaE 卫 ) 

了 了 108t 6trgcctITLoat 工 ); 

了 1Oaat Gr 了 《六 1Oat 丙 ) ; 

Loat arfc《E1Lont 苦 ] ; 

void euKatm(f1ont Su，TIoat term，int jcerm，TIOaAC 全 ka 所 [] ) 3 

z1Oat 9V1 了 mkz1oat dt，3#loat dU ，int 也， 半 Loat xms) ; 鸣 

fl1cat ozpdev(long “idua) ; 

float exzpinpttint 口 ，fLoat x)i 








flLoac fl(float 7 1; 

float fldia(floac x)} 1; 

float f2(f1cat 池 ) ; 

flocat f3(fLOat z] ; 

float factln(int 已 ) ; 

Tcat factrlfitt 菩 ) 3 

void fasper(fl1oat 天 [] 。，f1cat y[] ，uUpatgped 10Dg 员 ，?1cat ofaCc，Il10at hifac， 
ELcar Mkd1[] ，fl1cat wzD ，unaigned 1ong nmRK，nsigned 1cng *oout， 
Unaigned 1ong jzmax，t10af 中 pYob) i; 

void fd1acfint'Dn，fl1oat x[]， zloat 1yec[] ，T1oat *+rdr 
Yeid evecEVncy(int，f1oat 口 ，1oat [ 门 ))》; 

Vol 二 YgaDBB(Ef1Ont X， 玫 10st 虽 [] ， 于 loat * 了 7，Eloat dyda[] ，int n)i 

veid fill0(dotuble *eu，int bn); 

vold Titleat 工 ]，float 了 口 ，int ndata，float sigU ，iat mwt， 
节 Loat 人， 了 l1oat wb， 立 Joat 让 BiER，E1oat *gtzgb，float chi2，fl1osat *q)]i 

void fitery(ftloat x[] ，fl1oat y[] ，int mtdat ，float aigz[] ， 人 loat sigy 口 ， 
半 }oat 中 雷 ， 下 1Oat yb，T1oat 4BiEgah，f1oat *3igb，ftloat chi2，floakc *q); 

void fixrts(float d[] ，int 了 ); 

void fleg[E1oat x， fl1oat PLD ，knt pl)i 

Void Tioaoon(int 已 ，int nph，1oDg 中 jd， 闻 Loat zfTraC)] 

zlLoat fmin(float xr[]》; 

void fourlff]loat Gata[] ，Unaignead long mn，int ii8ign》; 

VDid 王 oarewfFILE *file[5] ，int wa，int nb，int *nc，jint 中 nd)] 

void fpurfs(FILE file[5] ，anaigmed .lonpg nn[I，ipt ndim。fint islgn) ， 

void fourn(flonat data[] ，tinsigned lon&g nn[] ，int ndjm，fint isigny》; 

Yetd fpol7kfloat xx，y1oat P ，int np]i 

Yaizd frad2(int 了 ，float 自 。float b，float t[1，float f[] float EC ， 
float (〔*B)(PEloat) ，TlLoat {9aKk)fF10at， 王 1OH 蕊 》》; 

fl1oat 半 Fedingkfloat xx，xint Rn，fLoat B，rloat b，float t[]，Float fD，float el]， 
节 L1Gat 〔wE) (ft]10at) ，float 《wak)KFfloat ，float))) 

VOid #TrODGL( 王 1Dat 工 ， 王 1Oat 中 日 ， 症 IOat 中 C) 1 

Yolid frprmn(zloat Pi] 。iat ma，fLoat 人 ol 。int miter， 革 19at 闻 fISt， 
节 ]1Dat (*fune)fzloat [])，vaid (wdfuhe)ftoat [] ， 革 Lpat 口 )) 1; 

yoid fteat[float datatl[] ，Uneigned 1ong ni，float data2[] ，Unhaigaed lcng h2， 
TlLoat ff，flcat *prob); 

T108t EeemdevKint ia。1oo 区 *ivdua] : 

T1Oat 区 amln(10at xy 

21cat 多 ammgpKf10at 予 ，f1oat xX) ; 

世 Oat SamPQTLaat 日 Loat 工 ) 1 

纪 0at gaadev(1ong *idam) ; 

Void gaucof(tint nn，float a[] ，float jbr] ，float amn0， float X[] ，float w[]); 

Wotd gaUhertf1oat 工 占 ，T1aat VD ，int a)) 

void gaujackEtloat x 咎 ，float w[] ，int n，flogt alf，float bet): 

void gaulagftfloat x[]，float 了 [] ，jint nD， 于 oat alf); 

Void gauleg(fLoat 1，float X2，f1oat 工 ([]，Yloat 号 [] ，ipat 册 ) 

YDid gau8aj(fLoat *# 才 it 口 ， 闻 Loat sb，int 画 )》; 

Vofid gcg(tLtoat *Eauaacz，f1cat 日 ， 于 Loat x， 和 108t eg1D); 

天 Lot Eoldenk 和 lozt SIT。fTLoat bz，float cx， tipat 《9fy(float》，ELoatr 七 01， 
节 LOat 站 za) 

Yotid 多 aeT(T1Oat + 训 aSGI ， 二 10at ， 寺 1D8Kg 工 。，T1oat 本 81LD) ; 

Yoid hpselfunaigned 1ong 且 ，npaigmned long 工 ，float arrf] ， 了 Loeat beap[>; 

Volid hpacrt (ulailirmed long 了 ，Tloa 人 t zar]) 1; 

void hqrfftloat *+y 直 ，iDpt D， ?iloat wr[] ，flcat 人 ti 门 ); 

void hufappfunsigned long indezf] ，tnaigned long nprob 菩 ，uneigned 1cng D， 
unaigned long 1 

void huztdaec(unaigned 10DE #ich，uUnsigned cbar wod6，Unaigned 1ong 1coda， 
Daigned 1ong wb，huKfcoaa whcoga) ; 

wdid bufenpcfunaigmed long jch，unsaighed char *#Codeb，unazgned 10ng 1coda， 
ungjgned 1ong $nb，bhilffcode hrode]; 

vodd hmfmax[unsignec 1ong ntraq[] ，uneigned long acbin，uUnsignsd ]ang *+ilong， 
Unaygned Ion&g atong，huffcode *hcods) 

Void hunt(ftloat xX 口 ，un3aigned long 为 float x，uUnsignad long +jloc) 1; 

void hypdrvtfloat 8&，ftloat 困 丫 iloat d7yds[]); 

fconplex bypEgeo(tcomplax a，fcomplez b，fcamnpler c，Ycomplex z) 1; 

vai 人 dt hyPaaT(fcomplexr a，fconplez 口 ，fcotPplez C，fcompler z， 
于 coitp1e 本 96ri6d ， 环 CoEphlLex +derivy i 
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Unejgned 8hort icrcgunsigned anort cIC，UDgignaed char vbufptrz， 
ungigned 1oog len ，bhort jinit，izt jrev); 

unaigned ghort icrclfunsigped shozt crC，utstgaed char onech) ; 

mpsligned 1oDg igray(unaigngd long HE，int is) ; 

Yocid iindexzx(ungigned 100g D，1cng arr 口 ，unsigned lo0ng indx[])i 

void indexx(tnslphed 10ng D，Yl1oat arr[] ，Dnsighed long indx[r]》; 

Yoid interp(doub1e aeuEf，deouble wuc，int nf) ; 

int zirbitdif(unsignad long aizeed) ; 

int irbit2(uneigned Iong *iaaed); 

woid jacobi(t1lcat ?sa，inpt 荆 ，?1cat 出 [] ，fT1oat 中 ， 开 nt #Rmrat); 

yoid jacqbnaftloat 工 ，?Loat y[] ，#lLcat dfdxzr]，float dfd 了 ，ipt 卫 ); 

Long jiulda7Kint 中 ，ipt id，ioat 17yy); 

Yotd xendl11(f1oat 过 at1[] ，zl1oat dat32[] ，Unsigned 19ng D，f1cat ?Lau，El1oat az， 
了 Loat wproby 1; 

yoid kend12(?1oat ws*tab，iat ii，int j，float mtau，Tfi1Oat 4Z，7108t prob) ; 

YoOid xazzot(dotub1e 本 [] ，double y，iot 四 ) ; 

Yoid za2d1latfloat xl1[] ，float yl1D] ，unalgnad long at， 
void 〈《squadv1)tzY1cat，fIoat ，fLoat 中 ，float =，fl1Oat w，T10at 中 ]) ， 
Iloat sdl1，float wprob) ; 

void Xe2d2s(float Zit[] ，float 71[] ，unaigned long nl1，tloat x2f] ，flcat 72[] 。 
ungsigned 1ong n2，float sd，YlLoat Prob)i; 

yold Kgoane(T10at data[] ，uDaigned 1ong ，float (func)(tloat)，float nd 
Y1cat prob) ; 

veid kstwo(tloat datatD，unaigned long nl1，float data2[] ，unsigned long n2， 
节 L1Oat dd，?1oat Prob)]i 

Voia laguar(tconpler aT] ，int 四， 了 cowP1ex “Xi 二 中 训 及 ) ; 

void 18it(tloat [] ，float 了 [] ，float sig[] ，int ndet ，float ar] ，inkt ia[] ， 
+DY Ba，f10at erOVar ， 了 Lont Chigq，void (sguncs){z1Loat，ft1oat [，int)); 

Yoid Litnbcgtunsigned 1ong 了 ，double b 门 ，doeuble x 口 ，int ito1，doub1e tol， 
izt itamaxz，jint iter，flouble 4arr]i 

Votd 11min(float PDD，float xir] ，int ， 了 loat set， 
3oat (func)(float [7); 

vold ngrfhfint 了 ， float xoud[] ，float fold，f)oat E[] ，?1oat pD ， tloat x[]， 
ZLoat 9f ，TlLoat Btpaaxz，int checx， 革 Loat 【func)( 了 Loat 口 )); 

vod TIoadtfloat xl1，Ylogt 站，fLoat 了 口 ); 

ycjq &oaaltzloat xi，float 星人 ，float 了 []); 

void 1oad2t?loat x2，zloat v2[] 。flLoat yT); 

Yoid TIocatettkoat xt[] ，mnsigned 10ng ，float x，unsigned Tong >#j) ; 

Void 1optdoublB 中 ut，4ouUblBa 中 jing 卫 ) 

Yold lubieb(f1oat 和， nt 。， int imdx， 于 1o8tt b[] 7 

Volia litdcmpfzloat 站 中 上 1nt 也 ，1Rt 中 tdxz， Toat ed) 

YDid ChBTTIDT 站 工人 上 ， 1Dt 二 it， LE jd，1nt ?DELd 。 
YPY ECchap ，int #RSBEBP，1n 亡 站 1STP ， D 世 四 革 才 折 ID ， 匡 D 放 站 地 TSXP ， 
T1LDat wePS ， 了 0&T 间 自 PSI 区 ， 下 1OaY 中 基 才 1 ， 交 1 DS 人 平 XM&) 了 

Yoid @atadddoub16 ww 儿 ， 人 oublg 和 日，doubla 9C，1QE 卫 )》 

YOU 友和 tbfdotD18 中 # 和 四 OUble 中 b 记 ，GOUble yC，1RYE 7; 

VDLd 有 三 d 下 t《 菩 LOaY 民 [] ， 节 1OaY 子 [ 门 。1DE ndata， 节 10aL # 有 8，f] OaL # 口 ， 拖 1 at abdtew) ; 

TELd 仙 9ECOTTLDaT 9at3 们 ，int 了 ，int 二，108F ws ，Y108t 双 癌 ) 3 

1nt metTop[gtloat de， tl1oat tz) 

V9id EtSSGcuDb1G ww，int 日 ，1DT 了 8XC7C7 3 

Yotd ugElinfdoub1e 让 ，x+nt 口 ，Tipt ne 了 cte); 

于 1O8t 芭 19ITPftElLOat 《*funx)ff1oat》，ftloat aa，f1oat bb，int D)i 

float 到 ldizytTloat 《*TtnkE) (21oat) ，710at aa，Y1Lcat bb，iot D) 

了 10at tdPnttzloat 《*zunc)yrfl1oat》，float ，TLoat 唱 ，ipY D) 

fl10at @ldagql(TLoat 〈《*#funK) (fl1oat) ，f10aC aa，71oat bb，int D); 

1087 到 idgquftlcat 《UnKYrELOaV》，fT108t aa，7T1Loat bb，14nt ) ; 

Vaid misex[zlcat 〔*tunc)(zloat 口 》，float regm[] ，1nt ndlzma，unsigned 1ong npta， 
Loat dth，fEl1Dat 9aVG， 了 SB YaT) 1 

yoid mid(iloat y[] ，f10at dydz[] ，inz nyar，t1oa XB，Y1097 htot。 
it atep，E1oat 7aout[] ，Yedd 《dardivs》ft1oat，ELoat[1 ，flioatp))， 

void mbr 纹 (float *axz，float br，flcat *cx，f10at 4T#，f1oaC atb， 
《Logt 9ftC， 六 Loat 《wunc) (ElDat))， 

Void mnevc(int Dtrial，f1oat ID ，tnt 了 ，zloat TO1Z，ft1oat tolLz): 

YaTd boqgent (108t dava[] ，d0t 己 ， 芝 108Y 中 VELont *aday，fT108T #Bdev， 
Tl1cat mva7 ， 了 10at ?8X9 术 TIOaY 中 CUET) 1 

vold 号 2dfr(ungignaed char a[] ，ungtigned char 5f] ，int nD，1pt tt ; 
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Yoid mpaddfunsiga6sd Char w[] 。，unsigmed char u[] ，unsigned char vU ，int D)i 
void mpdivfunsigned char q[] ，unsigned char *[] ，unsigned char uD， 
haignad char Y[] ，int mn，int 四 ) 
Yoid mpinv(unsigned char ur] ，unaeigned char Y[])，int D，int m); 
void mplshfunaigned char u[] ，int n)i 
vodtd wpuov(uhaignaed char U[] ，ungignad chat vf{j，znt D)， 
yoid mpPmulfunsigned char w[] ，unsigned char 0u[] ，mmnsigned char v[] ，int mn， 
int 权 ) ; 
void mpneg 人 (unsigned char uf] ，int n); 
Yaoid appPifiaot 2)5 
Void mprove[fTLOat +# 有 ， 了 1oat *alad，int n，int indrt ，float br]， 
float xr])1; 
void mpeadfunsigned char w[] ，unsigned char 中 ，int mn，jipt jv); 
Yoid Wpadvfimasignad Char [] ，unsgigned char ur ，int nmn，int ivy，jint siryi 
Yoid zjpaMtfiimaigned Char T[] ，Unpsigned char VDD，int nm，int iv); 
yoid mpsqrtfunsigned char w[] ，unsigned char nu[] ，unsjgned char y[] ，int ph， 
iat 卫 ) ; 
Yoid mpsub(int *:3，Unsigned char vf] 。unsignod char tf]，unsigned char vT[]， 
int D); 
Yotd mrqcof(float xf] ，ftlcar y[] ，float aig[] ，int ndata，fioat a[]， 
int ia[t] ，int ma，f108t 中 名 1pha，fIoat beta[] ，float +chiasq， 
Yoid (*tuncs)(ELoatr，float [] ，tloat *，ftoat [，int)); 
void mrqmin(float x[] ，float y[]，ftloat sigf]，int ndata，tloat ar]， 
4n5 ia[] ，int 四 &，ftLoat 中 COVar 。 fl1oat 9*alPha，flcat chigsq， 
void 〈*funca)ftfloat，f1oat []，filoat *，float [] ，ipt)，fl1oat walamdz)i 
void newvt(f1oar x[] ，int nD，int *check， 
void 《*yecfuhc) (int，flaoat [] ，fleat [)); 
void odeint(f19at yeBtarz[] ，int Dyar，Tloat xf，float x2。 
于 loat epB，loatc 1，11oat hthji 名 ，int ynox，int *nbad， 
void (wderivs)(float，flcat []、tloat [ 门 )， 
void (9Tkqs) float fj] ，fl1cat [] ，int，float *，fl1oar，float， 
float [] ，Xloat w，float 下 ，VOid (*) (YLoat，floart []〗，flacat []))); 
void orthog(int na，float anu[]，:float alphaf] ，float betaD ，floar a[] 
float br[) ; 
void padafdouble cof[] ，int 只 ，float resid); 
vpid Pccbheb(float 由 [] ，f]loat cf ，int an); 
vojd Pcshft(floa: 3，floar b，float d[] ，int ): 
void Pearsgnffloas XU ，floa&k Y[] ，uneignad 1ong 卫 ，floatf *r，fioat 4prob， 
float *+z] ， ， 
void Dariod(kfloat 工 [] ，float y[] ，int n，yloat ofac，fIoat hifac， 
fl1oat pzlj，float Py[] ，ipt ap，int wont，int *jmax，f?10at Prob) ; 
veaid pixsr2tint 了 ，float arzr[] ，Eloat bzrzT])i 
void jiksrt(int 3， float arr 门 ) 
void pinvg(int ie1，int ie2，int jel，int jaf，lint jc1，int 
了 1Dat 让 事 C 。 开 1Oat 中 站 器) 
float pl1gndr(int 1，inpt ，float X) | ， 
Float poidev(fl1oat za，1Long. =idium); 
void polcoeffloat I[ 了 ，float y[] ，int 卫 ，float cof 跻 ); 
void Poelcof{tfloat za[] ，float ya[] ，int 口 ，float cot[]); 
veid PoldivkEloat ar] ，int D， 革 Loat v[] ，int av，float QI。tloat rf); 
Yaid Polin2KCf10at xta 丫 ， 了 Loat Fr2a[] ，T1oat wya，int 口 ，Jnt 卫 。 
Tloat xl，fioat TI2，?loat *y， 了 Loat ady)i 
Yoid Polint[f19at xsa[] ， 于 loat ya&[] ，jint 卫 ， tioat x，fioat y，Y1oat rdy); 
Yoid Powell(Efloat p[，float wxi，int 工 ，float itol，1ht iter，Tloat tret， 
?1oat {efunc)tfloat [])); 
void praedic(loat data 门 ，int ndata，float df] ，int 四 ,tleat tuture[] ，int ntfut); 
了 10at probX&[1oat &La) i 
void Psdaa(unsigned 1ong +lword，unsigned 1ong wutuord) ; 
void Pwt[float ab，unsigned Lobng ma，inpt ixign); 
void Pwtsat(int 了 ) ji 
fl1oat Pythag(float 5，float b] ; 
void pzaxtr(fint iest，floar eat，float yestf，float yz[1，float dy[]， 
int pv); 
fl1oat qga0s(float 〈#ftIC) (fl1oat)， 二 Loat a，float b)i 
Yoid qrdcup(float 9#a， it 工 ，float 4C，TLoat dd。rint 六 多 1 
:loat qrombtfloat 《er*zunc)ffLoat)，tloat 唱 ，tloak b); 
feat qromckflopt [Func)rfloat)，float a，1loat hb， 
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floar (rchaoosey (floot (*)(fipat》，flcat， 半 loat，int)) 

void qroot (tloat R[] xnt 0，E1oat 中 ，float mc ，f1Dat 9p8)》; 

Yoid qro5olv(flcaz #*a，lnt h，float <[]，float di[] ，float br); 

void qruF ” .float *s*r，float *qt，int n，float ur] ，fLoat vr]); 

float qsimp:Tfloat 【stfunc) (tlioat)，fioat aa，float b) ji 

fl1oat qtrapkfloat (funcyffioat)， fl1oat B，f1oat b)i 

TLoar quad36《f10aT 《=Tunc)(fIDatY，fE10at，T1Loat)，ftloat zl。zost x2)? 1; 

void quadct(tloat x，float yY，f19at xx[]，float 7y[| ， uasigned long on， 
float # 基 aa，float etb，P?loat "fc，、9 人 loar *fdlh; 

veid quadmx( 了 LIcat 闻 中 aa，jint 卫 ); 

void quadvl(tflaat x，flioat 7 了，float *fa， ftloat ?fb，float fc，float *+fd)， 

?loat Tan0(1ong *idun) 1; 

ITl1oat Tanl(Long *ionm)i 

Loat Tan2f1ong "idia) ; 

flLoat ran3(1L1ong idua) ; 

?1oat Tan4(1oug rdum)3 

Yoia ranr(uneigned long 0，timsignad 1ong indz[] ，unsigned long trank[]y》: 

voidG ranpt(tlocat Pt[]， xlLoat regn[] ，int D); 

void Tatint{tTloar xa[]，float 了 ai 、1Bt 为 ，fLoat xX，float 4y，float wd7) ; 

void ratlaqkdouble 〈sftn)fdoub16) ，dovtble a，double b，ibht mm，int Xr 
double cofT] ，double *dev) ; 

double Iatval(dcuble x，double catf ，int mm， int kk) ) 

节 Loat TCFf1oat 上 。 了 loat 了 ) 1 

了 loat rdf(float X，float y，loat zZ) ; 

Yoid raaifT(t1oat data 口 ，uneigned long 了 ，int iBigay; 

voidq rebin(Kfloat zc，jint hd，tloat r[] ，float xin 口 。float xif]); 

yoid redfint izl，int iz2?2，jnpt ,jzl，jiat jz2，int jnl，int jza2。，iat jmf， 
int icl，1nt jc1，int jcf，int 攻 cC， 下 1cat 站 中 忠心 。 了 103 志 中 加) ; 

void telaxzfdouble *#l，double wkrhe，int mn); 

Yoizd ralazr2(doubla +*u，double erhs，jnt n); 

Yoid Tesidfdotb1e +yraa，doubEe #sU，doub]e **rhg，int ny) ; 

TIDht TevceBttfloat xz 站 ，tloat yT 阐 ，int iorder[] ，int mctty，int n 站 1; 

Void reveTSefint iorder[] 。int ncity，int an[]); 

节 ioat xf(f1oat 工 ，TLoat 站 ， 王 Loat 艺 ) ; 

zl1oat rj(flcat x，fl1oat y，Etloat zZ，flLoat P) ; 

Yoid rx4(float y 口 ，?Loat dydar[] ，int nm，float ， ?loat hbh，float yout[]， 
yoid 〔sqerliv8) ITILOat，tloat 中 ，float 口 )); 

Yoid rc(ffloat 了 [] ，float dydx[] ，int D， tlcoat 工 ， ?1oat 
flaost yout[] ， ?float yaerrr] ，void 【edariyay(zloat，Float 口 ，zloat |)); 

voldd rzdunbkfT1oat Ystart[] ，int nyar，ftloat Xt，float x2，ipt ngtep， 
void (mdGerive)(f1loat，f?l1oat [] ，*Jloat 口 )); 

Void TEkqafiyloat y[] ，float dydrr，int mn， ?1ott 由 ， 
T1oat htxry，TfIcat 6p8，f10at 75Cal[] ，f1cat 4hdid ，?104 世 bmezt ， 
vold 《deriya》f 和 1Ioac，?1oat [] ， 二 Joat 口 )》3 

YOid 1It3( 卫 ] 吕 生 攻 平市 中 人 d 羡 县， 了 了 1 口 BT 书 # 汪 六 44 ， TiCmed 1Dog np1， 
ungigned 10ong nn2，unaigned 1cng hz 二 ，Ybt figny7 

zl1oat xnoztmctTfloat bi; 

Yotd Yotate [ELDat 中 了，] oat *wqt，iDnt D，int T，?Loat a，float 上 b); 

yoid raoly(T15at 9*&a，int mn，fl1oat 4[] ，?loat b 口 ); 

void rsgtrct(double suc，double *ytf，int nc); 

《10af Tblsfft1oar 〔+Tunc) (Eloat)，f?]1Dat 1，float 72，?tL1oat xacc); 

float ITtTlepb(float 《+fuac]T1Loat)，?loat z1，float x2，f?1oac zacc) 1; 

了 loat Ttnewt(yoid (9Tuncd)(?1oat，T1oat 村 ，fl1oat *)，float xL1，ttoat x2， 
float YXacC) i 

fl1oat IEaafe(void 〔zuncd)fX108 尤 ，f20Bt 中 ，1pat *)]，float- kt，tloat IT2， 
二 Loatixacc)i 

1Oat xftaec (tl1oar 【*Tuhc)(float)，float xd1， 半 Lonat xz2，fLoat xaccy， 

yoid rzextrkiont ljegt，?t1cat Xest，fl1oat yast[] ，fioat yzD ，zLOat dyT] ，inr 

yoid savEoltflcat c[] ，int np，int nl，int nr， int ld，int m) |; 

void 5core(T108t Xf，float y[]。float 王 门 ); 

Yoizd screhofloat (9TX)(Cf1oat)) 

float 3elact(unsipgmad 1ong ，unalgnad long mn，zloat arr[]》， 

flLoat 3glip(ungigned loObg K，unaigmnad lon&g nn，ft]oat art[]] ， 

void sbhellkuneigned loug n，fioat ar[])， 

void sghootttnc D，float v[] ，float f[]); 

Void sghootf(lnt Ia。，f1oat v[]，float f[]): 

void simplffloat w*a，int mm，int 11[] ，int nl1，inmt iabf，int 区 入 ， 
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《loat 4bmaz) 
yoid 8imp2(f]1oat + 中 YLnt 立 ，1nt 12[]， int mn1L2。 int *ip，int gp，float sql); 
Yoid aimp3(T1oat **&，3ant Ii1，int kl1，int 计 ，int jp)， 
Void SiopPLX(Cf1oat 9 有， int 目 ，dnt D，int 双 1，1nt 2，int m3， ipt 中 CaB 生 ， 
iat izrov[] ，int iposv[]); 
Yotd siwprtzloat y[] ，float dydxz[] ，float dfdz[j，float ydfdy， 
int hn， El1Dat xs，T1o0zt htot，int netep，float yout[] ， 
void (*derivsjffloat，float [] ，?loat 门 )); 
'Yotd Binft(flGat 7ff] ，int D) 1; 
YoOid Bl1vsa2(doub1a 44i，xoub1a 中 rrbzs) 
YoOi 七 51vsal(doubIa +u，double *wrhe)] 
Yoid sncndntfloat UU， 闻 1oat ammC，fl1oat *an，fl10at +#Cn，fl1oat dmn) ij 
doub1le sntrmtunatgned long 口 ，dobla sxr[] ，int 这 D1) 1; 
void sobseqtint 92，f1OaL Y 门 )， 
Yoid soOlvdef1lnt itmax，fIoat conv，float Bl0oudc， 于 Laat BCaAL[] 。 
Jiht indexv[] 。int ne，int Db，inpt 本 ， 王 108 相 相 多 ， 下 ] 四 生机 机 友和 下 上 DR 站 站 四 》 1 
Vaid Sorfdotb1a 中 入 ， 寻 Cubla we 口 ，doubla Cdoub1l6 *4d，double 本 e， 
double we，double +0D，int jnax，doub1a 工 j 和 CC) 
vaid sortfunseagned long n，flocat arr[]); 
Vold scort2(tnsignad 10Dg n，flost rrP ，float brrI); 
Valid aort3CuDeigned 100g na，tl1oat rar] ，tloat rb[] ，?l1oat YcF]); 
void 5PcrIB(FILE fp，Tlo8at 划 C，iat 到 ，int E。ineg ovrlap) 
void #pear(float datal[] ，t1oat data3 门 ，Unehgned 10hg hh，t1cat *d，110at ezd， 
flLoat *probd，t19&f FT，T1Oat wprObra) i 
void spPhbasfint 工 ，719at XiIOat *3]， float 37，ftloat wjp，Tloat syp); 
Y034d sptlig2KE1cat ZL 和 [] ， 半 1oat K23a[] ， 闻 Lpat ww 了 ipt 日 ，int mm， 了 LOaT * 亲 772) ， 
Yolid pltn2KT1oat xl1a[] ，11cat 工 23[] ， 了 了 10at 9 了 五。 于 1D 如 刀 本 本 728，jnt 四 ，xnt 
float IT1， 闻 108t X2， 节 1oa 记 7) ; 
void apPline(zloat x[] ，flcat y[] ，int 工 ，tlioat ypP1，flcat 了 7Pn，float 2D); 
void apliat (float xa[] ，f1oat ya[] ，F108t y2a[] 。int 卫 。，flLoat Ex， 了 loat *y); 
Yo1Q 8preadft1oar y，TIloat 亲 [] ，unsigmned long mn，float x，int 可 ] ; 
Yoid 3prsax(T10at 8&[] ，unsiegned long ija[] ，float xf]，ftfloat 5b[] ， 
unsigned 1cng D) ; 
void spPrein(T1oat wy8，fint 芋 ，f10ar Thresh，unsigned 1Ong bmax，fLoat sa[] ， 
unsigned long tja[]); 
void spPzepakzloat sa[] ，uUnaigned Long ijar] ，tloat sbf] ，unsigned long ijbr[] ， 
ElLoat Bc[] ，uUnslgned loog 1jc[]); 
void aprstjtfloat sa[] ，malgned long ijaf] ，tlcat sb 口 ，unsgigaed Long ljbr] ， 
float threghbh，unaigned 1ong mmaxr，fLo8t sc[] ，unsignad long ijcr); 
void apretp(float sa[] ，ungignad 1ong ija[] ，f1oat sb[] ，unsigned 1ong ijbf]); 
Yoid spratxr[tloat 8a[] ，ynaignad loog tja[ ，tloat xf]，fYloat bD ， 
ungigned long pl; 
Yoid Btilfbs(float y[] ，f1Lcat dydz[] ，int DY， 了 108c IIX， 
float htr 了 ，f1oat epa，f1oat y3cat[] ，t1oat hadjid，fLIDoat bpeXt， 
Yoid (deTiVva)(TLoat，float [] ，float [)); 
woid stitf[float y[] ，ft1oat dydxf[] ，int 口 ， 革 Loat =x， 
了 10at htzy， 了 loat epe，1Etlcoat 7BCali] ，float bdjd，Tl10at "hnbxt， 
Yaid 《ederivs) (tl1oat ，f1coat [] ，float [))》， 
roid BY09TECfT1Cat y[] ，TLoat d2y 门 ，iat nv，f1pat xs， 
fl1cat btot ，1int netep，tloat yout[]， 
volqd (ederivg)[(Yioat，float []，float [])); 
Void 8Vbkabff1oat wu， 革 loat 吉 [] ，float wavV， int 了 ，inr nm，Yloat br[]. 
float x[]); 
void avdcmp(f1oat *a 丘 ， int 四，int D，fl1oa8t w[] ，float seT) 1 
Yoid avdfittzloat x[]，?loat y[] ，float sig[t] ，int ndata，Yloat 习 口 ， 
int m&， 于 LOR8t # 相 1， 半 1eadt ##VY ， YL1Oat wL] ， 开 Lpat 中 his9oq， 
void (funcs) [zl1oat，float [] ，int)); 
Yoid Byvdvarfflcat wyY，int ma， flLoat W[]，float ecvQ) 1 
void toep1lz(float T[]，float 芋 [] 。float y[] ，int ay); 
void tptegt(float datal0 ，fl3at dara2[] ，unaigned 1ong nn，TL108C #C，fIO8t 中 pzoby; 
Yoi6 tdqlttTloat dt] ，float e[] ，int 了 ， 半 1aat za 中 Z); 
float trap2ddft]oat 〔+futinc) [下 Loat) ，f1oat 下 ，719at b，int D) ; 
yoid tred2(fl1aat ea，int 避 ，float dU ，ftloat 9 口 ) ， 
vold tridag(Eiloat ar] float b[]，float <c[] ，float r[] ，float ur]， 
unaigned ]ong n) ; 
float trheatiiioat xX[]，float 了 [] ，iut iorilerU 。int ncity，iac na[]》; 
void trnspt(int iorder[] ，int nctty，int nr]); 
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void ttast[ftloat datal 门 ，unsigned Long nl1，float data2[] ，unaigned long an2， 
于 Lo8t 9t， 子 1Dat 中 PrOb) ; 

VDyd tnteST{T1Dat datal[]，unsigned long D1，float data2[] ，unsigned 1ong 0n2， 
?Loat 4t，TlLoat prob) : 

yoid twoftttftloat datal[]，ftloat daca2[] ，float fft1 口 ，ftloat fft2[] ， 
unsigned long D) i 

void vander(gcublie X[] ，double NI ，double qg[] ，int on) ; 

void vegaatflcat regn[]，int ndim， float {sfxrn)(float [] ，float)，int lnit， 
tnsigned 10ng Dncall，ltnt itmx，inb nprt，f1oat yt&ral， 开 Loat =*ed， 
下 108t 本 Ci2g)] ; 

Yoid VD1traCLDt 六 IDE 血 。 站 1oat tt， 于 lioat 了 ， 节 Loat *t，f1Oat 中 二， 
?10a8t (9* 训 ) (int，1Dat]，flIDat 〔*axk) (int，inmt，ftloat，flcat))i 

vod 人 wtlffloatf a[] ，unsigned 1ong 了 ，int isign， 
vaid (*wtatepj(f1oat [] 。unsigoesd 1cn8g，int))]; 

Yotd waffloat af] ，unsigned lcng nn[] ，int ndlo， :nc isigm， 
vaid 《wwtatep) (fl1oat [] ，Unsigned iong，ipnt))， 

void wwghts(KtLoat wghte 门 ，lnatr D，floac hh， 
YOid 《exOm)《doub1e [] ，double ,inc)); 

int zbrac(float (rtunc)(f108t) ，?1cat 1，Tfloat +x2)3 

void zbrak(float (*fx)(tl1oat)，f?1oat X1，T10at x2，int 了 ，tloat xbl[]， 
flLoat xb2[] ,int enb)i 

float zZbrent (foat 《*func)(float)，f1oat xl1，f1oat x2，float zol); 

Yoid Zrhqrkfloat 训 [] ，iat 四，flLoat rtr[] ，{f1oat rtt[]); 

fl1oat Zriddrtt10at 【=*func)(ELoat)，?71oat X1，T1Loac 2，float xaco) 1 

void zroutBffcomplex a[] ，int 四 ，fcompler rootef] ，int pclishy); 
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void addiot(); 

void adxtryg)i 

Rest of traditional declarations are here on he 路 skette- 
#andiz /中 WSI 这 7 
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附录 DB 实用 例 程 


无 上 权 声明 :本 附录 和 它 的 实用 例 程 都 属于 公用 领域 .任何 人 都 可 自由 拷贝 ,当然 .不 管 对 亿 
们 如 傈 使 用 ,我 们 不 承 但 任何 责任 。 


本 节 的 许多 从 法 部 使 用 了 下 列 的 例 径 -第 个 名 程 ,arerror, 引 用 在 当 程序 发 后 至 余 的 
和 返 冯 适当 的 稍 息 而 和 断 称 序 . 针 ' 天 例 程 用 来 分 本 或 释放 亿 孟 或 向 妊 的 内 不 , 详 也 窜 
1 和 来 闻 由 所 有 掩 在 的 分 配种 释 和 及 帮 证 出 这 些 例 程 作 男 媒介 .因此 , 若 起 用 不 癌 方法 从 
也 半 熙 :下 只 雪 改 变 这 些 例 程 , 而 无需 更 动 程 床 禁 身 。 

这 些 例 程 化 磁盘 文件 naroiLec 中。 于 附 溪 列 出 了 标题 义 件 sruti .h :在 nrntil.n 屿 , 除 
了 从 程 改 说 明 外 .还 包含 这 用 于 伴 书 的 : 些 宕 指令 ,这些 宕 指令 的 思 横 已 在 第 1 2 第 中 乓 
壕 、 


B. 1 内 存 分 配 : 高 级 的 议题 


在 这 , 开 装 论 两 仿 关 上 让 呈 印 矩阵 的 内 人 存 分 配 疝 是 :和 沉 -一 个 加 题 症 :我 们 的 怎 隆 和 其 它 & 软件 梁 遇 的 
玉 由 之 间 : 稀 本 的 (back-deol) " 奈 容 入 问题 .第 “个 石 古 尼 ,我 们 的 单 倍 侦 移 向 量 郑 和 矩阵 的 异 乱 话 算 是 帮 记 
对 ANSIC 的 榨 准 ， 

1 , 陷 秘 的 浆 容 性 ， 正如 第 1.2 节 中 所 冰 述 的 ,我 们 对 于 和 阵 空 元 分 配 的 方案 经 常 末 用 " ee 
之 行 乱 指针 有 详 风 要- 区 1: 通 主 这 可 方 案 ，-114 利 降 的 存储 空间 二 分 孔 ,玉民 的 指针 5 年 阵 的 * 作 池 ”， 
可 以 弄 米 在 巴 分 本 的 民 十 由 其 鱼 绯 数 小 或 千 十 所 分 配 维 尺 才 的 任意 征 阵 。 只 有 当 提 了 的 看 鱼 兴 加 四 如 
策 站 操 , 所 占用 的 空间 才 重 新 有 人意 驻 . 

基 开 这 天 方案 , 拓 阵 前 每 行 并 不 需 存 铺 在 连续 葛 欧 理 宣 向 中 :这 有 导 的 她 近 扩 外 ， 

但 是 ,直列 的 贞 直 分配 称 片 ,实际 .上 ( 设 让 在 道 过 调 出 函数 和 allocf ,把 一个 充 整 的 惩 阵 分 配 让 - 速 续 的 
决 中 .这 种 "隐秘 钨 ”事实 就 允 诈 用户 在 其 瑟 冻 这 村 向 训 人 放 伸 阵 * *a 的 第 “个 邢 
紫 的 地 址 5 芒 a 用 如 5 加 atrigt ae in 的 计 则 来 分 本, 则 它 通 常 症 六 1 人 ， 
则 玄 六 a -0]jL02? 保 证 时 指 疝 以 行 存 铺 的 全 扣 物 理事 阵 的 连续 捧 的 阅 端 ,这 个 地 址 可 以 伟 为 和 警 数 , 锌 
鞭 它 软 牛 吝 月 ,5( 广 意 , 在 其 它 软 件 中 ，- 般 乱 更 基 道 香 阵 茹 物 旧 空间 的 大 沙 ,或 者 第 阵 的 询 数 ) ， 

2, 币 位 俩 咎 其 。 在 第 1.2 省 由 ,我 们 已 经 阐述 了 专任 通过 析 针 泛 算 bb=b- 1, 从 零 例 移 数 组 避 .3 
获得 差 亿 偏 移 疝 景 hhii- 4. 国 为 指针 9 指 庙 芒 的 前 “使 地 此. 抒 以 bb 的 地 奸 与 怀 [o 的 地 址 和 嘲 ， 
农 此 交 指 ， 

严 沼 地 说 ,ANSI CC 标 惟 首 不 哆 后 这 利 方案。 问题 是 ,事实 上 hbh 一 - 指 房 林 池 配 的 空间 ;和 将 永远 不 能 别 证 
让 贱 单 并 p 一 上 进行 增 量 , 府 返 同 到 己 分 配 的 空间 由。 当然 ,这 个 问题 可能 发 水 任 少 殉 的 0 一 上 完全 旋 作 章 
渔 述 的 情况 中 5 兵 已 能 严 税 在 分 如 武 村 者 中 ) 若 这 种 情况 发 十 :由 信 能 你 证 关 厌 式 b= tb 一 蕊 一 1 县 葡 虽 
的 ， 

信 们 并 六 用 考虑 这 少见 的 问题 :我 全 不 汰 为 在 任何 绎 点 和 机 器 二 ,对 于 小 下 数 让 

3 确实 会 碌 败 - 吉 舍 在 分 找 式 机 器 丰 ,发 生子 纺 详 将 存 情 了 臣 些 相 一 na 的 表 到 式 ( 记 许 屋 违反 坑 刚 
后 全 的 如 上 六 后 忆 就 慨 复 正 带 , 相 闻 呈 的 这 此 怪 存 分 配 程序 ,以 1888 年 第 :版 发 才 后 总 三 
省 必 六, 当然 也 存在 上 岂 序 欧 各 三 ,全 旦 匠 们 从 来 收 色 过 在 这 方面 失败 的 报告 , 那 怕 是 … 份 简单 的 臣 告 


"796 。， 








( 民 管 有 许 区 谈 痢 虞 出 在 理论 上 上 尼 梧 蓄 赤 用 ， 生 下 本 下 和 全 齐 计生 淮 可 记 通 从 : 大 单产 将 于 
条 涯 这 个 需要 "下 -全 灿 计 阴 且 此 是 人 下 县 辣 大 四 弄 数 据 燃 开 ) 本 专访 行 记 有 由 
有 有 的 -一些 编 辑 紫 诈 没 有 人 秆 冬 突 、 

瞧 管 没有 和 任何 实 双 上 的 5 相对 理论 面 主 :让 著 , 我 让 形 在 末了 腿 和 有 汪 取 子 证 党 措施 ,全 我 让 下 二 二 用 
的 分 际 称 序 击 好 地 本 ANSI 怀 准 萄 容 :如 个 所 列 的 , 答 址 和 KR EN 帮 矶 蕉 半 的 生生 芷 7 2 
个 避 基 块 或 第 阵 决 的 起 始 端 . 以 将 殿 条 移 指 入 的 措 还 我 休 没 午 NR RND 的 缺 省 人 搬 为. 玫 的 全 末 二 
所 有 单位 偏 移 量 的 分 本 (5 例 启 ,b vecturtty 或 和 rnatrixt 11285128 严格 地 AS 本 放生 人行。 
当 NR END 一 1 , 存 销 单 扰 浪费 的 数 林 乱 降 不 让 ,人 在 邵 这 上 下: 当 偏 移 量 大王 ] 的 分 配 幼 芋 二 拱 竹 介 
bh 一 vecetnrt2103 而 上 夺 在 我 们 程 谋 省 ,了 寺 能 全 下放 是 闪 闫 短 -若海 村 进行 这 栏 呀 全 本 本 .全 卜 关 生 痪 员 | 
NR-END 的 数值 ( 洋 意 ,大 的 数 但 必 关 二 怕 廊 哮 的 丰 庆 汪 癌 ) 








以 上 上 基 multilh 列表 | 


杀 Iifndef _NR_UTILS_H_ 
#doef iDne _NR_UTIL3S_H_ 


g&Latfic fl1oat Srargi 
#def iae SQR(a) \(sqrarg=(a)) == D07DD : sdrargysqrarg) 


Static double dsqrarg; 
才 Gef ine ]SNR(a) (fdsqrarg=Lal) = 站 ?0.2 -GasqrarHwdisqQraLr 皮 ) 


Static doub1Le dmarargl,dmararg23 
项 dGT 1 各 DJMR 有 [Sayb) (dmaxargtnfa) ,dmaxarg2mtb) (dmaxargIy》 > 【dma 和 aaT 区 2》 了 A\ 
(dmaxargl) : (dmararg2)) 


.Btatic ' double dminargi,dminarg2; 
地 derine DMINKa,b) (dminargl=talj,dmninarg2rfb).(dminargl} < 【dainarg2) 7\ 
(dminargl) : 〈dminarg2)) 


Static flcat maxargl ,中 axarg2; 
基 tef ip FMAJIab) (maxargl=(a)] mararg2=[b)，[maxargl) > 【由 axarg2 ?\ 
《mararEglij : 《maxarg2)) 


SatiCc flLoat minargl ,四 znar 区 2; 
和 defina FHINCa,b) 《minargl=(a)》,ainarg2=(b) (minargl) < 《有 inarg2) ?TY 
《minargl : 【minarg2)) 


Static 10nBE 1maxar 区 l,1nmaxarg2; 
gdiefine LNAX[a,b) 〔1maxargi=[a),1mararg2=tb:,(1maxarg1l) > 《lgaxarg2) ?Y% 
【lmaxar 名 !y : 《lmararg2)) 


etatic 10ong ]2inargl,1minarZ2; 
#define LNIH{ab) (]thinarglsfa)y,lminoarg2=(b),(]minargl) < 〈(lninarg2) ?Y 
(lninargt) : 《lminarg2)) 


BtatiC int 工 axaT 史 1 ,iDm8XarE2i 
#deT1tne IHAX(ab) 《imaxargln(a),imaxarg2=(bh{imaxargl》 > 《imazarg2) ?A 
(imaxargt) : 《imaxarg2)》 


BtagdC int iminargd ,iminarg2; 

#define ININ(ausb) 〔3iminarglm(ay ,iminarg2=(b),(iminargl) < 〈jmiaarg2) ?N 
《iptnargl) : 【iinarg227) 

fdefine SIGNKa,b) (〔(b) >= 0.0 ? fabs(a) : -fabs(a)) 

4if deflned{-._STDC__) 1 defined(ANST) 11 defined(NRBtrSI) /> ANMSI es 
void mrarrortchar error_tezt[]y; 


oat vectortlong nz，10ng ah); 
int wiivector(lIong ml，10ng mh); 





unsignaed char *CVecCtortlong 11，Iong Dh) : 

unsgigred 1ong *lyactor(1ong nL1，1Long zh)i 

double 如 Vectorflong In1，Long zh)i 

fl1oat ww%matFrir(IcDE DZL、10ng Brh，10ng Phc1L1，Long Dch) 

double wdmatTix(1ong nr1，1ong nrh，1Long Dc1，1cng acbh) ; 

+nt imatrix(1ong MTTI，1ong mrh，long ncl，1ong nach) i 

flLoat wwgubmatrix(zl1oat sa，1ong oldrl，1ong oldrh，1ong oldcl，loog 9%ldch， 
1ong Dewr1，1Dng newcll ; 

pat w+CODVerL_matTiE(fioat #a，19ng nrT1，1long nrh，1lopg ncY，1obg nch) i 

了 1oat 4f3tenEOr[1ong DT1，1ong Drh，1Lopng ncL，1ong nch，3ocn5 ndt，1long ndh); 

Vold free_yector(ytloat amv，1ong nl1，1oDg nh) ; 

voidG freeivectorfint #V，19Dg DTI，1cng zhb); 

void fres_cVvectorkungigned char "了 ，1ong nL，1Long mh); 

void fras_lvectorfunategmed Iong *V，1ong D1L，xong ob)i 

void frab_dvaectortdouble wy ，1ong hL，1ong mn) ; 

void free_matrixkfloat =*em，1oDE nr] ，]1cong nrh，]ong aclI，1Long ch)i 

void firee_dratrix[douhble *r*m，1]1ong nrl，]ong nrh，1cng BacT，1Lon5 nch)， 

void tree-imatTizfint #*#+m，1Long mr1，1ong ntrh，1ong hc1l，1Long nchyi 

void free_aubmatrix[tLoat *rb，1ong nrl ，1long nrh，1long ncL，1]1omg Dckh) ; 

void free_conVvert matrixtfioat *shb，1cng Drl，LGng ntfh，1loog nc1，1long ach) 1; 

void free_f3tensaozr(ft10at +*wt，1ong nrl ，Iong nrh，1ong nc1L，1ong nch. 
long nd1 ，1ong ndh}; 


##136 /+ ASI ?7/ 
站 帮工 3 本 it ioDa1 一 其 家 及 二 六 


void nrerTOr[) 1; 
float +Vector() 
Rest of tradikional declarations are here on the diskette- 


#endif 7# ANSI 六 


tendif /9 _NR_UTILS_B vs/ 


以 下 昆 nrutiL ec 文人 性 ; 


羊 inCLude “Btdio,b> 
#inclnude “stddef .> 

革 include xsStdlib.b> 
#defina NR_END 1 

和 Qafing FRREE_ ARG- Chazt 


Voia mrerror(rhar BITOZ_text[])》 
/Numerical Reclpes atamndard eTFOF handler 97 


fPrintf(Stderr， "NtmaricaI Recipes Tun-fime Brror.， -AD )i 
printf(3tderr，”%yavD" errOr_text) | 

fpriatf(stderr，" ，. .nnOW Xiting toO 6yS5tem. .AD") )， 
xit(t); 


】} 


foat *+Vaztor(1ong n1L，1cng nbh) 
/* al10Cate a 夺 lOoat vector vith subscript range v[nhl..nh] */ 
革 
fl10at wYi ， 


Ye《E1oat *) 节 aocttaize_t)] {(nh-nl+1+NR_END)*sizeof(float)))， 
i 《1VY》 nrerrorf"allocation failure jn vector()"]; 
Ieturn VY-DlLI+NR_END; 


iot "ivectorf1ong 1a1。，1Long mnh) 
A* allocate an int Vector with subscript range v[nl.,nh] */ 
{ 


iat 上 本 V) 


"995* 


Yym [int 中 )mal]ocf[#1za tl] 〔((nh-nl+l1+NR_END)ws1zaot' int])) 1 
tif 〔!v) nreTrorr"al]ocation failore in ivector[()》 "1 1; 
returna v-nlL+NR_END; 

】 


unsigned char #CcVectorklong nl1，1long na) 
Ar allocate an rm3aigrned char Vector With Subscript Iange yfsl.-nh]j *7 


并 


unsigned char 4V， 


ve (unsigned char +]mallioct[size_t) 〔(faoh-Dnl+1+NR_ERDJssizeof(tnsigned CARr.》 


ifIV》 oreTrrorf'raLIOCatiOD failure ina cyVactorg] 
Teturn V-DL+NR_END; 


un5ignmed 1ong +1Vector (1cng n1。 1]10ng mb) 
Ar allocate an imsigned 1ong vector With SubscripPt range v[nl-,nh] 9 


{ 
Unagnaf LODE *Vi 


va kunsigned ]0ng *)malloc((Eize_5) 〔(nh-n1+1+NR._END)*sizgoftlonRg)) 7: 
44 〔!VY》 arerror('"allocatioo failure in lvecccxf)i 
ITerurQ v-ni+NR_END; 


】 


double wdyvector(Iong Di，1L9Dg5 nh) 
zz al110cate a doubl10 Vector Vith subacTipt Tange v[nl..nh] *7 


double Vi 


v=(doub1ls *)maljioctfeize-t) {(nh-nl+1+NR_END)wsizeofkdouble]))， 
iT 《1IVY) nrerTOT{"aLLocation failure in dyecrorg)"] | 
zetuIn Y-nD1+NR_END; 

] 


王 19at 中 w 四 和 WIIiXKLODE RI1L，]1ong nrh，1onE nC1L。1omE ch) 
Zw Ballocate afloat matrix With Subscript rangs [nr ,nrh] [acl, .nch] o 
瑟 

loDng 1i，nrowsnch-nrl+1,Dncoi=nch-ncl+1; 

下 DAY 二 w) 


/+ allocate pointers to TOWS 41/ 

凤 =(f1oat **) malloc((size_t)((aurovvNR_END)wsizeof[ftoatw))); 
i【〔!m)} nrerror{t"allocation failure 1 tin matrirt)yw]; 

目 + NR_END ; 

gm ~ 一 DY]1; 


fw al1ocata roOVWS and mat pointeare to them 中 
amrl]s(t2oaL w) mallocffeize_t)((nrovencol+NR_END)*sizacft(float)?)); 
这 《tm[nrl]) mrerror("allocatilon failura 2 in matrirg)n); 

中 [nrl1] += NR_END; 

了 四 [hrl] -= ncli 


for (ienxl+tii<=nrb;i++) 由 [i]=a[i-1]+aucoli 


/TStitrm jointer ft arIa7 oz Painters to rouB 中 
zaturn 中 


} 


dowb1e +*dmatrixLong RTL，1long nrh，1Lcng nc1l，1long nch》 
/7 allocate 所 doub19 matrix with aubscript Ta0gg m[zart. .nrhb] fncl,.nch] +/ 
T 

15D 区 斌 ，RIOWeOFTH-RT141DcoknCh-aCL+rd1 

double 让 但 ; 


9 本 Locate boiatazrB 巧 O ZauS 
me (double 9*》 pa]llocttaize_t)((ntrpw+NR_END)+aizeoz(doubles))): 


11《【〈!m) nrerror("al10cation yaitiure 1 ia matxixc)”)i 
严 fm 革 R_END: 
下 - 王 DEL 


yj allocate Yov8 pnd Set pointerSs to thea *7 

中 [mrlj=(doubla #》malloc((size_t) (nzrowrnCol4+NR_ENDJegizeogrdoub16)7) 1; 
让 《 四 [nrl]) nrerror(aLllLocatioan tailure 2 ia matrixt)w): 

画 [azl] + NR_END;， 

四 [nrl] -一 KClLi 


fcorgiemarl+1l1;i<earb;i+rt)y 四 [1]ema[i-14]+ncoli 


pz TetuIU Pointer tq arTAy of olnterg toO TOWS 7 
IattT 用 


》 


工 t 本 证 硬 triI[10ng hTL，10n& nrh，1Long ncl，1Long mch) 

1 和 10C 攻 tt 人 及 int mttix 电 ih Bubscript ang@ [DFl. .mtzbh] [mcl. .ncbhj 47 
long 1 ， Towenzrhb-Dr1+1,ncol=snch-mcl+1i 
4mt 省 加 ; 


1 让 且 ] 1 有 At Pointar3 丰 Oo FowSs 3 了 

着 田 【Ln 人 伴 站 ) 台币 ]] 中秋 人 【生生 一 丰 七 )〔《 卫 节 妇 安 + 全 用 _ERD ) 瘦 忆 芋 开 全 OE( mt 本 》)) 1 
这 【〔( 曲 ) 了 YerTOTK"811L1oCat1O0 了 ilUxre - 1D 本 和 匀 LTG) 

+ RR_END: 


巴 -一 QT1; 


f+ 1L1LoCatae rova and 5et Pointera to tbham *7 

加 [DRrl]= (int *) mall0c(C(Btzg_t)CCRTOWYBCO1+NR_END》wBdzeoziD5》)) i 
主 《![nprl]) nrerrortwal1ccatiom 下 iiLUrE 3 matzjxg)yny 7 

了 [Enrl] +e 妥 _END; 

中 [nrl] ~ 一 ncI; 


for(ienrl+1ii<eorh;ii++) 也 [过 ]mm[i-1]+ocoli ， 


jw 了 etUID Pointer 起 0 arTay7 OF POLntGTN 起 D 工 GES 让 了 
gtWrt 邓 ) 


》 


?1oat *#BubtkatIir(f1oat *ea，1ong oldrl，1oaug olarh， Long oldc1l。，1Long oldch， 
Jonpg DeNr1，1ong mnewc1l)} 
好 Point A submatrix fnesrT..]inevc1l..] tp aloldrl,.oldrh]folacl1..oldch] sy 


1ong 1,] ,nrowmoltdrb-oldr1+lncol<oldci-newcli 
于 1084 站; 


7 二 到 1DCate arra7 cz pojntera tG zOVS 4/ 

Rn loat **#) aaLLOCKKSi26t) 《(mrow4JNR_END)s5izeogz(2Loate))7) 
11 【!a) mreryrorf&L1DCatioa 了 8z1Larg ja gbGa 业 在 rtxgyw7 

到 +e JR_ENDi 

四 ~ 一 DGWY1; 


量 帮 证 “和 开工 二 要 苇 O OwE 申 性 
Tor(i=oldri,j=navrliic=oldrh;l++,j++]】 查 [j] 一 a[ij+ncal; 


AIGTHTD Pointer to array DF PolnterB 七 D TOGUS 六/ 
Teturn 口 ; 
} 


fl1o8t wwCOmVert_0atriX(T1o8t *a，1ong nrl，1ong nrh，loag-acl， 1Long nch) 
/9 allocge a ftloaf patfrir 日 [nrl..nrh] [nc1. .nch] that pointa te tbhe matrizx 
deciared in Tha atandard C manner ag 中 [nrov] incol] ，ohezs Mrowearbh-nr1+1 
and Dcolnauch-acl+T， The routine should be called with tha addreea 

克 a[0] [0] as tho first BTEUmant -7 

ff 


1cng 之 .jarCy=Drh-nr1+1,ncolwnch-ncl+il， 


00 





21OaC 下: 


1 中 3110Cata polnters to TGWS ef 
mm ( 症 108 ##)》 galiloc((size_f 《(nrouy3R_END)+sizecf(Eloatay)) 


好 【4m) trarYOT(" 和 1]1oCattpn failLUr 和 in Comudxj_natrixtJw)i 
劝 + NR_END; 
本 -一 HT1L; 


7 3Gt PCimtLNTEN 七 O TOUS 中 

中 [Car1]=a-ncli 

Yorft=1,j=nrl+1;i<cnrowii++，j++)》 曙 [JJ]m[j-1]+ncoli 
fw Teturn Pointar to arra 了 Do Pointerg 蕊 D xog 相 本 了 
工人 上 ZE 他 ; 


】 


TIOat ***ft3tongOr(1ong nr1，Long nthb，1ong ncI，1Long nch，1long ndl，1long ndh) 
7 alLLoCate 中 flDat 3tenaor vitb Tang4 上 [orl. .nrh] [acl1. .nch] [adl, .ndh] wy 
f 


1o2g 荆 ,j ,RTawehTh-nrL+l,DCOL=nch-ncl+1ndep=ndh-ad1+1; 
了 1O 帮 万 9 中 作 蕊 ] 


V 和 110Cata PCintera ta POintera to TOoWS 1 

TY= (float *wh》3al1oc([size-<) (nrowv+NR_END)wsizeoft(tlcates])) 
了 【4 DrerTor("alLOcaticn yallura 1 ID T3tengorK)”》i 

七 +m NA_ 记 MD; 

t -= DTr1i 


Am 有 L10Cate Pointara TO YovS atd sof POinterS 菩 D Dam 7 
+[nrljstftloat **)》 Balloctfaize_t)(tnroweDCo1L+NR_END)w5izeoEs(tloate)))7 
if 《!t[nar1]) nrerror("atiocation failurs 2 1n 73tonaort)"》; 

七 [mr1] += JR_EMD: 

二 [nrl] -= pcli; 


Af# 有 11ocate TOUE and st pointere to hg 四 中 

tnrl] [ncl]=(float *) aallocf(slze_t) (nrovencoLandep+NR_END)+gixzeogKz1cat))); 
z2- 《Mt[nrl] [ncl]) mrarror(*allocation Failure 3 记 3tengaor(Jn) 

ft[ar1] facl] += 水 -END; 

七 [arl] [fncl] 一 mdl; 


foxf{j=ncl+lijx<=nchijJ+t) t[nrl][j]wetrnrl] []-1]+ndepi 
for(KinpFrl1+1;ic=nTrh3idi++)》 工 
[iet[i-1]+ncoli 


上 t [ti [mcl] 叱 [ 立 -4] [nclj+acozynpdep; 
?or{t jacl+lij<=acbhij+t) 七 [i] [jet[i] [于 -1]+oadepi; 


/zy Tetur Polnter to arz8y of pointearg tO TouS #7 
工程 上 UID 也 


] 


void trae-vectorffloat 9*y，long RL，Long ah) 
7 了 Tree B『1oat Vector 11ocatad with y9czoT( s*7 


Treet(FRNEE_ARG》 (Yehl-NR_ENMD)) ， 

Void res_ivesctur(int *yY，1Long anL，1Loog mh》 

了 TS IE 1Dt Vectot 只 110Oc8ted with ivector()》 中 
freseC(FREE_ARG) 《v+nl-IR_EIND)) ; 

void frae_Cvector (unsigned char *V，1ong nl1，long zh) 

As Te an UnSiGned Char Vector &1L10Cated with cvectorf) 申 / 


工 z@G (FTEE_ARG) 〔V+D1L-NR_END》) 


”80O1。 


Void fraa_lYector [nun3signed long ar，1ong anal。1Long nh) 
A* Er6a bn UnDSigned 1ong Yector allocated yibh Lvector() =/ 


freef[FREE_ARG) (v+nl-NR_END)) ; 


void froe_dvectortdoub]1a 4yY，Long n1，1lcong mh) 
Za Treo 了 double vectror 8a110cated Nith dvectorg) ?7 


Tree((FREE_ARG) (vtnLI-NR_END) ) ; 


void free-matrir(ztloat *?@，1Ong hr1l，10Dg arh，1ong ncl。1long nch) 
/+ 节 reg 届 了 15oat Matrix al1hocated by matrix() 中 
攻 

freet(FREF_ARG) 人 [arl]+ocl~HR_END)) 

freef(FREE_ARG) (ms+nrl-NR_ENHD)) : 


Yojiq frea_dmatrix(double azm，10ng PrL，1LpngE xzh，19og ncl，1ong nch) 
Ze* Tree 所 dotnb16 matTix alLl1ocatad by dmatrix(》 中/ 
二 

free[(FREE_ARG) 《afnrl1]+acl-MR_END)) 

frea[(FREE_ARG) 【mm+orl~NR-_END)) ; 


void fxrse-iltatrix(int #i，1ong nrL，1ong nrh，1ong hcl，1long achy) 
A* Tree an int fitriz allocated by imatrix[) */ 
工 
夺 reef(FREE_ARG) (ma[nrl3t+ncl-NR_END)); 
fraet(FREE_ARG) 【mt4nrL-R_FMD)) ; 
了 
void free_submatTixk1loat *#*b，1ong nrI，long Drb，1long nc1l，1ong nch) 
Zr re96 中 SUbmatrir allocated by BuUbmatrizt] 二 7 
人 


】 


TreeffFREE_ARG) 【b+Hnrl1-NR_END)Di; 


Yolid Treo_cOnYert_matT1Y[E1oat 9zb，]1ong nr1，1ong nrh，1long nc1，1ong zch) 
jn Tree 日 划 atrix 所 Li1DCatad b7 ConyeI 志 arir() 本 
xxeef(FREF_ARG) 【btrnrl1-NR_END)) ; 


void free_f3tangor(f1oac wy，LOhE Dr1，1ong nrh， long ncl，long mch ， 
loag ndl1，Long ndh) 
/4 Tree aa 人 oat 3tensor hLLOCAted by f3tanaor()》 47 
下 
freet (FRRSE_ARS) 《〈t[arl] [ncl]+yadl1-gR_END)) 1; 
frae(f(FREE_ARG) 《tt[nri]+ncl-l 人 END)) 
freef(8REE_ARG) (t+nrl-NR_END)) : 


rr 


2 


附录 C 复数 运算 


下 列 函 数 御 为 复数 这 算 放 于 程序 eisi、frenel、hypdrv 、hypgen 、hypser 、lJaguer 、zroots 
得 fixrts 中 -个 复数 定义 或 包含 个 浮 点 型 数值 的 辣 构 ，- 个 为 实 部 (.r)， -个 为 开 部 (. 
il :用 数 灾 斌 以 数值 进行 传送 和 返回 .其 它 过 论 见 第 1, ? 节 ， 

全 对 法 在 本 各 


这 件 wosroplex ee 
#incltda <mathb .-h> 








tyPadaef 3truct FCONPLEX {float Tri; fcowmplexi 


fcomplex Cadd [fcomplex a，fconpLlex b) 


萎 
Tcomplexz ci 
忆 -工本 用- 工 二 四 -站 1 
尼 . 土 m 人 -了 小口 ,于 
Teturn Ci 

了 


Tcomplexz Cenuib(Tcouplez 巴 ，fcomplex b) 
{ 


zcompler ci 
了 , 开 m 忆 。 工 一 .下 
习 - em 旭 二 一 虽 . 寺 和 
Teturn Ci 


fcomplex Cmul{tcoapler a，fcoapler b)》 
{ 


TcComaPlLex 上 Ci 

CC . 工 m 凡 , 工 申 - 工 一 息 . jb,i 
C ,让 人间 . 工 + 及 .基站 雪 .了 ; 
return ci 


】 
fcomP1ex Complextfloat re， tloat 10) 
萎 


fconplez ci 
CC . 工 全 站 了 

鼠 工本 1 全 
retUrn Ci 


】 
Tcomplez Conjg(fcompLex z) 
攻 


complex ci 
C .TeZ.T; 
Ci 王 ~g dt 
retura Ci 

] 


Tcomplex vdiv(fcoaplex B，tcomplex b) 
{ 

fcomp1lex cj; 

Loat cden; 


这 《fabe (b,r) >= ahakb,i)) 1 
Teb,irb.ri 


， 0 


Genab .Fr+rsb.Ii; 
C ,Ta{ 员 ,L+Lw 和 二) Adahn; 
C.ie( 和 .1-Tra.F)Adeni; 
} elae 荆 
Inb.rrb.ii 
danrb-it+reb.ri 
全 -Zm【 吉 ，TT 中 工 + 取 .十 ] /dd 
忌 -im[ 且 -寺中 芋 -中 .证 ] 7 有 人 和， 
] 
Tetura 5; 


float CabskfcompPlex Z) 


{ 
了 10at XSDBE,teap 
了 sfaba( 之 . 基 ) ; 
y=faba(z.i] 
if C 一 0.0) 
array 
61s6 jz 《7 = 0.0) 
ng 玉 ; 
alse ji KE > y)] 二 
teap=y/x， 
R&Dgm 工 ”33qIt(1 ,0+Toepyteap) ; 
} elae 荆 
teamapezAyi 
并 帮 m= 了 机 招工 【】 .站 七 有 下 昌 下 妆 风 P) 
TetuID Ba5 
了 
TcompLex CaqrtCfconplax Z) 
{ 
了 COEP14X Ci 
了 10a&t 工 ,了 , 吕 。 六 
3 〔{tF-T mm 站.》 二 《 工 .本 m 0.0)) 工 
CTem-D; 
ciaD-D; 
工 上 CE 忆 ; 
] al186 并 
XemfabB〔Z.I) 1 
PTaba[(Z.1)1 
if (zx > y) 二 
TmyAI; 
WmBqrE{I) 本 3QTTKDO .5wf1 .GO+8qIt[ 了 .04TeT)》); 
】} alLee { 
YX/yi; 
WOIt( 闻 ) 让 Qt [CO .56efE+z& 世 1.0+IaT))); 
1 (z.r > 到 1 有 .0) 攻 
C .IT=mwi 
C .工作 2 12 .COew) 
】》 algq 革 
vimfzZ.i >e 0 3 : -vi 
C-TeZ,1A(2.0wc.1) 
Ttara Ci 
} 
下 
fcompLex RCarnl(tloat x，complez &) 
T 
Tcoapler ci) 
人 .mm 有 站 时 -了 
己 。 直 四 工 由 用 .二 
tr ci 
】 


“804。 


程序 从 属 表 


下 面 , 按 字 苷 顺序 列 出 &C 语言 数值 算法 程 庆 大 全 妨 - 书 中 所 有 的 程序 。 当 某 程 序 淖 用 到 
其 它 子 程序 时 ,无 论 是 从 本 书 中 取得 或 用 户 提供 ,其 恢 从 关系 用 从 属 树 图 表示 : 一 个 程序 直 
接 调 用 的 所 有 程序 列 在 紧 靠 它 的 右边 一 列 中 ,用 真实 线 连接 :间接 调用 的 程序 列 在 右边 其 它 
列 中 ,用 喜 实 线 将 它 与 相关 程序 连接 起 来 .印刷 符号 的 约定 为 : 书 中 的 程序 用 打印 体形 式 ( 如 
eujsum 和 &azmman) 。 而 斜 字体 的 程序 用 来 表示 单个 从 属 怪 中 其 次 和 随后 发 生 的 程序 ( 当 从 
斑 盘 中 获取 程序 或 者 它们 的 归档 文件 时 ,只 需 用 正字 体 )。 用 户 需 撕 供 的 程序 用 正文 体 和 方 
括号 指出 ,例如 Cfunevl。 为 了 便士 查阅 这 些 程序 的 正文 说 明 , 列 表 最 右 端 列 出 7 每 个 程序 所 
处 的 章节 。 


addjet 一 一 inteTD 9.6 


aity 与 [ 革 Dessik eve scoav ee coroce oooicoooercoovotrveeoeoveoroevoarryeoyoceesoh vey 有 必 . 7 
-| - besechb .一 chebev 


bessiy 
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状 取 随 机 点 ,也 工 miser 息 序 


用 下 接 奸 入 法 对 数组 排 地 

用 直接 姑 入 法 对 映 个 效 站 样 他 

出 到 壳 法 厄 数 组 排 子 

用 快速 排序 法 对 数组 坐 序 
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用 堆 积 排 序 法 对 数组 排序 

忧 造 数组 的 索引 赤 
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构造 数组 的 秩 表 

评 找 数组 中 第 N 大 的 几率 

找 出 数 刀 中 第 N 大 的 拒 素 ,而 本 变 
动 师 数组 

茂 册 开 个 天佑 ,证 不 改动 原 数 绰 
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特征 值 法 求 多 项 式 的 要 

多 项 式 的 复 根 或 重 根 ,多 尔 掉 操 法 
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用 于 mewt 的 沿 直线 搜索 

多 准 牛 旦 法 的 全 局 收 钱 

用 于 newt 的 有 限 郑 分 雅 豆 比 行 殉 
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用 十 newt 的 呵 昌 冰 数 的 范 数 

对 于 方程 系统 的 弦 喜 法 





2、 





C 


中 


20 &D 一 一 


fa 


:Inbrzk 


xmldel: 


hz 


Brenr 
mtNelia 
FDCIT 『Y 
acwell 


-innun 


:idbmn 
让 PP 


limnmim 


引 [1edirn 
ditbpnmin 
sjrcip]X 
slrmp 甩 | 
slip2 
simp3 


tme 二 


TeYVCSL 
reverse 
tmCS5 
Traspt 
HIeLTOP 
ztnel'sa 


卉 下 1 SS 叶 


jacobi 
ejRsITt 
tTed] 2 
td 
ha]janr 


clnajtes 
hgr 
four 


Tezoffr 


Tea]{ 





中 办 辆 敬 最 小 计 
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持 币 伦 持 的 契 法 地 我 蒜头 反 小 


裕 持 导数 他 总 汪 找 果 数 角 汪 入 
酒 下 降 壮 统 形状 求 多维 嵌 小花 
求 籼 迹 点 . 拷 寺 amoeba 基 开 十 
酒 鲍 存 尔 约 方法 玉 多 如 负 生 化 
沿 多 继 空 亲 茶 和泉 线 求 听 起 板 
二 值 

抽 了 Wiomin 中 的 国 数 

谢世 鲁 阐 度 法 求 多 淮 氢 小 村 
利用 导数 信息 汽 “… 茶 系 弘 晴 
数 承 小 但 

贞 汪 linmin 中 的 国 数 

用 变 度 量 靶 求 多 维 极 小 化 
线性 数 的 线性 规划 骸 大 他 

用 于 simplx !9 的 上 性 其 j 

用 工 simplx 中 的 线性 规 区 
用 十 simplx 由 的 线性 葡 划 

莉 模 拟 退 淡 法 求解 旅行 销 们 员 
乞 题 

反 转 的 代价 ,有 二 anne3l 

拟 行 反 转 这 程 , 用 下 anpneal 
传 法 的 我 价 ,用 于 anneal 

执行 传送 操作 ,用 三 anneal 

米 托 该 利 斯 算法 ,用 上 anneai 
连 续 空 问 中 的 模 撤 进 火 蓄 

计算 一 个 坛 验 点 , 忆 上 amebwa 
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特征 向 量 , 蕊 特征 值 顺 序 家 乓 序 
实 对 称 抵 阵 的 床 斯 贺 荐 经 化 

对 称 二 对 第 息 阵 的 特征 租 

配 平 一 个 步 寻 称 利 险 

将 一 般 征 阵 约 化 成 海 森 他 委 弄 
式 

洲 素 则 格 和 矩阵 的 将 征 人 


”- 维 快速 博时 上 旷 变 换 (FFT: 
两 个 实 顺 数 的 全 这 和 鲁 时 灶 变 拘 
单个 实 函 数 的 岂 速 情 里 半 详 换 
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存 贱 在 外 部 媒 订 的 太 莹 要 集 的 
EPFT 
用 于 fousfs 的 重 瓶 和 置 称 之 件 





使 时 FFT 作 暑 据 的 次 机 和 角 知 
便条 FET 帮 数 拱 的 相关 和 习 析 
关 

使 用 FFT 作 印 上 诸 估计 

对 最 大 丧 {MEM) 系 数 求 但 
洛 硕 式 式 的 根 , 芭 对 到 单 们 下岗 
使 用 MEY 系 丈 的 组 性 所 是 

让 MFM 系数 许 切 率 请 他 让 
非 芍 避 寂 栏 数 据 的 苏 率 溢 

非 均 守 二 样 大 数据 集 的 功率 谨 
利用 fasper, 半数 组 进行 钼 证 傅 
为 博 里 叶 称 分 计 扯 端点 系数 
高 精度 的 傅 里 计 芭 

-- 维 离散 小 波 蛮 换 
DAUb4 系数 的 小 波 滤 波 器 

为 犁 漂 pwt 者 始 化 系数 

部 分 小 沪 变 换 

多 维 岗 散 小 波 变换 


计算 数据 集 的 年 
均值 差 的 学 后 + 检验 

计算 数据 集 的 均值 和 和 方 老 
方差 不 相等 情 访 . 均 倘 的 学 
被 物 

配对 数据 情况 . 壹 值 的 党 牛 : 检 
验 

对 方 蔗 之 产 的 上 检验 
数据 和 模型 之 所 差异 的 六 检验 
两 数据 集 之 癌 葬 蜡 的 六 检验 
数据 相对 模型 的 KS 检 入 

两 数据 集 之 间 人 的 K-S 检验 

K-S 概率 本 数 
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节 烙 名 集 之 网 前 中 这 全 此 玫 于 天 
用 数 组 无 和 票 的 伯 知 欣 4 
We 税 的 在 关 ， 竹 失 ， 

俩 贞洁 德尔 天 的 列 晓 上 故 从 导 
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拟 合 禾 析 成 丙 线 全 、 此 攻 者 
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计 曾 六 ,用 本 fitexy 

市 正规 者 衬 的 “ 乳 开 全 霹 小 二 生 
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二 滋 拟 合 
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弟 fit 或 swdfit 所 人 台 各 需 趟 

汀 Tril 或 svdfit 提 全 大 计生 玫 已 : 
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马上 阐 特 六法 ， 
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抽 寺 mrgqmie 中 计算 条 

使 用 mrgmin 拟 合 钠 斯 分 在 的 同 
稳健 上 地 将 数据 拆 侣 或 老 线 . 奈 小 
沦 对 吉 站 

用 十 medfit 中 稳 卫 地 所 会 虹 批 
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乓 一 步 积分 
镍 四 和 阶 龙 指 - 库 
分 求解 

其 有 粹 肾虚 监 入 的 GE: 的 “此 
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用 布 里 

的 积分 

用 于 bsstep 的 区 项 或 外 推 
用 于 bsstep 的 有 垦 末 数 外 扒 

二 价 字 恒 DDEs 的 入 分 

冉 四 阶 罗 蹇 布 鲁 完 积分 刚 共 的 
OODEs 

肌 江 astiff 的 次 责 夫 得 此 揭 薄 白 
用 于 stiff 的 求 导数 程 话 的 菏 俩 
用 半 隐 式 中 搬 法 和 猴 分 刚性 优 
吕 PDEs 

二 布 半 斯 高 -其 和 开 世相 分 也 性 
人 四 忆 s 


打 邯 法 求解 两 点 边界 秆 上 题 
对 令 适 点 打 彼 求解 两 点 过 异 值 癌 
是 

用 和 惟 驰 法 求解 两 点 这 宅 值 条 题 
癌 代 ,用 十 solvde 

对 和 角 化 了 块 ,用工 snlvde 

约 化 拓 阵 的 区 , 几 于 siovde 

田 salyde 计算 球体 调 各 郴 数 
球体 机 阵 系 蛇 , 币 下 stroig 

用 shoot 计算 球体 说 和 下 数 

有 骨 shootf 计算 球体 调 种 纲 数 


求解 第 二 类 线 几 砧 雷 德 春 姆 方程 
午 fredz :此 得 到 内 搓 争 

第 二 类 线性 添 尔 泰 拉 方 位 
任意 奇 措 核 的 积分 权重 

允 于 -个 冀 虹 起 的 亿 的 样 必 积 序 
积分 撕 阵 的 样本 程 六 

求解 击 异 弗 雷 熏 堆 姆 方 由 的 范例 


用 这 次 起 恰 驰 法 求 航 棋 区 PDE 
用 多 网 格 法 求解 线性 酉 网 PDE 
半 妇 权限 制 , 果 于 mglin ,mgfas 
站 线性 折 展 ,用 于 mglin,mgfas 
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必 , 划 于 如 儿 m 
T 上 炒 解 , 滑 于 mglin 
:得 尔 松 骤 , 用 本 mgfin 
订 季 品 芝 .用 本 mglin 
用 于 mglin 神 mgfas 的 实 间 中字 
用 于 mgltn 的 涉 用 程序 
朵 多 网 格 法 求解 卡 线 性 检 园 上) 
高 斯 - 赛 得 尔 扒 驰 ,用 于 mgfas 
恋 粕 网 巾 上 求解 .用 于 mgfas 
应用 闫 线 性 操作 ,用 了 mgfas 
再 于 mgras 的 实用 程 广 
册 于 mgfas 的 实用 得 训 
出 于 mgFas 的 实 川 得 这 


诊 申 计 记 册 的 将 点 运算 

格 宵 码 祖 它 的 逆 

十 于 icre 的 捅 环 世 任 庶 榨 上 琴 世 
循 坏人 交合 虚 校 验 和 式 

十进制 核验 位 的 让 算 或 证 裤 

档 造 . -个 堆 大 竖 友 

阁 遇 户 特 作 到 寄 坟 明码 ,兴工 
hutmak 

几 鹤 去 时 码 缤 人 所 和 出 纺 - 全 
骨 帘 坟 扣 码 详 反 利 解 勾 洗 个 节 
符 

构造 -- 个 算术 念 

肯 算 术 合 锋 介 或 译 匀 -个 侍 千 
将 整数 如 入 到 字 节 串 h, 晤 上 ar 
COUe 

多 精度 算术 运算 ,简单 的 这 借 
多 精度 乘法 ,采用 FF 了 方法 

允 精 庶 的 倒数 

多 精 竟 的 路 法 和 余数 

多 精 害 执业 方 殷 

多 兰 度 转换 成 十 进 制 数 

几 精 度 然 款 例 , 计 算 的 多 下 黎 
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